Source Code
100 LET C=1
110 LET C$=" "
200 PRINT "\:'\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\''\':"
210 PRINT "\: \ :"
220 PRINT "\:.\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\..\.:"
230 PRINT AT 1,3;" WEEKLY TAPING SCHEDULE"
240 PAUSE 90
250 PRINT AT 6,0;"DAY START END CH. PROGRAM "
260 PRINT AT 1,1;C$
270 PRINT AT 1,1;" ENTER DAY (3 LETTERS)"
280 INPUT D$
285 IF LEN D$>3 THEN GO TO 270
290 PRINT AT C+7,0;D$
300 PRINT AT 1,1;C$
310 PRINT AT 1,4;" ENTER STARTING TIME"
320 INPUT S$
330 PRINT AT C+7,5;S$
340 PRINT AT 1,1;C$
350 PRINT AT 1,4;" ENTER ENDING TIME"
360 INPUT E$
370 PRINT AT C+7,12;E$
371 PRINT AT 1,1;C$
375 PRINT AT 1,4;" ENTER CHANNEL NO."
377 INPUT X$
380 PRINT AT C+7,17;X$
390 PRINT AT 1,4;" ENTER PROGRAM NAME"
400 INPUT P$
410 IF LEN P$>12 THEN LET P$=P$(1 TO 12)
440 PRINT AT C+7,20;P$
450 PRINT AT 1,1;C$
460 PRINT AT 1,4;"ANOTHER PROGRAM? Y/N"
470 INPUT A$
480 LET C=C+1
485 IF A$="Y" THEN GO TO 270
490 PRINT AT 1,4;"DO YOU WANT A COPY? Y/N"
495 INPUT B$
500 PRINT AT 1,1;C$
510 IF B$="N" THEN GO TO 9000
530 IF B$="Y" THEN PRINT AT 1,4;"WEEKLY TAPING SCHEDULE "
540 COPY
9000 STOP
9998 SAVE "TAPE SCHED" LINE 1
9999 CLS : PAUSE 180: PRINT AT 10,5;"REWIND TO VERIFY": PAUSE 400: VERIFY "TAPE SCHED"
