|
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: »genhtutest «
└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
└─⟦6a563b143⟧
└─ ⟦this⟧ »genhtutest «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─ ⟦this⟧ »genhtutest «
job httest 8 190147 perm disc11 5000 1000 time 10 0 size 50000,
area 20
claim
mode list.no
opmess ny buskomtekst
opmess med skip.1
opcomm start eller remove
buskomtekst=set 700
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
buskom=set 700 disc
scope user buskom
mode list.yes
o buskomud
mode 8.no 9.no
buskom=algol buskomtekst,
xref.no,
blocks.yes,
details.8.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
kigpå buskom
if 8.yes
message buskom warning
if 9.yes
message buskom error
if 8.no 9.no
message buskom ok
head
end
finis
▶EOF◀