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

⟦5210a4e36⟧ TextFile

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

Derivation

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

TextFile

allist=set 60
o allist
test=algol survey.yes
begin
algol list.off  copy.tscopepr;
algol list.off copy.tmonpr;
integer i;
long array name(1:3);
name(1):=long <:www:>; name(2):=0;
read(in,i);
write(out,case i of(scope_temp(name),scope_login(name));
end
o c
▶EOF◀