10 REM PROGRAM NAME"STU003"
20 REM- PRINTS GUARDIAN ADDRESS LABELS FROM STUDNT.MST
30 OPEN "DF:STUDNT.MST" AS FILE 1
40 DIM#1, A$(500)=512
50 OPEN "LP:" AS FILE 2
55 ON ERROR GOT O 400
56 INPUT "PRINTER LINED UP";I$
57 IF I$="YES" GOTO 60
58 PRINT#2, SPACE$(78)
59 GOTO 56
60 FOR J%=1 TO 500
70 LET B$=A$(J%)
72 IF LEFT(B$,5)="99999" GOTO 500
74 IF MID(B$,146,1)="D" OR MID(B$,146,1)="V" GO TO 180
76 LET K$=MID(B$,31,20)
80 LET L$=MID(B$,51,20)
90 LET J$=MID(B$,85,20)
92 IF J$<>SPACE$(20) GO TO 100
94 LET J$=MID(B$,6,25)
96 PRINT#2, "TO THE PARENTS OR GUARDIAN OF:"
98 GO TO 105
100 PRINT#2, SPACE$(50)
105 PRINT#2, SPACE$(50)
110 PRINT#2, SPACE$(5)+J$
120 PRINT#2, SPACE$(50)
130 PRINT#2, SPACE$(5)+K$
140 PRINT#2, SPACE$(50)
150 PRINT#2, SPACE$(5)+L$
160 PRINT#2, SPACE$(50)
170 PRINT#2, SPACE$(50)
180 NEXT J%
400 SLEEP(5)
410 RESUME
500 CLOSE 1,2
510 END