10 DER NT H-Z
20 COLQR 1 : CLEAE 900
30 MAXFILES=2
40 A*="L1004ACD3FACD36F4"
50 B*="ACDAFD3CA"
60 C*="L5M80S8N1M255V"
70 D*="S0M3000T24002A04T120M255S1"
80 E*="S0M3000T24002D04T120M255S1"
90 DIM 3PR*<19),NM*(8),HH<8),HS(8),HT (85 , BR(85
100 OPEN "GRF:" FOR OUTPUT AS #1 110 COLOR ,,1:CLS:SCREEN 3.3,0 120 DEP IJSRÜ=&H41 130 DEF USR1=&H44 140 X=USRO(0)
150 LINE •!O, O5 - (255,70) ,3,BF 160 LINF. (0,51) - (255, 140) , 11, BF 170 LINE (0,1415 -(255,196 5,8,BF 180 COLOR 13:DRAW "BM18,78":PRINT #1, "**"
190 DRAW "BM185,78":PRINT #1,"**"
200 LINE (105,75)-(145,115),i,BF
210 LINE (101,715-(149,119),6,B
220 LINE (97,67)-(154,123) ,4,8
230 LINE (93,63)-(158,127),2,B
240 COLOR 5:DRAW "BM18,8":PRINT#1,"HI
NDER-"
250 COLOR 15:DRAW "BM20,155";PRINT#1, "NISBAAN"
260 X=USR1(05 270 FOR T=1 TO 19 280 SPR*=""
290 FOR 1=1 TO 32 : READ R*
300 R*=CHR*(VAL("&H"+R*))
310 SPR*(T)=SPR*(T)+R$ : NEXT I 320 SPRITE*(T 5 =SPR*(T5 330 IF PL=1 THEN PLAY "M697S9D64VM255 ":PL=0 ELSE ÏF PL=0 THEN PLAY "M697S9 A64VM255": F'L=1
340 PUT SPRI TE 1,(110,76),INT(RND<-TI ME)*13)+2,T 350 NEXT T
360 FOR 1=1 TO 300 : NEXT 370 SCREEN 1,3:KEY OFF 380 CLS:COLOR 4,15,4:WIDTH 32:SCREEN 1
390 SA=G:BP=0:TS=-1000 400 GOSUB 4450:GOSUB 4930 410 PLAY "T i SOL1005"+B*+"06"+B$+"A3R4 "+A*+"R405"+B*+"06"+B*+"A304"
420 LOCATE 1,7:INPUT "SAVED SPEL VOOR TZETTEN J/N ";I$
430 IF I*=*'J" THEN 450 ELSE IF I*="N" THEN CLS:COLOR 6,,6:GOTO 580 ELSE 42
O
440 PRINT
450 LOCATE 1,9:INPUT "CASSETTE/DISCET TE READY. R ";I$
460 IF 1*0 "R" THEN 450 470 OPEN "HINDBAAN.SEQ" FOR INPUT AS #2
480 INF'UT #2, SS, TS, TR*
490 PRINT
500 FOR 1=1 TO SS
510 IF EOF(2? =-l THEN CLOSE 2:GOTO 57
O
520 INPUT #2,BR(15,NM*(I5
530 PRINT TAB(35;"SPELER"; I;NM*(15;
540 IF BR (15=1 THEN PR I NT TAB (215 ;11 +
BEKER" ELSE PRINT
550 NEXT I
560 PRINT:PRINT TAB(3);"TOPSCORE: ";ï E*;" : ■"; TS
570 FOR 1=1 TO 4000:NEXT I;CLS;COLOR 6,,6:GOTO 650
500 LOCATE 2,7:INPUT "HOEVEEL SPELERS (MAX, 6)";SS
590 IF SS>6 OF: SS<1 THEN 580
600 FQR .1 = 1 TO SS
610 LOCATE 21,10:PRINT "
620 LOCATE 2, 10: PRINT "SPELER"; I:: INF' UT ", NAAM:
630 IF LEN(NM$(I>)>8 THEN 620
640 NEXI"
650 LOCATE 2,13:PRINT "CURSOR TOETS 0 F JOYSTICK ,"
660 LOCATE 2,14;INPUT "ANTWOORD C OF J ";JS$
670 IF JS$="C" THEN JS=0 ELSE IF JS$= "J"THEN JS=1 ELSE 650 680 LOCATE 2,16:INPUT "AANT. SPELROND ES (MAX, 6)";AP 690 IF AP>6 OR AP< 1 THEN 680 700 CLS:COLOR 12,15,12 710 LOCATE 2,7 : INPUT "GEEF MAX HITS : "; MH
720 IF MH<1 OR MH>999 THEN 710
730 LOCATE 2,9 : INPUT "GEEF MAX SCOR
E :":MS
740 IF MS<1 OR MS>999 THEN 730 750 LOCATE 2,11: INPUT "MAX. SNELHEID (1-9) :";SP
760 !F SP< J OR SF'>9 THEN 750
770 LOCATE 2, 13: INPUT "TEMPO MANNETJ
E (1-6) :";PP
780 IF PP :. 1 OR PP>6 THEN 770
790 IF F'P=>4 THEN PJ=1: DA=15: ZZ=10 EL
SE IF PF-3 OR PF-2 THEN PJ=2rDA=10:ZZ
=20 ELSE PJ=3:DA=5:Z2=25
800 HK=ZZ-1
810 LOCATE 2,15 : PRINT "SPEELDUUR IN MIN.,SEC,"
820 LOCATE 2,16 : INPUT "MAX. 30,0 MI N :";MI,SE
830 IF MI=>30 THEN IF SEOÖ THEN 810 840 IF SE>59 OR SCO OR MI<0 OR MI>30 THEN 810
850 CLS:COLOR ,4,1:SCREEN 2,3 860 X=USRO(0)
870 ON KEY GOSIJB 4650
880 ON SPRITE GOSUB 2370
890 ON INTERVAL=25 GOSUB 2930
900 ON STRIG GOSUB 3020
91O LJNE (O,20)-<256,54),14,BF
920 LINE (O,170)-(256,136),14,BF
930 FOR T=20 TO 1.36 STEP 116
940 FOR 1=0 TO 260 STEP 6
c50 LI ME (I, T) - (ï,, T+34) , i
960 NEXT 1 : NEXT T
970 FOR 1=0 TO 30 STEP t
980 LINE (0,20+1)-(256,20+1) , 1
990 NEXT I
1000 FOR 1=0 TO 30 STEP 6 1010 LINE (0,170-I>-(256,170-1),1 1020 NEXT I
1030 LINE <O,55)-<256,59),13,BF
1040 LINE (O,60)-<256,130),4,B
1050 LINE <0,135)-(256,131),13,BF
1060 GOSUB 4900
3070 FOR 7=23 TO 183 STEP 160
1080 FOR 1=60 TO 130 STEP 5
1090 LINE (T,I)-(T+14,1+5),15,BF:1=1+
4
1100 NEXT I : NEXT T : GOSUB 4450 111O LINE (O,O)-(256,19),3,BF 1120 LINE (O, O) -(24, 19), 1.0, BF 1130 LINE (232,0) - (255,19), 6, BF 1140 PUT SPRITE 4,(20,-6),12,4 1150 PUT SPRITE 5,(45,-6),12,4 1160 PUT SPRITE 6,(180,-6),12,4 1170 PUT SPRITE 7,(205,-6),12,4 1180 COLOR 6
1190 DRAW "BM83,1":PRINT#1,"SPELER" 1200 X=USR1(0)
1210 PUT SPRITE 20,(77,163),9,11 .1.220 PUT SPRITE 21, (137, 163) ,9,11
1230 PUT SPRITE 17,(-32,-32),0,8 1240 PUT SPRITE 17,(-32,-32),0,7 1250 PUT SPRITE 22,(-32,-32),0,11 1260 PUT SPRITE 5, <45,-6) , 12, 4: VSO 1270 PUT SPRITE 6,(180,-6),12,4:SH=0 1280 PUT SPRITE 24,<0,197),0,11:PUT S PRITE 25, <32,197>,0,11:PUT SPRITE 26, '64,197),0,11
1290 PUT SPRITE 27,(96,197),0,11:PUT SPRITE 28,(128,197),0,11:PUT SPRITE 2 9,(160,1975,0,11 1300 GÜSUB 3110
1310 LINE (0,196)-(256,171),2,BF 1320 C0L.0R 1
BM9,178":PRINT #1,"HITS:":
1330 DRAW ' H
1340 COLOR 1350 DRAW 1
15
611171,178": PRINT #i
SCORE
1360 COLOR 10
1370 DRAW "BMO,6";PRINT#1,ZQs ZQ=0 1380 COLOR 1
1390 DRAW "BMO,6":PRINT#1,ZQ
1400 PQ=3:TI=0:ZS=0:Z0=0:DV=7:DU=0:11
=162:Vft=1:VL=2:0M=222;0L=255:SL=0:S6=
O:PX=3;P¥=6:KX=1;TQ=0
1410 RZ=INT(RND(TIME+H)*305 +5
i420 RD=INT<RND<~TIME)*15)+5
1430 GOSUB 2830 : GOSUB 2620
1440 INTERVAL ON : STRIB(JS) ON ; KEY
(1) ON ; IF PX=3 THEN SPRI TE ON
1450 FOR 1=1 TO 255 STEP RN
1460 ST=STICK(JS)
1470 ON ST GOSUB 2850,2860,2870,2880, 2890,2900,2910,2920 1480 IF J1>133 AND P=0 AND ST=>4 AND ST=<6 THEN P=1:PLAY "M697S9C64VM255": GOSUB 2530
1490 IF II <23 AND P=i AND ST=>.1 AND S T<=2 THEN F-0:PLAY "M697S9A64VM255":G OSUB 2530
1500 IF II<23 AND P=1 AND ST=8 THEN P =0:PLAY "M697S9B64VM255":GOSUB 2530 1510 IF S=>RD OR BR(SA)=1 THEN IF DV= 7 THEN DV=8:PUT SPRITE 17,(DU,21),8,D
V ELSE DV=7:PUT SPRITE 17,<DU,21),8,D
V
1520 IF S=>RZ OR BR<SA)=1 THEN PUT SP F: I TE 22, i OL, 133 > , I NT (RND (-TI ME) * 15) +1 , OP
1530 IF ST>0 THEN JP=JP+1:IF JP=>PJ T HEN IF PQ=PY THEN PQ=PX:JP=0 ELSE PQ= F'Y; JF-0
1540 PUT SPRI TE 3, (12,11),KX,PQ
1550 ON RA GOTO 1570,1560,1560,1560,1
560,1560,1570,1560
1560 PUT SPRI TE 1,(1,PR),KL,VL
1570 ON RB GOTO 1580,1590,1580,1580,1
580,1590,1580,1580
1580 PUT SPRITE 2,(255-1,PL),KR, VR
1590 NEXT I : GOSUB 2620
1600 GOTO 1450
1610 DATA 1620 DATA 1630 DATA 1640 DATA 1650 DATA 1660 DATA 1670 DATA 1680 DATA 1690 DATA 1700 DATA 1710 DATA 1720 DATA 1730 DATA 1740 DATA 1750 DATA 1760 DATA 1770 DATA 1780 DATA 1790 DATA 1800 DATA 1810 DATA 1820 DATA 1830 DATA 1840 DATA 1850 DATA 1860 DATA 1870 DATA 1880 DATA 1890 DATA 1900 DATA
00,00,3E,3E,08,3F,7D,F8 F'S, 7D, 3F, 08,3E, 3E, 00,00 00,00,00,00,1C,88,FE,FF FF,FE,88,1C,00,00,00,00 00,00,00,00,38,11,7F,FF FF,7F,11,38,00,00,00,00 00,00,70,7C,10, FC, BE, 1F i F, BE, FC, 10,7C, 7C, 00,00 00,00,03,07,03,03,01,OF 1F,17,17,02,02,02,06,00 00,00,CO,EO,CO,CO,80,FO F8,ES,E8, 40,20, 60, 40,00 00,00,00,01,03,03,07,07 OF,1F,03,07,00,00,00,00 00,00,00,80,CO,CO,EO,EO FO,F8,CO,EO,00,00,00,00 00,00,02,02,01,11,30,3F 3F,3D,11,00,00, 00, 00,00 00,00,48,44,88,FO,EO,E8 E4,E8,FO,00,00,00,00,00 00,00,03,07,03,03,O1,1F 17,27,07,02,02,06,04,00 00,00,CO,EO,co,CO, 80,FO FO,FO,EO,40,40,40,60,00 02,01,03,15,37,7A, F9, FE FF,E3,83,07,09,1O,28,00 40,80,CO,A8,EC, 5E, 9F,7F FF,C7,Cl,EO,90,08,14,00 02,O1,03,05,07,32,79,FE FF, E3, C3,C7,89,10,28,00
1910 DATA 40,80,CO,AO,EO,4C,9E,7F 1920 DATA FF,C7,C3,E3,91,08,14,00
1930 DATA 00,00,00,E7,FF,FF,FF,FF 1940 DATA FF,FF,FF,FF,E7,00,00,00 1950 DATA 00,00,00,1S,BE,BE,FF,FF 1960 DATA FF,FF,BE,BE,18,00,00,00 1970 DATA 00,00,00,18,7D,7D,FF,FF 1980 DATA FF,FF,7D,7D,18,00,00,00 1990 DATA 00,00,00,E7,FF,FF,FF,FF 2000 DATA FF,FF,FF,FF,E7,00,00,00 2010 DATA 00,20,70,FF,FF,70,70,FF 2020 DATA FF,70,70,FF,FF,70,70,70 2030 DATA 00,04,0E,FF,FF,0E,0E,FF 2040 DATA FF, OE, OE, F F, FF, OE, OE, OE 2050 DATA 18,24,27,47,47,27,27,13 2060 DATA 13,OF,03,01,O1,01,03,07 2070 DATA 18,24,E4,E2,E2,E4,E4,08 2080 DATA C8,F O,CO,80,80,80,CO,EO 2090 DATA 00,00,40,80,80,87,BF,FF 2100 DATA 7F,3F,1F,08,14,UU,00,00 2110 DATA 00,00,10,38,EC,FE,FF,F2 2120 DATA FD,FO,EO,20,50,00,00,00 2130 DATA 00,00,08,1C,37,7F,FF,4F 2140 DATA BF,OF,07,04,OA,00,00,00 2150 DATA 00,00,02,O1,O1,E1,FD,FF 2160 DATA FE,FC,F8,1O,28,00,00,00 2170 DATA 00,00,00,00,00,05, OB, 11 2180 DATA 21,00,00,00,00,00,00,00 2190 DATA 00,00,00,00,00,40,AO,1O 2200 DATA 08,00,00,00,00,00,00,00 221O DATA 00,00,00,00,00,O1,OF,31 2220 DATA 01,00,00,00,00,00,00,00 2230 DATA 00,00,00,00,00,00,EO,18 2240 DATA 00,00,00,00,00,00,00,00 2250 DATA 80,00,00,00,00,00,00,00 2260 DATA 00,00,00,00,00,00,00,00 2270 DATA 00,00,00,00,00,00,00,00 2280 DATA 00,00,00,00,00,00,00,00 2290 DATA 00,00,00,00,3F,04,FF,FF 2300 DATA F6,E6,06,00,00,00,00,00 231O DATA 00,00,00,00,80,O1,FF,CO 2320 DATA CO,80,00,00,00,00,00,00 2330 DATA 00,00,03,07,03,07,03,07 2340 DATA 03,01,01,03,07,00,00,00 2350 DATA 00,00,80,CO,80,CO,80,CO 2360 DATA 80,00,00,80,CO,00,00,00
2370 GÜSUB 4490:DRAW "BM49,178":CQLOR 2: PRINT#!, Ff
2380 IF 12 >11 AND I2C17 THEN H=H+3:G0 TO 2410
2390 IF 12>171 AND I2<177 THEN H=H+2: GOTO 2410 2400 H=H+1
2410 COLOR 1:DRAW "BM49,178":PRINTttl, H
2420 PUT SPRITE 3,(12,I1),1,5 2430 IF II=>53 AND II=<132 THEN PLAY "L5S11N35R64N35VL4S1" ELBE IF II=>133 THEN PLAY "M255S12DS1VM255" ELSE F'LA Y "M410S8AM255SIV"
2440 INTERVAL ON
2450 FOR W=1 TG 400:NEXT:PUT SPRITE 3 ,(0,196),O,5
2460 IF H=>MH THEN DRAW "BM80,178":CO LOR 1:PRINT #1,"IK WIN !":GOTO 2480 2470 RETURN 1430 2480 GÜSUB 4490
2490 PUT SPRITE 20,(77,163),O,11 2500 PUT SPRITE 21,(137,163),O,11 2510 K$=INKEY$
2520 IF K$="C" THEN 1210 ELSE 2510 2530 INTERVAL OFF
2540 DRAW "BM219,178":COLOR 2:PRINT#1
,S
2550 IF 12>11 AND I2<17 THEN S=5+3 : GOTO 2580
2560 IF I2>171 AND I2<177 THEN S=S+2 :.GOTO 2580 2570 S=S+1
2580 DRAW "BM219,178": COLOR 15:F'RINT# 1,3
2590 INTERVAL ON
2600 IF SOMS THEN F'LAY "L13EFEFGABGA BCBCDBBEFDL4":DRAW "BM80,178":COLOR 1 5:PRINT#!,"JIJ WINT !":RETURN 2480
2610 RETURN
2620 PUT SPRITE 1,(0,210),0,1 2630 PUT SPR 1' TE 2,(255,210), 0,2 2640 KL=INT(RND(-TIME)*15)+1 2650 KR=INT(RND(+TIME)*15)+1 2660 VL=INT(RND(-TIME)*2)+1 2670 VR=INT(RND(+TIME)*2)+1 2680 IF VL=2 THEN VL=9 ELSE VL=1 2690 IF VR=2 THEN VR=10 ELSE VR=2 2700 RN=INT(RND(TIME)*7)+SP
2710 RA=INT(RND(+TIME)*8 > +1
2720 RB-1NT(RND(-TIME)*85 +1
2730 PUT SPRITE 24,(0,197),0,11:PUT S
PRITE 25,(32,197),0,11:PUT SPRITE 26,
(64,197),0,11
2740 PUT SPRITE 27,(96,197),0,11:PUT SPRI TE 28, (128,197),0,11:PUT SPRI TE 2 9,(160,1975,0,11
2750 J2=0:IF RB=2 THEN JJ=INT(RND(-TI ME) * 170) : F'LAY "M1S8A12M255S1D64": J2= 1 : PUT SPRI TE 24, (JJ,58),7,11:1F INT(RN D(-TIME)*2)+1=1 THEN J2=2:PUT SPRITE 25,STEP(33,0),7,11:IF INT(RND(-TIME)* 2)+ 1=2 THEN J2=3:PUT SPRITE 26,STEP(3 3,0),7,11
2760 J3=0:IF RA=1 THEN JI=INT(RND(-TI ME)*170):PLAY "M1SSF12M255S1D64":J3=1 :PUT SPRITE 27,(JI,97),11,11:IF INT(R ND(-TIME)*2)+1=1 THEN J3=2:PUT SPRITE 28,STEP(33,0),11,11:IF INT(RND(-TIME 5*2)+1=2 THEN J3=3:PUT SPRITE 29,STEP (33,0),11,11
2770 PR=INT(RND(-TIME)*17)+91 2780 PL=INT(RND(TIME)*17)+50 2790 IF S=>10 0R BR(SA)=1 OR S6=l THE N IF INT(RND(-TIME)*2)+1=1 THEN PUT S F'RITE 6, (180,-6), 1,18:SH=1:IF XX=0 TH EN PLAY D$:XX=1 ELSE PUT SPRITE 6,(18 0,-6),12,4:SH=0:XX=0 2800 IF S=>5 OR BR(SA)=1 OR SL=1 THEN IF INT(RND(-TIME*H)*35+1=2 THEN PUT SPRITE 5,(45,-6),1,19:VS=1:IF XY=0 TH EN PLAY E$:XY=1 ELSE PUT SPRITE 5,(45 ,-6),12,4;VS=0:XY=0 2810 IF BR(SA)=1 THEN IF INT(RND(-TIM
E)*55+1=2 THEN PX=12:PY=12:KX=11:PQ=P Y:SPRITE OFF ELSE PX=3:PY=6:KX=1:PQ=P
Y: PUT SPRITE 3 , (12,11),K X, PO:SPRITE
N   
2820 RETURN  
2830 IF 11=>75 THEN 11=162 :P=1 ELSE
l=-5: P=0  
2840 12=108 : RETURN 
2850 11=11-PP : RETURN 
2860 12=12+F'F' : 11=11-PP : RETURN
2870 12=12+PP : RETURN 
2880 I2=I2+PP : I1=11+PP : RETURN
2890 11 = 11 +PF' : RETURN 
2900 12=12-PP• : 11=11+PP : RETURN
2910 12=12-PP : RETURN 
2920 12=12-PP : 11=11-PP : RETURN
2930 TI=TI+1 : ZS=ZS+1 
2940 IF S=>RZ OR BR(SA}=1 THEN HK=HK
1:IF HK=>ZZ THEN PLAY "M300S8A20VM255 ":01=INT(RND(HK+H-TIME)*0M)+1:HK=0:IF OL> 111 THEN QF-14 ELSE 0P=13 2950 IF S=>RD OR BR(SA)=1 THEN IF S-H <35 THEN DU=DU+DO:PLAY "S9M900C64A64M 255S1":IF DU>230 THEN DQ=-DA ELSE IF DU=<0 THEN DO=+DA
2960 IF TI>(MI*120)+(SE*2) THEN 2970 ELSE IF ZS=>120 THEN COLOR 10:DRAW "B MO,6":PRINT#1,Z Q:ZQ=ZQ+1:DRAW "BMO,6" :COLOR 1:PRINT#!,ZQ:ZS=0:RETURN ELSE RETURN
2970 COLOR 15:DRAW "BM55,65":PRINT#!, "DE TIJD IS OM":TQ=1:GOSUB 4490:DRAW "BM80,178"
2980 IF H>S THEN COLOR 1:PRINT#!,"TK WIN I" ELSE IF H<S THEN COLOR 15:PRIN T#1,"JIJ WINT !" ELSE COLOR 14:PRINT# 1,"GELIJK"
2990 PLAY "M697S8L1ACAL4M255":FOR 1=1 TO 3000:NEXT
3000 COLOR 4:DRAW "BM55,65":PRINT#1," DE TIJD IS OM"
3010 RETURN 2480
3020 INTERVAL OFF:SPRITE OFF
3030 DRAW "BM219,178":COLOR 2:PRINT#1
3040 IF S=>10 OF: BR(SA)=i OF SG=1 THE N SB=1:IF SH=1 THEN IF Il=>131 THEN O L=255:GOSUB 4470:PUT SF'FITE 22,(255,1 32),O,11:S=B-2:HK=-25 ELSE IF ïl=<53 THEN GOSUB 4470;PUT SPRITE 17,(240,-3 2),O,7:PUT SPRITE 17,(214,-32),O,8:DU =255-DA:S=S-2
3050 IF S=>5 OR BR(SA)=1 OR SL=1 THEN SL=1:IF VS=1 THEN IF II=>54 AND Il=< 81 THEN PUT SPRITE 3,(12,I1),8,19:PLA Y "M9000S9A1VM255L4": F:B=2: S=S-1: FOR J =1 TO 50:NEXT
3060 IF S=>5 OR BR(SA)=1 OR SL=1 THEN SL=1:IF VS=1 THEN IF Il=>82 AND I1=< 130 THEN PUT SPRITE 3,(I2,I1),8,19:PL AY "M9000S9D1VM255L4":RA=1:S=S-1:FOR J=1 TO 50:NEXT
3070 DRAW "BM219, 178":C0L0R 15:F'RINT#
1,S
3080 IF SCRZ THEN PUT SPRITE 22,(255, 196),0,11
3090 PUT SPRITE 3,(I2,I1),KX,PQ 3100 INTERVAL ON:SPRITE ON:RETURN 3110 COLQR 3
3120 DRAW "BM150,10":PRINT#1,HH(SA) 3130 DRAW "BM150,1":PRINT#!,HS(SA) 3140 COLOR 6
3150 DRAW "BM233,6":PRINT #1,BP+1 3160 HS(SA)=HS(SA)+S:HH(SA)=HH(SA)+H 3170 IF SA=SS THEN BP=BP+1:IF BF-AF' T
HEN3330
3180 S=0;H=0:SA=SA+1: COLOR 3 3190 DRAW "BM128,1":PRINT#1,SA-1 3200 DRAW "BM83,1O":PRINT#1,NM$(SA-1) 3210 IF SA=SS+1 THEN SA=1 3220 COLOR 6
3230 DRAW "BM128,1":PRINT#!,SA 3240 COLOR 15
3250 DRAW "BM83,1O":PRINT#1,NM$(SA) 3260 COLOR 1
3270 DRAW "BM150,1O":PRINT#1,HH(SA) 3280 COLOR 15
3290 DRAW "BM150,1":PRINT#1,HS(SA)
3300 COLOR 15
3310 DRAW "BM233,6":PRINT #1,BP+1 3320 RETURN
3330 COLOR 8,8, 1: CL.S: INTERVAL OFF: STR IG(JS) OFF:KEY(1) OFF:SPRITE OFF 3340 SCREEN 2,2:X=USRO(0):GOSUB 4450 3350 FOR 1=1 TO SS
3360 HT(I)=HS(I)-HH(I) : NEXT : TT=SS 3370 IF SS=1 THEN TS=HS(1):TR$=NM$(1)
:GOTO 3580 3380 Y=0
3390 FOR 1=1 TO TT-1
3400 IF HS(I)=>HS(1+1) THEN 3460
3410 SWAP HT(I),HT(1+1)
3420 SWAP HH(I),HH(I+1)
3430 SWAP HS(I),HS (I +1)
3440 SWAP BR(I),BR(I+1)
3450 SWAP NM$(I),NM$(1+1) : Y=1
3460 NEXT : TT=TT-1 : IF Y=1 THEN 338
o
3470 IF HS(1)>TS THEN TS=HS(1):TR$=NM $(1)
3480 TT=SS 3490 Y=0
3500 FOR 1=1 TO TT-1
3510 IF HT(I)=>HT(1+1) THEN 3570
3520 SWAP HT(I),HT(1+1)
3530 SWAP HH(I),HH(I+1)
3540 SWAP HS(I),HS(I+1)
3550 SWAP BR(I),BR(1+1)
3560 SWAP NM$(I),NM$(I+1) : Y=1
3570 NEXT : TT=TT-1 : IF Y=1 THEN 349
O
3580 BR <1)=BR(1)+1 : X=USR0(0)
3590 LINE (20,10)-(235,30),2,BF 3600 COLOR 15:DRAW "BM57,17":PRINT #1 ," EINDUITSLAGEN:"
3610 PUT SPRITE 10,(25,12),11,12 3620 PUT SPRITE 12,(45,12),14,12 3630 PUT SPRITE 11,(215,12),11,12 3640 PUT SPRITE 13,(195,12),14,12 3650 FOR 1=50 TO 150 STEP 18 3660 LINE (O,I)-(255,1+10),15,BF 3670 NEXT
3680 LINE (20,160)-(235,170),1,BF 3690 COLOR 15:DRAW "BM24,162":PRINTttl ,"TOPSCORE:":IF SS=1 THEN TS=HS(1) 3700 LINE (20,180)-(235,195),10,BF
3710 J=142-((Ó-BS > *18)+18 : X=USR1(O) 3720 FOR I=SS TO 1 STEP -1 : J=J-18 3730 FDR K=1 TO 1000 : NEXT K :IF BR ( I) >0 THEN F'LAY "M9000S9A1VM255L4" ELS E F'LAY " M9000S9D1VM255L4 "
3740 PSET CO,J),15:COLOR 4:PRINT #1,1 :COLOR 1;PSET (18,J),15:COLOR 1:PRINT #1,NM$(I):COLOR 13:PSET (95,J),15:PR INT #1,"SCORE:":PSET (142,J),15:PRINT #1, HS (I) : COLOR 12:PSET (180, J), 15;PRINT #1,"HITS:":PSET (220,J),15:PRINT #1,HH(I)
3750 IF BR(I)=>1 THEN PUT SPRITE 1,(7
3940 PAINT (25,35),11 3950 LINE (25,53)-(25,755,11 3960 LINE <23,52)-(21,73),11 3970 LINE (27,52)-(29,73),11 3980 LINE (21,50)-(18,69),11 3990 LINE (29,50)-(32,69),11 4000 LINE (19,48)-(15,65),11 4010 LINE (31,48)-(35,65),11 4020 CIRCLE (290,-40),115,14,,,1.2 4030 PAINT (254,1),14 4040 CIRCLE (250,-40),130,14,,,.5 4050 PAINT (200,1),14 4060 CIRCLE (230,-5),60,14,,,1.3 4070 PAINT (210,30),14 4080 CIRCLE (129,100),15,15,,,1.4 4090 PAINT (129,100),15 4100 CIRCLE (63,120),15,15,,,1,4 4110 F'AINT (63, 120), 15 4120 CIRCLE (197,140),15,15,,,1.4 4130 F'AINT (197,140), 15 4140 COLOR 1:DRAW "BH119,97":PRINT #1 , 1
4150 DRAW "BH53,117":PRINT#1,2 4160 DRAW "BM187,137":PRINT#1,3 4170 IF BR (15 =2 THEN COLOR 11: DRAW 11B
9, J-5), 1
THEN PUT SPRIT
12:IF BR(I):
E 1+6,(2,J-5),1,12 3760 NEXT I
3770 COLOR 15:DRAW "BH110,162":PRINT# 1,TR$;" ";TS
3780 COLOR 1:DRAW "BM25,183":PRINT #1 , "GEFELICITEERD
Ml 05 , 134 4180 4190 6,32 4200 4), 1,3
,125":PRINT#1,"SUPER":DRAW "BM105 ":PRINT #1,"WINNAAR"
PUT SPRITE 2,(138,32),10,12 IF BR(1)=2 THEN PUT SPRITE 15,(8 ),10,12
IF SS->2 THEN PUT SPRITE 3,(47,5
3790 COLOR 4:PRINT #1,NM$(1):" ! ! " 4210 IF : 35=>3 THEN PUT SPRITE 4 
3800 FOR I =1 TO 5000 : NEXT 74), 1,6  
3810 COLOR 15,5,1;SCREEN 2,3;X =USRÖ (0 4220 PUT SPRITE 6,(12,150),3,4
)   4230 PUT SPRITE 7,(56,148),3,4
3820 GOSUB 4450 : SPRITE OFF' 4240 PUT SPRITE 8,(100,153),3,4
3830 LINE (0,110)-(255,196),2,BF 4250 PUT SPRITE 9,(200,157),3,4
3840 LINE (30,170)-(95,85),6,BF 4260 PUT SPRITE 10,(0,120),3,4
3850 LINE (30,95)-(95,98),1,BF 4270 PUT SPRITE 11,(228,1i 5),3, ■
3360 LINE (96,170)-(161,65),13,BF    
3870 LINE (96, 75)-dól, 78), 1,BF    
3880 LINE (162,170)-(232,105),4,BF    
3890 LINE (162,115)-(232,118),1,BF    
3900 DRAW "BM98,67":PRINT#1,NM$(1>    
3910 DRAW "BM32,87":PRINT#1,NM$(2)    
3920 DRAW "BM168,107":PRINT#1,NM$(3)    
1930 CIRCLE
15,11,,,1.4
4280 X=USR1(0):PS=34:L=0:K=6:BF-0:SA=
0:S=0:H=0
4290 FOR 1=1 TO 7
4300 HH(I)=0:HS(I)=0:HT(I)=0:NE X T
4310 PLAY "T150Li005"+B$+"D6"+B$+"05"
+B$+"06"+B$+A$+"04"
4320 COLOR 15:IF BR(1)=2 THEN DRAW "B M30,184".-PRINT# 1, " ***** EINDE SPEL * ****" ELSE DRAW "BM30,184":PRINT #1," NIEUWE BEKERRONDE ? J/N"
4330 I$=INKEY$
4340 IF I$="J" THEN BEEF':SCREEN 1:S0S UB 4930: BOTO 700 ELSE 1F I$="N" THEN 4510
4350 VV=VV+WW: GJ 1=01 + 1: L=L+1: V=V+1 4360 IF V=2 THEN IF PV=15 THEN F'V=16: V=0 ELSE F'V= 15: V=0
4370 IF W=234 THEN WW=-2 ELSE IF W =0 THEN WW=+2
4380 IF Ql=7 THEN QQ=INT(RND(-TIME)*1 2)-5:Q1=0
4390 IF W= 140 THEN U=1:QU=QQ+14 4400 IF U=1 THEN UU=UU+2:F'UT SF'RITE 3 1,(154, QU+UU), 15, 17: IF UU=34 THEN F'LA Y "M697S9D64VM255":UU=0:U=0 4410 PUT SPRITE 30,<VV,QQ>,1,PV 4420 IF L=6 THEN IF F'S=34 THEN F'S=24: L=Ö:K=3 ELSE PS=34:L=0:K=6 4430 PUT SPRITE 5, (112, F'S), 15, K 4440 GOTO 4330 4450 FOR 1=1 TO 19
4460 SPRITE*(I)=SPR*(I> :NEXT I:RETURN 4470 PUT SPRITE 3,(12,I1),15,18:PLAY Cf
4480 RETURN
4490 INTERVAL OFF : SPRITE OFF : STRI G(JS) OFF 4500 RETURN
4510 LINE (O,184)-(255,194),2,BF 4520 DRAW "BM30,184":PRINT#i,"TUSSEN STAND SAVEN , J/N"
4530 I$=INKEY$
4540 IF I$="J" THEN 4550 ELSE IF I$=" N" THEN CLS:SCREEN 0:WIDTH 40:COLOR 1 5,4,4::END ELSE 4530 4550 LINE (O,184)-(255,194),2,BF 4560 DRAW "BM30,184":PRINT#1,"CASSETT E/DISCETTE READY , R""
4570 I$=INKEY$;IF I$<>"R" THEN 4570 4580 CLOSE
4590 OPEN "HINDEAAN.SEQ" FOR OUTPUT A S #1
4600 PRINT #1,SS;TS;TRf
4610 FOR 1=1 TO SS
4620 PRINT #1,BR(I),NMf(I)
4630 NEXT I
4640 CLOSE:CLS:SCREEN 0:WIDTH 40:END 4650 INTERVAL OFF:STRIGïJS) OFF:SPRIT E OFF
4660 IF RA=1 THEN FOR J=27 TO 26+J3 : PUT SPRITE J,(JI,97),0,11:NEXT 4670 IF RB=2 THEN FOR J=24 TO 23+J2 : PUT SPRITE J,(JJ,58),0,11:NEXT 4680 IF RA=1 OR RA=7 THEN 4700 4690 PUT SF'R I TE 1, (I, PR), O, VL 4700 1F RB=2 OR RB=6 THEN 4720 4 710 PUT SPRI TE 2,(255-1,PL),O,VR 4720 PUT SPRITE 3,<0,196),O,PO 4730 LINE (45,65)-(175,125),11,BF 4740 COLOR 4:J1=0:FÜR J=i TO SS 4750 IF BR (J) =1 THEN F'SET (136,69+J1) ,11:COLOR 1:PRINT #1,"B"
4760 IF SA=J THEN COLOR 6 ELSE COLOR
4770 F'SET (45,69+J1) ,11:PRINT #1,J;NM*
(J)
4780 F'SET(145,69+Jl), 11
4790 IF SA=J THEN PRINT #1,(HS(J)+S)-
(HH(J)+H) ELSE PRINT #1,HS(J)-HH(J)
4800 Jl=Jl+9
4810 NEXT J
4820 FOR J=1 TO 1500 : NEXT J 4830 LINE (45,65)-(175,125),4,BF 4840 GOSUB 4900
4850 IF J3=> 1 THEN PUT SF'RITE 27, (JI,
97),11,11:IF J3=>2 THEN PUT SPRITE 28
,STEP(33,0),11,11:IF J3=3 THEN PUT SP
RITE 29,STEP(33,0),11,11
4860 IF J2=>1 THEN PUT SPRITE 24, (JJ,
58),7,11;IF J2=>2 THEN PUT SPRITE 25,
STEP (33,0) ,7,11: IF J2=3 THEN PUT SF'RI
TE 26,STEP(33,0),7,11
4870 IF S=>MS OR H=>HH OR TQ=1 THEN 4
900
4880 IF PX=3 THEN SPRITE ON
4890 INTERVAL ON:STRIG(.JS) ON:RETURN
4900 FOR J=Ö TO 240 STEP 20
4910 LINE (J,91)-(J+20,99),15,BF:J=J+
20
4920 NEXT J ; RETURN 4930 PUT SPRITE 1,(30,155),4,9 4940 PUT SPRITE 2,(190,155),6,2 4950 PUT SPRITE 3,(90,155),13,3 4960 PUT SPRI TE 4,(130,155),2,4 4970 PUT SPRITE 5,(190, 10), 11,11 4980 PUT SPRITE 6,(30,10),9,8 4990 PUT SPRITE 7,(140,10),8,13 5000 PUT SPRITE 8,(90,10),7,12 5010 RETURN
5020 IF RB=2 THEN PLAY "M1S8A2ÜM255S1 D64":PUT SPRITE 24,(INT(RND(-TIME)*18 O),58),7,11:IF INT(RND(-TIME)*2)+1=1 THEN PUT SPRITE 25,STEP(33,0),7,11:IF INT(RND(-TIME)*2)+1=2 THEN PUT SPRIT E 26,STEP(33,0),7,11 5030 IF RA=i THEN PLAY "M1S8F20M255S1 D64":PUT SPRI TE 27,(INT(RND(-TIME)*18 O),97),11,11:IF INT(RND(-TIME)*2)+1=1 THEN PUT SPRITE 28,STEP(33,0),11,11: IF INT(RND(-TIME)*2)+1=2 THEN PUT SPR ITE 29,STEP(33,0),11,11