/UTILEO.SB /--------- /A MODIFIED UTILTY.SB FOR THE 0S/8 FORTRAN II LIBRARY /CURRENTLY IN THE LIB8.RL FILE. FOR END OF FILE DETECTION. /THE GENERAL DEVICE #4 ON INPUT SETS AN END OF FILE FLAG (IEOF) TO -1 /SEEING A CONTROL/Z. IT IS NORMALLY SET TO 0. THE USER MUST INITIALLY /SET THE FLAG TO 0 AND THEN HE MAY TEST IT AT ANY TIME BY DOING A /"CALL EOF(IFLAG)". IFLAG WILL THEN BE SET TO -1 OR 0. EVERYTIME /SUBROUTINE EOF(IFLAG) IS CALLED IT SETS IFLAG TO THE CURRENT VALUE OF /IOEF AND THEN SETS IEOF TO ZERO. THIS IS HOW IT IS INITIALLY CLEARED /(I.E. BY CALLING IT AND IGNORING THE VALUE OF IFLAG THE FIRST TIME IS /CALLED). THIS IS SUMMARIZED BELOW : / IFLAG MEANING / ----- ------- / 0 CONTROL/Z (EOF) NOT SEEN YET / -1 CONTROL/Z (EOF) WAS DETECTED SINCE SUBROUTINE EOF / WAS LAST CALLED / /USING UTILEO.SB /-------------- /TO USE UTILEO.SB IT MUST BE ASSEMBLED UNDER SABR /THEN LOADED BEFORE (!) THE LIB8.RL HAS BEEN LOADED /E.G. / .R SABR / *UTILEO.RL