DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »ramncx«

└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
    └─⟦4334b4c0b⟧ 
        └─⟦this⟧ »ramncx« 

TextFile

clear user ramnc
ramnc=set 1 disc5
scope user ramnc
ramnc=algol
\f


RAMAN PROCEDURE                                                  RAMNC

external procedure ramnc(nr,navn,type);
long array navn; integer nr,type;

begin  long l1,l2,l3,l4,l5,l;
       type:=0; nr:=0;
       l:=navn(1);
       l1:=(l shift (-40)) extract 8;
       l2:=(l shift (-32)) extract 8;
       l3:=(l shift (-24)) extract 8;
       l4:=(l shift (-16)) extract 8;
       l5:=(l shift ( -8)) extract 8;

       if  l1>47 and l1<58
       and l2>47 and l2<58
       and l3>47 and l3<58
       and l4=0 and l5=0 then
       begin type:=9;
             nr:=(l3-48)+(l2-48)*10+(l1-48)*100; goto slut;
       end;

       if l1=102 and l2=0 and l3=0 and l4=0 and l5=0 then
       begin type:=6; goto slut;
       end;

       if l1=115 and l2=0 and l3=0 and l4=0 and l5=0 then
       begin type:=7; goto slut;
       end;

       if l1=114 and l2=97
       and (l3>47 and l3<58)
       and (l4>47 and l4<58)
       and (l5>47 and l5<58) then
       begin type:=1;
             nr:=(l5-48)+(l4-48)*10+(l3-48)*100; goto slut;
       end;

       if  (l2<48 or l2>57)
       or  (l3<48 or l3>57)
       or  (l4<48 or l4>57) then goto slut;

       if l1=112 then type:=2;
       if l1=109 then type:=3;
       if l1=115 then type:=4;
       if l1=116 then type:=5;
       nr:=(l4-48) + (l3-48)*10 + (l2-48)*100;
slut: end; end
\f


▶EOF◀