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