Source Code
1 REM ADDRESS LABEL
110 PRINT "INPUT NUMBER OF NAMES"
120 INPUT N
121 PRINT N
130 DIM A$(100,4)
140 DIM B$(4)
150 LET B$(1)="NAME"
160 LET B$(2)="ADDRESS"
170 LET B$(3)="CITY AND STATE"
180 LET B$(4)="ZIP CODE"
190 FOR I=1 TO N
200 FOR J=1 TO 4
210 PRINT "INPUT";B$(J)
220 INPUT A$(I,J)
230 NEXT J
232 LET X=LEN (A$(I,1))
234 IF X<30 THEN GOTO 240
236 PRINT "PROGRAM ONLY ACCEPTS NAMES UP TO"
237 PRINT "30 CHARACTERS LONG.TRY AGAIN"
238 GOTO 220
240 NEXT I
250 PRINT
310 FOR I=1 TO N
320 PRINT
340 FOR J=1 TO 4
350 LPRINT A$(I,J)
360 NEXT J
370 NEXT I
380 STOP
390 SAVE "1012%5"
400 RUN
