100 ' Label Printing Program
110 ' Last Edited 3.10.92 - Version 1.00
120 CLS
130 PRINT "Label Printing Program"
140 PRINT
150 INPUT "How many labels are required "; Quantity
160	PRINT
170	IF Quantity = 0 THEN END
180 INPUT "Maximum text lines on label "; MaxLines
190	PRINT
200	IF MaxLines = 0 THEN END
210 INPUT "Maximum characters per line ", MaxCharacters
220	PRINT
230	IF MaxCharacters = 0 THEN END
240 INPUT "How many lines between each label LinesBetween
250 FOR x = 1 TO MaxLines
260	PRINT "Type in line "; x
270	PRINT STRING$(MaxCharacters, "-")
280	LINE INPUT TextLine$(x)
290	PRINT
300	NEXT
310 FOR x = 1 TO Quantity
320	FOR y = 1 TO MaxLines
330			LPRINT TextLine$(y)
340			NEXT y
350		FOR z = 1 TO LinesBetween
360			LPRINT
370			NEXT z
380		NEXT x
400 END