DataMuseum.dk

Presents historical artifacts from the history of:

RC4000/8000/9000

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about RC4000/8000/9000

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦584929d84⟧ TextFile

    Length: 1536 (0x600)
    Types: TextFile
    Names: »radiodriftt «

Derivation

└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─ ⟦this⟧ »radiodriftt «

TextFile

c2=assign c
;lookup nytabelfil
;if ok.yes
;(gltabelfil=move tabelfil
;scope project gltabelfil
;lyttabel fra.tabelfil1 til.tabelfil filnr.1032
;flyttabel fra.tabelfil til.nytabelfil,
;  filnr.1025.1026.1027.1028.1029.1030.1031.1032.1033.1034.1035.1036.1037.1038
;tabelfil=move nytabelfil
;scope temp nytabelfil
;clear temp nytabelfil)
lookup nytabelfil
if ok.yes
(flyttabel fra.nytabelfil til.tabelfil filnr.1032
scope temp nytabelfil
clear temp nytabelfil)
buskomx=move buskom1
mode 10.yes ok.yes
backup fil.driftlog inc.60
backup fil.radiolog inc.60
backup fil.billede  inc.30
driftlog=set 1 
radiolog=set 1 disc1
billede=set 1 disc1
scope project driftlog radiolog billede
(driftlog=oo
buskomx testbit.14.27 vtlogskift.030000
if warning.yes
mode 10.no
if ok.no
skip 64.1)
skip 64.2
@
oo
o c2
driftlog=changeentry driftlog driftlog d.0.0
radiolog=changeentry radiolog radiolog d.0.0
spoolfilx=move spoolfil
spoolfilx=changeentry spoolfilx spoolfilx billede
scope project spoolfilx
backup fil.driftlog inc.60
backup fil.radiolog inc.60
backup fil.billede  inc.30
backup fil.spoolfilx inc.10
if 10.no
replace startradio
end
skip 64.1
@
oo
o c2
driftlog=changeentry driftlog driftlog d.0.0
radiolog=changeentry radiolog radiolog d.0.0
spoolfilx=move spoolfil
spoolfilx=changeentry spoolfilx spoolfilx billede
scope project spoolfilx
backup fil.driftlog inc.60
backup fil.radiolog inc.60
backup fil.billede  inc.30
backup fil.spoolfilx inc.10
end
▶EOF◀