home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64apps / videos.arc / VIDMAIN (.txt) < prev   
Commodore BASIC  |  1987-07-18  |  15KB  |  348 lines
  1. 10 IFI<>0THENGOTO240
  2. 15 I=0:J=0:K=0:W=0:RR=0:PC=54272:T$=" TAPE"+"":W=0:S=0:Q%=0
  3. 20 AL=0:AA=0:BB=0:CC=0:DD=0:A=0:VL=0:QT=0:X=0:R=0:H=0:M=0:T=0:B=0:C=0:D=0:P=0:Q=0
  4. 25 R=0:NU=0:LE=0:UC=0:U1=0:U2=0:U3=0:U4=0:N=0:Z=0:SL=0:TU=0:WQ=0:Y=0:EC=0:YY=0
  5. 30 ZZ=0:CC=0:BB=0:DD=0:NC=0:R$=CHR$(0)+"":TY$=R$:EV$=R$:YN$=R$:F3$=R$:O$=R$
  6. 35 NU%=0:S%=0:I$=R$:LI$=R$:SO$=R$:P3$=R$:CA$=R$:P4$=R$:VH=0:P2$=R$:PR$=R$:P1$=R$
  7. 40 CO$=R$:DV$=R$:ER$=R$:NU$=R$:NM$=R$:FU=40:GOTO80
  8. 50 PRINTNU%(I)TAB(4)S%(I)TAB(9)H$+":"+M$TAB(17)TY$(I)TAB(20)NM$(I):P=P+1:RETURN
  9. 55 H=INT(EL%/60):M=EL%-H*60:TT=1:GOTO65
  10. 60 H=INT(LE%(I)/60):M=LE%(I)-H*60
  11. 65 H$=STR$(H):M$=RIGHT$(STR$(M),2):IFM<10THENM$="0"+RIGHT$(STR$(M),1)
  12. 70 IFTT=1THENTT=0:RETURN
  13. 75 RETURN
  14. 80 POKE53280,15:POKE53281,15:POKE53282,6:POKE53283,2:POKE53284,14:POKE53265,PEEK(53265)OR64:PRINTCHR$(142)
  15. 87 PRINT"[147][160][160][160][207][203][160][212][207][160][195][207][208][217][160][160][160][160][196][201][211][212][210][201][194][213][212][197][160][160][160][160][211][200][193][210][197][160][160]
  16. 88 [153]"OPENCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)RIGHT$STR$VAL(null)(null)ATN(null)VALCLOSEASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE
  17. 89 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][197][206][202][207][217][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]
  18. 90 CB$[178]""[170]"":[129]I[178]1024[164]1063:[151]I,160:[151]PC[170]I,10:[130]
  19. 100 [153]"SYS         A FREEWARE PROGRAM BY        
  20. 105 PRINT"              SCOT CULLEN             
  21. 110 [129]I[178]1063[164]2023[169]40:[151]I,160:[151]PC[170]I,10:[130]
  22. 115 [153]"           46 EAST GRANT AVE.         
  23. 120 PRINT"       COLONIA, NEW JERSEY 07067      
  24. 123 [153]"         COPYRIGHT 1984, 1985         
  25. 125 FORI=2023TO1984STEP-1:POKEI,160:POKEPC+I,10:NEXT
  26. 130 PRINT"[159][160][160][160][160][193][206][217][160][195][207][206][212][210][201][194][213][212][201][207][206][160][217][207][213][160][195][193][206][160][205][193][203][197][160][160][160][160][160]
  27. 131 [153]"ASC(null)VALVAL(null)ATN(null)VALOPENCLOSE(null)(null)(null)(null)STR$CLOSEPEEKVALCLOSE(null)(null)(null)(null)CLOSE(null)VAL(null)LEN(null)(null)VALASC(null)(null)CLOSEATN(null)(null)CLOSE
  28. 135 FORI=1984TO1024STEP-40:POKEI,160:POKEPC+I,10:NEXT
  29. 140 FORI=1TO8:READTS$:TS$(I)=TS$+"":NEXT:YN$=" Y/N [146]"+"
  30. 145 EV$[178]"OPENCLOSE(null)(null)VALATN(null)VALCLOSEVAL(null)(null)VAL(null)CLOSEATN(null)STR$CLOSELEFT$RIGHT$(null)CLOSESYSRETURNWAITOPENPOKE"[170]"":F3$[178]" F3 CLOSE(null)(null)CLOSE(null)(null)RIGHT$(null)(null)CLOSECLOSE"[170]"
  31. 150 O$="HOURS"+"":I$="MINUTES"+"":LI$="[215][207][213][204][196][160][217][207][213][160][204][201][203][197][160][212][207][160][210][197][214][201][197][215][160][212][200][201][211][160][204][201][211][212][160]"+"
  32. 155 SO$[178]"SORRY... ONLY 19 CHARACTERS ARE ALLOWED."[170]"
  33. 160 P3$="[147][159] [206][207][160][211][212][193][210][212][160][212][201][205][197][160][212][217][208][197][160][206][193][205][197][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][151]"+"
  34. 165 CA$[178]"AM I CORRECT IN MY ASSUMPTIONS? "[170]YN$[170]"
  35. 170 P4$="HIT A KEY TO CONTINUE..."+"":VD$="VIDEO DATA FILE"+"
  36. 175 UF$[178]"LOADSYSUPDATING FILE...WAIT"[170]"":GP$[178]"+"[170]"
  37. 180 PR$="----------------------------------------"+"":I=1
  38. 185 P1$="========================================"+"
  39. 190 [134]NU%(250),NM$(250),TY$(250),LE%(250),S%(250),EN%(250),BG%(99),RV%(99)
  40. 192 [134]A%(99),RR$(99),RO$(15),F1(20),Q(20)
  41. 193 [129]I[178]1[164]13:RO$(I)[178][202]("ABCDEFGHIJKLMMN",I,1):[130]
  42. 195 [134]NX%(99),LX%(99),EX%(99),NX$(99),BC%(99),ED%(99),T%(99),MN$(250)
  43. 200 CO$[178]","[170]"":[134]ML%(99),RB%(99),RO%(99),MC%(21):PO[178]0:J[178][171]1.5:K[178]4.5:[151]53282,6
  44. 205 [153]"POKEDO YOU HAVE A VIDEOFILE ENTERED YET?SYS"YN$"
  45. 210 DATAA   ADVENTURE ,C   COMEDY ,D   DRAMA ,M   MYSTERY/THRILLER
  46. 215 DATAY   YOUNG PEOPLE ,S   SCIENCE FICTION ,T   TEMPORARY ,O   OTHER
  47. 220 GETR$:IFR$=""THENI=I+1
  48. 221 IFI/60=INT(I/60)THENPOKE53282,(K+J):J=-J
  49. 222 IFR$=""THEN220
  50. 223 POKE53282,6:IFR$="N"THEN1115
  51. 230 IFR$<>"Y"THEN220
  52. 235 GOSUB1675
  53. 240 PRINT"[147]":PRINT"[147][158]":PRINTTAB(13)"  MAIN MENU  
  54. 255 [153]"OPENCLOSECLOSECLOSECLOSECLOSE(null)(null)(null)CLOSE(null)VAL(null)(null)CLOSE(null)VALCLOSE(null)LEFT$ATN(null)CLOSE(null)(null)(null)CLOSE(null)ATN(null)(null)CLOSE(null)(null)CLOSESTR$(null)CLOSECLOSECLOSECLOSE
  55. 260 PRINT"[158]  1. [146]  [160][160][160][198][201][206][196][160][193][160][212][193][208][197][160][212][207][160][210][197][195][207][210][196][160][207][206][160][160][160]
  56. 265 [153]"SYS  2. WAIT  CLOSECLOSECLOSEASCRIGHT$(null)STR$CLOSEATNCLOSE(null)ATN(null)VALCLOSE(null)(null)CLOSE(null)ATN(null)LENLEFT$CLOSECLOSECLOSECLOSECLOSECLOSECLOSE
  57. 270 PRINT"[158]  3. [146]  [160][160][160][212][197][204][204][160][205][197][160][193][194][207][213][212][160][193][160][194][204][193][206][203][160][212][193][208][197][160]
  58. 275 [153]"SYS  4. WAIT  CLOSECLOSECLOSE(null)(null)STR$ATN(null)VALCLOSELEN(null)(null)(null)VAL(null)(null)CLOSERIGHT$(null)ASC(null)(null)(null)ATN(null)RIGHT$(null)(null)CLOSE
  59. 280 PRINT"[158]  5. [146]  [160][160][160][195][200][193][206][199][197][160][214][195][210][160][208][193][210][193][205][197][212][197][210][211][160][160][160][160][160][160]
  60. 282 [153]"SYS  6. WAIT  CLOSECLOSECLOSE(null)ATN(null)VALCLOSE(null)LEFT$VALCLOSESTR$ATN(null)ATNCLOSEASCRIGHT$(null)VALCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE
  61. 285 IFRR<>-1THENPRINT"[158]  7. [146]  [160][160][160][197][216][201][212][160][212][200][197][160][208][210][207][199][210][193][205][160][160][160][160][160][160][160][160][160][160][160]
  62. 290 [153]"PLEASE ENTER YOUR CHOICE...
  63. 295 GETR$:IFR$=""THEN295
  64. 300 IFR$="6"THENRR=-1
  65. 305 R=VAL(R$):ONRGOTO315,1105,1150,640,1115,1675,1800:GOTO295
  66. 315 PRINT"[147]":H=0:M=0
  67. 320 PRINT"[159][160][200][207][215][160][204][207][206][199][160][201][211][160][212][200][197][160][211][200][207][215][160][217][207][213][160][215][193][206][212][160][212][207][160][212][193][208][197]?
  68. 325 [153]"POKEPLEASE TELL ME IN THE FORM":[153][166]5)"SYS"O$"WAITPOKE, SYS"I$"WAITPOKE
  69. 335 PRINT"WITH A COMMA IN BETWEEN.
  70. 340 [153]"(TO LEAVE THIS SCREEN HIT SYS RETURN WAIT POKE)SYS":[133]"";H,M:T[178]60[172]H[170]M
  71. 345 [139]T[179]0[176]M[179]0[176]H[179]0[137]315
  72. 350 [139]T[177]VL[172]60[167][153]"LOADSYSSORRY, BUT THE"T$"S ARE ONLY";VL;"CMD  "O$"WAITPOKE":[137]320
  73. 355 [139]T[178]0[167][137]240
  74. 360 A[178]0:B[178]0:C[178]0:D[178]0:[153]"LOADOPEN  CLOSECLOSECLOSECLOSE(null)LEFT$VAL(null)VALCLOSE(null)ATN(null)VAL(null)CLOSELEFT$ATN(null)VALCLOSEPEEK(null)ATN(null)(null)CLOSE(null)(null)ATNLENVALCLOSECLOSECLOSECLOSEPOKE":[153]PR$
  75. 365 [153]"(null)ATN(null)VALCLOSECLOSECLOSE(null)(null)ATN(null)(null)CLOSEPEEKVALLEFT$RIGHT$(null)STR$CLOSE(null)LEFT$(null)(null)CLOSECLOSECLOSE(null)(null)ATN(null)(null)CLOSE(null)(null)(null)PEEKVAL(null)CLOSEPOKE":P[178]7:[129]I[178]1[164]QT
  76. 370 [139](LX%(I)[170]T)[177]ML%(I)[170]5[137]385
  77. 375 [153](I)[163]7)NX$(I)[163]30)EX%(I):Q[178]1:B[178]B[170]1:RB%(B)[178](I):P[178]P[170]1:[139]P[177][178]23[167][141]1375
  78. 385 [130]:[153]:[139]P[178]7[167][153]"SYSI'M SORRY, I CAN'T FIND A BLANK"T$"    POKEWAIT";:[129]I[178]1[164]1E3:[130]:P[178]2
  79. 400 [139]P[177][178]15[167][141]1375
  80. 405 [153]P1$:[153]"OPEN     CLOSECLOSE(null)LEFT$VAL(null)VALCLOSE(null)ATN(null)VAL(null)CLOSEATN(null)VALCLOSE(null)VAL(null)(null)(null)(null)ATN(null)(null)CLOSECLOSEPOKE      ";:[153]PR$
  81. 410 [153]"(null)ATN(null)VALCLOSECLOSECLOSECLOSE(null)(null)ATN(null)(null)CLOSECLOSECLOSECLOSECLOSE(null)ATN(null)VALCLOSE(null)ASCCLOSE(null)LEFT$(null)(null)CLOSE(null)VAL(null)(null)ATNLENVALSTR$CLOSEPOKE":P[178]P[170]8
  82. 415 [129]I[178]1[164]CT:X2[178]ML%(NU%(I)):[139]TY$(I)[179][177]"T"[137]485
  83. 420 [139]T[177]X2[167]485
  84. 425 [139]LE%(I)[177][178]T[137]470
  85. 430 [139]NX%(NU%(I))[178]1[137]470
  86. 435 [139]NU%(I)[179][177]NU%(I[170]1)[175]((LX%(NU%(I))[171]LE%(I)[170]T)[179][178]X2)[167]470
  87. 436 A[178]1:TU[178]0
  88. 437 [139]NU%(I[171]A)[178]NU%(I)[167]TU[178]TU[170]LE%(I[171]A):A[178]A[170]1:[137]437
  89. 439 A[178]1:TM[178]LE%(I)
  90. 440 [139]NU%(I[170]A)[179][177]NU%(I)[167][139](LX%(NU%(I))[171]TM[170]T[179][178]X2)[167]450
  91. 442 [139]NU%(I[170]A)[179][177]NU%(I)[176]TY$(I[170]A)[179][177]"T"[167][137]485
  92. 444 TM[178]TM[170]LE%(I[170]A):A[178]A[170]1:[139]TM[179]T[167]440
  93. 450 [139]NU%(I)[178]NU%(RO%(C))[167]E[178]E[170]1:[137]454
  94. 452 E[178]1
  95. 454 A[178]A[171]1:[139]P[177][178]21[171]A[167][141]1390
  96. 456 [153]:[153]:P[178]P[170]2:[129]J[178]0[164]A:[153]NU%(I[170]J)"CMD"RO$(E)[163]8)S%(I[170]J);:[153][163]18)NM$(I[170]J):P[178]P[170]1
  97. 460 [130]:C[178]C[170]1:RO%(C)[178]I:BG%(C)[178]S%(I):RR$(C)[178][196](NU%(I))[170]RO$(E):A%(C)[178]A
  98. 465 [153]"SYS*****COMBINED SHOWS HAVE ENOUGH TIME****":P[178]P[170]2
  99. 467 [129]J[178]0[164]A[170]3:[153]"ON";:[130]:[153]"SYS*****************************************
  100. 468 PRINT"[145][145][158]"TAB(17)NU%(I)"[157]"RO$(E)" ":FORJ=0TOA:PRINT"[158][157]**[146][151]":NEXT:PRINT:GOTO485
  101. 470 IFP>=22THENGOSUB1390
  102. 472 PRINTTAB(1)NU%(I)TAB(8)S%(I)TAB(18)NM$(I):P=P+1:D=D+1:BC%(D)=S%(I)
  103. 475 ED%(D)=EN%(I):RV%(D)=NU%(I):T%(D)=LE%(I)
  104. 485 NEXT:IFP>=14THENGOSUB1390
  105. 490 PRINT"[151][159][197][206][212][197][210][160][212][200][197][158] TAPE NUMBER [146][159][217][207][213][160][215][201][204][204][160][210][197][195][207][210][196][160][207][206][151]":PRINTTAB(17)"[158] OR [146][151]
  106. 500 [153]"HIT SYS R WAITPOKE TO REVIEW THIS LIST AGAIN
  107. 505 PRINT"HIT [158] E [146][151] TO EXIT TO THE MAIN MENU
  108. 510 [153]"HIT SYS T WAITPOKE TO VIEW WHICH SHOWS ARE IN THE   "T$" CATALOG
  109. 515 PRINT""EV$"":INPUT"E[157][157][157][158]";R$:IFR$="R"THEN360
  110. 520 PRINT"";:IFR$="T"GOTO1105
  111. 530 IFR$="E"GOTO240
  112. 532 RO$=RIGHT$(R$,1):IFRO$>="A"ANDRO$<="M"THENNU=VAL(LEFT$(R$,(LEN(R$)-1))):GOTO560
  113. 535 NU=VAL(R$):IFNU<0ORNU>NU%(CT)ORNU<>INT(NU)THEN490
  114. 540 PRINT"[147][151]":FORI=0TOB:IFRB%(I)=NUTHENYY=0:GOTO570
  115. 545 NEXT:FORI=0TOD:IFRV%(I)=NUTHENYY=2:DD=I:GOTO570
  116. 555 NEXT
  117. 560 PRINT"[147]":FORI=0TOC:IFRR$(I)=" "+R$THENYY=1:CC=I:GOTO570
  118. 565 NEXT:GOTO650
  119. 570 PRINT"[158]             NEW RECORDING:             [146][151]
  120. 575 [153]"OPEN(null)(null)(null)CLOSEATN(null)VALCLOSE(null)(null)RIGHT$(null)CHR$CLOSE(null)ATN(null)VALCLOSE(null)(null)(null)PEEKVAL(null)SYS";NU:[153]"OPEN(null)(null)(null)CLOSE(null)RIGHT$(null)(null)CLOSE(null)(null)ATN(null)(null)CLOSEATN(null)CLOSE";
  121. 585 [145]YY[170]1[137]600,590,595
  122. 590 NC[178]BG%(CC):[137]605
  123. 595 NC[178]BC%(DD):[137]605
  124. 600 NC[178]EX%(NU)
  125. 605 [153]"LEN(null)(null)(null)(null)VAL(null)CLOSE(null)(null)(null)PEEKVAL(null)SYS"NC"":[153]"OPEN(null)LEFT$(null)(null)CLOSERIGHT$(null)SYS"H;"CMD "O$"WAITOPENCLOSEATN(null)STR$SYS"M;"CMD "I$"WAITOPENCLOSE(null)(null)(null)CHR$CLOSE
  126. 615 PRINT"[193][205][160][201][160][195][207][210][210][197][195][212][160][201][206][160][205][217][160][193][211][211][213][205][208][212][201][207][206][211][160][158]"YN$"[151]
  127. 620 [161]R$:[139]R$[178]""[137]620
  128. 625 [139]R$[178]"N"[137]650
  129. 630 [139]R$[179][177]"Y"[137]620
  130. 635 [153]"LOAD"EV$:[137]965
  131. 640 [153]"LOAD":[133]"(null)LEFT$RIGHT$LENLEFT$CLOSE(null)ATN(null)VALCLOSEATN(null)VALCLOSE(null)(null)(null)CLOSE(null)(null)STR$ATN(null)RIGHT$(null)CHR$SYS";NU
  132. 645 [139]NU[179]0[176]NU[177]NU%(CT)[176][181](NU)[179][177]NU[167]640
  133. 650 [153]"LOAD"[166]4)"OPENLEFT$VAL(null)VALCLOSERIGHT$(null)CLOSE(null)LEFT$ATN(null)CLOSERIGHT$CLOSE(null)(null)(null)(null)CLOSEATNPEEK(null)(null)(null)SYS"T$;NU
  134. 655 [153]"HRS";:[129]I[178]1[164]VL:[153][163][181](40[173]VL)[172]I[171]2)I;:[130]:[153]"CMD";
  135. 660 K[178]0:GR$[178][200](PR$,([181](40[173]VL)[171]1)):[129]I[178]1[164]20:F1(I)[178]0:[130]:[139]VL[178]6[167][153]:FU[178]36
  136. 670 [129]I[178]1[164]VL:[153]GR$;GP$;:[130]:[139]VL[178]6[167][153]
  137. 672 UF[178]1:[139](NU%([181](CT[173]2)))[179]NU[167]UF[178][181](CT[173]2)
  138. 675 [129]I[178]UF[164]CT:[139]NU%(I)[179][177]NU[137]735
  139. 680 K[178]K[170]1:F1(K)[178]I:[139]K[177]1[137]710
  140. 685 [139]LE%(I)[179]12[167]Q[178]1:[153][163]Q)"^":LE[178]LE%(I):[137]695
  141. 690 Q(K)[178]([181](LE%(I)[173](60[173](FU[173]VL)))[171]1):[129]J[178]1[164]Q(K):[153]"CLOSEWAIT";:[130]:LE[178]LE%(I)
  142. 695 [139][195](NM$(I))[170]3[177][178]Q[167][153]:[153]"SYS"K"CMD WAIT"NM$(I);" SYS";TY$(I);"WAIT":[137]732
  143. 700 [153]"";:[129]J[178]1[164]([195](NM$(I))[170]5):[153]"CMD";:[130]:[153]"SYS"K"CMD WAIT"NM$(I):[153]" SYS"TY$(I)"WAIT":[153]"WAIT":[153]
  144. 710 Q(K)[178][181]((LE%(I)[170]LE)[173](60[173](FU[173]VL)))[171]1:[139]Q(K)[177]39[167]Q(K)[178]39
  145. 715 [129]J[178]Q(K[171]1)[164]Q(K)[171]1:[153][163]J)"CLOSEWAIT";:[130]:LE[178]LE[170]LE%(I):[139]K[177]5[175]K[179]11[167][153][163]39);:[137]725
  146. 718 [139]K[177]15[167][153][163]38);:[137]725
  147. 719 [139]K[178]10[167][153][163]38);:[137]725
  148. 720 [139][195](NM$(I))[170]4[177][178]Q(K)[167][153]:[153]"SYS"K"CMD WAIT"NM$(I)" SYS"TY$(I);"WAIT":[137]732
  149. 725 [153]"";:[129]J[178]1[164][181]([195](NM$(I)))[170]5:[153]"CMD";:[130]:[139]K[177]10[175]K[179]16[167][153]"CMDCMDCMDCMD";
  150. 730 [153]"SYS"K;"CMD WAIT"NM$(I);" SYS";TY$(I);"WAIT
  151. 732 IFK=5ORK=15THENPRINT"[145][145][145][145][145][145][145][145][145][145]";
  152. 733 IFK=10THEN737
  153. 735 NEXT
  154. 737 PRINT"";:FORI=1TOVL:PRINTGR$;GP$;:NEXT
  155. 740 PRINT"ENTER [158] 1 [146] THROUGH [158] 9 [146] TO UPDATE SEGMENT
  156. 741 [139]K[177]10[167][153]" SYS 11 WAIT TO SYS 19 WAIT   CMDCMDCMDCMDCMDCMDCMDCMDCMD";
  157. 742 [153]"PRINT#(USE SYS 0 WAITPRINT# FOR SEGMENT"([171](K[177]10)[172]10[170]10)"CMD)
  158. 745 PRINT"[158] F1 [146]UPDATE OTHER TAPES
  159. 750 [153]"SYS F3 WAITCHANGE LENGTH";:[153]" SYS F4 WAIT  CLEAR WAIT TAPE";NU
  160. 755 [153]"SYS F5 WAITEXIT TO MAIN MENU":[139]K[178]10[167][153]"SYS F7 WAITFOR NEXT PAGE";:[137]765
  161. 760 [139]NU[179][177]NU%(CT)[167][153]"SYS F7 WAITTO CHECK TAPE NUMBER";NU[170]1;
  162. 765 [139]ML%(NU)[179]60[172]VL[167][153]"CONT"[166]10)"THIS TAPE IS"[181](ML%(NU)[173]6)[173]10"HRS
  163. 770 GETR$:IFR$=""GOTO770
  164. 775 IFR$="[134]"THENPRINT"[147][158]NEW TAPE LENGTH [146]"ML%(NU)
  165. 780 IFR$="[134]"THENPRINT"[145]"TAB(15);:INPUT"[158]";ML%(NU):RR=-1:GOTO650
  166. 782 IFR$="[136]"ANDK=10THENGOSUB10000:UF=F1(K)+1:PRINT"":GOTO675
  167. 785 IFR$="[136]"ANDNU<>NU%(CT)THENNU=NU+1:GOTO645
  168. 790 IFR$="[138]"THENI=F1(1):NX=1-K:NM$="":TY$="":T=0:S=0:EC=0:GOSUB1335:GOTO650
  169. 795 IFR$="[133]"GOTO640
  170. 799 IFR$="[135]"GOTO240
  171. 800 R=VAL(R$):IFR<0ORR>9THEN770
  172. 810 IFR=0THENR=10
  173. 815 IFK>10THENR=R+10
  174. 820 IFR>KTHENIFLX%(NU)>=ML%(NU)THENPRINT"[147]NO MORE TIME!":FORK=1TO1E3:NEXT:GOTO650
  175. 825 PRINT"[147]":PRINT"[159][193][211][160][201][160][193][211][203][160][193][194][207][213][212][160][197][193][195][200][160][198][201][197][204][196][160]"EV$:PRINT"[201][198][160][212][200][197][160][201][206][198][207][160][210][197][205][193][201][206][211][160]";
  176. 835 PRINT"[212][200][197][160][211][193][205][197][160][202][213][211][212][160][200][201][212][160][160][160][158]RETURN[146]":PRINT"ENTER NAME [158] \ [146] TO ";
  177. 840 PRINT"[159][196][197][204][197][212][197] THIS SEGMENT":PRINT"ENTER NAME [158] ^ [146] TO [159][160][197][216][201][212][160] THIS SCREEN
  178. 845 B[178]F1(R):[153]"(null)ATN(null)VALWAITCMDCMD"NM$(B):X$[178]NM$(B):UC[178]0
  179. 850 [133]"ONSYS";NM$(B):[139]NM$(B)[178]X$[167]UC[178]UC[170]1
  180. 852 [139][200](NM$(B),1)[178]"^"[167]NM$(B)[178]"E"
  181. 853 [139][200](NM$(B),1)[178]"\"[167]NM$(B)[178]"D"
  182. 855 [153]"":[139][195](NM$(B))[177]19[167][153]SO$:NM$(B)[178]"":[137]850
  183. 863 [139]NM$(B)[178]"D"[175]EN%(B)[179]EX%(NU)[167]NM$(B)[178]"(DELETE)":TY$(B)[178]"T":[137]650
  184. 865 [139]NM$(B)[178]"D"[175]NX%(NU)[177]1[167]I[178]B[171]1:NX[178][171]1:V[178][171]1:[141]1335:[137]650
  185. 870 [139]NM$(B)[178]"D"[167]R$[178]"RUN":[137]790
  186. 875 [139]NM$(B)[178]"E"[167]NM$(B)[178]X$:[137]650
  187. 880 X$[178]TY$(B):[153]"LOAD(null)(null)(null)VALWAIT":[129]I[178]1[164]8:[153]TS$(I):[130]:[153]""TY$(B)
  188. 885 [133]"ONSYS";TY$(B):[129]I[178]1[164]8:[139]TY$(B)[178][200](TS$(I),1)[167]905
  189. 890 [130]:[139]TY$(B)[178]""[167]905
  190. 900 [153]"SORRY, YOU MUST ENTER A VALID TYPE":[129]I[178]1[164]1E3:[130]:[137]880
  191. 905 [153]"(null)VAL(null)CHR$(null)LEFT$CLOSE(null)ASCCLOSE(null)LEFT$(null)(null)CLOSERIGHT$(null)CLOSELEFT$(null)(null)(null)(null)CLOSE(null)RIGHT$(null)(null)(null)VAL(null)WAIT":[139]TY$(B)[178]X$[167]UC[178]UC[170]1
  192. 910 TT[178]1:I[178]B:[141]60:[153]""H$[170]","[170]M$:U1[178]H:U2[178]M
  193. 915 [133]"ONSYS";H,M:LE%(B)[178]60[172]H[170]M:T[178]LE%(B):[139]LE%(B)[178]60[172]U1[170]U2[167]UC[178]UC[170]1
  194. 917 [139]LE%(B)[177]VL[172]60[167][153]"LOAD":[137]905
  195. 918 [139]B[178]0[167]S%(B)[178]EN%(F1(R[171]1))
  196. 920 [153]"(null)(null)ATN(null)(null)WAITCMDCMDCMDCMD"S%(B):U3[178]S%(B):[133]"ONSYS";S%(B):[139]S%(B)[178]U3[167]UC[178]UC[170]1
  197. 925 [153]"VAL(null)STR$WAITCMDCMD"EN%(B):[153]"ONON(ENTER -1 AND I WILL ESTIMATE IT)":U4[178]EN%(B)
  198. 935 [133]"SYS";EN%(B):[153]"":[139]EN%(B)[178]U4[167]UC[178]UC[170]1
  199. 940 [139]UC[178]5[167]B[178]0:[137]650
  200. 945 [139]EN%(B)[179]0[167]Y[178]2:[141]1290
  201. 947 [139]B[178]0[175]EN%(B)[177]0[167]EC[178]EN%(B)
  202. 950 [139]B[178]0[167]I[178]F1(K)[170]1:NX[178]1:NM$[178]NM$(B):TY$[178]TY$(B):S[178]S%(B):[141]1335:[137]960
  203. 955 RR[178][171]1:AL[178]0:[153]UF$:[141]1440:[137]650
  204. 960 NM$(0)[178]"":TY$(0)[178]"":LE%(0)[178]0:EN%(0)[178]0:RR[178][171]1:AL[178]0:[137]650
  205. 965 [153]"(null)LEFT$ATN(null)CLOSERIGHT$(null)CLOSE(null)LEFT$VALCLOSE(null)ATN(null)VALCLOSE(null)ASCCLOSE(null)LEFT$VALCLOSE(null)VAL(null)CLOSE(null)LEFT$(null)(null)":[133]"SYS";NM$:[153]"
  206. 975 IFLEN(NM$)>19THENPRINT"[158]"SO$"":GOTO965
  207. 980 PRINT"[215][200][193][212][160][212][217][208][197][160][201][211][160][201][212][146]":FORI=1TO8:PRINTTS$(I):NEXT
  208. 985 INPUT"[158]";TY$:PRINT"":FORI=1TO8:IFTY$=LEFT$(TS$(I),1)THEN995
  209. 990 NEXT:GOTO985
  210. 995 GOSUB1565:PRINTUF$:IFYY=1THENY=3:GOSUB1290:GOTO1075
  211. 1000 IFYY=2GOTO1030
  212. 1005 Y=1:GOSUB1290:FORI=1TOCT:IFNU%(I)=NUTHENWQ=I:GOTO1020
  213. 1015 NEXT
  214. 1020 IFLE%(I)=0THENS=0:GOSUB1365:EX%(NU)=EC:NX%(NU)=1:NX$(NU)=NM$:LX%(NU)=T:GOTO315
  215. 1025 I=I+(NX%(NU)):NX=SGN(NX%(NU)):S=EX%(NU):GOSUB1335:GOTO315
  216. 1030 FORI=1TOCT:IFNU%(I)=NUTHENGOTO1040
  217. 1035 NEXT
  218. 1040 IFNX%(NU)=1THENSL=0:Y=4:GOSUB1290:GOTO1070
  219. 1045 IFTY$(I)="T"ANDLE%(I)>=T%(DD)THENSL=0:TM=T:GOSUB1320:GOTO1065
  220. 1050 IFNX%(NU)=2THENSL=1:Y=4:TM=LE%(I)+T:GOSUB1320:GOTO1070
  221. 1055 IFTY$(I+1)="T"ANDLE%(I+1)>=TTHENSL=1:TM=LE%(I)+T:GOSUB1320:GOTO1065
  222. 1060 IFTY$(I+2)="T"THENSL=2:TM=LE%(I)+LE%(I+1)+T:GOSUB1320:GOTO1070
  223. 1065 T=T%(DD)
  224. 1070 S=NC:I=I+SL:NX=0:GOSUB1335:GOTO315
  225. 1075 NX=-(A%(CC)):I=RO%(CC):S=NC:GOSUB1335:GOTO240
  226. 1105 PRINT"[147][158]LOADING SUBPROGRAM...":PRINT"[208][204][197][193][211][197][160][215][193][201][212][146][155]":CLOSE15:CLOSE5
  227. 1106 OPEN15,8,15,"C0:CATALOG=CATALOG":OPEN5,8,15:INPUT#5,ER,ER$:CLOSE5:CLOSE15
  228. 1107 OPEN15,8,15,"I0":CLOSE15:IFER=63GOTO1113
  229. 1108 IFER=62THENPRINT"[147][158]VIDEOFILE DISK IS NOT IN THE DRIVE      PRESS ANY KEY TO ";
  230. 1109 IFER=62THENPRINT"TRY AGAIN
  231. 1110 [139]ER[179][177]62[167][153]"SYSERROR"ER;ER$"CMDCMDCMDCMDCMDPRESS ANY KEY
  232. 1111 GETR$:IFR$=""THEN1111
  233. 1112 GOTO1105
  234. 1113 LOAD"CATALOG",8
  235. 1115 PRINT"[147][158]THIS SCREEN INITIALIZES VCR PARAMETERS. [151]
  236. 1120 [153]"AS I ASK EACH QUESTION,SYS"EV$
  237. 1125 [153]"(null)LEFT$ATN(null)CLOSERIGHT$(null)CLOSE(null)LEFT$VALCLOSE(null)ATN(null)RIGHT$(null)(null)(null)CLOSE(null)VALLEN(null)(null)STR$RIGHT$(null)CHR$CLOSE(null)RIGHT$(null)VALCLOSE(null)ASCCLOSECLOSECLOSE(null)(null)(null)(null)CLOSE(null)ATNLENLEFT$RIGHT$(null)VALCLOSERIGHT$(null)CLOSELEFT$(null)(null)(null)(null)
  238. 1130 PRINTSPC(3)"[151]"VL"[157][157][157][157]";:INPUT"[158]";VL
  239. 1135 PRINT"[197][206][212][197][210][160][212][200][197][160][212][193][208][197][160][195][207][213][206][212][197][210][160][210][197][193][196][201][206][199][160][193][212][160][197][193][195][200][160][160][158]HALF-"O$"[160][201][206][212][197][210][214][193][204][160]
  240. 1140 [129]I[178]0[164]VL[172]2:[153]"POKE"I[172].5[163]5)O$[163]13)"POKE"MC%(I)"CMDCMDCMDCMDCMDCMDCMDCMD"[163]12);:[133]"SYS";MC%(I):[139]I[178]8[167][153]"LOADPOKE
  241. 1145 NEXT:PRINT"[147][151]":GOTO1155
  242. 1150 PRINT"[147][159]"TAB(9)"[206][197][215][160][212][193][208][197][160][201][206][198][207][210][205][193][212][201][207][206]
  243. 1155 [133]"LEFT$(null)(null)CLOSE(null)ATN(null)(null)CLOSE(null)ATN(null)VAL(null)CLOSELEFT$ATN(null)VALCLOSE(null)(null)(null)CLOSE(null)(null)(null)LENLEFT$ATN(null)VALSTR$SYS";X1:[139]X1[178]0[137]240
  244. 1160 [153]"POKE":[139][181](X1)[179][177]X1[176]X1[179]1[167][153]"POKEI DON'T UNDERSTAND":[137]1155
  245. 1170 [139]NU%(CT)[170]X1[179][178]99[137]1185
  246. 1175 [153]"":[153]"CAPACITY ONLY ALLOWS FOR";99[171]NU%(CT);"ADDITIONAL":[153]"TAPES":[137]1155
  247. 1185 [153]"OPEN(null)LEFT$VALCLOSE(null)VAL(null)CLOSE(null)ATN(null)VAL(null)CLOSE(null)RIGHT$(null)(null)CLOSEPEEKVALCLOSE(null)(null)(null)PEEKVAL(null)VALSTR$CLOSESYS";NU%(CT)[170]1"WAITOPEN
  248. 1190 IFX1>1THENPRINT"[212][200][210][207][213][199][200][158]";NU%(CT)+X1
  249. 1195 PRINT:PRINT"[193][205][160][201][160][195][207][210][210][197][195][212][160][201][206][160][205][217][160][193][211][211][213][205][208][212][201][207][206][211][158]"YN$
  250. 1200 PRINT"[151](ENTER N TO RETURN TO THE MAIN MENU)
  251. 1205 [161]R$:[139]R$[178]""[137]1205
  252. 1210 [139]R$[178]"N"[137]240
  253. 1215 [139]R$[179][177]"Y"[137]1205
  254. 1220 [153]"ATN(null)VALCLOSE(null)LEFT$VALCLOSE(null)ATN(null)VAL(null)CLOSEATN(null)(null)SYS";VL;"CMD "O$"CLOSERIGHT$(null)CLOSE(null)VAL(null)CHR$(null)LEFT$SYS"YN$"POKE
  255. 1225 GETR$:IFR$=""THEN1225
  256. 1230 IFR$="Y"THENFORI=1TOX1:ML%(I+NU%(CT))=VL*60:NEXT:GOTO1275
  257. 1235 IFR$<>"N"THEN1225
  258. 1240 PRINT"[147][208][204][197][193][211][197][160][197][206][212][197][210][160][212][200][197][160][212][201][205][197][160][207][198][160][197][193][195][200][160][207][198][160][212][200][197][160][206][197][215]";
  259. 1245 PRINT"[212][193][208][197][211][160][201][206][160][200][207][213][210][211][160][193][206][196][160][205][201][206][213][212][197][211][160][160][160][160][160][160][160][160][160][160][160][160][160][160]
  260. 1250 [153]"OPENCLOSE(null)ATN(null)VALCLOSECLOSECLOSECLOSECLOSELEFT$(null)(null)(null)(null)CLOSECLOSECLOSECLOSE(null)RIGHT$(null)(null)(null)VAL(null)CLOSE":[129]I[178]1[164]X1
  261. 1260 [153]"POKE"NU%(CT)[170]I,:[133]"SYS";H:[153]"ON"[163]18):[133]"0CMDCMDCMDSYS";M:T[178]H[172]60[170]M
  262. 1265 [139]T[177]VL[172]60[176]T[179]0[167][153]"ON                            ON":[137]1260
  263. 1270 ML%(I[170]NU%(CT))[178]T:[130]
  264. 1275 [153]UF$:[129]I[178]CT[170]1[164]X1[170]CT
  265. 1280 NU%(I)[178]NU%(CT)[170]I[171]CT:NM$(I)[178]"":TY$(I)[178]"":LE%(I)[178]0:S%(I)[178]0:EN%(I)[178]0:[130]
  266. 1285 A[178]1:CT[178]CT[170]X1:RR[178][171]1:[141]1440:[137]240
  267. 1290 [139]Y[178]1[167]TM[178]T[170]LX%(NU):[137]1320
  268. 1300 [139]Y[178]2[167]TM[178]0:[129]I[178]1[164]R:TM[178]TM[170]LE%(F1(I)):[130]:[137]1320
  269. 1310 [139]Y[178]3[175]NX%(NU)[177]2[167][141]1810:[137]1320
  270. 1315 TM[178]T
  271. 1320 Z[178][181](TM[173]30)[170]1:TU[178]TM[171](30[172](Z[171]1)):[139]Z[177]VL[172]2[170]1[167]EC[178]9999:[142]
  272. 1325 EC[178][181](MC%(Z[171]1)[170](TU[173]30[172](MC%(Z)[171]MC%(Z[171]1)))):[139]Y[178]2[167]EN%(B)[178]EC
  273. 1330 Y[178]0:[142]
  274. 1335 [153]UF$:CT[178]CT[170]NX:[139]NX[179][171]2[137]1350
  275. 1338 [145]NX[170]3[137]1345,1350,1365,1340,1340
  276. 1340 [129]J[178]CT[164]I[170]NX[169][171]1:[137]1355
  277. 1345 [129]J[178]I[171]NX[171]1[164]CT:[137]1355
  278. 1350 [129]J[178]I[170]1[164]CT
  279. 1355 NU%(J)[178]NU%(J[171]NX):NM$(J)[178]NM$(J[171]NX):TY$(J)[178]TY$(J[171]NX):LE%(J)[178]LE%(J[171]NX)
  280. 1360 S%(J)[178]S%(J[171]NX):EN%(J)[178]EN%(J[171]NX):[130]:[139]V[178][171]1[167]V[178]0:RR[178][171]1:[141]1440:[142]
  281. 1365 NU%(I)[178]NU:NM$(I)[178]NM$:TY$(I)[178]TY$:LE%(I)[178]T:S%(I)[178]S:EN%(I)[178]EC
  282. 1370 RR[178][171]1:A[178]1:[141]1440:[142]
  283. 1375 [153]"SYS"P4$"POKE
  284. 1380 GETR$:IFR$=""GOTO1380
  285. 1385 PRINT"[147][212][193][208][197][160][160][211][212][193][210][212][160][194][197][200][201][206][196][160][211][200][207][215][160][160][160][211][212][193][210][212][160][206][213][205][194][197][210][151]":P=4:RETURN
  286. 1390 PRINTCB$TAB(8)"[158]"P4$;"[146][151]";
  287. 1395 GETR$:IFR$=""GOTO1395
  288. 1400 IFI<=CTTHENPRINT"[147][212][193][208][197][160][160][160][160][211][212][193][210][212][160][160][160][160][160][206][193][205][197][160][207][198][160][211][200][207][215][160][210][197][208][204][193][195][197][196][160][151]
  289. 1405 P[178]3:[139]I[177]CT[167][153]"LOAD
  290. 1410 RETURN
  291. 1415 A=1:I=1:INPUT#1,VL:FORJ=0TOVL*2:INPUT#1,MC%(J):NEXT
  292. 1425 INPUT#1,NU%(I),NM$(I),TY$(I),LE%(I),S%(I),EN%(I):IFTY$(I)="0"THENQT=A:CT=I-1:GOTO1515
  293. 1435 GOTO1455
  294. 1440 UF=INT(CT/2):IFUF=0THENUF=1:GOTO1450
  295. 1443 IFNU%(UF)>NUTHENUF=1:GOTO1450
  296. 1445 IFNU%(UF-1)=NU%(UF)THENUF=UF-1:A=NU%(UF)-1:GOTO1445
  297. 1447 A=NU%(UF)-1
  298. 1450 FORI=UFTOCT
  299. 1455 IFI=1THENA=0:GOTO1465
  300. 1460 IFNU%(I)=NU%(I-1)THENNX%(A)=NX%(A)+1:LX%(A)=LX%(A)+LE%(I)
  301. 1462 IFNU%(I)=NU%(I-1)THENEX%(A)=EN%(I):NX$(A)=NM$(I):GOTO1500
  302. 1465 A=A+1:NX%(A)=1:LX%(A)=LE%(I):EX%(A)=EN%(I):NX$(A)=NM$(I)
  303. 1500 IFRR<>-1THEN1510
  304. 1505 NEXT:QT=A:AL=0:RETURN
  305. 1510 I=I+1:GOTO1425
  306. 1515 FORI=1TO3:INPUT#1,X:NEXT:FORI=1TONU%(CT):INPUT#1,ML%(I):NEXT:CLOSE1:RETURN
  307. 1520 PRINT#1,VL",":FORI=0TOVL*2:PRINT#1,MC%(I)",":NEXT
  308. 1525 FORI=1TOCT:PRINT#1,NU%(I)","NM$(I)","TY$(I)","LE%(I)","S%(I)","EN%(I)",":NEXT
  309. 1535 FORI=1TO6:PRINT#1,"0"CO$:NEXT:FORI=1TONU%(CT):PRINT#1,ML%(I)CO$:NEXT:CLOSE1:RR=0:GOTO240
  310. 1545 OPEN4,4:CMD4:PRINTCHR$(9)CHR$(9)CHR$(9)"   TAPING NOTES"CHR$(10)CHR$(10)
  311. 1550 PRINTP1$;P1$;:PRINT"DAY"CHR$(9)"START AT"CHR$(9)"END AT"CHR$(9)"CHANNEL";
  312. 1555 PRINTCHR$(9)"NAME"CHR$(9)CHR$(9)"TAPE"CHR$(9)"START":PRINTP1$;P1$:PRINT#4:CLOSE4:GOTO1595
  313. 1565 ONPO+1GOTO1570,1595,1590
  314. 1570 PRINT"[196][207][160][217][207][213][160][215][193][206][212][160][193][160][208][210][201][206][212][207][213][212][160][193][211][160][193][160][210][197][205][201][206][196][197][210][160][160][160][160][158]"YN$
  315. 1575 GETR$:IFR$=""THEN1575
  316. 1580 IFR$="Y"THENPO=1:GOTO1545
  317. 1585 PO=2
  318. 1590 RETURN
  319. 1595 PRINT"[147][159][208][204][197][193][211][197][160][199][201][214][197][160][205][197][160][212][200][197][160][198][207][204][204][207][215][201][206][199][160][198][193][195][212][211][160][193][194][207][213][212]";
  320. 1600 PRINT"[212][200][197][160][206][197][215][160][211][200][207][215][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":INPUT"[196][193][217][158]";DA$
  321. 1610 PRINT"[212][201][205][197][160][201][212][160][211][212][193][210][212][211][160][193][212]":INPUT"(HOUR,MINUTE,(AM OR PM))[158]";HR$,MI$,AM$:PRINT"
  322. 1620 HR[178][197](HR$):MI[178][197](MI$)
  323. 1625 [139]HR[179][177][181](HR)[176]HR[179]1[176]HR[177]12[176]MI[179][177][181](MI)[176]MI[179]0[176]MI[177]59[167][153]"BAD DATA":[137]1595
  324. 1630 [139][195](AM$)[179][177]2[167][153]"BAD DATA":[137]1595
  325. 1635 [133]"(null)LEFT$RIGHT$LENLEFT$CLOSELENLEFT$ATN(null)(null)VAL(null)SYS";CH$:[153]"":[159]4,4:[157]4:[153][200](DA$,3)" "AM$[199](9)HR$[170]":"[170]MI$[199](9);
  326. 1655 MT[178]60[172]HR[170]MI[170]T:HR[178][181](MT[173]60):MI[178]MT[171](60[172]HR):[139]HR[177]12[167]HR[178]HR[171]12
  327. 1660 HR$[178][196](HR):MI$[178][201]([196](MI),2):[139]MI[179]10[167]MI$[178]"0"[170][201]([196](MI),1)
  328. 1665 [153]HR$[170]":"[170]MI$[199](9)CH$[199](9)NM$[199](9);:[139][195](NM$)[179]10[167][153][199](9);
  329. 1670 [153]NU[199](9)NC:[153]PR$;PR$;:[152]4,"":[160]4:[142]
  330. 1675 [153]"LOAD":DV[178]8:DV$[178]" DISK":[153]"(null)(null)VAL(null)ATN(null)VALCLOSE(null)LEFT$VALCLOSESYS"VD$DV$"CLOSE(null)LEFT$VAL(null)CLOSE":[153]"SYS"P4$"
  331. 1720 GETR$:IFR$=""THEN1720
  332. 1725 IFRR=-1THEN1765
  333. 1730 PRINT"[147]LOADING FILE...":OPEN1,8,8,"VIDFILE":OPEN5,8,15:INPUT#5,ER,ER$:IFER>1THENCLOSE1:GOTO1755
  334. 1745 GOSUB1415:INPUT#5,ER,ER$:IFER>1THENGOTO1755
  335. 1750 CLOSE5:RETURN
  336. 1755 PRINT"ERROR":PRINTER,ER$:OPEN15,8,15,"I":CLOSE15:FORI=1TO2E3:NEXT:CLOSE5:GOTO1675
  337. 1765 PRINT"[147]SAVING FILE...":CLOSE15:CLOSE5:OPEN15,8,15,"S0:VIDFILE":CLOSE15:OPEN5,8,15:INPUT#5,ER,ER$
  338. 1780 IFER=62THENOPEN15,8,15"I":CLOSE15
  339. 1785 OPEN1,8,8,"0:VIDFILE,S,W":INPUT#5,ER,ER$:IFER>1THENCLOSE1:GOTO1755
  340. 1790 GOSUB1520:INPUT#5,ER,ER$:IFER>1THENGOTO1755
  341. 1795 CLOSE5:CLOSE15:CLOSE1:GOTO240
  342. 1800 IFRR<>-1THENSYS2048
  343. 1805 GOTO295
  344. 1810 I=RO%(CC):TM=T
  345. 1815 I=I-1:IFNU%(I)=NUTHENTM=TM+LE%(I):GOTO1815
  346. 1820 RETURN
  347. 10000 PRINT"":FORJ=1TO10:PRINT"                                        ";:NEXT:RETURN
  348.