130 SCREEN!:KEYOFF:WIDTH14
142 CÖLÖR 1,7,7
150 LOCfiïE 1 , 6
170 PRINT" N N
180 PRINT" E I
190 PRINT"T 3-D S"
200 PRINT"MMNMMMHHMMM"
230 LOCftTE0,13:PRINT"druk op :
240 LOCATE0,15
250 PRINT*1)Toetsenbord"SPRINT 260 PRINT"2)Joystick.1"s PRINT 270 PRINT"3)Joystick.2"
280 I$= INKEYf:IFI$=""THENIFTIME<100TH EN280ELSEPLAY"v12o6c":GQSUB3710:GOTO2 80
290 Ju=fiSC(I$)
300 IF J 0 < 4 9 0 R J 0 > 51T H E N 2 80 310 PLAY"V15oco4co3co2c"
320 J0 = J0-49 330 SCREEN 0
340 C0L0R15,4,4:SCREEN2,2,0 350 0PEN"SRP:"AS1 360 PSET(45,905,2
370 PRINT#!,"Een ogenblikje a.u.b_____
1!
3S0 SOSUBi530:X = 48
390 C0LGR1,10,10:CLS
400 LI NE(7,21)-(248,75),14,BF
410 REM
420 F0RT = 2ST0612STEP8: X = X-8: PSET (X , T) , 9
430 PRINT#! , "
!!
440 NEXT
450 PSET<65,100),10
460 DRAW"c15rl85g60L185E60D
470 PSET <60,1055,10
480 DRAW!ic 15r 1 S5q50L 105E50R40G50E25R9 5B25E50"
490 PSET <160,100.1,10
500 DRAW"Clg60ü15e60D15" ' veld
510 PA INT(151,103)
520 PLAY"v15t250"
530 PSET(95,162) , 10
540 DRAW"C6RSD4e2d2q2LSu5"
550 PAINT(96,166),6
560 PSET(92,179),10
570 DRAW"c6ffl95,168br8i»106,179bffll06,16
7m108,174"
5S0 F0RGA = 1 TOS 590 C0LÖR4:BOSÜB2980
600 CQL0R8:SOSUB3030 610 NEXT
620 LINE <0,0)- (255,181) , 1, B 630 LINE(10,180)-(245,190), 6, BF 640 PSET(20,182),6 650 C0LGR14
660 PRINT#!, "computer11;
670 C0LQR14
680 PRINT#!," speler
690 GGSUB3500
700 GNSPRITEGO3UB2040
710 ONSTRIBGGSÜB2560,2560,2560
720 ON INTERVAL=900 GOSüB 2640
730 PüTSPRITE 15, 192,145) ,15,6
740 GA=1:A=0:B=0:A2=0:B2=0:PG=B:PC=0:
FF=1:BG=1:BC=0:P1=0
750 1
760 ' punten
770 '
760 PUTSPRITE20,(0,208)
790 SF'RITEOFF: STRI6 (JO) OFF"
800 IFFF=1THENB50
610 ONFLSGTGB30,850,840
S20 IFS6N(X2)=1THENPB=PG+1:GOTG850ELS
EPC=PC+1:6070850
830 PG=PG+1:GGTG850
840 PC=PC+1
850 IFPG< >P 1THENP1 =PG: G0BLIB3658: GGTuE 60
860 GNPGGOTO8S0,890,900,910
870 GOTO950
8S0 A=15:6GTG950
890 A~30:GGTO950
900 A=40:GOTG950
910 VG=VG+1:PG=3:P1=3
920 IFPC<>3THENVC=-1:GDTO940
930 LINE (235,168)-<245,178), 1,BF
940 IFvG=vC + 2THENGOSUB3500;CDLGR10: GC
SUB3030:A1=A1+1:CGL0R8:GOSUB3030:GOTC
1050:ELSE1040
950 GNPCGOTG970,980,990,1000
960 GOTG1090
970 B=15:6OTG1090
980 B=30:GOTG1090
990 6=40:60701090
1000 vC = v'C +1: PC = 3
1010 IFPG<>3THENVG=-i:GOTO 1030
1020 LINE(10,168)-<20,178),1,BF
1030 IFVC=VG+2THENGOSUB3500:COLOR10:E
GSUB3080:B1 = B1 +1:C0LGR4:GOSUB3000:SOI
01050
1040 IFVC=VGANDVC=1THENPG=3:PC=3:VC=0 :VG=0:6O8UB3500:GOTO1090:ELSE 1090 1050 PC=0:PG=0:P1=0:A=0:B=0:VG=0:VC=0
1060 IFBG< >0THENBG = 0:BC=1ELSEBC=0:BG= 1
1070 IF <A1 >50RB1>5)ANBABS(Al-Bl)>1 THE NG05UB3190
1080 FuRT=40ÏO64STEP8:Tl=T-S:PLAY"N=T
;N=T1;":NEXT:FORT=0TO500:NEXT
1090 GOSUB2S70
1100 GOSUB2310
1110 COLOR10:0=10:GOSUB2780
1120 X2=11:Y2=.6:X=35:Y=105:F=.02:F1=
1:Y1=120:R1=R:S1=S:Z=!25:L=.2:K=.1:FL
=0:M=6:W1=1:W2=1:FF=0
1130 '
1140 ' pcsi t i e 1150 '
1160 GNBCGOTO1180,1190 1170 GQ701210
1180 BC=2:L=-.2:Y2=3:R=200:S=90:GOTO1 200
1190 BC=1:R=180:8=110
1200 PüTSPRITE2,(B,H),4,10:PUTSPRITE3
, <Q,H+I6) , 4 ,11: F'LAY"o 1 c ": GOTOi290
1210 ONBGGOTO1220,1230
1220 BS=2:X=220:X2=-X2:R=230:S=90:GOT
01240
1230 BG=i:X=200:Y=115;X2=-X2:Y2=2:L=-
L:R=2I4:S=110
1240 GOSUB2560: F'LAY" o5c"
1250 '
1260 * beweging spelers 1280 '
1290 SOSUB2310
1300 SPRITE0N:5TRIG(JQ)0N
1310 ONSTICK(JO)GOSUB2230,2240,2250,2
260,2270,2280,2290,2300
1320 K=K+.l
1330 X2 = X2-F:Y2=Y2-K
1340 X=X+X2:Y=Y-Y2
1350 IFX>=255ORX< = 0THEN7B0
1360 SPRITEON
1370 IFFF>0THEN1420
1380 IPX>120THENV=3ELSEV=6
1390 PUTSPRITE15,<92,145) , 15 , V
1400 Q=150-Z+X/8:H=Z-32:Z=Z+L*4
1410 w 2 = -W 2
1420 IFY>ZTHENGGSUB2400 1430 PUTSPRITE20,(X,Y!,15,0
1440 PUT5PRITE21, ( X , Z 5 ,1,1
1450 SPRITEOFF
1460 PUTSPRITE2, !0,H) ,4,3
1470 PUTSPRITE3,(Q,H+16),4,3+W2
1400 SPRITEON
i 490 GOTO 1310
1500 "
1510 ' routine s p r i t e s 1520
1530 FQRJ=0TO!
1540 A $ = ""
1550 F0RT=1TÖ4
1560 READA:A$=A$+CHR$(ft)
1570 NEXT
1580 SPRITE#(J)=A$
1590 NEXTJ 1600 RESTORE1750 1610 F0RJ=2TÖ11 1620 A$=""
1630 FORT=1T032
1640 READA:A$=A$+CHR$(A) 1650 NEXT
1660 SPRITE$(J)=A$
1670 NEXTJ
1680 RETURN
1700 DATA48,38,184,48
1720 DATA48,120,48,0 1750 DATA6,6,6,6,7,3, 3,3,192,192,192,192,3 ,9,6,0,0,0,120,192
7 -? 7 T T 7 ■?
J ' / ' / 1 <1 <
2,160,92,146,149
1770 DATA0,0,2,0,0,0,1,3,3,3,1,1,3,7, 6,6,0,0,0,0,0,0,192,248,160,224,192,1
28.192.192.192.192
1790 DAÏA6,6,6,6,7,3,7,7,7,3,3,3,6,12
,12,6,192,192,192,192,32,160,92,146,1
49,9,134,128,128,128,192,224
1830 DATA3,3,3,3,4,5,58,73,169,144,96
,0,0,0,1,3,96,96,96,96,224,192,224,22
4.224.192.192.192.192.192.192.192 1050 DAïft0,0,0,0,0,0,3,31,5,7,3,1,3,3 ,3,3,0,0,0,0,0,0,128,192,192,192,128,
128,192,224,96,96
1870 DATA3,3,3,3,4,5,48,73,169,144,97
,1,1,1,3,7,96,96,96,96,224,192,224,22
4,224,192,192,192,96,48,48,96
1910 DATA0,0,0,0,0,0,1,3,3,3,1,1,3,7,
6,6,0,0,0,0,0,0,192,248,160,231,201,1
45,219,204,208,240
1940 DATA6,6,7,7,7,3,7,7,7,3,3,3,6,12 ,12,6,240,0,128,128,128,128,128,128,1
28,0,128,128,128,128,192,224
1970 DATA0,0,0,0,0,0,3,31,5,231,147,1
37,219,51,11,15,0,0,0,0,0,0,128,192,1
92.192.128.128.192.224.96.96
2000 DATA15,0,1,1,1,1,1,1,1,0,1,1,1,1 ,3,7,96,96,224,224,224,192,224,224,22
4.192.192.192.96.48.48.96 2040 SPRITEOFF
2050 IFAB5(Y-Z)C8THENGGSUB2400:SPRITE ON:RETURN
2060 ! F F F = 1T H E N 219 0
2070 IF Y < Q A N D X < 8 0 T H E N 219 0
2080 IFX<80THENIFH + 2< = YTHENPLiTSrRITE2
,(Q,H),4,10:PUTSPRITE3, (B,H +16),4,11:
X2= 14+ •: iH + 8-Y) 72) : X =8+24: ¥2=1 0: PLAY" o
1 n11: 80T02160: ELSE2190
2090 IFY<S + 2THEN2190
2100 IF'8=0THEN2190
2110 6QSUB2640
2120 X=R-8:PLAY"o5c"
2130 W=4
2140 X2=-13 -((S + 8-Y)/2!
2150 Y2=-Y2:L=-.2:K=.Ó
2160 FL=0:PUTSPRITE20,(X,Y),15,0
2170 L=-L
2180 PUT SPRITE21, (X, Z) , 1,1 2190 RETURN 2200 '
2210 ' besturen van speler s 2220 "
2230 R=R+4:3=8-4:SOTO2310 2240 RETURN
2250 M=3:R=R+6:SOSUB2380:8OTO2310 2260 RETURN
2270 R=R-4:3=8+4:GOTG2310 2280 RETURN
2290 M=6:R=R-6:GÖSUB2370:SOTO2310
2300 RETURN
2310 W1=-W1:SPRITEOFF
2320 PUTSPRITE4,(R,S>,S,M
2330 PUT SPR ITE5, (R,S+l6) , 8 , M'+Wl
2340 SPRITEON
2350 R1=R:31=8
2360 RETURN
2370 IFR<(250-85 THENR=R1:8=81:RETURN2 360ELSERETURN
2380 IFR>(334-8)THENR=R1:S=S1:RETURN2
350EL8ERETURN
2390 '
2400 IFFF>0THEN2500 2440 IF X + Y<245 THEN IF SGN(X2)=1 THE N FL=2:GOSUB 2740:PG=PG+1:FF=1:GOTO 2 500:ELSE FL=FL+1:GOTO 2490
2450 IF X + Y>=245 THEN IF SSN(X2)=~1 T HEN FL=i :SOSUB 2740:PC=PC+!:FF = 1:GQT O 250.0: ELSE FL=FL+3:GOTO 2490 2490 IF FL = 2 OR FL = Ó THEN FF=1:1F FL = 6 THEN FL = i :POPC +i:GOSUB 2740:GOTO 2500:ELSE P6=PG+i:FL=2:60SUB 2740:SOI O 2500
2500 PLfiY"o3c11
2510 Y = Z-10:PUT SPRITE 20, !X,Y),15:Y2 = - Y 2
2520 SPRITE uN:RETURN
2560 G=i:M=6
2570 SPRITE QFF
2580 PUT SPRITE 4,(R,S),B,B
2590. PUT SPRITE 5, (R,S + 16) ,8,9
260.0 SPRITE ON
2610. STRIG(JO) OFF: INTERVAL ON
2620 RETURN
2640. G = 0: H = 6: Wl = l
2650 SPRIÏE OFF
2660 PUT SPRITE 4,<R,S),8,6
2670 PUT SPRITE 5,(R,S+16),8,7
2680 SPRITE ON
2690 STRIB(JO) ON: INTERVAL OFF 2700 RETURN 2710 '
2720 ' fout 2730 '
2740 ON FL GOTO 2750,2760
2750 1=0:GOTO 2770
2760 I=-54
2770 COLOR 1:0=1
2780 PSET(120+1,141),10
2790 A$="fout"
2800 PRINT#!,Af 2830 RETURN 2840 '
2850 ' punten set 2860 '
2870 CGLOR 1
2880 LI NE (180,160)-( 130,1905, 14 , B F 2890 PSET(111,1825,14 2900 PRINT# 1,USINS i!##!!;B;
2910 LINE (210, 180)-(245,190),14,BF
2920 PSET(221,1825,14
2930 PRINT#!,USING
2940 RETURN
2950 '
2960 ' punten parti j 2970 '
2980 LINE(GA*50-42,0)-STEP(20,9),4,B
2990 LINE STEP(0,1)- STEP(20,9),8,B 3000 PSET (GA*50-3S, 1) ,18 3010 PR I NT# 1 , USING !,#";B1;
3020 RETURN
3030 PSET (GA*50-I8,115 ,18 3040 PRINT# 1, USING" #11; A1;
3050 RETURN 3060 '
3070 routine spri tes 3080 "
3090 INPUT A 3100 Af=BIN$(A5
3110 Bf=STRIGf(S-LEN(Af),"0")+A$
3120 FOR T =8 TO 1 STEP -1 3130 Cf=Cf+MIDf(8$,T,1)
3140 NEXT
3150 PRINTCf, VAL ("Ecb "+Cf 5 3160 '
3170 ' winnen van partij 3180
3190 IF Al>B1 THEN A2=A2+1 ELSE B2=B2
+1
3200 A1=0:Bl=0
3210 FOR T=0 TO 10
3220 PLAY "L32o5co3c i!, !iL32o5ea3e"
3230 NEXT
3240 FOR T=0 TO 1000:NEXT
3250 GA=GA+i
3260 IF GA=6 THEN 3310
3270 RETURN 1090
3280 '
3290 ' winnen van match 3300 '
3310 FOR T=0 TO 4:PLAY"L3201C02CQ3GD4 C05C06C":NEXT
3320 PSET(45,775,10:COLOR 1
3330 IF A2<B2 THEN C$ = " DE COMPUTER I
S WINNAAR":GOTO 3350
3340. Cf ="HULDE VOOR DE WINNAAR !"
3350 COLOR 15:GOSUB 3410:GOSUB 3450 3360 If=INKEYf: IF If = "" THEN 3360 3370 IF If<>"s" AND IfO"S" AND ïf<>" n" AND If< >"N" THEN 3360 3380 IF If="S'' OR I$ = "s" THEN 3540 3390 COLOR 1:SCREEN 0:KEY ON:END 3400 '
3410 PSET(45,775,10 3420 PR INT#i,Cf 3430 RETURN 3440 '
3450 LINE ( 10,1805-(245,1905,6,BF
3460 PSET(20,182),10
3470 PRINT#!,"Nog een partij ? (j / n) "
3480 RETURN
3500 LI NE (10 ,168) - (20,178 i ,18,BF 3510 LINE <235,160) - (245,178) , 10,BF 3520 RETURN
3540 C0L0R 10:GOSÜB 3410 3550 FOR T=2 TO 5
3560 LINE (T*50-4i,5)-STEP(18,7),10,B F
3570 LINE STEP <2,3)-STEP <18,7) ,10,BF
35S0 NEXI
3590 AI=0:B1 =0
3600 FOR Sft = 1 TO 5
3610 COLGR 4:GOSUB 3000
3620 COLOR 8:BOSUB 3030
3630 NEXT SA
3640 GOTO 630
3650 '
3660 ' geluid van het publiek 3670 -
3680 SOUND 6,10
3690 SOUND 7,fcB10011111
3700 SOUND 10,13
3710 FOR WW=0 TO 30
3720 COLOR , ,1
3730 FOR WQ=8 TO 20:NEXT
3740 COLOR ,,18
3758 FOR WQ = 8 TO20:NEXT
3768 NEXT NW
3770 SOUND 7 , SiB11111118
3780 RETURN