REM LABELS
DIM LAST$(6), FIRST$(6)
DIM ADDRESS$(6), CITY$(6),ZIP$(6),AREA$(6),TEL$(6)
INPUT "MESSAGE: ";MESSAGE$
INPUT "FILENAME: ";FILENAME$
INPUT "HOW MANY LABELS UP: ";W
COUNTER=0
FILE FILENAME$
10 FOR J=1 TO W
LAST$(J)=" "
FIRST$(J)=" "
ADDRESS$(J)=" "
CITY$(J)=" "
ZIP$(J)=" "
AREA$(J)=" "
TEL$(J)=" "
NEXT J
FOR J=1 TO W
READ #1; LAST$(J), FIRST$(J), ADDRESS$(J), CITY$(J),\
ZIP$(J),AREA$(J),TEL$(J)
IF LAST$(J)="END" THEN 20
COUNTER=COUNTER+1
NEXT J
J=3
20 REM
FOR K=1 TO W
PRINT TAB(28*K-25); MESSAGE$;
NEXT K
PRINT
FOR K=1 TO W
PRINT TAB(28*K-27); FIRST$(K);LAST$(K);
NEXT K
PRINT
FOR K=1 TO W
PRINT TAB(28*K-27); ADDRESS$(K);
NEXT K
PRINT
FOR K=1 TO W
PRINT TAB(28*K-27); CITY$(K);". "; ZIP$(K);
NEXT K
PRINT
PRINT
PRINT
IF LAST$(J)="END" THEN 30
GOTO 10
30 PRINT
PRINT "END OF LIST"
PRINT COUNTER, "NAMES"
GOTO 99
99 END
