10	! BUILDC- BUILD CLASS FILES FOR THE BULLETIN & ENROLLMENT
20 OPEN "**CLINF" AS FILE  1  : DIM# 1 ,C$( 2222 )=128
30 OPEN "**SCLINF" AS FILE  2  : DIM# 2 ,C2$( 2222 )=16
40 OPEN "**STATUS" AS FILE  3  : DIM# 3 ,E9%( 2222 ,2)
50 OPEN "**ESTAT" AS FILE  4  : DIM# 4 ,E8%( 2222 ,2)
60 OPEN "**HOURS" AS FILE  5  : DIM# 5 ,H%( 2222 )
70 OPEN "**EXTRA" AS FILE  6  : DIM# 6 ,E7%( 2222 )
80 OPEN "**TIME" AS FILE  7  : DIM# 7 ,T3%( 2222 )
90 OPEN "**MASTER" AS FILE  8  : DIM# 8 ,M%(100)
92 OPEN "**PRESTS" AS FILE  9  : DIM# 9 ,E6%( 2222 ,2)
95	M%(I%)=0% FOR I%=0 TO 100%
100	INPUT "MAXIMUM # OF STUDENTS";M%(100)
110	INPUT "MAXIMUM # OF CLASSES";M%(99)
120	INPUT "MAXIMUM # OF STUDENT OVERFLOWS";M%(98)
130	INPUT "MAXIMUM # OF CLASS OVERFLOWS";M%(97)
140	M%(96)=1 : M%(95)=1 :N%=M%(99)
200	!**** INIT FILES
210	E9%(I%,J%)=0% FOR J%=0% TO 2% FOR I%=0% TO N%
220	E8%(I%,J%)=0% FOR J%=0% TO 2% FOR I%=0% TO N%
225	E6%(I%,J%)=0% FOR J%=0% TO 2% FOR I%=0% TO N%
230	H%(I%)=0% FOR I%=0 TO N%
240	E7%(I%)=0% FOR I%=0 TO N%
250	T3%(I%)=0% FOR I%=0 TO N%
260	C$(N%)=SPACE$(128)
270	C2$(N%)=SPACE$(16)
280	PRINT "FILES INITIALIZED"
9000	CLOSE 1,2,3,4,5,6,7,8
9999	END