Tape Label

   10 REM TAPE LABEL by James G.          Dupuy 02-05-85   FROM           ZX-APPEAL Oct/Nov '87           Entered into library            and programming                 finished from                   incomplete listing by           Anthony Willing
   12 PRINT AT 10,0;" STOP TAPE AND TURN ON PRINTER!!"
   13 BEEP .5,30
   14 PRINT AT 14,0;" Press ENTER to Start."
   15 POKE 23609,20
   16 PRINT AT 16,0;"To skip to side B or to skip    side B, just enter ""STOP"" by    holding the Sym.Shift and press the ""A"" key at the program      title prompts."
   17 INPUT Z$
   20 BORDER 6: BRIGHT 1: CLS 
   30 DIM N$(10)
   35 PRINT AT 0,0;"\ .\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\. ";AT 1,0;"\ :";TAB 31;"\ :"
   40 PRINT AT 2,0;"\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::";AT 20,0;"\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''"
   50 FOR N=3 TO 19
   60 PRINT AT N,0;"\: ";AT N,15;"\ :";AT N,31;"\ :"
   70 NEXT N
   80 PRINT AT 3,4;"Side:A";AT 3,20;"Side:B"
   85 FOR n=5 TO 19
   90 PRINT AT n,1;"______________";AT n,16;"_______________"
  100 NEXT n
  120 PRINT AT 21,2; FLASH 1;"Enter Tape Title or Number."
  130 INPUT a$: IF a$="" THEN GO TO 130
  135 PRINT AT 1,2;a$
  140 LET o=1
  150 FOR n=5 TO 19
  155 PRINT AT 21,0;"                                "
  160 PRINT AT 21,0; FLASH 1;"Enter Title for Side A #:";o
  170 INPUT n$: IF n$=" STOP          " THEN GO TO 210
  178 PRINT AT n,1; OVER 1;n$
  180 PRINT AT 21,0; FLASH 1;"Enter Index Number for #:";o
  185 INPUT i$
  190 PRINT AT n,11; OVER 1;">";i$
  192 INPUT "OK (ENT/N)  ";Z$: IF Z$="N" OR Z$="n" THEN PRINT AT N,1; OVER 1;N$;AT N,11; OVER 1;">";I$: GO TO 155
  195 LET o=o+1
  200 NEXT n
  210 LET o=1
  215 FOR n=5 TO 19
  220 PRINT AT 21,0;"                                "
  230 PRINT AT 21,0; FLASH 1;"Enter Title for Side B #:";o
  240 INPUT n$: IF n$=" STOP          " THEN GO TO 295
  245 PRINT AT n,16; OVER 1;n$
  250 PRINT AT 21,0; FLASH 1;"Enter Index Number for #:";o
  260 INPUT i$
  270 PRINT AT n,27; OVER 1;">";i$
  272 INPUT "OK (ENT/N)  ";Z$: IF Z$="N" OR Z$="n" THEN PRINT AT N,16; OVER 1;N$;AT N,27; OVER 1;">";I$: GO TO 220
  280 LET o=o+1
  290 NEXT n
  300 PRINT AT 21,0;"                                "
  310 STOP 
  320 SAVE "TapeLabel" LINE 1