Short, simple program to print 4-line labels.
Content
Image Gallery
Source Code
10 CLS : INPUT "Program Title:";a$
12 IF LEN a$>32 THEN GO TO 10
14 PRINT TAB 16-(LEN a$/2);a$
20 INPUT "Line #2 Info:";b$
22 IF LEN b$>32 THEN GO TO 20
24 PRINT TAB 16-(LEN b$/2);b$
30 INPUT "Line #3 Info:";c$
32 IF LEN c$>32 THEN GO TO 30
34 PRINT TAB 16-(LEN c$/2);c$
40 INPUT "Bottom Line:";d$
42 IF LEN d$>32 THEN GO TO 40
44 PRINT TAB 16-(LEN d$/2);d$
50 PRINT #1; FLASH 1;"Correct? (y/n)"
51 IF INKEY$<>"" THEN GO TO 51
52 IF INKEY$="" THEN GO TO 52
54 IF INKEY$="n" THEN GO TO 10
100 PRINT AT 21,8;" ": INPUT "Number of copies? ";x
110 FOR i=1 TO x
120 LPRINT TAB 16-(LEN a$/2);a$
122 LPRINT TAB 16-(LEN b$/2);b$
124 LPRINT TAB 16-(LEN c$/2);c$
126 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT
128 LPRINT TAB 16-(LEN d$/2);d$
130 LPRINT : LPRINT
132 NEXT i
140 INPUT "More? (y/n):";x$
142 IF x$="y" THEN GO TO 100
150 INPUT "Another title? (y/n):";x$
152 IF x$="y" THEN GO TO 10
160 CLS : PRINT AT 10,8;"Work Complete": STOP
9000 SAVE "LABELMAKER": PRINT "Rewind & Key ENTER to VERIFY.": PAUSE 0: VERIFY "LABELMAKER"