|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1536 (0x600)
Types: TextFile
Names: »ramnavnx«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦this⟧ »ramnavnx«
;pal
slet ck17.raname
clear raname
beskyt ck17.raname.2
raname=algol list.no message.no
\f
RAMAN PROCEDURE RANAME
external
procedure raname(a);
long array a;
begin
integer array tail,t(1:10);
integer t8,t9,nr,snr;
for nr:=1 step 1 until 10 do tail(nr):=0;
if lookuptail(<:ramnr:>,tail) <> 0 then
begin write(out,<:*** ramnr findes ikke:>);
goto slut;
end;
t8:=tail(8); snr:=tail(9); nr:=tail(10);
found:
ramng(nr,a,1);
nr:=(nr+1) mod 1000;
if lookuptail(a,t)=0 then goto found;
if nr=0 then
begin nr:=1; snr:=snr+1;
end;
tail(10):=nr; tail(9):=snr;
for nr:=1 step 1 until 7 do tail(nr):=0;
changeentry(<:ramnr:>,tail);
slut: end; end
\f
▶EOF◀