|
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: 2304 (0x900)
Types: TextFile
Names: »trbs4tx «
└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
└─⟦75ff9bef3⟧
└─⟦this⟧ »trbs4tx «
job fb 3 274004 time 10 10 size 80000 temp disc 4000 100, perm disc1 10000 100 ;i edremove ;i edmdsproc ;i edrecover mode list.yes clear user filebinisq filebinsq filebinmd catisq=edit i# x buflengthi deletereci extendi getparamsi getreci, headfilei headparamsi initfilei initreci insertreci nextreci, putreci recoveri removeupdi resulti setparamsi setputi setreadi, settesti setupdatei startfilei systemi end # f catsq= edit m e i# x closesq logsq opensq resultsq shlengthsq end # f catmdsort=edit m e i# x mdsortproc mdsort end # f head 1 message oversæt isq exc=edit catisq m e r/x/clear user/ f i exc getreci=set 1 disc1 buflengthi=set 1 disc1 extendi=set 1 disc1 removeupdi=set 1 disc1 headfilei=set 1 disc1 headparamsi=set 1 disc1 recoveri=set 1 disc1 mode 0.no i isqslang buflengthi=algol tbuflengthi spill.yes survey.yes extendi=algol textendi spill.yes survey.yes headparamsi=algol theadparami spill.yes survey.yes headfilei=algol theadfilei spill.yes survey.yes recoveri=algol trecoveri connect.no spill.yes survey.yes getreci=compresslib buflengthi extendi removeupdi head 1 exc=edit catisq m e r/x/scope user.disc1/ f i exc skip æ.1 exc=edit catisq m e r/x/f3=binout/ f i exc binin list.yes f3.c exc=edit catisq m e r/x/procsurvey/ f i exc exc=edit catisq m e r/x/clear user/ f i exc æ message sq system opensq = set 1 disc1 closesq=set 1 disc1 shlengthsq=set 1 disc1 i topensq i tclosesq i tshlengthsq opensq=compresslib closesq shlengthsq exc=edit catsq m e r/x/scope user.disc1/ f i exc skip æ.1 exc=edit catsq m e r/x/f4=binout/ f i exc exc=edit catsq m e r/x/procsurvey/ f i exc binin list.yes f4.c exc=edit catsq m e r/x/clear user/ f i exc æ message mdsort mdsortproc mdsort=set 1 disc1 mdsortproc=set 1 disc1 i mdsortalgol scope user.disc1 mdsortproc mdsort skip æ.1 f5=binout mdsort mdsortproc binin list.yes f5.c procsurvey mdsort mdsortproc clear user mdsort mdsortproc claim lookup f1 f2 f3 f4 f5 filebinisq=set 1 disc1 filebinsq=set 1 disc1 filebinmd=set 1 disc1 scope user filebinisq filebinsq filebinmd filebinisq=move f3 filebinsq=move f4 filebinmd=move f5 claim finis binin list.yes t ;end copy nextfile t t=move f3 nextfile t t=move f4 nextfile t t=move f5 æ end ▶EOF◀