|
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: »oprdisptxt «
└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
└─⟦f546e193b⟧
└─⟦this⟧ »oprdisptxt «
at 0 0 erase
read <Test j/n > 1 t nl
if t=<n> then
echo off output off
else
echo on output on
endif
write <Display'et stoppes ved at nedlægge sessionen> nl
nl read <Tid i sekunder meller opdatering > 2 v
at 0 0 erase
while <>=<> do
attention <tas> r
send <display terminals^j>
at 0 4 erase
write <-- Terminal -- Bruger --> nl
get 78 t
while t!=<$> do
write t
get 78 t
endwhile
nl
send <finis^j>
get 15 t
while t!=<Operator finis> do
get 15 t
endwhile
get 1 t -- vent på continue-mcl message
endattention
at 0 0
attention <s> r
send <new tasoprproc base 0 0 buf 4 area 4 size 10000 prog fp run^j>
get 15 t
while t!=<ready> do
get 15 t
endwhile
send <do x3.clock x1.0.&v send message wait answer ^j>
send <finis^j>
get 5 t
while t!=<pause> do
get 5 t
endwhile
endattention
endwhile
▶EOF◀