5	! STUDI- INITIALIZE STUDENT FILES
12 OPEN "**MASTER" AS FILE  1  : DIM# 1 ,M%(100)
14 OPEN "**STINF" AS FILE  8  : DIM# 8 ,S1$( 1111 )=32
16 OPEN "**STUDF" AS FILE  9  : DIM# 9 ,L%( 1111 ,2),S%( 1111 ,10),N( 1111 )
18 OPEN "**OVERF" AS FILE  10  : DIM# 10 ,S0%( 33 ,5)
20 OPEN "**VISOR" AS FILE  6  : DIM# 6 ,A%( 1111 ),M7%( 1111 )
70	S1$(M%(100))=SPACE$(32)
80	L%(I%,J%)=0% FOR J%=0 TO 2% FOR I%=0% TO M%(100)
90	S%(I%,J%)=0% FOR J%=0% TO 10% FOR I%=0% TO M%(100)
100	N(I%)=0% FOR I%=0% TO M%(100)
110	S0%(I%,J%)=0% FOR J%=0% TO 5% FOR I%=0% TO M%(98)
120	A%(I%)=0% FOR I%=0% TO M%(100)
130	M7%(I%)=0% FOR I%=0% TO M%(100)
250	CLOSE 1,8,9,10,6
9999	END