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 / ONEND2.ALG < prev    next >
Text File  |  1984-04-29  |  850b  |  39 lines
  1. BEGIN
  2. COMMENT THIS PROGRAM DEMONSTRATES THE FUNCTIONING OF THE 
  3.         ALGOL-M ONENDFILE FEATURE USING TWO INPUT FILES;
  4. % VARIABLE DECLARATIONS %
  5.  
  6. FILE FILE1,FILE2;
  7. INTEGER A,I,J;
  8. INTEGER ARRAY NUM[0:50];
  9. STRING(5) FILEEND;
  10. PROCEDURE ENDFILE(FILENUMBER);
  11.    INTEGER FILENUMBER;
  12.    BEGIN
  13.      FILEEND:="TRUE";
  14.      CASE FILENUMBER-1 OF 
  15.        BEGIN
  16.          WRITE("END OF FILE1 REACHED");
  17.          WRITE("END OF FILE2 REACHED");
  18.        END;
  19.    END;
  20.  
  21. % PROGRAM EXECUTION BEGINS HERE %
  22.  
  23. % OPEN FILES %
  24.  
  25. FILE1:="FILE1.INP";
  26. FILE2:="FILE2.INP";
  27. I:=-1;
  28. FILEEND:="FALSE";
  29. WHILE FILEEND<>"TRUE" DO
  30.   READ FILE1(NUM[(I:=I+1)]) ONENDFILE ENDFILE(1);
  31. FILEEND:="FALSE";
  32. I:=I-1;%RESET I%
  33. WHILE FILEEND<>"TRUE" DO
  34.   READ FILE2(NUM[(I:=I+1)]) ONENDFILE ENDFILE(2);
  35. FOR J:=0 STEP 1 UNTIL I-1 DO
  36.    WRITE(NUM[J]);
  37. END
  38.         
  39.