Label Maker

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"