Short, simple program to print 4-line labels.
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"