|
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: »compass1«
└─⟦2c55ea56f⟧ Bits:30001844 SW-save af projekt 1000, Alarm-system
└─⟦6b41451d2⟧
└─⟦this⟧ »compass1«
job jaba 6 600 area 10 perm disc 600 1 temp disc 1000 time 25 0 size 174000 i ep1rcpas if ok.no finis i xep1rcpas if ok.no finis if ok.yes ( i binep1rcpas npas1txt = edit newpass1txt if ok.no finis clear temp newpass1txt end rename npas1txt.newpass1txt ) if ok.yes ( valtab = set 30 valtab = pascvalue pascaltable i valinsert npas1txt = edit newpass1txt valtab if ok.no finis clear temp valtab newpass1txt end rename npas1txt.newpass1txt ) mode list.yes newpass1 = set 1 disc scope user newpass1 clear temp pascalpif head cpu newpass1 = pascal newpass1txt survey.yes heap.2000 codesize.6000 head cpu if ok.no finis lookupprog newpass1 if ok.no finis lookup pascalpif c = list binep1rcpas count.boss if ok.yes finis output.no ; generate listing udfil = set 0 pass1list = indent newpass1txt mark lc clear temp pascalpif newpass1txt udfil = cross pass1list bossline.no convert udfil finis ▶EOF◀