home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG028.ARK / RWINT.ALG < prev    next >
Text File  |  1984-04-29  |  447b  |  18 lines
  1. BEGIN
  2. COMMENT THIS PROGRAM TESTS THE INTEGER FILE OPERATIONS. IT OPENS
  3.         A FILE AND READS INTEGERS FROM IT AND WRITES THEM
  4.         TO THE CONSOLE AND TO ANOTHER FILE;
  5.  
  6. INTEGER A,B,C;
  7. FILE    FILE1,FILE2;
  8. FILE1:="RFILE.INP"; %THIS ASSIGNS AND OPENS RFILE.INP%
  9. FILE2:="WFILE.OUT"; %THIS ASSIGNS AND OPENS WFILE.OUT%
  10. FOR A:=1 STEP 1 UNTIL 16 DO
  11.   BEGIN
  12.     READ FILE1(B,C);
  13.     WRITE FILE2(B,C);
  14.     WRITE(B,C);
  15.   END;
  16. END
  17. EOF
  18.