0 CLR
1 POKE53280,6:POKE53281,6:PRINT"[147]"
2 REM COPYRIGHT 1993 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
5 POKE 53280,.:POKE53281,.:RT$=CHR$(13):B$="                    "
10 ET$="----- END OF TAPE ------":DS$="------------------------
15 [129]X[178]679[164]700:[135]A:[151]X,A:[130]:A[178]679:[134]MT$(30)
20 [134] MN$(451),TN%(451),TP%(451),PF%(451),PB%(451),LI%(200),AL%(27),MT%(2251)
25 [129]X[178]1[164]30:[135]MT$(X):[130]
30 [153]"LOADOPEN     *** VIDEO TAPE SUPERVISOR ***":[153]"FOR HELP ENTER SYSH
35 LN=6:GOSUB245:SYSA,.,6:C$="":INPUT"COMMAND";C$:IFC$=""THEN30
40 IFC$="F"THENPRINT""FRE(.):GOSUB135:LN=8:GOSUB245:GOTO35
45 IFLEFT$(C$,2)="L "THENF$=RIGHT$(C$,(LEN(C$)-2)):GOTO725
50 IFC$="Q"THEN140
55 IFC$="H"THEN960
60 IFC$="CT"THEN1015
65 IFLEFT$(C$,2)="A "THEN285
70 IFLEFT$(C$,3)="LT "THEN565
75 IFNM=.THENPRINT"MUST LOAD MOVIES":GOSUB190:LN=9:GOSUB245:GOTO35
80 IFC$="LO"THEN800
85 IFC$="LA"THEN445
90 IFC$="LT"ORC$="PT"THEN500
95 IFC$="PA"THEN615
100 IFC$="LM"ORC$="PM"THEN700
105 IFLEFT$(C$,2)="S "THENF$=RIGHT$(C$,(LEN(C$)-2)):GOTO765
110 IFLEFT$(C$,3)="LL "THEN665
115 IFLEFT$(C$,2)="C "THEN1145
120 IFLEFT$(C$,2)="D "THEN835
125 IFLEFT$(C$,3)="CM "THEN395
130 GOTO35
135 SYSA,.,23:PRINT"HIT ANY KEY TO RETURN":WAIT198,15:GETA$:GOTO30
140 PRINT"ARE YOU SURE? (Y/N)
145 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]145
150 [139]A$[178]"N"[167]LN[178]9:[141]245:[137]35
155 [158]64738
160 A$[178]"":[153]"SYSQ TO STOP, ANY KEY TO CONTINUE":[146]198,15:[161]A$:[142]
165 AP[178][198]([200](X$,1))[171]63:[139]AP[179].[167]AP[178]1
170 [142]
175 [159]2,8,2,F$[170]",P,R":[160]2:[159]15,8,15:[132]15,Z,Z$:[160]15
180 [139]Z[178]62[167][153]"NO SUCH FILE":[141]190
185 [142]
190 [129]X[178]1[164]2000:[130]:[142]
195 [158]A,.,20:[153]"MAX OF 200 TAPES AND 450 MOVIES":[141]190
200 LN[178]20:[141]245:[142]
205 [158]A,.,20:[153]"STOP TAPE MUST NOT BE < START TAPE
210 GOSUB190:LN=20:GOSUB245:RETURN
215 M$="":INPUT"MOVIE NAME";M$:IFLEN(M$)>66THENPRINT"[145][145][145][145][145]":GOTO215
220 RETURN
225 IFRIGHT$(P$,4)=".THE"THENP$="THE "+LEFT$(P$,LEN(P$)-4)
230 RETURN
235 IFLEFT$(P$,4)="THE "THENP$=RIGHT$(P$,LEN(P$)-4)+".THE"
240 RETURN
245 POKE781,LN:SYS59903:RETURN
250 PRINTTN%(W)" ";:IFTN%(W)<10THENPRINT" ";
255 IFTN%(W)>99THENPRINT"[157]";
260 IFLEN(MN$(W))>34THENLN=34:M=7:GOTO270
265 PRINT"[158]"P$"":Z=Z+1:RETURN
270 Z=Z+2:FORQ=LNTO1STEP-1:IFMID$(P$,Q,1)=" "THEN280
275 NEXT:RETURN
280 PRINT"[158]";LEFT$(P$,Q):PRINTSPC(M);RIGHT$(P$,(LEN(P$)-Q));"":Q=.:GOTO275
285 IFLEN(C$)=3THENC=VAL(RIGHT$(C$,1)):GOTO295
290 C=VAL(RIGHT$(C$,3))
295 IFC<1ORC>200ORNM=450THENGOSUB195:GOTO35
300 PRINT"[147]":GOSUB215:IFM$=""THEN30
305 P$=M$:GOSUB235:X$=P$:GOSUB165
310 CP=AL%(AP):GOSUB315:GOSUB370:CP=NM:GOSUB1085:GOTO300
315 IFNM>.THEN325
320 PF%(1)=.:PB%(1)=.:NM=.:GOSUB390:AL%(AP)=1:RETURN
325 IFCP>.THEN335
330 GOSUB390:AL%(AP)=NM:PF%(NM)=.:PB%(NM)=.:RETURN
335 IFMN$(CP)<X$THEN345
340 GOSUB390:AL%(AP)=NM:PF%(NM)=CP:PB%(NM)=.:PB%(CP)=NM:RETURN
345 PC=NM+1:MN$(PC)=X$:TN%(PC)=C
350 IFMN$(CP)>X$THEN365
355 IFPF%(CP)=.THENPB%(PC)=CP:PF%(CP)=PC:NM=NM+1:RETURN
360 CP=PF%(CP):GOTO350
365 PF%(PC)=CP:PB%(PC)=PB%(CP):PF%(PB%(CP))=PC:PB%(CP)=PC:NM=NM+1:RETURN
370 IFLI%(C)=.THENLI%(C)=NM:RETURN
375 CP=LI%(C)
380 IFTP%(CP)=.THENTP%(CP)=NM:RETURN
385 CP=TP%(CP):GOTO380
390 NM=NM+1:MN$(NM)=X$:TN%(NM)=C:RETURN
395 IFLEN(C$)=4THENIN=VAL(RIGHT$(C$,1)):GOTO405
400 IN=VAL(RIGHT$(C$,3))
405 IFIN<1ORIN>200THENGOSUB195:GOTO35
410 CP=LI%(IN):IFCP=.THENPRINT"[158]NO MOVIES ON TAPE":GOTO135
415 P$=MN$(CP):GOSUB225:PRINT"[147]":IFLEN(P$)>38THENLN=38:M=2:GOSUB270:GOTO425
420 PRINT"[158]"P$"
425 [153]"CHANGE?(Y, N OR Q)":[146]198,15:[161]A$:[139]A$[178]"Y"[167][141]1085
430 [139]A$[178]"Q"[167]30
435 [153]"LOAD":CP[178]TP%(CP):[139]CP[178].[167]30
440 [137]415
445 [153]"LOAD
450 Z=.:FORX=1TO27:AP=AL%(X)
455 IFAP=.THEN490
460 IFC$="LM"THENFORW=AP*5-4TOAP*5:IFMT%(W)=YTHENW=AP*5:NEXT:GOTO470
465 IFC$="LM"THENNEXT:GOTO475
470 P$=MN$(AP):GOSUB225:W=AP:GOSUB250
475 AP=PF%(AP):IFZ<20THEN455
480 GOSUB160:IFA$="Q"THENX=27:GOTO490
485 PRINT"[147]":Z=.:GOTO455
490 NEXT:IFA$="Q"THEN30
495 GOTO135
500 SW$="":LN=10:GOSUB245:SYSA,.,10:INPUT"START TAPE #";SW$:IFSW$=""THEN30
505 SW=VAL(SW$):IFSW<1ORSW>200THENGOSUB195:GOTO500
510 TW$="":LN=13:GOSUB245:SYSA,.,13:INPUT"STOP TAPE #";TW$:IFTW$=""THEN30
515 TW=VAL(TW$):IFTW<SWTHENGOSUB205:GOTO510
520 IFTW<1ORTW>200THENGOSUB195:GOTO510
525 IFC$="PT"THEN590
530 FORX=SWTOTW:CP=LI%(X):PRINT"[147]TAPE"X:PRINTDS$
535 P$=MN$(CP):GOSUB225:IFLEN(P$)>38THENLN=38:M=2:GOSUB270:GOTO545
540 PRINT"[158]"P$""
545 IFTP%(CP)=.THEN555
550 CP=TP%(CP):GOTO535
555 PRINTET$:GOSUB160:IFA$="Q"THENX=TW
560 NEXT:GOTO30
565 IFLEN(C$)<4THEN35
570 IFLEN(C$)=4THENC=VAL(RIGHT$(C$,1)):GOTO580
575 C=VAL(RIGHT$(C$,3))
580 IFC<1ORC>200THENGOSUB195:GOTO35
585 SW=C:TW=C:GOTO530
590 OPEN4,4,1:FORC=SWTOTW
595 PRINT#4:PRINT#4,"     ** TAPE"C"**":PRINT#4:CP=LI%(C)
600 P$=MN$(CP):GOSUB225:PRINT#4,"     ";P$:IFTP%(CP)=.THEN610
605 CP=TP%(CP):GOTO600
610 PRINT#4:PRINT#4:NEXT:CLOSE4:GOTO30
615 OPEN4,4,1:PRINT#4,CHR$(14);"   ALPHABETICAL LIST":PRINT#4,CHR$(15)
620 FORX=1TO27:AP=AL%(X)
625 IFAP=.THENNEXT:CLOSE4:GOTO30
630 IFC$="PM"THENFORW=AP*5-4TOAP*5:IFMT%(W)=YTHENW=AP*5:NEXT:GOTO640
635 IFC$="PM"THENNEXT:GOTO660
640 P$=MN$(AP):GOSUB225
645 PRINT#4,"     ";TN%(AP)" ";:IFTN%(AP)<10THENPRINT#4," ";
650 IFTN%(AP)<100THENPRINT#4," ";
655 PRINT#4,P$
660 AP=PF%(AP):GOTO625
665 Z=.:X$=RIGHT$(C$,(LEN(C$)-3)):PRINT"[147]":LG=LEN(X$):GOSUB165
670 CP=AL%(AP)
675 IFCP=.THEN135
680 P$=MN$(CP):IFLEFT$(P$,LG)>X$THEN135
685 IFLEFT$(P$,LG)<X$THEN695
690 GOSUB225:W=CP:GOSUB250:IFZ=20THENGOSUB160:Z=.:PRINT"[147]":IFA$="Q"THEN30
695 CP=PF%(CP):GOTO675
700 CP=.:GOSUB1050:Z=.
705 LN=2:GOSUB245:X$="":INPUT"NUMBER";X$:IFX$=""THEN30
710 Y=VAL(X$):IFY<1ORY>30THEN705
715 IFC$="LM"THENPRINT"[147][159]"SPC(20-LEN(MT$(Y))/2);MT$(Y)"":GOTO450
720 OPEN4,4,1:PRINT#4,CHR$(14);"   ";MT$(Y):PRINT#4,CHR$(15):GOTO620
725 GOSUB175:IFZ=62THEN30
730 F$=F$+",S,R":OPEN8,8,8,F$:INPUT#8,NM:NT=NM*5
735 PRINT"LOADING[158]"NM"MOVIES....
740 [129]X[178]1[164]NM:[132]8,MN$(X):[132]8,TN%(X):[132]8,TP%(X):[132]8,PF%(X)
745 [132]8,PB%(X):[130]:[153]"LOADING INFO FOR SYS200 TAPES...
750 FORX=1TO200:INPUT#8,LI%(X):NEXT:FORX=1TO27:INPUT#8,AL%(X):NEXT
755 FORX=1TONT:INPUT#8,MT%(X):NEXT
760 FORX=1TO30:INPUT#8,MT$(X):NEXT:CLOSE8:GOTO135
765 F$="@0:"+F$+",S,W":OPEN8,8,8,F$:PRINT#8,NM:NT=NM*5
770 PRINT"SAVING[158]"NM"MOVIES....
775 [129]X[178]1[164]NM:[152]8,MN$(X);RT$;TN%(X);RT$;TP%(X);RT$;PF%(X);RT$;PB%(X)
780 [130]:[153]"SAVING INFO FOR SYS200 TAPES...
785 FORX=1TO200:PRINT#8,LI%(X):NEXT:FORX=1TO27:PRINT#8,AL%(X):NEXT
790 FORX=1TONT:PRINT#8,MT%(X):NEXT
795 FORX=1TO30:PRINT#8,MT$(X):NEXT:CLOSE8:GOTO135
800 GOSUB215:IFM$=""THEN30
805 P$=M$:GOSUB235:X$=P$:GOSUB165
810 CP=AL%(AP)
815 IFCP=.ORMN$(CP)>P$THEN830
820 IFMN$(CP)=P$THENPRINT"LOCATED ON TAPE #[158]"TN%(CP)"":GOTO135
825 CP=PF%(CP):GOTO815
830 PRINT"MOVIE NOT FOUND":GOTO135
835 IFLEN(C$)=3THENIN=VAL(RIGHT$(C$,1)):GOTO845
840 IN=VAL(RIGHT$(C$,3))
845 IFIN<1ORIN>200THENGOSUB195:GOTO30
850 SN=.:CP=LI%(IN):IFCP=.THENPRINT"[158]NO MOVIES ON TAPE":GOTO135
855 P$=MN$(CP):GOSUB225:PRINT"[147]":IFLEN(P$)>38THENLN=38:M=2:GOSUB270:GOTO865
860 PRINT"[158]"P$"
865 [153]"DELETE?(Y, N OR Q)":[146]198,15:[161]A$:[139]A$[178]"Y"[167]885
870 [139]A$[178]"Q"[167]30
875 SN[178]CP:CP[178]TP%(CP):[139]CP[178].[167]30
880 [137]855
885 [139]SN[177].[167]TP%(SN)[178]TP%(CP)
890 [139]PB%(CP)[177].[167]PF%(PB%(CP))[178]PF%(CP)
895 [139]PF%(CP)[177].[167]PB%(PF%(CP))[178]PB%(CP)
900 X$[178]MN$(CP):[141]165:[139]AL%(AP)[178]CP[167]AL%(AP)[178]PF%(CP)
905 [139]LI%(TN%(CP))[178]CP[167]LI%(TN%(CP))[178]TP%(CP)
910 [129]Y[178]1[164]NM:X[178]Y[170]1:[139]Y[179]CP[167]920
915 PF%(Y)[178]PF%(X):PB%(Y)[178]PB%(X):TN%(Y)[178]TN%(X):TP%(Y)[178]TP%(X):MN$(Y)[178]MN$(X)
920 [139]PF%(Y)[177]CP[167]PF%(Y)[178]PF%(Y)[171]1
925 [139]PB%(Y)[177]CP[167]PB%(Y)[178]PB%(Y)[171]1
930 [139]TP%(Y)[177]CP[167]TP%(Y)[178]TP%(Y)[171]1
935 [139]Y[177]200[167]955
940 [139]LI%(Y)[177]CP[167]LI%(Y)[178]LI%(Y)[171]1
945 [139]Y[177]27[167]955
950 [139]AL%(Y)[177]CP[167]AL%(Y)[178]AL%(Y)[171]1
955 [130]:[129]X[178]CP[172]5[170]1[164]NM[172]5:Y[178]X[171]5:MT%(Y)[178]MT%(X):[130]:NM[178]NM[171]1:[137]30
960 [153]"LOAD"[166]14)"OPENCOMMAND LIST":[153]"SYSA #    ADD TO A TAPE
965 PRINT"[158]D #    DELETE MOVIE
970 [153]"SYSLT #   LIST A TAPE":[153]"SYSLA/PA  ALPHA LIST/PRINT
975 PRINT"[158]LM/PM  LIST/PRINT MOVIES BY TYPE
980 [153]"SYSLT/PT  LIST/PRINT SET OF TAPES":[153]"SYSLL X   LIST BY A LETTER
985 PRINT"[158]LO     LOCATE MOVIE":PRINT"[158]C #    CHANGE MOVIE NAME
990 [153]"SYSS"[166]6)"SAVE MOVIE FILE":[153]"SYSL"[166]6)"LOAD MOVIE FILE
995 PRINT"[158]CT     CHANGE MOVIE TYPE LIST
1000 [153]"SYSCM #   CHANGE A MOVIE'S TYPES
1005 PRINT"[158]Q"SPC(6)"QUIT":PRINT"[158]NOTE:  THERE IS A MAX OF 200 TAPES,
1010 [153][166]7)"450 MOVIES AND 5 MOVIE TYPES":[153][166]7)"PER MOVIE":[137]135
1015 CP[178].:[141]1050
1020 LN[178]2:[141]245:X$[178]"":[133]"NUMBER";X$:[139]X$[178]""[167]30
1025 X[178][197](X$):[139]X[179]1[176]X[177]30[167]1020
1030 X$[178]"":LN[178]2:[141]245:[133]"NEW TYPE";X$:[139]X$[178]""[167]1020
1035 X$[178][200](X$,16):MT$(X)[178]X$:[139]X[177]15[167]W[178]24:Y[178]7[170]X[171]15:[137]1045
1040 W[178]4:Y[178]7[170]X
1045 X$[178][200](B$,(16[171]([195](X$)))):[158]A,W,Y:[153]""MT$(X)X$:[137]1020
1050 P$[178]MN$(CP):[141]225:[153]"LOAD";:[139][195](P$)[177]38[167]LN[178]38:M[178]2:[141]270:[137]1060
1055 [153]"SYS"P$"
1060 SYSA,.,8
1065 FORX=1TO30:IFX=16THENSYSA,.,8
1070 IFX>15THENPRINTTAB(20);
1075 IFX<10THENPRINT" ";
1080 PRINTX""MT$(X)"":NEXT:RETURN
1085 GOSUB1050
1090 NT=CP*5-5:GOSUB1130
1095 LN=2:GOSUB245:X$="":PRINT"NUMBER?"
1100 WAIT198,15:GETX$:IFX$=RT$THENRETURN
1105 X=VAL(X$):IFX$<"."ORX$>"5"THEN1095
1110 X$="":LN=2:GOSUB245:INPUT"MOVIE TYPE";X$:IFX$=""THEN1095
1115 Y=VAL(X$):IFY<.ORY>30THEN1110
1120 NT=CP*5-5+X:MT%(NT)=Y
1125 GOTO1090
1130 FORLN=4TO6:GOSUB245:NEXT:FORX=1TO5:NT=NT+1:IFX<4THENSYSA,.,(X+3)
1135 IFX>3THENSYSA,.,X:PRINTTAB(20);
1140 PRINTX"[158]"MT$(MT%(NT))"":NEXT:NT=CP*5-5:RETURN
1145 IFLEN(C$)=3THENIN=VAL(RIGHT$(C$,1)):GOTO1155
1150 IN=VAL(RIGHT$(C$,3))
1155 IFIN<1ORIN>200THENGOSUB195:GOTO35
1160 CP=LI%(IN):IFCP=.THENPRINT"[158]NO MOVIES ON TAPE":GOTO135
1165 P$=MN$(CP):GOSUB225:PRINT"[147]":IFLEN(P$)>38THENLN=38:M=2:GOSUB270:GOTO1175
1170 PRINT"[158]"P$"
1175 [153]"CHANGE?(Y, N OR Q)":[146]198,15:[161]A$:[139]A$[178]"Y"[167]1195
1180 [139]A$[178]"Q"[167]30
1185 [153]"LOAD":CP[178]TP%(CP):[139]CP[178].[167]30
1190 [137]1165
1195 [141]215:[139]M$[178]""[167]1185
1200 P$[178]M$:[141]235:MN$(CP)[178]P$:[139]PB%(CP)[178].[175]NM[177]1[167]1210
1205 PF%(PB%(CP))[178]PF%(CP)
1210 [139]PF%(CP)[178].[167]1220
1215 PB%(PF%(CP))[178]PB%(CP)
1220 X$[178]P$:[141]165:C2[178]AL%(AP):[139]C2[179][177].[167]1230
1225 AL%(AP)[178]CP:PF%(CP)[178].:PB%(CP)[178].:[137]1275
1230 [139]MN$(C2)[179]P$[167]C3[178]C2:[137]1250
1235 [139]C2[178]CP[167]1275
1240 AL%(AP)[178]CP:PF%(CP)[178]C2:PB%(CP)[178].:PB%(C2)[178]CP:[137]1275
1245 C3[178]C2
1250 [139]MN$(C3)[177]P$[167]1265
1255 [139]PF%(C3)[178].[167]1270
1260 C3[178]PF%(C3):[137]1250
1265 PF%(CP)[178]PF%(PB%(C3)):PB%(CP)[178]PB%(C3):PF%(PB%(C3))[178]CP:PB%(C3)[178]CP:[137]1275
1270 PB%(CP)[178]C3:PF%(C3)[178]CP:PF%(CP)[178].
1275 [141]1085:[137]30
1280 [131]32,182,2,134,176,32,182,2,164,176,24,32,240,255,96,32,253,174,32,158
1285 [131]183,96
1290 [131]ACTION/ADVENTURE,ANIMATED,CHILDREN'S,CLASSICS,COMEDY,DOCUMENTARY,ADULT
1295 [131]DRAMA,HOLIDAY SPECIAL,HOME MOVIE,HORROR,INSTRUCTIONAL,MARTIAL ARTS
1300 [131]MUSICAL,MUSIC VIDEO,MYSTERY,LOVE STORY,SCI-FI/FANTASY
1305 [131]SPORTING EVENT,SPORTS MOVIE,SUPERNATURAL,THRILLER,TV SHOW,WAR,WESTERN
1310 [131]NOT USED,NOT USED,NOT USED,NOT USED,NOT USED