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

⟦8a9f625e8⟧ TextFile

    Length: 768 (0x300)
    Types: TextFile
    Names: »tropen3tx   «

Derivation

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »tropen3tx   «

TextFile

mode list.yes what

if 1.yes
 (listopen=set 50
  if ok.no
  finis
  o listopen

  (open=slang,
   xref.yes,
   fpnames,
   list.on,
   open3tx,
   list.off,
   insertproc 

   open termzone stopzone close,
   setposition getposition setstate getstate)

  if ok.no
  c=message ok.no

  o c
  filexfer listopen lp
  end
  finis)

(open=slang,
 fpnames,
 open3tx,
 insertproc

 open termzone stopzone close,
 setposition getposition setstate getstate)

scope user,
 open termzone stopzone close,
 setposition getposition setstate getstate

end
finis
▶EOF◀