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

⟦9d827da1a⟧ TextFile

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

Derivation

└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─ ⟦this⟧ »tsponmedd   «

TextFile

begin
  zone z(128,1,stderror);
  integer array field io_spool_post;
  real field tid;
  long array field laf;
  integer i, dato, kl;
  real t;

  open(z,4,<:qq:>,0);
  inrec6(z,64);
  io_spool_post:= 4;
  tid:= 6; laf:= 12;
          write(out,"nl",1,<:-<'>'>:>,z.io_spool_post.laf);
          dato:= systime(4,z.io_spool_post.tid,t);
          kl:= round t;
          i:= replace_char(1<*space in number*>,'.');
          write(out,"sp",2,<<zd_dd_dd>,dato,<< zd_dd_dd>,kl);
          replace_char(1,i);
  setposition(out,0,0);
  close(z,true);
end
▶EOF◀