10 IFI<>0THENGOTO240
15 I=0:J=0:K=0:W=0:RR=0:PC=54272:T$=" TAPE"+"":W=0:S=0:Q%=0
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
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
30 ZZ=0:CC=0:BB=0:DD=0:NC=0:R$=CHR$(0)+"":TY$=R$:EV$=R$:YN$=R$:F3$=R$:O$=R$
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$
40 CO$=R$:DV$=R$:ER$=R$:NU$=R$:NM$=R$:FU=40:GOTO80
50 PRINTNU%(I)TAB(4)S%(I)TAB(9)H$+":"+M$TAB(17)TY$(I)TAB(20)NM$(I):P=P+1:RETURN
55 H=INT(EL%/60):M=EL%-H*60:TT=1:GOTO65
60 H=INT(LE%(I)/60):M=LE%(I)-H*60
65 H$=STR$(H):M$=RIGHT$(STR$(M),2):IFM<10THENM$="0"+RIGHT$(STR$(M),1)
70 IFTT=1THENTT=0:RETURN
75 RETURN
80 POKE53280,15:POKE53281,15:POKE53282,6:POKE53283,2:POKE53284,14:POKE53265,PEEK(53265)OR64:PRINTCHR$(142)
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]
88 [153]"OPENCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null)RIGHT$STR$VAL(null)(null)ATN(null)VALCLOSEASCRIGHT$(null)VALCLOSE(null)ATN(null)ATNCHR$VAL(null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE
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]
90 CB$[178]""[170]"":[129]I[178]1024[164]1063:[151]I,160:[151]PC[170]I,10:[130]
100 [153]"SYS         A FREEWARE PROGRAM BY        
105 PRINT"              SCOT CULLEN             
110 [129]I[178]1063[164]2023[169]40:[151]I,160:[151]PC[170]I,10:[130]
115 [153]"           46 EAST GRANT AVE.         
120 PRINT"       COLONIA, NEW JERSEY 07067      
123 [153]"         COPYRIGHT 1984, 1985         
125 FORI=2023TO1984STEP-1:POKEI,160:POKEPC+I,10:NEXT
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]
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
135 FORI=1984TO1024STEP-40:POKEI,160:POKEPC+I,10:NEXT
140 FORI=1TO8:READTS$:TS$(I)=TS$+"":NEXT:YN$=" Y/N [146]"+"
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]"
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]"+"
155 SO$[178]"SORRY... ONLY 19 CHARACTERS ARE ALLOWED."[170]"
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]"+"
165 CA$[178]"AM I CORRECT IN MY ASSUMPTIONS? "[170]YN$[170]"
170 P4$="HIT A KEY TO CONTINUE..."+"":VD$="VIDEO DATA FILE"+"
175 UF$[178]"LOADSYSUPDATING FILE...WAIT"[170]"":GP$[178]"+"[170]"
180 PR$="----------------------------------------"+"":I=1
185 P1$="========================================"+"
190 [134]NU%(250),NM$(250),TY$(250),LE%(250),S%(250),EN%(250),BG%(99),RV%(99)
192 [134]A%(99),RR$(99),RO$(15),F1(20),Q(20)
193 [129]I[178]1[164]13:RO$(I)[178][202]("ABCDEFGHIJKLMMN",I,1):[130]
195 [134]NX%(99),LX%(99),EX%(99),NX$(99),BC%(99),ED%(99),T%(99),MN$(250)
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
205 [153]"POKEDO YOU HAVE A VIDEOFILE ENTERED YET?SYS"YN$"
210 DATAA   ADVENTURE ,C   COMEDY ,D   DRAMA ,M   MYSTERY/THRILLER
215 DATAY   YOUNG PEOPLE ,S   SCIENCE FICTION ,T   TEMPORARY ,O   OTHER
220 GETR$:IFR$=""THENI=I+1
221 IFI/60=INT(I/60)THENPOKE53282,(K+J):J=-J
222 IFR$=""THEN220
223 POKE53282,6:IFR$="N"THEN1115
230 IFR$<>"Y"THEN220
235 GOSUB1675
240 PRINT"[147]":PRINT"[147][158]":PRINTTAB(13)"  MAIN MENU  
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
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]
265 [153]"SYS  2. WAIT  CLOSECLOSECLOSEASCRIGHT$(null)STR$CLOSEATNCLOSE(null)ATN(null)VALCLOSE(null)(null)CLOSE(null)ATN(null)LENLEFT$CLOSECLOSECLOSECLOSECLOSECLOSECLOSE
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]
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
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]
282 [153]"SYS  6. WAIT  CLOSECLOSECLOSE(null)ATN(null)VALCLOSE(null)LEFT$VALCLOSESTR$ATN(null)ATNCLOSEASCRIGHT$(null)VALCLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE
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]
290 [153]"PLEASE ENTER YOUR CHOICE...
295 GETR$:IFR$=""THEN295
300 IFR$="6"THENRR=-1
305 R=VAL(R$):ONRGOTO315,1105,1150,640,1115,1675,1800:GOTO295
315 PRINT"[147]":H=0:M=0
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]?
325 [153]"POKEPLEASE TELL ME IN THE FORM":[153][166]5)"SYS"O$"WAITPOKE, SYS"I$"WAITPOKE
335 PRINT"WITH A COMMA IN BETWEEN.
340 [153]"(TO LEAVE THIS SCREEN HIT SYS RETURN WAIT POKE)SYS":[133]"";H,M:T[178]60[172]H[170]M
345 [139]T[179]0[176]M[179]0[176]H[179]0[137]315
350 [139]T[177]VL[172]60[167][153]"LOADSYSSORRY, BUT THE"T$"S ARE ONLY";VL;"CMD  "O$"WAITPOKE":[137]320
355 [139]T[178]0[167][137]240
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$
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
370 [139](LX%(I)[170]T)[177]ML%(I)[170]5[137]385
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
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
400 [139]P[177][178]15[167][141]1375
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$
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
415 [129]I[178]1[164]CT:X2[178]ML%(NU%(I)):[139]TY$(I)[179][177]"T"[137]485
420 [139]T[177]X2[167]485
425 [139]LE%(I)[177][178]T[137]470
430 [139]NX%(NU%(I))[178]1[137]470
435 [139]NU%(I)[179][177]NU%(I[170]1)[175]((LX%(NU%(I))[171]LE%(I)[170]T)[179][178]X2)[167]470
436 A[178]1:TU[178]0
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
439 A[178]1:TM[178]LE%(I)
440 [139]NU%(I[170]A)[179][177]NU%(I)[167][139](LX%(NU%(I))[171]TM[170]T[179][178]X2)[167]450
442 [139]NU%(I[170]A)[179][177]NU%(I)[176]TY$(I[170]A)[179][177]"T"[167][137]485
444 TM[178]TM[170]LE%(I[170]A):A[178]A[170]1:[139]TM[179]T[167]440
450 [139]NU%(I)[178]NU%(RO%(C))[167]E[178]E[170]1:[137]454
452 E[178]1
454 A[178]A[171]1:[139]P[177][178]21[171]A[167][141]1390
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
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
465 [153]"SYS*****COMBINED SHOWS HAVE ENOUGH TIME****":P[178]P[170]2
467 [129]J[178]0[164]A[170]3:[153]"ON";:[130]:[153]"SYS*****************************************
468 PRINT"[145][145][158]"TAB(17)NU%(I)"[157]"RO$(E)" ":FORJ=0TOA:PRINT"[158][157]**[146][151]":NEXT:PRINT:GOTO485
470 IFP>=22THENGOSUB1390
472 PRINTTAB(1)NU%(I)TAB(8)S%(I)TAB(18)NM$(I):P=P+1:D=D+1:BC%(D)=S%(I)
475 ED%(D)=EN%(I):RV%(D)=NU%(I):T%(D)=LE%(I)
485 NEXT:IFP>=14THENGOSUB1390
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]
500 [153]"HIT SYS R WAITPOKE TO REVIEW THIS LIST AGAIN
505 PRINT"HIT [158] E [146][151] TO EXIT TO THE MAIN MENU
510 [153]"HIT SYS T WAITPOKE TO VIEW WHICH SHOWS ARE IN THE   "T$" CATALOG
515 PRINT""EV$"":INPUT"E[157][157][157][158]";R$:IFR$="R"THEN360
520 PRINT"";:IFR$="T"GOTO1105
530 IFR$="E"GOTO240
532 RO$=RIGHT$(R$,1):IFRO$>="A"ANDRO$<="M"THENNU=VAL(LEFT$(R$,(LEN(R$)-1))):GOTO560
535 NU=VAL(R$):IFNU<0ORNU>NU%(CT)ORNU<>INT(NU)THEN490
540 PRINT"[147][151]":FORI=0TOB:IFRB%(I)=NUTHENYY=0:GOTO570
545 NEXT:FORI=0TOD:IFRV%(I)=NUTHENYY=2:DD=I:GOTO570
555 NEXT
560 PRINT"[147]":FORI=0TOC:IFRR$(I)=" "+R$THENYY=1:CC=I:GOTO570
565 NEXT:GOTO650
570 PRINT"[158]             NEW RECORDING:             [146][151]
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";
585 [145]YY[170]1[137]600,590,595
590 NC[178]BG%(CC):[137]605
595 NC[178]BC%(DD):[137]605
600 NC[178]EX%(NU)
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
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]
620 [161]R$:[139]R$[178]""[137]620
625 [139]R$[178]"N"[137]650
630 [139]R$[179][177]"Y"[137]620
635 [153]"LOAD"EV$:[137]965
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
645 [139]NU[179]0[176]NU[177]NU%(CT)[176][181](NU)[179][177]NU[167]640
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
655 [153]"HRS";:[129]I[178]1[164]VL:[153][163][181](40[173]VL)[172]I[171]2)I;:[130]:[153]"CMD";
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
670 [129]I[178]1[164]VL:[153]GR$;GP$;:[130]:[139]VL[178]6[167][153]
672 UF[178]1:[139](NU%([181](CT[173]2)))[179]NU[167]UF[178][181](CT[173]2)
675 [129]I[178]UF[164]CT:[139]NU%(I)[179][177]NU[137]735
680 K[178]K[170]1:F1(K)[178]I:[139]K[177]1[137]710
685 [139]LE%(I)[179]12[167]Q[178]1:[153][163]Q)"^":LE[178]LE%(I):[137]695
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)
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
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]
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
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
718 [139]K[177]15[167][153][163]38);:[137]725
719 [139]K[178]10[167][153][163]38);:[137]725
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
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";
730 [153]"SYS"K;"CMD WAIT"NM$(I);" SYS";TY$(I);"WAIT
732 IFK=5ORK=15THENPRINT"[145][145][145][145][145][145][145][145][145][145]";
733 IFK=10THEN737
735 NEXT
737 PRINT"";:FORI=1TOVL:PRINTGR$;GP$;:NEXT
740 PRINT"ENTER [158] 1 [146] THROUGH [158] 9 [146] TO UPDATE SEGMENT
741 [139]K[177]10[167][153]" SYS 11 WAIT TO SYS 19 WAIT   CMDCMDCMDCMDCMDCMDCMDCMDCMD";
742 [153]"PRINT#(USE SYS 0 WAITPRINT# FOR SEGMENT"([171](K[177]10)[172]10[170]10)"CMD)
745 PRINT"[158] F1 [146]UPDATE OTHER TAPES
750 [153]"SYS F3 WAITCHANGE LENGTH";:[153]" SYS F4 WAIT  CLEAR WAIT TAPE";NU
755 [153]"SYS F5 WAITEXIT TO MAIN MENU":[139]K[178]10[167][153]"SYS F7 WAITFOR NEXT PAGE";:[137]765
760 [139]NU[179][177]NU%(CT)[167][153]"SYS F7 WAITTO CHECK TAPE NUMBER";NU[170]1;
765 [139]ML%(NU)[179]60[172]VL[167][153]"CONT"[166]10)"THIS TAPE IS"[181](ML%(NU)[173]6)[173]10"HRS
770 GETR$:IFR$=""GOTO770
775 IFR$="[134]"THENPRINT"[147][158]NEW TAPE LENGTH [146]"ML%(NU)
780 IFR$="[134]"THENPRINT"[145]"TAB(15);:INPUT"[158]";ML%(NU):RR=-1:GOTO650
782 IFR$="[136]"ANDK=10THENGOSUB10000:UF=F1(K)+1:PRINT"":GOTO675
785 IFR$="[136]"ANDNU<>NU%(CT)THENNU=NU+1:GOTO645
790 IFR$="[138]"THENI=F1(1):NX=1-K:NM$="":TY$="":T=0:S=0:EC=0:GOSUB1335:GOTO650
795 IFR$="[133]"GOTO640
799 IFR$="[135]"GOTO240
800 R=VAL(R$):IFR<0ORR>9THEN770
810 IFR=0THENR=10
815 IFK>10THENR=R+10
820 IFR>KTHENIFLX%(NU)>=ML%(NU)THENPRINT"[147]NO MORE TIME!":FORK=1TO1E3:NEXT:GOTO650
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]";
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 ";
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
845 B[178]F1(R):[153]"(null)ATN(null)VALWAITCMDCMD"NM$(B):X$[178]NM$(B):UC[178]0
850 [133]"ONSYS";NM$(B):[139]NM$(B)[178]X$[167]UC[178]UC[170]1
852 [139][200](NM$(B),1)[178]"^"[167]NM$(B)[178]"E"
853 [139][200](NM$(B),1)[178]"\"[167]NM$(B)[178]"D"
855 [153]"":[139][195](NM$(B))[177]19[167][153]SO$:NM$(B)[178]"":[137]850
863 [139]NM$(B)[178]"D"[175]EN%(B)[179]EX%(NU)[167]NM$(B)[178]"(DELETE)":TY$(B)[178]"T":[137]650
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
870 [139]NM$(B)[178]"D"[167]R$[178]"RUN":[137]790
875 [139]NM$(B)[178]"E"[167]NM$(B)[178]X$:[137]650
880 X$[178]TY$(B):[153]"LOAD(null)(null)(null)VALWAIT":[129]I[178]1[164]8:[153]TS$(I):[130]:[153]""TY$(B)
885 [133]"ONSYS";TY$(B):[129]I[178]1[164]8:[139]TY$(B)[178][200](TS$(I),1)[167]905
890 [130]:[139]TY$(B)[178]""[167]905
900 [153]"SORRY, YOU MUST ENTER A VALID TYPE":[129]I[178]1[164]1E3:[130]:[137]880
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
910 TT[178]1:I[178]B:[141]60:[153]""H$[170]","[170]M$:U1[178]H:U2[178]M
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
917 [139]LE%(B)[177]VL[172]60[167][153]"LOAD":[137]905
918 [139]B[178]0[167]S%(B)[178]EN%(F1(R[171]1))
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
925 [153]"VAL(null)STR$WAITCMDCMD"EN%(B):[153]"ONON(ENTER -1 AND I WILL ESTIMATE IT)":U4[178]EN%(B)
935 [133]"SYS";EN%(B):[153]"":[139]EN%(B)[178]U4[167]UC[178]UC[170]1
940 [139]UC[178]5[167]B[178]0:[137]650
945 [139]EN%(B)[179]0[167]Y[178]2:[141]1290
947 [139]B[178]0[175]EN%(B)[177]0[167]EC[178]EN%(B)
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
955 RR[178][171]1:AL[178]0:[153]UF$:[141]1440:[137]650
960 NM$(0)[178]"":TY$(0)[178]"":LE%(0)[178]0:EN%(0)[178]0:RR[178][171]1:AL[178]0:[137]650
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]"
975 IFLEN(NM$)>19THENPRINT"[158]"SO$"":GOTO965
980 PRINT"[215][200][193][212][160][212][217][208][197][160][201][211][160][201][212][146]":FORI=1TO8:PRINTTS$(I):NEXT
985 INPUT"[158]";TY$:PRINT"":FORI=1TO8:IFTY$=LEFT$(TS$(I),1)THEN995
990 NEXT:GOTO985
995 GOSUB1565:PRINTUF$:IFYY=1THENY=3:GOSUB1290:GOTO1075
1000 IFYY=2GOTO1030
1005 Y=1:GOSUB1290:FORI=1TOCT:IFNU%(I)=NUTHENWQ=I:GOTO1020
1015 NEXT
1020 IFLE%(I)=0THENS=0:GOSUB1365:EX%(NU)=EC:NX%(NU)=1:NX$(NU)=NM$:LX%(NU)=T:GOTO315
1025 I=I+(NX%(NU)):NX=SGN(NX%(NU)):S=EX%(NU):GOSUB1335:GOTO315
1030 FORI=1TOCT:IFNU%(I)=NUTHENGOTO1040
1035 NEXT
1040 IFNX%(NU)=1THENSL=0:Y=4:GOSUB1290:GOTO1070
1045 IFTY$(I)="T"ANDLE%(I)>=T%(DD)THENSL=0:TM=T:GOSUB1320:GOTO1065
1050 IFNX%(NU)=2THENSL=1:Y=4:TM=LE%(I)+T:GOSUB1320:GOTO1070
1055 IFTY$(I+1)="T"ANDLE%(I+1)>=TTHENSL=1:TM=LE%(I)+T:GOSUB1320:GOTO1065
1060 IFTY$(I+2)="T"THENSL=2:TM=LE%(I)+LE%(I+1)+T:GOSUB1320:GOTO1070
1065 T=T%(DD)
1070 S=NC:I=I+SL:NX=0:GOSUB1335:GOTO315
1075 NX=-(A%(CC)):I=RO%(CC):S=NC:GOSUB1335:GOTO240
1105 PRINT"[147][158]LOADING SUBPROGRAM...":PRINT"[208][204][197][193][211][197][160][215][193][201][212][146][155]":CLOSE15:CLOSE5
1106 OPEN15,8,15,"C0:CATALOG=CATALOG":OPEN5,8,15:INPUT#5,ER,ER$:CLOSE5:CLOSE15
1107 OPEN15,8,15,"I0":CLOSE15:IFER=63GOTO1113
1108 IFER=62THENPRINT"[147][158]VIDEOFILE DISK IS NOT IN THE DRIVE      PRESS ANY KEY TO ";
1109 IFER=62THENPRINT"TRY AGAIN
1110 [139]ER[179][177]62[167][153]"SYSERROR"ER;ER$"CMDCMDCMDCMDCMDPRESS ANY KEY
1111 GETR$:IFR$=""THEN1111
1112 GOTO1105
1113 LOAD"CATALOG",8
1115 PRINT"[147][158]THIS SCREEN INITIALIZES VCR PARAMETERS. [151]
1120 [153]"AS I ASK EACH QUESTION,SYS"EV$
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)
1130 PRINTSPC(3)"[151]"VL"[157][157][157][157]";:INPUT"[158]";VL
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]
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
1145 NEXT:PRINT"[147][151]":GOTO1155
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]
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
1160 [153]"POKE":[139][181](X1)[179][177]X1[176]X1[179]1[167][153]"POKEI DON'T UNDERSTAND":[137]1155
1170 [139]NU%(CT)[170]X1[179][178]99[137]1185
1175 [153]"":[153]"CAPACITY ONLY ALLOWS FOR";99[171]NU%(CT);"ADDITIONAL":[153]"TAPES":[137]1155
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
1190 IFX1>1THENPRINT"[212][200][210][207][213][199][200][158]";NU%(CT)+X1
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$
1200 PRINT"[151](ENTER N TO RETURN TO THE MAIN MENU)
1205 [161]R$:[139]R$[178]""[137]1205
1210 [139]R$[178]"N"[137]240
1215 [139]R$[179][177]"Y"[137]1205
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
1225 GETR$:IFR$=""THEN1225
1230 IFR$="Y"THENFORI=1TOX1:ML%(I+NU%(CT))=VL*60:NEXT:GOTO1275
1235 IFR$<>"N"THEN1225
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]";
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]
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
1260 [153]"POKE"NU%(CT)[170]I,:[133]"SYS";H:[153]"ON"[163]18):[133]"0CMDCMDCMDSYS";M:T[178]H[172]60[170]M
1265 [139]T[177]VL[172]60[176]T[179]0[167][153]"ON                            ON":[137]1260
1270 ML%(I[170]NU%(CT))[178]T:[130]
1275 [153]UF$:[129]I[178]CT[170]1[164]X1[170]CT
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]
1285 A[178]1:CT[178]CT[170]X1:RR[178][171]1:[141]1440:[137]240
1290 [139]Y[178]1[167]TM[178]T[170]LX%(NU):[137]1320
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
1310 [139]Y[178]3[175]NX%(NU)[177]2[167][141]1810:[137]1320
1315 TM[178]T
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]
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
1330 Y[178]0:[142]
1335 [153]UF$:CT[178]CT[170]NX:[139]NX[179][171]2[137]1350
1338 [145]NX[170]3[137]1345,1350,1365,1340,1340
1340 [129]J[178]CT[164]I[170]NX[169][171]1:[137]1355
1345 [129]J[178]I[171]NX[171]1[164]CT:[137]1355
1350 [129]J[178]I[170]1[164]CT
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)
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]
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
1370 RR[178][171]1:A[178]1:[141]1440:[142]
1375 [153]"SYS"P4$"POKE
1380 GETR$:IFR$=""GOTO1380
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
1390 PRINTCB$TAB(8)"[158]"P4$;"[146][151]";
1395 GETR$:IFR$=""GOTO1395
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]
1405 P[178]3:[139]I[177]CT[167][153]"LOAD
1410 RETURN
1415 A=1:I=1:INPUT#1,VL:FORJ=0TOVL*2:INPUT#1,MC%(J):NEXT
1425 INPUT#1,NU%(I),NM$(I),TY$(I),LE%(I),S%(I),EN%(I):IFTY$(I)="0"THENQT=A:CT=I-1:GOTO1515
1435 GOTO1455
1440 UF=INT(CT/2):IFUF=0THENUF=1:GOTO1450
1443 IFNU%(UF)>NUTHENUF=1:GOTO1450
1445 IFNU%(UF-1)=NU%(UF)THENUF=UF-1:A=NU%(UF)-1:GOTO1445
1447 A=NU%(UF)-1
1450 FORI=UFTOCT
1455 IFI=1THENA=0:GOTO1465
1460 IFNU%(I)=NU%(I-1)THENNX%(A)=NX%(A)+1:LX%(A)=LX%(A)+LE%(I)
1462 IFNU%(I)=NU%(I-1)THENEX%(A)=EN%(I):NX$(A)=NM$(I):GOTO1500
1465 A=A+1:NX%(A)=1:LX%(A)=LE%(I):EX%(A)=EN%(I):NX$(A)=NM$(I)
1500 IFRR<>-1THEN1510
1505 NEXT:QT=A:AL=0:RETURN
1510 I=I+1:GOTO1425
1515 FORI=1TO3:INPUT#1,X:NEXT:FORI=1TONU%(CT):INPUT#1,ML%(I):NEXT:CLOSE1:RETURN
1520 PRINT#1,VL",":FORI=0TOVL*2:PRINT#1,MC%(I)",":NEXT
1525 FORI=1TOCT:PRINT#1,NU%(I)","NM$(I)","TY$(I)","LE%(I)","S%(I)","EN%(I)",":NEXT
1535 FORI=1TO6:PRINT#1,"0"CO$:NEXT:FORI=1TONU%(CT):PRINT#1,ML%(I)CO$:NEXT:CLOSE1:RR=0:GOTO240
1545 OPEN4,4:CMD4:PRINTCHR$(9)CHR$(9)CHR$(9)"   TAPING NOTES"CHR$(10)CHR$(10)
1550 PRINTP1$;P1$;:PRINT"DAY"CHR$(9)"START AT"CHR$(9)"END AT"CHR$(9)"CHANNEL";
1555 PRINTCHR$(9)"NAME"CHR$(9)CHR$(9)"TAPE"CHR$(9)"START":PRINTP1$;P1$:PRINT#4:CLOSE4:GOTO1595
1565 ONPO+1GOTO1570,1595,1590
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$
1575 GETR$:IFR$=""THEN1575
1580 IFR$="Y"THENPO=1:GOTO1545
1585 PO=2
1590 RETURN
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]";
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$
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"
1620 HR[178][197](HR$):MI[178][197](MI$)
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
1630 [139][195](AM$)[179][177]2[167][153]"BAD DATA":[137]1595
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);
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
1660 HR$[178][196](HR):MI$[178][201]([196](MI),2):[139]MI[179]10[167]MI$[178]"0"[170][201]([196](MI),1)
1665 [153]HR$[170]":"[170]MI$[199](9)CH$[199](9)NM$[199](9);:[139][195](NM$)[179]10[167][153][199](9);
1670 [153]NU[199](9)NC:[153]PR$;PR$;:[152]4,"":[160]4:[142]
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$"
1720 GETR$:IFR$=""THEN1720
1725 IFRR=-1THEN1765
1730 PRINT"[147]LOADING FILE...":OPEN1,8,8,"VIDFILE":OPEN5,8,15:INPUT#5,ER,ER$:IFER>1THENCLOSE1:GOTO1755
1745 GOSUB1415:INPUT#5,ER,ER$:IFER>1THENGOTO1755
1750 CLOSE5:RETURN
1755 PRINT"ERROR":PRINTER,ER$:OPEN15,8,15,"I":CLOSE15:FORI=1TO2E3:NEXT:CLOSE5:GOTO1675
1765 PRINT"[147]SAVING FILE...":CLOSE15:CLOSE5:OPEN15,8,15,"S0:VIDFILE":CLOSE15:OPEN5,8,15:INPUT#5,ER,ER$
1780 IFER=62THENOPEN15,8,15"I":CLOSE15
1785 OPEN1,8,8,"0:VIDFILE,S,W":INPUT#5,ER,ER$:IFER>1THENCLOSE1:GOTO1755
1790 GOSUB1520:INPUT#5,ER,ER$:IFER>1THENGOTO1755
1795 CLOSE5:CLOSE15:CLOSE1:GOTO240
1800 IFRR<>-1THENSYS2048
1805 GOTO295
1810 I=RO%(CC):TM=T
1815 I=I-1:IFNU%(I)=NUTHENTM=TM+LE%(I):GOTO1815
1820 RETURN
10000 PRINT"":FORJ=1TO10:PRINT"                                        ";:NEXT:RETURN