Label maker for cassettes.
Appears on
Library tape from the Sinclair Computer Users Society (SINCUS).
One of a series of library tapes. Programs on these tapes were renamed to a number series. This tape contained programs 20121 to 20163. These tapes were compiled by Tony Willing.
Related Articles
Program for printing J-cards for cassettes.
Gallery
Source Code
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