|
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: »bossupdate«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦0b92c64d5⟧ »ctb«
└─⟦this⟧
head 1
lookup bossnew
if ok.no
(message bossnew not set
end)
lookup bossold options jobdescr central tterm1 tterm2 tjobstart,
tjob tmount tread tprinter tprocs tbanker taccount tcatupdate,
tuserout testout textxref tsaveconv tgetconv tusercat
head 1
bossnew=move message.yes,
bossold options jobdescr central tterm1 tterm2,
tjobstart tjob tmount tread tprinter tprocs tbanker,
taccount tcatupdate tuserout testout,
textxref tsaveconv tgetconv tusercat
if ok.no
end
head 1
tt=set 250
f=entry bossnew bossnew bossnew bossnew
(repeat 21
tt=move message.yes f
if ok.no
finis
nextfile f)
clear temp tt
▶EOF◀