DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦6619076d5⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »ttestnext«

Derivation

└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
    └─⟦b2ec5d50f⟧ 
        └─⟦0b817e319⟧ »ctramos« 
            └─⟦this⟧

TextFile

mode list.yes
message ttestnext
test=algol list.yes
begin
integer i,del,int;
integer array chars(0:255);
long array n(1:2);
algol copy.tnextparam;
initalf(chars);
rep:
i:=nextparam(in,n,int,del);
if i<0 then write(out,<:***syntax:>) else
if i=0 then write(out,<:end of list:>) else
if i mod 4=1 then write(out,i,<: name :>,n,<:':>,false add del,1,<:':>) else
write(out,i,<: integer :>,int,<:':>,false add del,1,<:':>);;
if i>0 then goto rep;
end;
mode list.no
o c
▶EOF◀