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

⟦210081f1c⟧ TextFile

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

Derivation

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

TextFile

rwr=pascal list.yes survey.yes
program copy (inbyte, outbyte, output);

type 
byte      = 0..255;
byte_type = packed array Æ1..80Å of byte;


var  
inbyte, outbyte : file of byte_type;
i               : byte_type;

begin
  open    (inbyte , 'infile' );
  open    (outbyte, 'outfile');

  reset   (inbyte );
  rewrite (outbyte);

  while not eof (inbyte) do
  begin
    read  (inbyte , i);
    write (outbyte, i);
  end;

  close (inbyte );
  close (outbyte);
end.
▶EOF◀