|
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: 1536 (0x600)
Types: TextFile
Names: »genht «
└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
└─⟦6a563b143⟧
└─⟦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
buskomud=set 200
scope user buskomud
mode list.yes
o buskomud
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 buskom warning
if 9.yes
message buskom error
if 8.no 9.no
message buskom ok
if 10.no
(mode list.yes
convert buskomud 0
mode list.no)
lookup buskomud
lookup buskom1
head
end
finis
▶EOF◀