Listing of file='LABLPR.BAS;01' on disk='vmedia/selective_utilities-sector.ccvf'
10 REM ***SINGLE LABEL PRINTER*** 20 REM 30 REM WRITTEN BY PETER STANDEN 40 REM TO MICROLINE 80 AT 300 BAUD 50 REM 60 CLEAR 100 70 PLOT 12 80 PRINT :PRINT :PRINT :PRINT 90 PLOT 14,22:PRINT TAB( 20) 100 PRINT "ADDRESS LABEL PRINTER" 110 PLOT 15 120 PRINT :PRINT 130 PLOT 6,65:PRINT TAB( 18):PRINT "SET LOWER CASE & CAPS LOCK" 140 PLOT 15,22 150 PRINT :PRINT :PRINT 160 INPUT "ENTER NAME..................";A$ 170 PRINT 180 INPUT "OTHER DATA (OR RETURN)......";D$ 190 PRINT 200 INPUT "ENTER STREET NAME...........";B$ 210 PRINT 220 INPUT "ENTER SUBURB & P CODE.......";C$ 230 PRINT 240 INPUT "NUMBER OF LABEL REPEATS.....";A 250 FLG= PEEK (33265) 260 PLOT 27,18,7,27,13,27,80 270 FOR J= 1TO A 280 PRINT TAB( 3):PRINT A$ 290 IF D$= ""THEN GOTO 310 300 PRINT TAB( 3):PRINT D$ 310 PRINT TAB( 3):PRINT B$ 320 PRINT TAB( 3):PRINT C$ 330 IF D$= ""THEN PRINT 340 PRINT :PRINT 350 NEXT J 360 POKE 33265,FLG 370 PRINT :PRINT :PRINT :PRINT :PRINT 380 GOTO 150