5	! CHANGI- CHANGE AN INCOMPLETE INTO A RECORDED GRADE
100   !**************OPEN DISK FILES**************************
110   !   PRESENT FILES DESIGNED FOR 4000 STUDENTS  JAN 12, 1972
120 OPEN "**MASTER" AS FILE  1  : DIM# 1 ,M%(100)
140 OPEN "**STINF" AS FILE  3  : DIM# 3 ,S$( 1111 )=32
160 OPEN "**STUDF" AS FILE  5  : DIM# 5 ,L%( 1111 ,2),S%( 1111 ,10),N( 1111 )
170 OPEN "**OVERF" AS FILE  6  : DIM# 6 ,S0%( 33 ,5)
260 OPEN "**GRADES" AS FILE  10  : DIM# 10 ,G%( 1111 ,10),G0%( 33 ,5),C%( 2222 )
299   !*******************************************************
305	Z6=0  !STUDENT# SWITCH
310	INPUT "WILL YOU BE ENTERING DP#'S";Z$
320	IF Z$="YES" THEN Z6=1
630	GOSUB 3000
1000	GOTO 9000
3000	PRINT "ENTER ST#,CLASS#,HOURS,GRADE"
3010	INPUT V1%,V2%,V3%,V$
3020	  IF V1%=0% THEN RETURN ELSE GOSUB 6500%
3025	   IF V3%<0% OR V3%>9% GOTO 3000
3030	   IF V1%<0% OR V1%>M%(2) GOTO 3000
3040	IF V2%<0 OR V2%>1000 THEN 3000 ! NOT VALID CLASS
3050	H%=S%(V1%,1)/100% : P%=S%(V1%,1)-H%*100%
3100	R%=P%
3110	K%=8% : K2%=1
3120		IF R%<= 8 THEN K8%=R% : K2%=0
3130		FOR W%=1 TO K8%
3140	H4%=S%(V1%,W%+2)/10%
3150		IF V2%=H4% THEN 3300
3160		NEXT W%
3171	STOP
3180	!** OVERFLOW CLASS **
3185	U1%=S%(V1%,2%)
3190		FOR U2%=2% TO U1%-8%+1%
3200		  IF S0%(U1%,U2%)/10% =V2% THEN 3250%
3210		NEXT U2%
3220	& "STUDENT NOT ENROLLED IN THE CLASS" : GOTO 3000%
3250	S0%(U1%,U2%)=V2%*10%+V3%
3260	G0%(U1%,U2%)=G1%
3270	GOTO 3000%
3300	!** CLASS FOUND MAKE CHANGES
3305	S%(V1%,W%+2)=V2%*10%+V3%
3310	GOSUB 7000
3320	G%(V1%,W%)=G1%
3360	GOTO 3000 ! LETS TRY AGAIN
6500	!***SUBROUTINE TO FIND STUDENTS NAME
6510    IF Z6=1 THEN 6560   !HE IS GIVING DP#
6520	!**HANDLE STUDENT #
6525 	FOR Z3%=1 TO M%(2)
6530	IF N(Z3%)=V1 THEN 6550
6535	NEXT Z3%
6540	Z3%=0 : S$(0)="INVALID STUDENT#
6550	V1%=Z3% !INDEX FOR STUDENT
6560	PRINT "WORKING ON-"; LEFT (S$(V1%),20);"OK";
6565	INPUT Z$
6570	RETURN
7000	!***GRADE RECORDING SUBROUTINE
7010	G1$="ABCDFPWWIHNE"
7020	G2$=MID(V$,1,1) : G9=LEN(V$)
7030	IF G9>1 AND MID(V$,2,1)<>"F" GOTO 7070
7040	G1%=INSTR(1,G1$,G2$)
7050	  IF G1%<>0% THEN 7100%
7070	INPUT "INVALID GRADE RE-ENTER JUST THE GRADE";V$:GOTO 7020
7100	IF X>1 THEN G1%=8 ! WF
7120	RETURN
9000	!**** STOP WORKING SO HARD
9004	CLOSE 1,2,3,4,5,6,10
9999	END