home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ALGOL / ALGOLM.ZIP / RWINT.ALG < prev    next >
Encoding:
Text File  |  1987-02-14  |  512 b   |  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.