10	! BUILAM- BUILD AND UPDATE THE ADVISR FILE
20 OPEN "**ADVISR" AS FILE  1  : DIM# 1 ,A$(300),A1$(200)=32
100	INPUT "DO YOU WISH TO INITIALIZE THE ADVISR FILE";B$
110		IF B$<>"YES" THEN 120
115		A$(I%)=SPACE$(16) FOR I%=1 TO 300
116		A1$(I%)=SPACE$(32) FOR I%=1 TO 200
120	INPUT "DO YOU HAVE ANY ADVISR UPDATES";B$
130		IF B$<>"YES" THEN 200
140	INPUT "ENTER ADVISOR# OR 0";N% : IF N%=0% THEN 200
150		IF N%<0 OR N%>300 THEN PRINT "INVALID ADVISOR #" : GOTO140
160	PRINT : PRINT A$(N%)
170	PRINT "NEW NAME"; :INPUT LINE A$(N%) : A$(N%)=LEFT(A$(N%),LEN(A$(N%))-2)
180	GOTO 140
200	INPUT "DO YOU HAVE ANY MAJOR CHANGES";B$
210		IF B$<>"YES" THEN 300
220	INPUT "ENTER MAJOR# OR 0";N% : IF N%=0% THEN 300%
230		IF N%<0 OR N%>200 THEN PRINT "INVALID MAJOR #" : GOTO 220
240	PRINT : PRINT A1$(N%) 
250	PRINT "NEW MAJOR"; : INPUT LINE A1$(N%)
260	A1$(N%)=LEFT(A1$(N%),LEN(A1$(N%))-2)
270	GOTO 220
300	INPUT "DO YOU WANT A PRINTOUT ON THE LINE PRINTER";B$
310		IF B$<>"YES" THEN 9000
320	OPEN "LP:" AS FILE 12
330	PRINT #12 FOR I%=1 TO 5
340	PRINT #12,TAB(20);"ADVISORS"
350	PRINT #12,TAB(20);"--------" : PRINT #12
360		FORI%=1 TO 300
370		IF A$(I%)<>SPACE$(16) THEN PRINT #12,I%;TAB(5);A$(I%)
380		NEXT I%
400	PRINT #12,CHR$(26);DATE$(0); "     ";TIME$(0) :PRINT #12
410	PRINT #12,TAB(20);"MAJORS" : PRINT #12,TAB(20);"--------":PRINT #12
420		FOR I%=1 TO 200
430	IF A1$(I%)<>SPACE$(32) THEN PRINT #12,I%;TAB(5);A1$(I%)
440		NEXT I%
450	CLOSE 12
9000	CLOSE 1
9999	END