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

⟦4878ed895⟧ TextFile

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

Derivation

└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
    └─⟦6a563b143⟧ 
        └─⟦this⟧ »tabflyttx   « 
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
    └─⟦a957ba283⟧ 
        └─⟦this⟧ »tabflyttx   «

TextFile

begin
  integer fra,til,antal,i;
  zone zi,zu(128,1,stderror);

  open(zi,4,<:tabelfil:>,0);
  open(zu,4,<:tabkopi:>,0);
  write(out,<:fra til antal: :>); setposition(out,0,0);
  read(in,fra,til,antal);
  setposition(zi,0,fra);
  setposition(zu,0,til);
  for i:= 1 step 1 until antal do
  begin
    inrec6(zi,512);
    outrec6(zu,512);
    tofrom(zu,zi,512);
  end;
  close(zi,true); close(zu,true);
end
▶EOF◀