|
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: 768 (0x300)
Types: TextFile
Names: »atinit«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦f3ee86806⟧ »rymac«
└─⟦this⟧
submit # ; time.!2.0 mode list.yes lookup rydterm if ok.yes o rydterm message call m atinit.seq.time.list lookup rydgen1 if ok.no (rydgen1=set 200 scope day rydgen1 lkj=lookup rydgen1txt if ok.no extract from.cryprog rydgen1txt rydgen1=algol rydgen1txt list.no message.no if ok.no finisb ) lookup ryf!1dat if ok.yes ( scope temp ryf!1dat clear temp ryf!1dat ) lookup !1seqdat if ok.no contract from.crydat !1seqdat if ok.no finisb rydgen1 !1seqdat list.!3 nsmax.25.1 scope day ryf!1dat lookup ryf!1dat ryf!1dia ryf!1dip finisb mode list.no # ▶EOF◀