5	! GRADST- STATUS REPORT ON GRADE RECORDING
10 OPEN "**CLINF" AS FILE  2  : DIM# 2 ,C1$( 2222 )=128
30 OPEN "**MASTER" AS FILE  1  : DIM# 1 ,M%(100)
40 OPEN "**GRADES" AS FILE  10  : DIM# 10 ,G%( 1111 ,10),G0%( 33 ,5),C%( 2222 )
50 OPEN "**STATUS" AS FILE  9  : DIM# 9 ,E9%( 2222 ,2)
60	OPEN "LP:" AS FILE 12
80	C%(0)=0%
90	FOR I%=1% TO M%(1)
91	  IF C%(I%)=1% THEN C%(0)=C%(0)+1%
92	NEXT I%
100	PRINT #12,"******************************************"
101	PRINT #12,DATE$(0),TIME$(0)
105	PRINT #12,"********************************************" : PRINT #12
110	PRINT #12,C%(0);" OUT OF";M%(1);" CLASSES HAVE BEEN RECORDED"
120	PRINT #12, FOR I=1 TO 5
190	PRINT #12,"                 CLASSES NOT RECORDED"
191	PRINT #12,"                 --------------------"
195	PRINT #12,"CLASS#","DESCRIPTION"
196	PRINT #12,"======","==========="
198	J%=M%(93)
200		FOR I%=1 TO M%(1)-1
210		  IF C%(J%)<>0% THEN 220
215		& #12,J%;TAB(6);LEFT(C1$(J%),25)
220		J%=E9%(J%,2) : IF J%<0 THEN 9990
230		NEXT I%
9990	CLOSE I FOR I=1 TO 12
9999	END