Address Label

Gallery

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