5	!TERM- BUILD TERMINAL FILES
6	! REVISED NOV 17,1972
10	!***BUILD SYSTEM FILES******
15 OPEN "**MASTER" AS FILE  1  : DIM# 1 ,M%(100)
200	!INITIALIZE FILES
300	INPUT "HOW MANY KEYBOARD FILE DO YOU WISH TO BUILD";N%
305	IF N%>10% THEN N%=10% : PRINT "PRESENT LIMIT 10 KEYBOARD FILES"
307	M%(94%)=N% ! SET # OF ENROLLMENT TERMINALS IN MASTER FILE
310		FOR J=1 TO N%
320	READ A%
330	DATA 0,1,2,3,4,5,6,7,8,9
350 OPEN "**STINF.KB"+NUM$(A%) AS FILE  5  : DIM# 5 ,S9%(500,13),N(500),S$(500)=32
360 OPEN "**CLASF.KB"+NUM$(A%) AS FILE  9  : DIM# 9 ,C9%( 2222 )
380	S9%(0,0)=0%
385	S$(500)=SPACE$(32) ! WRITE END OF FILE MARK
390	IF J=1 THEN S9%(0,1)=N% !# OF KEYBOARD FILE SAVED UNDER KB#0
400	C9%(I%)=0% FOR I%=0% TO M%(99)
410	        FOR K=1 TO 500
420	N(K)=0
430	S9%(K,I)=0% FOR I=1 TO 13
440	        NEXT K
450	CLOSE 5,9
460	NEXTJ
500	PRINT "FILES INITIALIZED AT ";TIME$(0)
510 CLOSE 1,10
9999	END