Weekly Taping Schedule

Gallery

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"