|
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: 3072 (0xc00)
Types: TextFile
Names: »bossload«
└─⟦00964e8f7⟧ Bits:30007478 RC8000 Dump tape fra HCØ.
└─⟦b2ec5d50f⟧
└─⟦0b92c64d5⟧ »ctb«
└─⟦this⟧
o qq1
lookup bossold
if ok.no
(o c
message bossold not set
end)
slang qq
if ok.no
(o c
message bossfiles not loaded
end)
lookup f
if ok.yes
(scope temp f
clear temp f)
lookup bossnew
if ok.no
bossnew=set 200 disc
lookup bossnew
if ok.no
(o c
message too few ressources on disc
end)
bossnew=changeentry 0 bossnew
if ok.no
(o c
message bossnew not drum or disc
end)
f=entry bossold bossold bossold bossold
scope temp bossold
clear temp bossold
bossold=entry bossnew bossnew
bossold=move message.yes f
nextfile f
clear temp options
options=entry bossnew bossnew
options=move message.yes f
scope user options
nextfile f
clear temp jobdescr
jobdescr=entry bossnew bossnew
jobdescr=move message.yes f
scope user bossold jobdescr
nextfile f
clear temp central tterm1 tterm2 tjobstart tjob tmount,
tread tprinter tprocs tbanker taccount,
tcatupdate tuserout testout textxref tsaveconv tgetconv tusercat
central=entry bossnew bossnew
central=move message.yes f
nextfile f
tterm1=entry bossnew bossnew
tterm1=move message.yes f
nextfile f
tterm2=entry bossnew bossnew
tterm2=move message.yes f
nextfile f
tjobstart=entry bossnew bossnew
tjobstart=move message.yes f
nextfile f
tjob=entry bossnew bossnew
tjob=move message.yes f
nextfile f
tmount=entry bossnew bossnew
tmount=move message.yes f
nextfile f
tread=entry bossnew bossnew
tread=move message.yes f
nextfile f
tprinter=entry bossnew bossnew
tprinter=move message.yes f
\f
; rc 75.06.24 bossold, ...5...
nextfile f
tprocs=entry bossnew bossnew
tprocs=move message.yes f
nextfile f
tbanker=entry bossnew bossnew
tbanker=move message.yes f
nextfile f
taccount=entry bossnew bossnew
taccount=move message.yes f
nextfile f
tcatupdate=entry bossnew bossnew
tcatupdate=move message.yes f
nextfile f
tuserout=entry bossnew bossnew
tuserout=move message.yes f
nextfile f
testout=entry bossnew bossnew
testout=move message.yes f
nextfile f
textxref=entry bossnew bossnew
textxref=move message.yes f
nextfile f
tsaveconv=entry bossnew bossnew
tsaveconv=move message.yes f
nextfile f
tgetconv=entry bossnew bossnew
tgetconv=move message.yes f
nextfile f
tusercat=entry bossnew bossnew
tusercat=move message.yes f
scope user central tterm1 tterm2 tjobstart tjob tmount tread,
tprinter tprocs tbanker taccount tcatupdate tuserout testout,
textxref tsaveconv tgetconv tusercat
o c
end
)
▶EOF◀