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

⟦112cb1b81⟧ TextFile

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

Derivation

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

TextFile

begin
  integer dato,kl;
  real tid,d,k;

  read(in,dato,kl);
  tid:=systid(dato,kl);
  dato:=systime(4,tid,k);
  write(out,<:konverteret tid: :>, << zd dd dd>,dato,k,"nl",1);
end
▶EOF◀