Cassette Label Maker

Source Code

   10 BORDER 2: PAPER 6: POKE 23658,8: POKE 23609,60
   20 CLS : INPUT "PROGRAM TITLE:  ";A$
   30 IF LEN A$>=32 THEN GO TO 10
   40 PRINT TAB 16-(LEN A$/2);A$
   50 INPUT "LINE #2 INFO: ";B$
   60 IF LEN B$>=32 THEN GO TO 50
   70 PRINT TAB 16-(LEN B$/2);B$
   80 INPUT "LINE #3 INFO: ";C$
   90 IF LEN C$>=32 THEN GO TO 80
  100 PRINT TAB 16-(LEN C$/2);C$
  110 PRINT : PRINT : PRINT : PRINT : PRINT 
  120 INPUT "BOTTOM LINE #4: ";D$
  130 IF LEN D$>=32 THEN GO TO 120
  140 PRINT TAB 16-(LEN D$/2);D$
  150 PRINT AT 21,4; FLASH 1;"CUT OUT PRINTED (Y / N)": INPUT E$
  160 IF E$="N" THEN GO TO 180
  170 IF E$="Y" THEN GO TO 380
  180 PRINT AT 20,0,,,,
  190 PRINT OVER 1;AT 21,8; FLASH 1;"CORRECT? (/N)"
  200 IF INKEY$="" THEN GO TO 200
  210 IF INKEY$="N" THEN GO TO 20
  220 PRINT AT 21,8;"             ": INPUT "NUMBER OF COPIES :";X: REM 14 spaces between quotes
  230 FOR I=1 TO X
  240 LPRINT TAB 16-(LEN A$/2);A$
  250 LPRINT TAB 16-(LEN B$/2);B$
  260 LPRINT TAB 16-(LEN C$/2);C$
  270 IF E$="N" THEN GO TO 290
  280 IF E$="Y" THEN GO TO 500
  290 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT 
  300 LPRINT TAB 16-(LEN D$/2);D$
  310 LPRINT : LPRINT 
  320 NEXT I
  330 INPUT "MORE? (Y/N): ";X$
  340 IF X$="Y" THEN GO TO 220
  350 INPUT "ANOTHER TITLE? (Y/N): ";X$
  360 IF X$="Y" THEN GO TO 20
  370 CLS : PRINT AT 10,8;"(WORK COMPLETED)": STOP 
  380 PRINT AT 20,0;"""CUT-OUT"" TITLE : 10 LETTERS MAX";AT 21,0;"X1234567890X                  ": INPUT F$
  390 IF LEN F$>10 THEN GO TO 380
  400 PRINT AT 20,0,,,,
  410 PRINT AT 3,0;"    "
  420 PRINT TAB 16-(LEN F$/2);F$
  430 INPUT "2nd LINE: ";G$
  440 IF LEN G$>20 THEN GO TO 430
  450 PRINT TAB 16-(LEN G$/2);G$
  460 INPUT "3rd LINE: ";H$
  470 IF LEN H$>18 THEN GO TO 460
  480 PRINT TAB 16-(LEN H$/2);H$
  490 GO TO 180
  500 LPRINT : OUT 123,27: OUT 123,14: LPRINT TAB 8-(LEN F$/2);F$
  510 LPRINT TAB 16-(LEN G$/2);G$
  520 LPRINT TAB 16-(LEN H$/2);H$
  530 LPRINT 
  540 GO TO 300
  550 STOP 
  560 CLEAR 64455: LET PRINTORG=64461: POKE 26704,INT (PRINTORG/256): POKE 26703,PRINTORG-(INT (PRINTORG/256))*256: POKE 64456,1: POKE 64458,0: POKE 64457,0: POKE 64459,79
  570 BORDER 2: CLS : PRINT INK 2;AT 8,0;"L O A D I N G   T H E    C O D E",,,,,,,,;TAB 7;" PLAY THE RECORDER ": LOAD "labelmkr C"CODE 64456,1111
  580 POKE 64463,0: POKE 64464,0: POKE 64465,0
  590 GO TO 10
  600 SAVE "LabelMkr" LINE 560: SAVE "labelmkr C"CODE 64456,1080: BEEP .5,10: PRINT #1;AT 0,5;"***REWIND THE TAPE***": PRINT #1;AT 1,5;"***PLAY TO VERIFY***": VERIFY "": VERIFY ""CODE