home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / ALGOL / ALGOLM.ZIP / BLKTEST.ALG < prev    next >
Encoding:
Text File  |  1987-02-14  |  1.0 KB  |  32 lines
  1. BEGIN
  2. INTEGER I,A;
  3. BEGIN
  4. FILE X[40] ; %BLOCKED FILE 40 CHAR'S PER BLOCK%
  5. WRITE("THIS PROGRAM CREATES AND OPENS A CP/M FILE ");
  6. WRITE("WITH A NAME OF BLK.INP.  THIS IS A BLOCKED ");
  7. WRITE("RANDOM ACCESS FILE. IT THEN WRITES THE NUMBERS 1");
  8. WRITE("TO 5 OUT TO THIS FILE, ONE NUMBER PER BLOCK.");
  9. X:="BLK.INP"; %THIS ASSIGNS BLK.INP TO X AND OPENS THE FILE%
  10.  
  11. A:=0;
  12. WRITE("THE NUMBERS WRITTEN TO THE FILE ARE");
  13. FOR I:=1 STEP 1 UNTIL 5 DO 
  14.   BEGIN
  15.    WRITE X,I((A:=A+1));%X IS THE FILE NAME AND I IS THE RECORD NBR%
  16.    WRITE (A); % THIS WRITES TO THE CONSOLE %
  17. END;
  18. END; % THIS IS THE END OF THE BLOCK IN WHICH  %
  19.      % FILE X IS DECLARED SO AT THIS POINT IT %
  20.      % IS CLOSED %
  21. BEGIN
  22. FILE XI[40]; %THIS IS A NEW BLOCKED FILE %
  23. XI:="BLK.INP"; % FILE XI IS ALSO ASSIGNED TO BLK.INP AND%
  24.                % BLK.INP IS RE-OPENED HERE %
  25. WRITE ("THE NUMBERS IN THE FILE ARE");
  26. FOR I:=1 STEP 1 UNTIL 5 DO
  27.   BEGIN
  28.      READ XI,I(A); % THIS READS FROM FILE XI RECORD I %
  29.      WRITE(A);
  30.    END;
  31. END;
  32. END
  33.