bwBASIC/BP100/LABEL2.BAS

1 REM LABEL2
5 CLEAR 1000
10 CLS:PRINT"REPETITIVE LABEL MAKER":PRINT
20 PRINT"THIS PROGRAM WILL PERMIT THE USER TO MAKE ANY NUMBER OF
25 PRINT"IDENTICAL PRINTED LABELS ON STANDARD 1 INCH LABEL FORMS. 
30 PRINT"THERE IS PROVISION FOR UP TO 5 PRINTED LINES, THOUGH
35 PRINT"FROM 1 TO 5 LINES MAY BE PRINTED"
90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$
100 CLS:INPUT"HOW MANY LABELS ARE DESIRED";A
110 IF A=0 THEN GOTO 100
120 PRINT
130 LINE INPUT "FIRST LABEL LINE    ";Z$:N$(1)=Z$
140 LINE INPUT "SECOND LABEL LINE   ";Z$:N$(2)=Z$
150 LINE INPUT "THIRD LABEL LINE    ";Z$:N$(3)=Z$
160 LINE INPUT "FOURTH LABEL LINE   ";Z$:N$(4)=Z$
170 LINE INPUT "FIFTH LABEL LINE    ";Z$:N$(5)=Z$
200 PRINT:INPUT"PRESS ENTER WHEN PRINTER READY";Z9$:PRINT
210 INPUT"DO YOU WANT A PRINT MASK(Y/N)";Z$
220 IF Z$="Y" THEN FOR L=1 TO 6:LPRINT STRING$(30,"#"):NEXT:PRINT:GOTO 210
230 FOR L=1 TO A
240 FOR K=1 TO 5
250 IF N$(K)<>"" THEN LPRINT N$(K) :ELSE LPRINT " "
260 NEXT K
270 LPRINT " "
280 NEXT L
300 PRINT
310 INPUT"PRESS ENTER TO INPUT DATA FOR MORE LABELS";Z9$
315 IF Z9$ = "-1" THEN END
320 GOTO 100