Compucolor.org – Virtual Media

Listing of file='LABEL.BAS;01' on disk='vmedia/utility_2-sector.ccvf'

10 INPUT "Number of labels to print? => ";A
20 FOR I= 1TO 5
30 READ B$(I)
40 PRINT B$(I);:INPUT " line of text => ";A$(I)
50 IF A$(I)= "0"THEN A$(I)= ""
60 NEXT I
70 DATA  "First","Second","Third","Fourth","Fifth"
100 PLOT 27,18,7,27,13
110 B= A
120 IF A> 10THEN B= 10
130 FOR J= 1TO B
140 PRINT A$(1)
150 PRINT A$(2)
160 PRINT A$(3)
170 PRINT A$(4)
180 PRINT A$(5)
190 PRINT
200 NEXT J
210 IF A< = 10THEN PRINT CHR$ (12):POKE 33265,0:END
220 PRINT A$(1)
230 PRINT A$(2)
240 PRINT A$(3)
250 PRINT A$(4)
260 PRINT A$(5)
270 A= A- 11
280 GOTO 110