10 REM-PROGRAM NAME "STU035"
20 REM - INSERTS NEW ADDR AND PHONE # IN STUDENT RECORD
40 OPEN "DF:STUDNT.MST" AS FILE 1
50 DIM#1, S1$(600)=511
60 INPUT "ID#";I$
70 IF I$="END" GO TO 380
80 FOR J%=1 TO 600
90 LET S$=S1$(J%)
100 IF LEFT(S$,5)="99999" GO TO 360
110 IF LEFT(S$,5)<>I$ GO TO 350
120 INPUT "PHONE NUMBER";P$
130 IF P$="NO" GO TO 160
140 IF LEN(P$)<>7 GO TO 120
150 LET S1$(J%)=LEFT(S$,71)+P$+MID(S$,79,432)
160 INPUT "ADDRESS CHANGE";A$
170 IF A$="NO" GOTO 60
180 INPUT "STREET ADDRESS CHANGE";A1$
190 IF A1$="NO" GOTO 270
200 INPUT LINE A1$
201 LET Y%=LEN(A1$)-2        !KILL CR/LF
203 LET A1$=LEFT(A1$,Y%)
210 IF LEN(A1$)=20 GO TO 250
220  LET L%=20-LEN(A1$)
230 LET K$=A1$+SPACE$(L%)
240 GO TO 280
250 LET K$=A1$
260 GOTO 280
270 LET K$=MID(S$,31,20)
280 PRINT "ENTER CITY, STATE"
281 INPUT LINE A2$
283 LET Y%=LEN(A2$)-2
284 LET A2$=LEFT(A2$,Y%)
290 IF A2$="NO" THEN LET L$=MID(S$,51,20) ELSE LET L$=A2$
300 IF LEN(L$)=20 GO TO 330
310 LET L%=20-LEN(L$)
320 LET L1$=L$+SPACE$(L%)
330 LET S1$(J%)=LEFT(S$,30)+K$+L1$+MID(S$,71,1)+P$+RIGHT(S$,79)
340 GOT O 60
350 NEXT J%
360 PRINT "CANNOT FIND MASTER FOR ID#";I$
370 GOTO 60
380 CLOSE 1
390 END