10 '  DSKLBL.BAS  v1.6          11/02/85         R. BOEHNLEIN
20 PRINT CHR$(27)+"E"
30 INPUT "How many labels do you wish to print? <0 to exit>: ",A
35 IF A=0 THEN 210
40 PRINT:PRINT "Make sure printer is ready and labels are in position."
50 PRINT "Hit any key to start printing. ";:AN$=INPUT$(1)
60 '  SETS H25 TO 8LPI
70 LPRINT CHR$(27)+CHR$(91)+CHR$(50)+CHR$(120)
80 FOR B=1 TO A
90 LPRINT"TYPE:____"TAB(21)"BOOTABLE:_"
100 LPRINT
110 LPRINT "VOLUME:___   DENSITY:_"
120 LPRINT
130 LPRINT "SECTORING:_  SIDE(S):_  TRK:__"
140 LPRINT
150 LPRINT "LABEL:________________________":LPRINT
160 LPRINT TAB(7)"________________________"
170 LPRINT:LPRINT:LPRINT
180 NEXT B
190 PRINT:PRINT:PRINT "MORE (Y/N) <N>: ";:AN$=INPUT$(1)
200 IF AN$="Y" OR AN$="y" THEN 20 ELSE 210
210 PRINT CHR$(27)+"E":SYSTEM