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 / BLKTEST.ALG < prev    next >
Text File  |  1984-04-29  |  1KB  |  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. A:=0;
  11. WRITE("THE NUMBERS WRITTEN TO THE FILE ARE");
  12. FOR I:=1 STEP 1 UNTIL 5 DO 
  13.   BEGIN
  14.    WRITE X,I((A:=A+1));%X IS THE FILE NAME AND I IS THE RECORD NBR%
  15.    WRITE (A); % THIS WRITES TO THE CONSOLE %
  16. END;
  17. END; % THIS IS THE END OF THE BLOCK IN WHICH  %
  18.      % FILE X IS DECLARED SO AT THIS POINT IT %
  19.      % IS CLOSED %
  20. BEGIN
  21. FILE XI[40]; %THIS IS A NEW BLOCKED FILE %
  22. XI:="BLK.INP"; % FILE XI IS ALSO ASSIGNED TO BLK.INP AND%
  23.                % BLK.INP IS RE-OPENED HERE %
  24. WRITE ("THE NUMBERS IN THE FILE ARE");
  25. FOR I:=1 STEP 1 UNTIL 5 DO
  26.   BEGIN
  27.      READ XI,I(A); % THIS READS FROM FILE XI RECORD I %
  28.      WRITE(A);
  29.    END;
  30. END;
  31. END
  32.