10	! GRADEB- BUILD GRADE RECORDING FILE
20 OPEN "**MASTER" AS FILE  1  : DIM# 1 ,M%(100)
30 OPEN "**GRADES" AS FILE  2  : DIM# 2 ,G%( 1111 ,10),G0%( 33 ,5),C%( 2222 )
100	G%(I%,J%)=0 FOR J%=0 TO 10 FOR I%=0 TO M%(100)
110	G0%(I%,J%)=0 FOR J%=0 TO 5 FOR I%=1% TO M%(98)
120	C%(I%)=0 FOR I%=0 TO M%(99)
200	PRINT "GRADES FILE IS INITIALIZED"
210	CLOSE 1,2
250	END