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 - metrics - download

⟦cb39c4898⟧ TextFile

    Length: 2304 (0x900)
    Types: TextFile
    Names: »oprdisptxtt «

Derivation

└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
    └─⟦f546e193b⟧ 
        └─⟦this⟧ »oprdisptxtt «

TextFile

note <at 0 0 erase>
at 0 0 erase
note<read <Test j/n > 1 t nl>
read <Test j/n > 1 t nl
note<if t=<n> then>
if t=<n> then
note<  echo off output off>
  echo off output off
note<else>
else
note<  echo on output on>
  echo on output on
note<endif>
endif
note<at 0 0 erase >
at 0 0 erase 
note<write <Display'et stoppes ved at nedlægge sessionen> nl>
write <Display'et stoppes ved at nedlægge sessionen> nl
note<nl read <Tid i sekunder meller opdatering  > 2 v>
nl read <Tid i sekunder meller opdatering  > 2 v
note<while <>=<> do>
while <>=<> do
note<attention <tas> r>
attention <tas> r
note<  send <display terminals^j>>
  send <display terminals^j>
note<  at 0 0 erase>
  at 0 0 erase
note<  write <-- Terminal    --   Bruger --> nl>
  write <-- Terminal    --   Bruger --> nl
note<  get 78 t>
  get 78 t
note<  while t!=<$> do>
  while t!=<$> do
note<    write t >
    write t 
note<    get 78 t>
    get 78 t
note<  endwhile>
  endwhile
note<  send <finis^j>>
  send <finis^j>
note<  get 15 t>
  get 15 t
note<  while t!=<Operator finis> do>
  while t!=<Operator finis> do
note<    get 15 t>
    get 15 t
note<  endwhile>
  endwhile
note<endattention>
endattention
note<note r>
note r
note<attention <s> r>
attention <s> r
note<  send <new tasoprproc base 0 0 buf 4 area 4 size 10000 prog fp run>>
  send <new tasoprproc base 0 0 buf 4 area 4 size 10000 prog fp run>
note<  get 20 t>
  get 20 t
note<  if t=<ready> or t=<> then>
  if t=<ready> or t=<> then
note<    send <do x3.clock x1.0.&v send message wait answer ^j>>
    send <do x3.clock x1.0.&v send message wait answer ^j>
note<    send <finis^j>>
    send <finis^j>
note<    get 5 a>
    get 5 a
note<    while a!=<pause> do>
    while a!=<pause> do
note<      get 5 a>
      get 5 a
note<    endwhile>
    endwhile
  else
    read <Fejl '&t' : Tast return > r
    exit t
  endif
endattention
note r
endwhile
▶EOF◀