|
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 - download
Length: 1536 (0x600)
Types: TextFile
Names: »genht «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─ ⟦this⟧ »genht «
claim
mode list.no
opmess ny buskomtekst
opmess med skip.1
buskomtekst=set 800
scope user buskomtekst
head 1
mode list.yes
buskomtekst=cmerge htmon source,
.off,
.htsys,
.htudskriv,
.htfilsystem,
.htattention,
.htio,
.htoperatør,
.htgarage,
.htradio,
.htvogntabel,
.htsysslut,
skip.1,
;1
mode list.no
lookup buskomtekst
head
buskom1ud=set 200
scope user buskom1ud
mode list.yes
o buskom1ud
mode 8.no 9.no
buskom1=algol buskomtekst,
list.no,
xref.no,
blocks.yes,
details.9.9,
message.yes,
;2
if ok.no
mode 9.yes
if warning.yes
mode 8.yes
o c
mode list.no
if 8.yes
message buskom1 warning
if 9.yes
message buskom1 error
if 8.no 9.no
message buskom1 ok
if 10.no
(mode list.yes
convert buskom1ud 0
mode list.no)
lookup buskom1ud
lookup buskom1
head
end
finis
▶EOF◀