6 CLEAR 8000
7 DIM A$(800):DIM B$(1000):DIM C$(800) :DIM 1(100)
8 I=0:S=0
10 REM A$ = "TIJD" B$="NAAM PROGR/FiLM C $="GENRE"
25 REM LOGO
30 KEY OFF:WIDTH 39
45 CLS:COLOR 15,6
46 VPOKE 946,77:VPQKE 947,46:VP0KE 948 ,68:VPOKE 949,105:VPOKE 950,101:VPOKE 951,112:VPOKE 952,103:VPOKE 953,114:VP OKE 954,111:VPOKE 955,110:VPOKE 956,10 O:VPOKE 957,39:VPOKE 958,56:VP0KE 959, 53
50 LOCATE 10,6:PR I NT"***************** # # * # "
60 LOCATE 10,18:PRINT"**************** ****#"
70 LOCATE 10,15:PRINT"V I D E O B A N D E N";
75 LOCATE 17,12:PR INT"V OOR"
80 LOCATE 12,9:PR INT"P ROGRAMMA
85 FOR X=80 T0255 STEP15:R=R+1
86 SOUND O,X:SOUND 1,0:SOUND 7,62:S0UN D 11.15:S0UND 8,15 :NEXT
87 FOR X=255 T080 STEP-15
88 SOUND O,X:SOUND 1,0:SOUND 7,62:S0UN Dl 1,15:SOUND 8,15
89 NEXT:IF R>200THENSOUND 8,0 ELSE GOT O 85
100 CLS
105 COLOR15,4
110 LOCATE 10,5:PRINTnl INVOEREN NIEUW E TITELS"
120 LOCATE 10,7:PRINT"2 WIJZIGEN OUDE TITELS"
130 LOCATE 10,9:PRINT"3 INFORMATIE PER BAND"
140 LOCATE 10,11:PRINT"4 INFORMATIE PE R TITEL"
150 LOCATE 10,13:PRINT"5 DATAGEGEVENS INLEZEN VAN CASSETT
E"
155 LOCATE 10.16:PR INT"6 DATAGEGEVENS
WEGSCHRIJVEN NAAR CASSET
TE"
156 LOCATE 10,19:PRINT"7 INSTRUCTIES" 160 VPOKE 933,71:VPOKE 934,69:VP0KE 93 5,69:VPOKE 936,70:VPOKE 938,75:VP0KE 9 39,69:VPOKE 94O,85:VP0KE 941,90:VPOKE 942,69
170 LET Y$=INKEY$:I F Y$ = "" THEN 170 175 B=VAL(Y$)
180 ON B GOTO 500,1600,2500,7500,4000,
5000,6000
190 GOTO 170
500 REM INVOEREN TITELS
501 CLS:LOCATE 2,1:PRINT"******INVOERE N NIEUWE TITELS******"
505 LOCATE 2,5-.PRINT "OP WELKE BAND WI LT U NIEUWE TITELS INGEVEN?"
510 LOCATE 2,10:PRINT "GEEF KEUZE (1-0 )"
511 LOCATE 2,ll:PRINT"(0=band 10)"
515 W$=INKEY$:IF W$ = "" THEN 515
516 A = VAL(W$):IF W$ = "0" THEN 1450
520 ON A GOTO 550,650,750,850,950,1050 ,1150,1250,1350,1450 540 GOTO 510
550 CLS:LOCATE 10,12:PRINT"KANT A OF K ANT B?"
551 Q$=1NKEY$:IF Q$ = "" THEN 551
552 IF Q$ ="A" OR Q$="a" THEN 555 ELSE IF Q.$ = "B" OR Q$="b" THEN 600
554 GOTO 550
555 GOSUB 10000:GOSUB 11600:GOSUB 1100 O:GOSUB 12000
590 FOR X=1 TO 500:NEXT:GOTO 100 600 GOSUB 10000:GOSUB 11610:GOSUB 1100 O:GOSUB 12000
640 FOR X=1 TO 500 :NEXT:GOTO 100
650 CLS:LOCATE 10,12:PR 1NT"KANT A OF K ANT B?"
651 Q$=INKEY$:1F Q$="" THEN 651
652 IF Q$ ="A" OR Q$="a" THEN 655 ELSE 1F Q$ = "B" OR Q$="b" THEN 700
654 GOTO 650
655 GOSUB 10000:GOSUB U620:GOSUB 1100 O:GOSUB 12000
690 FOR X=1 TO 500:NEXT:GOTO 100 700 GOSUB 10000:GOSUB 11630:GOSUB 1100 O:GOSUB 12000
740 FOR X=1 TO 500:NEXT:GOTO 100
750 CLS:LOCATE 10.12:PR INT"KANT A OF K ANT B?"
751 Q$=INKEY$:1F Q$ = "" THEN 751
752 IF Q*="A" OR Q$="a" THEN 755 ELSE IF Q $ = " B " OR Q$="b" THEN 800
754 GOTO 750
755 GOSUB 10000:GOSUB 11640:GOSUB 1100 O:GOSUB 12000
790 FOR X=1 TO 500:NEXT:GOTO 100 800 GOSUB 10000:GOSUB 11650:GOSUB 1100 O:GOSUB 12000
840 FOR X=1 TO 500:NEXT:GOTO 100
850 CLS:LOCATE 10,12:PRINT"KANT A OF K ANT B?"
851 Q$=1NKEY$:I F Q$ = "" THEN 851
852 IF Q$ ="A" OR Q$ = "a" THEN 855 ELSE I F Q$ = "B " OR Q$="b" THEN 900
854 GOTO 850
855 GOSUB 10000:GOSUB 11660:GOSUB 1100 O:GOSUB 12000
890 FOR X=1 TO 500:NEXT:GOTO 100 900 GOSUB 10000:GOSUB 1167O:GOSUB 1100 O:GOSUB 12000
940 FOR X=1 TO 500:NEXT:GOTO 100
950 CLS:LOCATE 10,12:PR 1NT"KANT A OF K ANT B?"
951 Q$= I NKEY$ : I F Q$ = "" THEN 951
952 IF Q$ ="A" OR Q$="a" THEN 955 ELSE IF Q$ = "B" OR Q $ = " b " THEN 1000
954 GOTO 950
955 GOSUB 10000:GOSUB 11680:GOSUB 1100 O:GOSUB 12000
990 FOR X=1 TO 500:NEXT:GOTO 100 1000 GOSUB 10000:GOSUB 11690:GOSUB 110 00:GOSUB 12000
1040 FOR X=1 TO 500:NEXT:GOTO 100
1050 CLS:LOCATE 10,12:PRINT"KANT A OF KANT B?"
1051 Q$=INKEY$:1F 0$ = "" THEN 1051
1052 IF Q$=MA" OR Q$="a" THEN 1055 ELS E IF Q$ = "B" OR Q$ = "b" THEN 1100
1054 GOTO 1050
1055 GOSUB 10000:GOSUB 11700:GOSUB 110 00:GOSUB 12000
1090 FOR X=1 TO 500:NEXT:GOTO 100 1100 GOSUB 10000:GOSUB 11710.-GOSUB 110 OOrGOSUB 12000
1140 FOR X=1 TO 500:NEXT:GOTO 100
1150 CLS:LOCATE 10,12:PRiNT"KANT A OF KANT B?"
1151 Q$=INKEY$:IF Q$ = "" THEN 1151
1152 IF Q$="A" OR Q$="a" THEN 1155 ELS E IF Q$ = "B" OR Q.$ = "b" THEN 1200
1154 GOTO 1150
1155 GOSUB 10000:GOSUB 1172O:GOSUB 110 00:GOSUB 12000
1190 FOR X=1 TO 500:NEXT:GOTO 100 1200 GOSUB 10000:GOSUB 11730:GOSUB 110 00:GOSUB 12000
1240 FOR X=1 TO 500:NEXT:GOTO 100
1250 CLS:LOCATE 10,12:PRiNT"KANT A OF KANT B?"
1251 Q$ =INKEY $:IF Q$ = "" THEN 1251
1252 IF Q$="A" OR Q$="a" THEN 1255 ELS E IF Q$="B" OR Q$="b" THEN 1300
1254 GOTO 1250
1255 GOSUB 10000:GOSUB 11740:GOSUB 110 00:GOSUB 12000
1290 FOR X=1 TO 500:NEXT:GOTO 100 1300 GOSUB 10000:GOSUB 11750:GOSUB 110 00:GOSUB 12000
1340 FOR X=1 TO 500:NEXT:GOTO 100
1350 CLS:LOCATE 10.12:PR INT"KANT A OF KANT B?"
1351 Q$=INKEY$:IF Q$ = "" THEN 1351
1352 IF Q$="A" OR Q$="a" THEN 1355 ELS E IF Q$="B" OR Q$="b" THEN 1400
1354 GOTO 1350
1355 GOSUB 10000:GOSUB 11760:GOSUB 110 00:GOSUB 12000
1390 FOR X=1 TO 500:NEXT:GOTO 100 1400 GOSUB 10000:GOSUB 11770:GOSUB 110 00:GOSUB 12000
1440 FOR X=1 TO 500:NEXT:GOTO 100
1450 CLS:LOCATE 10,12:PR INT"KANT A OF KANT B?"
1451 Q$=INKEY$:I F Q$ = "" THEN 1451
1452 IF Q$="A" OR Q$="a" THEN 1455 ELS E IF Q$="B" OR Q$="b" THEN 1500
1454 GOTO 1450
1455 GOSUB 10000:GOSUB 11780:GOSUB 110 00:GOSUB 12000
1490 FOR X=1 TO 500:NEXT:GOTO 100 1500 GOSUB 10000:GOSUB 11790.-GOSUB 110 OOrGOSUB 12000
1540 FOR X=1 TO 500:NEXT:GOTO 100
1600 REM WIJZIGEN TITELS
1601 CLS:LOCATE 2,5:PRINT "OP WELKE BA ND WILT U WIJZIGEN?"
1604 LOCATE 2,10:PRINT"GEEF KEUZE(l-O)
ft
1606 LOCATE 2, 11:PR I NT"(0 = BAND 10)"
1608 W$=INKEY$:IF W$ = "" THEN 1608
1609 C = VAL(W$):IF W$ = "0" THEN 2150
1610 ON C GOTO 1700,1750,1800,1850,190 O,1950,2000,2050,2100,2150
1650 GOTO 1608
1700 CLS:LOCATE 10,12:PRINT"KANT A OF KANT B?"
1710 Q$=1NKEY$:IF Q$ = "" THEN 1710
1715 IF Q$="A" OR Q$="a" THEN 1720 ELS E IF Q$="B" OR Q$="b" THEN 1735
1716 GOTO 1710
1720 CLS:GOSUB 10000:GOSUB 11600:GOSUB 10500:GOSUB 12500 1725 GOSUB 13000 1730 GOTO 100
1735 CLS:GOSUB 10000:GOSUB 1161O:GOSUB 10500:GOSUB 125OO:GOSUB 13000 1740 GOTO 100
1750 CLS:LOCATE 10,12:PRINT"KANT A OF KANT B?"
1760 Q$=INKEY$:IF Q$ = "« THEN 1760
1765 IF Q$ ="A" OR Q$="a" THEN 1770 ELS E IF Q$="B" OR Q$="b" THEN 1785
1766 GOTO 1760
1770 CLS:GOSUB 10000:GOSUB 11620:GOSUB 10500:GOSUB 12500:GOSUB 13000 1780 GOTO 100
1785 CLS:GOSUB lOOOOrGOSUB U630:GOSUB 10500:GOSUB 12500:GOSUB 13000 1790 GOTO 100
1800 CLS:LOCATE 10,12:PRINT"KANT A OF KANT B?"
1810 Q$=INKEY$:I F Q$ = "" THEN 1810
1815 IF Q$ = "A" OR Q$ = "a" THEN 1820 ELS E IF Q$="B" OR Q$="b" THEN 1835
1816 GOTO 1810
1820 CLS:GOSUB 10000:GOSUB 11640:GOSUB 10500:GOSUB 12500:GOSUB 13000 1830 GOTO 100
1835 CLS:GOSUB 10000:GÜSUB U650:GOSUB 10500:GOSUB 12500:GOSUB 13000 1840 GOTO 100
1850 CLS:LOCATE 10, 12:PRINT"KANT A OF KANT B?"
1860 Q$ =INKEY$:IF Q$ = "" THEN 1860
1865 IF Q$="A" OR Q$="a" THEN 1870 ELS E IF Q$="B" OR Q$="b" THEN 1885
1866 GOTO 1860
1870 CLS:GOSUB 10000:GOSUB U66O:GOSUB 10500:GOSUB 12500:GOSUB 13000 1880 GOTO 100
1885 CLS :GOSUB ÏOOOO-.GOSUB 11670:GOSUB 10500:GOSUB 12500:GOSUB 13000 1890 GOTO 100
1900 CLS:LOCATE 10,12:PRINT"KANT A OF KANT B?"
1910 Q$=INKEY$:IF Q$="" THEN 1910
1915 IF Q$="A" OR Q$="a" THEN 1920 ELS E IF Q$="B" OR Q$="b" THEN 1935
1916 GOTO 1910
1920 CLS:GOSUB 10000:GÜSUB 11680:GOSUB 10500:GOSUB 12500:GOSUB 13000 1930 GOTO 100
1935 CLS:GOSUB 10000:GOSUB 11690:GOSUB 10500:GOSUB 12500:GOSUB 13000 1940 GOTO 100
1950 CLSrLOCATE 10,12:PR 1NT"KANT A OF KANT B?"
1960 Q$=INKEY$:IF Q$ = "" THEN 1960
1965 IF Q$="A" OR Q$="a" THEN 1970 ELS E IF Q $ = " B " ORW1DTHQ$="b" THEN 1985
1966 GOTO 1960
1970 CLS:GOSUB 10000:GOSUB 11700:GOSUB 10500:GOSUB 12500:GOSUB 13000 1980 GOTO 100
1985 CLS:GOSUB 10000:GOSUB 1171O:GOSUB 10500:GOSUB 12500:GOSUB 13000 1990 GOTO 100
2000 CLS:LOCATE 10,12rPR INT"KANT A OF KANT B?"
2010 Q$=1NKEY$:IF Q$ = "" THEN 2010
2015 IF Q$="A" OR Q$="a" THEN 2020 ELS E IF Q$="B" OR Q$="b" THEN 2035
2016 GOTO 2010
2020 CLS:GOSUB 10000:GOSUB 11720:GOSUB 10500:GOSUB 12500:GOSUB 13000 2030 GOTO 100
2035 CLS:GOSUB iOOOO:GOSUB 11730:GOSUB 10500:GOSUB 12500:GOSUB 13000 2040 GOTO 100
2050 CLS:LOCATE 10,12rPR INT"KANT A OF KANT B?"
2060 Q$=INKEY$:1 F Q$ = "" THEN 2060
2065 IF Q$="A" OR Q$="a" THEN 2070 ELS E IF Q$="B" OR Q$="b" THEN 2085
2066 GOTO 2060
2070 CLS:GOSUB 1ÜOOO:GOSUB 11740:GOSUB 10500:GOSUB 12500:GOSUB 13000 2080 GOTO 100
2085 CLS:GOSUB lOOOOrGOSUB 11750:GOSUB 10500:GOSUB 12500:GOSUB 13000 2090 GOTO 100
2100 CLS:LOCATE 10,12:PRINT"KANT A OF KANT B?"
2110 INKEY$:IF Q$ = "" THEN 2110
2115 IF Q$ = "A" OR Q$="a" THEN 2120 ELS E IF Q$="B" OR Q$="b" THEN 2135
2116 GOTO 2110
2120 CLS:GOSUB lOOOOrGOSUB 11760rGOSUB 10500:GOSUB 1250O:GOSUB 13000 2130 GOTO 100
2135 CLS:GOSUB lOOOOrGOSUB 11770rGOSUB WIDTH10500 r GOSUB 12500rGOSUB 13000 2140 GOTO 100
2150 CLSrLOCATE 10,12:PRINT"KANT A OF KANT B?"
2160 Q$=INKEY$ rIF Q$ = "" THEN 2160
2165 1F Q$="A" OR Q$="a" THEN 2170 ELS E IF Q$="B" OR Q$="b" THEN 2185
2166 GOTO 2160
2170 CLSrGOSUB lOOOOrGOSUB 11780:GOSUB 10500 r GOSUB 12500:GOSUB 13000 2180 GOTO 100
2185 CLS rGOSUB lOOOOrGOSUB 11790:GOSUB 10500 r GOSUB 12500:GOSUB 13000 2190 GOTO 100
2500 CLSrLOCATE 2.lrPRINT"*******INFOR MATIE PER BAND*******"
2505 LOCATE 2,5rPR!NT"VAN WELKE BAND W ILT U INFORMATIE?"
2510 LOCATE 2,10rPRINT"GEEF KEUZE(l-O)
Tt
2515 LOCATE 2,11 rPR I NT"(0 = BAND 10)" 2520 W$=INKEY$:I F W$ = "" THEN 2520 2523 D = VAL(W$)rIF W$="0" THEN 2990 2525 ON D GOTO 2540,2590,2640,2690,274 O,2790,2840.2890,2940,2990 2530 GOTO 2510
2540 CLSrLOCATE 10,12rPRINT"KANT A OF KANT B?"
2541 Q$=lNKEY$rIF Q$ = "" THEN 2541
2542 IF Q$="A" OR Q$="a" THEN 2550 ELS E IF Q$ ="B" OR Q$ = "b" THEN 2570
2543 GOTO 2540
2550 GOSUB lOOOOrGOSUB 11600:GOSUB 115 OOrGOSUB 12500
2566 W$=INKEY$:IF W$ = "" THEN 2566
2567 IF W$=CHR$(13) THEN 100
2568 GOTO 2566
2570 GOSUB lOOOOrGOSUB 11610rGOSUB 115 OOrGOSUB 12500
2586 W$=INKEY$:IF W$ = "" THEN 2586
2587 IF W$=CHR$(13) THEN 100
2588 GOTO 2586
2590 CLS:LOCATE 10, 12:PRINT"KANT A OF KANT B?"
2591 Q$ =INKEY$ r1F Q$ = "" THEN 2591
2592 IF Q$="A" OR Q$="a" THEN 2600 ELS E IF Q$ = "B" OR Q$ ="b" THEN 2620
2593 GOTO 2590
2600 GOSUB lOOOOrGOSUB 11620rGOSUB 115 OOrGOSUB 12500
2616 W$=INKEY$:IF W$ = "" THEN 2616
2617 IF W$=CHR$(13) THEN 100
2618 GOTO 2616
2620 GOSUB lOOOOrGOSUB 11630:GOSUB 115 OOrGOSUB 12500
2636 W$=INKEY$ rIF W$ = "" THEN 2636
2637 1F W$=CHR$(13) THEN 100
2638 GOTO 2636
2640 CLS rLOCATE 10, 12rPRlNT"KANT A OF KANT B?"
2641 Q$=INKEY$:IF Q$ = "" THEN 2641
2642 ! F Q$ = "A" OR Q$="a" THEN 2650 ELS E 1F Q$="B" OR Q$="b" THEN 2670
2643 GOTO 2640
2650 GOSUB 10000:GOSUB 11640:GOSUB 115 00:GOSUB 12500
2666 W$= I NKEY$ : IF W$ = "" THEN 2666
2667 IF W$=CHR$(13) THEN 100
2668 GOTO 2666
2670 GOSUB 10000:GOSUB 11650:GOSUB 115 00:GOSUB 12500
2686 W$= I NKEY$ : IF W$ = "" THEN 2686
2687 IF W$=CHR$(13) THEN 100
2688 GOTO 2686
2690 CLS:LOCATE 10,12rPR!NT"KANT A OF KANT B?"
2691 Q$=INKEY$:IF Q$ = "" THEN 2691
2692 IF Q$="A" OR Q$="a" THEN 2700 ELS E IF Q$="B" OR Q$="b" THEN 2720
2693 GOTO 2690
2700 GOSUB 10000:GOSUB 11660:GOSUB 115 00:GOSUB 12500
2716 W$=1NKEY$:IF W$="" THEN 2716
2717 IF W$=CHR$(13) THEN 100
2718 GOTO 2716
2720 GOSUB 10000:GOSUB 11670:GOSUB 115 00:GOSUB 12500
2736 W$ = INKEY$: IF W$ = "n THEN 2736
2737 IF W$=CHR$(13) THEN 100
2738 GOTO 2736
2740 CLS:LOCATE 10,12:PRINT"KANT A OF KANT B?"
2741 Q$= I NKEY$ : IF Q$ = "" THEN 2741
2742 IF Q$="A" OR Q$="a" THEN 2750 ELS E IF Q$="B" OR Q$=nb" THEN 2770
2743 GOTO 2740
2750 GOSUB lOOOOrGOSUB 11680:GOSUB 115 00:GOSUB 12500
2766 W$=1NKEY$:IF W$ = "" THEN 2766
2767 IF W$=CHR$(13) THEN 100
2768 GOTO 2766
2770 GOSUB lOOOOrGOSUB 11690:GOSUB 115 00:GOSUB 12500
2786 W$=INKEY$:IF W$ = n" THEN 2786
2787 1F W$=CHR$(13) THEN 100
2788 GOTO 2786
2790 CLS:LOCATE 10,12:PR INT"KANT A OF KANT B?"
2791 INKEY$:IF Q$ = "" THEN 2791
2792 IF Q$="A" OR Q$="a" THEN 2800 ELS E 1F Q$="B" OR Q$="b" THEN 2820
2793 GOTO 2790
2800 GOSUB 10000:GOSUB 11700:GOSUB 115 00:GOSUB 12500
2816 W$=INKEY$:IF W$="" THEN 2816
2817 IF W$=CHR$(13) THEN 100
2818 GOTO 2816
2820 GOSUB 10000:GOSUB 11710:GOSUB 115 OOrGOSUB 12500
2836 W$= INKEY$ : IF W$ = ",, THEN 2836
2837 IF W$=CHR$(13) THEN 100
2838 GOTO 2836
2840 CLS:LOCATE 10,12:PRINT"KANT A OF KANT B?"
2841 Q$=INKEY$:I F Q$ = "" THEN 2841
2842 IF Q$="A" OR Q$="a" THEN 2850 ELS E IF Q$ = "B" OR Q$ = "b" THEN 2870
2843 GOTO 2840
2850 GOSUB lOOOOrGOSUB 11720:GOSUB 115 OOrGOSUB 12500
2866 W$=INKEY$ rI F W$ = "" THEN 2866
2867 IF W$=CHR$(13) THEN 100
2868 GOTO 2866
2870 GOSUB lOOOOrGOSUB 11730:GOSUB 115 OOrGOSUB 12500
2886 W$=INKEY$ rI F W$ = "" THEN 2886
2887 1F W$=CHR$(13) THEN 100
2888 GOTO 2886
2890 CLSrLOCATE 10,12:PRINT"KANT A OF KANT B"
2891 Q$=1NKEY$ rIF Q$ = "" THEN 2891
2892 IF Q.$ = "A" OR Q$="a" THEN 2900 ELS E IF Q$="B" OR Q$="b" THEN 2920
2893 GOTO 2890
2900 GOSUB 10000:GOSUB 11740:GOSUB 115 00:GOSUB 12500
2916 W$= I NKEY$:I F W$ = "" THEN 2916
2917 IF W$=CHR$(13) THEN 100
2918 GOTO 2916
2920 GOSUB 10000:GOSUB 11750:GOSUB 115 00:GOSUB 12500
2936 U$=INKEY$:IF W$ = "" THEN 2936
2937 IF W$=CHR$(13) THEN 100
2938 GOTO 2936
2940 CLS:LÜCATE 10,12:PR 1NT"KANT A OF KANT B?"
2941 Q$=INKEY $ : I F Q$ = "" THEN 2941
2942 IF Q $ = " A " OR Q$="a" THEN 2950 ELS E IF Q$ = "B" OR Q$="b" THEN 2970
2943 GOTO 2940
2950 GOSUB 10000:GOSUB U760:GOSUB 115 00:GOSUB 12500
2966 W$ =INKEY $:I F W$ = "" THEN 2966
2967 IF W$=CHR$(13) THEN 100
2968 GOTO 2966
2970 GOSUB 10000:GOSUB 11770:GOSUB 115 00:GOSUB 12500
2986 W$=1NKEY$:IF W$ = "" THEN 2986
2987 IF U$-CHR$(13) THEN 100
2988 GOTO 2986
2990 CLS:LOCATE 10,12:PR 1NT"KANT A OF KANT B?"
2991 Q$-INKEY $:I F Q$ = "" THEN 2991
2992 1F Q$ ="A" OR Q.$ = "a" THEN 3000 ELS E IF Q$="B" OR Q $ = " b " THEN 3020
2993 GOTO 2990
3000 GOSUB 10000:GOSUB 11780:GOSUB 115 00:GOSUB 12500
3016 W$ = 1NKEY $:I F W$ = "" THEN 3016
3017 IF W$=CHR$( 13) THEN 100
3018 GOTO 3016
3020 GOSUB 10000:GOSUB 11790:GUSUB 115 00:GOSUB 12500
3036 W$=INKEY$:1F W$ = "" THEN 3036
3037 IF W$=CHR$(13) THEN 100
3038 GOTO 3036
4000 CLS:LOCATE 3,1:PRiNT"INLEZEN DATA GEGEVENS VAN CASSETTE"
4010 MOTOR ON:LOCATE 3,10:PR INT"KONTRO LEER OF CASSETTE OP JUISTE":LOCATE 3,1 2:PR INT"POSITIE IN RECORDER ZIT!!"
4020 LOCATE 3, 15:PR INT"DRUK NU OP PLAY (LOAD) EN":LOCATE 3,17:PR INT"DRUK OP R ETURN"
4025 W$=INKEY$:IF W$ = "" THEN 4025
4026 IF W$=CHR$(13) THEN 4030
4027 GOTO 4025
4030 CLS:LOCATE 8,10:PR INT "EVEN GEDUL D A. U. B. ! ! ! "
4040 OPEN "CAS:VIDEO"FOR INPUT AS#1
4060 FOR 1=1 TO 99
4080 1NPUT#1.A$( I ),B$( I ),C$(I)
4085 IF EOF(1) THEN CLOSE# 1 .-GOTO 100 4090 NEXT I
4095 IF EOF<1) THEN LOCATE 8,10:PR1NT" GEEN GEGEVENS AANWEZIG":BEEP:BEEP:BEEP :FOR X=1 TO 500:NEXT:GOTO 100
4999 END
5000 CLS:LOCATE 3,1:PR INT"WEGSCHRIJVEN DATAGEGEVENS NAAR":LOCATE 3,2:PRINT"C
ASETTE"
5010 MOTOR ON:LOCATE 3,10:PR INT"ZET CA SETTE OP PLAATS WAAR":LOCATE 3,12:PRIN T"GEGEVENS MOETEN KOMEN"
5020 LOCATE 3,15:PR INT"DRUK NU OP SAVE (RECORD) EN PLAY"
5030 LOCATE 3,17:PRINT"EN DRUK OP RETU RN"
5035 W$= I NKEY$:I F W$ = "" THEN 5035 5040 IF W$=CHR$(13) THEN 5100 5050 GOTO 5035
5100 CLS:LOCATE 8.10:PR INT"EVEN GEDULD A. U. B. ! ! ! "
5110 OPEN "CAS:VI DEO" FOR OUTPUT AS 1# 5120 FOR 1=1 TO 99
5140 PR I NT#1,LEFT$(A$(I),9);";LEFT $( B$ ( I ) , 19 ) ; ",";LEFT$(C$(I).9);
5150 NEXT 1 5160 CLOSE#1
5170 FOR X=1 TO 500:NEXT:GOTO 100 6000 REM 1NSRUCT1 ES
6010 CLS:LOCATE 7,2:PR 1 NT"*** * * * * * INST RUCT1ES*******"
6020 LOCATE 2,4:PR 1NT"MET DIT PROGRAMM A KUNT U UW ADMINI- STRATIE VAN UW VIDEOBANDEN MET BEHULP VAN DE COMPUTE R BEHEREN.
6030 LOCATE 2,8:PRINT"U KUNT MET DIT P ROGRAMMA DE ADMINI- STRATIE VERZORG EN VAN 10 VIDEOBANDEN."
6040 LOCATE 2.11:PR INT"OP ELKE VIDEOBA ND KUNT U PER KANT 5 TITELS INGEVEN
tt
6050 LOCATE 2,14:PR INT"HEEFT U MINDER DAN 5 TITELS OM INTE- GEVEN,DRUK DAN OP 'SELECT' EN U KOMT WEER IN DE HO OFDBESTURING.
6060 LOCATE 2.19:PR INT"OOK NA 'INFORMA TIE' OF 'WIJZIGEN' OP RETURN/ENTER D RUKKEN EN U BENT WEER TERUG BIJ DE HOOFD BESTURING."
6070 LOCATE 2,24:PR INT"VOOR START DRUK OP WILLEKEURIGE TOETS"
7000 W$ =INKEY$:I F W$ = "" THEN 7000 7100 GOTO 100
7500 REM INFORMATIE PER TITEL 7505 B=0:R$=""
7510 CLS:LOCATE 5,2:PR I NT"* * * * * INFORMA TIE PER TITEL*****"
7520 LOCATE 5, 10:PR INT"GEEF NAAM FILM/ PROGRAMMA IN"
7525 LOCATE 5,13:INPUT L$
7530 FOR 1=0 TO 99
7540 IF LEFT$(B$(I),19)<>LEFT$(L$,19) THEN NEXT I ELSE GOTO 7670 7600 GOTO 8500
7670 CLS:LOCATE 5,7:PRINT LEFT$(B$(I), 19)
7671 IF I < = 10 THEN 7678
7672 A=I/10:Z=I NT(A):D = A-Z
7673 IF D= >.5 THEN R$ = "B":GOTO 7675
7674 IF D<.5 THEN R$="A":GOTÜ 7675
7675 B = Z+1:GÜTÜ7680 7678 B=1
7680 LOCATE 5.12:PR INT"DIT STAAT OP BA ND";B;"KANT ";R$
8000 GOTO 8510
8500 CLS:BEEP:LOCATE 2,15:PR INT"NAAM F ILM/PROGRAMMA NIET IN BESTAND."
8510 FOR X=1 TO 500 STEP .5:NEXT:GOTO
100
9999 END
10000 CLS:LOCATE 2,4:PRINT"T1JD":LOCAT E 10,4:PR INT"NAAM PROGR/FI LM":LOCATE 3 O,4:PR 1NT"GENRE"
10010 FOR X = 2C)1 TO 238:VP0KE X,23:NEXT :FOR X=130 TO 680 STEP 40:VPÜKE X,22:N EXT:FOR X=150 TO 700 STEP 40:VPOKE X.2 2:NEXT
10020 RETURN
10500 LOCATE 10,1:PRiNT"* **BAND";N;"KA NT "; Z $:"***"
10600 RETURN
11000 LOCATE 7,1:PR I NT"* * * * * INGAVE KA NT " ; Z$ : " *»***":LOCATE 11,22:PR I NT"* * *** BAND";N;"**»**"
11010 RETURN
11500 LOCATE 7,1:PR I NT"* * * INFORMATIE BAND";N;"***":LOCATE 11,22:PR I NT"* * * * * KANT *****"
11510 RETURN
11600 X=1:Y=5:N=1:Z$="A":RETURN 11610 X=6:Y=10:N=1:Z$="B":RETURN 11620 X=11:Y=15:N=2:Z$="A":RETURN 11630 X=16:Y=20:N=2:Z$="B":RETURN 11640 X=21:Y=25:N=3:Z$="A":RETURN 11650 X = 26:Y = 30:N = 3:Z$ = "B":RETURN 11660 X=31:Y=35:N=4:Z$="A":RETURN 11670 X=36:Y=40:N=4:Z$="B":RETURN 11680 X = 41:Y = 45:N = 5:Z$ = "A": RETURN
11690 X = 46:Y = 50:N=:5:Z$r"B":RETURN 11700 X - 51 :Y=55:N=6:Z$="A":RETURN 11710 X=56:Y=60:N=6:Z$="B":RETURN 11720 X=61:Y=65:N=7:Z$-"A":RETURN 11730 X=66:Y=70:N=7:Z$="B":RETURN 11740 X=71 :Y=75:N=8:Z$="A":R£TURN 11750 X = 76:Y = 80:N = 8:,Z$ = "B":RETURN 11760 X=81:Y=85:N=9:Z$="A":RETURN 11770 X=8S:Y=90:N=9:Z$-"B":RETURN 11730 X-91:Y=95:N=10:Z$="A":RETURN 11790 X=96:Y =100:N=10:Z$="B":RETURN 12000 T = 5 'SUBROUTINE 1NGAVE NWE TITEL S
12010 FOR I=X TO Y 12020 T = T<-2
12025 S = S+1
12026 LOCATE 0,20:PR1NT SPC(38)
12030 LOCATE 0,T:PRINT 5PC(38):LOCATE O,T:LI NE INPUT A$(1):L0CATE 10,T:L1NE INPUT BI (!):LOCATE 30,T:LI NE INPUT C$(
I )
12034 LOCATE 5.20:PR I NT"'SELECT' IS TE RUG HOOFDBEST."
12035 W$=INKEY1:IF W$ = "" THEN 12035
12036 IF W$=CHR$(24) THEN 100 ELSE GOT O 12040
12040 NEXT I 12050 RETURN
12500 REM SUBROUT 1 NE INFORMATIE 12505 T = 5
12510 FOR I=X TO Y 12520 T=T+2
12530 LOCATE O,T:PR INT A$(1):LÜCATE 10 .T:PR INT B$( I ):LOCATE 30.T:PR INT C$(I) 12540 NEXT 12550 RETURN
12900 REM SUBROUTINE WIJZIGEN TITELS 13000 FOR M=1 TO 35:L0CATE M,20:PRINT SPACE$(M):NEXT:FOR T=13 TO 30:LOCATE T .19:PRINT SPACE$(T):NEXT:LOCATE 5,16:1 NPUT"GEEF EERSTE DRIE CIJFERS VAN
TIJD IN" : P $:IF P$="END"OR P$ = "en d"THEN 100 13005 FOR LX TO Y
13010 IF LEFT$(A$(I),4)=P$ THEN 13080 13020 NEXT
13025 LOCATE 11,20:PR I NT"*#VERKEERD NO G EENS##":BEEP:BEEP:BEEP:FOR Z=1 TO 50 O:NEXT:GOTO 13000
13080 CLS:LOCATE 2,4:PR INT"TIJD":LOCAT E 10,4:PR INT"NAAM PROGR/FI LM":LOCATE 3 O,4:PR INT"GENRE"
13100 FOR X=201TO 238:VP0KE X,23:NEXT: FOR X= 130 TO 530 STEP 40:VP0KE X,22:N EXT:FOR X=150 TO 550 STEP 40:VPÜKE X,2 2:NEXT
13110 LOCATE O,7:PR INT A$(I):L0CATE 10 ,7:PR I NT B$(I):LOCATE 30,7:PRINT C$(I) 13120 LOCATE 5.15:PR INT"1S DIT DE GOED E? (J/N ) "
13122 END
13125 W$ =INKEY$:IF W$ = "" THEN 13125 13130 1F W$="J" OR W$="j" THEN 13200 ELSE IF W$ = "N" OR W$ = "n" THEN 100 13200 FOR M=1 TO 35:L0CATE M,15:PRINT SPACE$(M):NEXT:LOCATE 0,10:LINE INPUT A$( I ) : LOCATE 10,10:LINE INPUT B$(I):LO CATE 30,10:LI NE INPUT C$(I)
13500 W$=INKEY$:IF W$ = "" THEN 13500 13510 RETURN