5 1911 Introscherm
10 OPEN "GRP:" AS#i
20 WIDTH40:SCREEN2:PRESET(10,48),6:PR IN T # 1 ," * * *******#*##*####*###*#*###*# #"
30 PRESET(60,80): P RIN T # 1," G flfi 2 E N BORD"
35 PRESET (18,120): PRINT#!,11 ********** ***********#***#*****"
38 DRAW"C7BM120,150U3F5U4E3R2F1D4H2L1 61D3F4D3G3L12H2R1H1R2H2R5H4R2H4R4U2F8 R2H2U1":PA I NT(115,150),7 40 CLOSE #1
50 PLAY"V12LÓ4T255Ü4R64GR64GR64AR64AR 64ER64ER64GGR4GR64GR64AR64AR64ER64ER6 4GBG", "V12L64T25504R64ER64ER64FR64FR6 4CRÓ4CR64EER4ER64ER64FR64FR64CR64CR64 EEE"
60 PLAY"V12L64T25504R64GR64GR64ARè4AR 6405CR64C04R64BR3BR3AR3GR3FR411, "V12L6 4T25504R64ER64ER64FR64FR64AR64AR64GR3 GR3FR3ER3DR4"
90 PLAY"V12L64T25504R64FR64FR64GR64GR 64DRÓ4DR64FFR4FR64FR646R64GR64DR64DR6 4FFF","V12L64T25504R64DR64DR64ER64ER6 403BR64BR6404DDR4DR64DR64ER64ER6403BR 64BR6404DDD"
180 PLAY"V12L64T25504R64FR64FR64GR64G R64BR64BR64AR3AR3GR3FR3EEEEEEEEEEEEEE O 4 L 4 T12 8»8","V12L64T25504R64DR64DR64E R64ERÓ4GR64GR64FR3FR3ER3DR3CCCCCCCCCC CCCC04L4T120V8"
120 JJ =208:C=10:CC=11:CLS:C0LQR1i,12, 12:SCREEN0:KEYQFF:WIDTH37:CLOSE 130 'Uil Joystick of Klavier 140 LOCATE9,2:PRINT"Bepaal eerst":L0C AT.E3,4: PRINT" Wi jze van aktie :":L0CAT E 3,8: P RIN T11A = \ S p a t i e / (Klavier)": L0CATE3,1 0: PRINT"B = Wuurknop/ (Joys tick Poort 1) ": L0CATE3,12: PR INT,!C = \ Vuurknop/ (Joystick Poort 2)":JT$ ="/"
158 LOCATE10,20:INPUT": ";JTï
160 IFJT* ="A"0RJT$ ="B"0RJT$ ="C"THEN18
0EL8EPLAY"C":GOTO150
170 IFJTf="/"THENF'LAY"Cu: 6OTG150
180 IFJT$="A"THENJ$="SPATIE":JT=8ELSE
Jt="VUUR"
190 IFJT$="B"THENJT=1
200 IFJT$="C"THENJT=2
268 L0CATE13,22:PRINT"DRUK ";J$:L0CAT
El 8,22:PRINT"
270 IFSTRIO(JT)=-1THEN2S0ELSE260 280 Z 1 $ = "/": Z2$=" /11: Z3$="/":L=0 290 'lifli NAAM EN KLEUR
300 CL5':LOCATE0,0:PRINT"Spelgegevens
, 11
310 GI=1:LOCATE0,2:INPUT"Hoeveel spel en (Max.10) ";GR
320 IFGR>0ANDGR<11THEN330ELSEPLAY"C": 6010310
330 LOCATE0,3:INPUT"Hoeveel spelers ( 1-3) G
340 LOCATE0,5:PRINT"
1!
350 IFG=1THEN360ELSE430
360 LOCATE0,7:INPUT""oer nu je naam i
n ";Z1*:Z$=Z1I: IFZ 1 $ = " 1" THENF'LAY"C": G
OTQ360
370 LOCATE0,8:PRINT"
II
380 LOCATE0,11: F'R I NT "Ki es de kleur va n de pion : "
390 LOCATE0,i4:PRINT"4 = Blaauw":LOC ATE0,15: F'RI NT"9 = Rood ": LOCATE0,16: P RINT"12= Broen":LOCATE0,17:PR INT"13= Magenta" :LOCATE0,18:PRINT"15= Wit"
400 LOCATE30,IS:INPUTK1:K=K1 410 LOCATE0,19:PRINT"
U
420 IFK1 = 90RK1=40RK1 = 120RK1 = 130RK1 = 15
THEN730ELSEPLAY"C";GOTO380
430 IFG=2THEN440ELSE560
440 LQCATE0,7: INPUT"Naani van de eerst
e speler ' ";Z 1 %: IFZ1f ="/"THENPLAY"C
":GQTG440
450 LOCATE0,8:INPUT"Naam van de tweed e speler Z2*: IFZ2*="/'"THENPLAY"C
":GOTO450
460 LOCATE0,9:PRINT"
H
470 LOCATE0,12:PRINT"Kies de kleur va n de pion :
480 LOCATE0,14:PRINT"4 = Blaauw ":L OCATE0,15:PRINT"9 = Rood ":LOCATE 0,16:PRINT" 12= Groen ":LOCATE0,17:
PRINT"13= Magenta ":LOCATE0,18:PRINT "15= Wit
490 LOCATE14,14:PRINT"Keuze :"
500 L0CATE14,17:PRINTZ1 $:L0CATE32,17: INPUTK1
510 IFK 1 = 40RK1 = 90RK 1 = 120RK1 = 130RK 1 = 15 THEN520ELSEPLAY"C":GOTQ500
520 L0CATE14,18:PRINTZ2#:L0CATE32, 18:
INPUTK2
530 LOCATE0,19:PRINT"
H
540 IFK2 = 40RK2 = 90RK2=120RK2=130RK2 =15 THEN550ELSEPLAY"C":GOTO520 550 IFK2< >K1THEN730EL8EPLAY"C":GOTO52 0
560 IFG = 3THEN570ELSEF'LAY"C": GOTO330 570 LOCATE0,7:INPUT"Naam van de eerst e speler Z 1 f: IFZ 1 * = "/"THENPLAY"C":
GOTO570
580 L0CATE0,8:INPUT"Naam van de tweed e speler Z2$:IFZ2$="/"THENPLAY"C":
GOTO580
590 LOCATE0,9:INPUT"Naam van de derde speler ";Z3*:IFZ3I="/"THENPLAY"C": GOTO590
600 LOCATE0,10:PRINT"
II
610 L 0 C A T E 0,12:P RIN T" K i e s de kleur va n de pion : "
628 LOCATE0,14:PRINT"4 = Blaauw ":L OCATE0,15:PRINT"? = Rood ":LOCATE 0,16:PRINT"12= Groen ":LOCATE0, 17:
F'RINT" 13= Magenta ": LOCATE0,18: PRINT "15= Wit
630 LOCATE14,14:PR INT"Keuze : "
640 L0CATE14,16:PRINTZ1$:L0CATE32,16: INPUTKi
650 IFK1 = 40RK1 = 90RK1 = 120RK1 = 13QRK1 = 15 THEN660ELSEPLAY"C":6ÜTO640 660 L0CATE14,17:PRINTZ2f:L0CATE32,17: INPUTK2
670 IFK2 = 40RK2 = 90RK2=120RK2 = 130RK2 = 15 THEN680ELSEPLAY"C":6OTO660 680 IFK2<>K1THEN690ELSEPLAY"C":GOTO66 0
690 LOCATE14,18:PRINTZ3$:L0CATE32,18: INPUTK3
700 LOCATE0,19:PRINT"
u
710 IF K 3 = 4 0 R K 3 = 9 0 R K 3 = 12 0 R K 3 = 13 0 R K 3 = 15 THEN720ELSEPLAY"C":GQTO690 720 I FK3< >K 1 ANDK3OK2THEN730ELSEPLAY" C":GOTO690
730 LOCATE0,22:INPUT" Invoer juist (J/ N)";Y$
740 IFY$="J"THEN760
750 IFY$ ="N"THENL=0:6R = 0:6=0:K1 = 0:K2 = 0:K 3 = 0:Z1$ = "/":Z2$ ="/":Z3t='7":GÜTO30 0ELSEF'LAY"C":GOTO730
760 FORI=1TO500:NEXTI 770 'Uil SPRITES DEFINIËRING 780 CLS:COLOR15,1,1:SCREEN2,3:KEYOFF: OPEN"GRP:"FOROUTPUTAS#i:SPRITE*!0)=CH R*<&H78) +CHR$(&H30)+CHR$ (ïcHFC)+CHR$(& RFC i + CHRt (&HFC) + CHR* ! &HFC) + CHR* <S<HFCi + CHRI (&HFC)
790 SPRITE$(1)=CHR$(&HFE)+ CHRJ(&HFE) +CHR* (leHFE) +CHR* (ïtHEE)+CHR* (&HFE) +CHR $(&HFE)+CHR$ (SfHFE)+CHR$(&H0) : SPRITE* ( 2) = CHR$ (SkHFE) + CHRI (&HFA) +CHR$ (&HFE) +C HR$ (&HFE) + CHR$ (&HFE) + CHF:$ (&HBE) + CHR$ ( ?•:HFE > + CHRf!3iH0)
800 SPRITE$ (3) =CHR$ (&HFE) + CHR$ (S<HFA) +CHR*(fcHFE)+CHR*(ïcHEE)+CHRt <&HFE)+CHR $(&HBE)+CHR$(&HFE)+CHR$ (&H0) :SPRITE$( 4) =CHR*«ScHFE i + CHR* (ïeHBA) + CHRt (&HFE) +C HR$ < & HF E) + CHR$ (8< H F E) + CHR$ (&HB A) +CHRI- ( StHFE) +CHR* (&H0)
810 SPRITE$(55=CHR$(&HFE)+CHR$(&HBA) + CHR$ (H F E) + CHR$ (?<HEE i + CHRt (JkHFE) +CHR $ (HBA5 +CHRJ (&HFE) + CHR$ (&H0) : SPRITE* ( 6)=CHRi <&HFE)+CHR*(&HBA)+CHR$(&HFE)+C HR$(&HBA)+CHR$(&HFE)+CHR$(&HBA)+CHR$ ! S<HFE) +CHRÏ ! &H0)
820 'gül SPECIALE VELDEN 830 PRESET(50,0),1:PRINT#1,"Bijzonder e vel den":LINE(0,10)-(256,10 5,6:DRAW" C7BH22,19U3F5U4E3R2F1D4H2L161D3F4D3G3 L12H2R1H1R2H2R5H4R2H4R4U2F8R2H2U1":PA INT(22,23!,7:PRESET(50,15),1:PRINT#1, "Nog eens zelfde "
840 PRESET(50,25):DRAW"C14BH28,40R4F6 R3F2G2L3G6L4E7L7G2L2E2L2H1E1R2H2R2F2R 7H7":PAINT(24,41),14:PRESET(50,45),1: PRINT# 1, "Vlieg naar nr.39"
850 DRAW"C10BM15,80R12U12L12D12R12E3U 12L12G3R12E3":PA INT(19,75),10:PRESET( 16,65),1:COLOR1:PRINT#1,".. ":PRESET(1 6,69),10:PRINT#!,"..":PRESET(16,73),1 0:PRINT#1,"..":C0L0R15: 'WORP 860 PRESET (50,68) ,1: F'RIN Til , "Ga 10 ve 1 den vooruit":DRAW"C6BM19,88R8D3L2D11 62L4H2U4R2D3F1E1U10L2U3": F'AINT (24,92)
,6:PRESET(50,92),1:PRINTil,"Werp nog een keer":DRAW"C15BM15,127R12U12L12D1 2E3U12R12G3D12E3U12L12G3D12E3R12"
870 PRESET(50,116),1:PRINT# 1, "Ga 5 ve lden achteruit":DRAW11 Cl 1BM20,136R1F2E 3R4F2L3D3H2U2G3F1D2L2D2R2D2G1F3U2E2D3 R3G2L4H3G2L1H2D2L2U2R1U1H1U1H1U2E1U1E 1U1L1U2R2D2E2": F'A I NT (20 , 141) ,11: COLOR 1:PRESET(18,138),11:PR I NT#1,*»":PA I NT (28,137),11:PAINT(28,149),11
880 COLOR15:PRESET(50,140),1:PR INT#1, "Ga terug naar nr.13":DRAW"C10BM15,16 3E4R6F4D5S3D3G2L4H2U3H3U5":PAINT<22,1 65) , 10:COLOR1:PRESET(16,165),10:PRINT #1 PRESET(20,171),10:PR INT#1," ="
:PRESET(20,166),10:PRINT#1,"•":COLOR1 5
398 PRESET (50,165), 1:PRINT#1,"Beqin o pnieuw":LINE(0,188)-(255,180),6 900 PRESET(80,185), 1:PR INT#1,"Druk J $
910 IFSTRIG(JT)=-1THEN920ELSE980 920 LINE(0,192)-(255,0),1,BF 930 'iiil TEKENING VAN HET PARCOUR 940 DRAW"C=C;BM35,20U20R220D160L240U1 40R220D120L200U100R180D80L160U68R140D 40L120U20R100"
950 X = - 5:F0RI = 1T06:X = X + 40:LINE(X,20) - (X,0),C:NEXTI:X=0:FORI = 1T03:X = X+40:LI NE(235,X)-(255,X 5 ,C:NEXTI:X=275:FORI = 1T06:X=X-40:LINE(X,140)-(X,160),C:NEX
TI
860 X= 160:FORI = 1T03:X = X-40:LINE(15,X) -f35,X),C:NEXTI:X = 15:FORI = 1T06: X = X + 40 :LINE(X,40)-(X,20),C:NEXTI:X=20:FORI= 1T 0 2:X = X + 4 0:LINE(215,X)-(235,X),C:NEX TI
970 X=255:F0RI=1T05:X=X-40:LINE(X,140 )-(X,120),C:NEXTI:LINE<55,100)-<35,10 0) ,C:LINE(55,60)-(35,60),C:X=35:FORI = 1T04:X=X+40:LINE(X,60)-(X,40),C:NEXTI :LINE(195,80)-(215,80),C 980 X=235:FORI=1T04:X=X-40:LINE(X,120 )-(X, 100) ,C:NEXTI:LINE(55,80)-(75,80) ,C:LINE(95,80)-(95,60),C:LINE(135,100 )-(135,60) ,C:LINE(175,100)-(175,60),C :LINE< 15, 192)-(256,192),6:LINE(214,18 95-(255,162) ,6 ,B
990 PRESET (220,165) , 1:PRINTil,"SPEL" 1000 iül FIGUREN TEKENEN 1010 DRAW"C7BM180,6U3F5U4E3R2F1D4H2L1 Si D3F4D3G3L12H2R1H1R2H2R5H4R2H4R4U2F8 R2H2U1":PAINT(180,6+4),7:DRAW"C7BM165 , 146U3F5U4E3R2F1D4H2L1G1D3F4D3G3L12H2 R1H1R2H2R5H4R2H4R4U2F8R2H2U1":PAINT (1 62,146 + 4! ,7
1020 DRAW"C7BH41,26U3F5U4E3R2F1D4H2L1 G1D3F4D3G3L12H2R1H1R2H2R5H4R2H4R4U2F8 R2H2U1":PAINT(41,26+4),7:DRAW"C7BM63,
126U3F5U4E3R2F1D4H2L1G1D3F4D3G3L12H2R 1H1R2H2R5H4R2H4R4U2F8R2H2U1":PAINT(63 ,126+4),7
1030 DRAWC7BM164,106Ü3F5U4E3R2F1D4H2 L161D3F4D3G3L12H2R1H1R2H2R5H4R2H4R4U2 FBR2H2U1":PA INT(164,106 + 4),7 1040 DRAW"C11BH80,63R1F2E3R4F2L3D3H2U 263F1D2L2D2R2D2Gi F3U2E2D3R362L4H362L1 H2D2L2U2R1U1H1U1H1U2E1Ü1E1U1L1U2R2D2E 2":PA INT 180,68),1 1 :COLOR1:PRESET{78,6
6) ,11:PR I NT#1,"»":PA I NT(88,64),1 1:PA I NT<88,76),11
1050 DRAWCl 1BM222,82R1F2E3R4F2L3D3H2 U263F1D2L2D2R2D261F3U2E2D3R3B2L4H362L 1H2D2L2U2R1 Li 1H1U1H i U2E1U1E1U1L1U2R2D2 E2":PA I NT !221,98),11:COLOR1:PRESET(22 0,85),11:PR I NT#1,"»":PA I NT(230,83),1 1 :PA I NT(230,95),11
1060 DRAWC10BM198,104E4R6F4D563D362L 4H2U3H3U5": F'AINT i205,106! , 10: COLOR 1 ;P RESET(199,1065,10:PRINT#!,"•*":PRESET ( 203,112) , 10: PR INT# 1,11 = ": PRESET (203,1
07) , 10:PRINT#!,"*"
1070 DRAW"C14BH118,22R4F6R3F2G2L366L4 E7L7G2L2E2L2H!E1R2H2R2F2R7H7": F'AINT (1 22,24) , 14:DRAW"C14BM59,42R4F6R3F202L3 G6L4E7L762L2E2L2H1E1R2H2R2F2R7H7":PA I NT(63,45),14
1080 DRAW"C6BM242,140RSD3L2D11G2L4H2U 4R2D3F1E1U10L2U3"s PAINT(247,142),6:DR AW" C6BM22,85R8D3L2D11G2L4H2U4R2D3F1E1 U10L2U3":PAINT(27,87),6 1090 DRAW"c3bml62,25r3dl2rlfll3hlgll2 e2u 11":PA I NT( 163,285 ,3:DRAW *c 3b m162,2 5ulgldlqldlg2dlgll2ulelu3siule2r2elr3 + 2r2f2dïf2 d 2 h112 u 2 h 2 d 3 f1g1h2u3h1g1d21 1 d 1 q 21 2 u 1 e 3 u 3
1100 DRAW"C15BM18,139R12U12L12D12E3U1 2R12G3D12E3U12L12G3D12E3R12"
1110 DRAW"c3bm44,145r3di2rlfll3hlgil2 e2u 11 ■:PA I NT(45,148),3:DRAW1c 3bm44,14 5ulgldlqidlg2dlgll2ulelu3elule2r2eir3 f 2r 2f2d1F 2d2h112u2h2d3f1g1h2u3h1g1d 21
I d 1 g 21 2 u 1 e 3 u 3
1120 DRAW"c3btri 103,12r2g2dlr7117rl7elu 2h 11 2q 1 d 1 + 2r 1 g3111 h3r7u 1 h,2r 5c3b m 1 03,1 2u713d7r3*sPAINT(102,10),3;PAINT(102, 17) ,3:CQL0R3:PRESET(100,1),1sPRINTttl,
II H
1130 DRAW"c3bml44,52r2g2dlr7117rl7elu 2h 112g 1 d 1 f 2r 1 g 31 11 h 3r 7u 1 h 2r 5c 3b m 144,5 2u713d7r3":PAINT(143,50),3:PAINT(143, 57) ,3:C0L0R3:PRESET(140,41),1:PRINTttl
1158 DRAW"C10BM238,24E4R6F4D5S3D3G2L4 H2U3H3U5":PAINT(245,25),10:COLOR1:PRE SET(239,25), 10:PR INT#1,"••":PRESET(24 3,32),10:PRINT#!,"=":PRESET(243,27).1 0: PRINT#!," *11
1160 DRAWC3BM143,17U7H4G4D7RB": PAINT (140,15) , 3: DRAW"C3BM143,17R8U7L8D7": F' AI NT(146,15),3:DRAW"C3BM143,10H5G5R2E 4H1F5R9H5L9*:COLOR1:PRESET(135,10),10 :PRINT#1," , ■
1170 DRAW"C3BM208,157U7H4G4D7R8":PAIN T(205,155),3:DRAW"C3BH208,157R8U7L8D7 11: PAINT (211,155) , 3: DRAW"C3BM20S , 150H5 65R2E4H1F5R9H5L9":COLOR!:PRESET(190,1 50),1:PRINT#!," , "
1180 DRAW"C38M222,45E7L6G7F3E3F9E3H9G 3■:PAI NT(225,45), 3:DRAW"C3BM210,15R18 G3L12H3C3BM211,14R17H9U3D12L1U767":PA INT(215,17),3:COLÖR3:PRESET(221,2),1: PRINT# 1,
1190 DRAW"C3BM7S,155R18G3L12H3C3BM79 ,
154R17H9U3D12L1U767":PA I NT(83,157),3: C0L0R3: PRESET (89,142) , 1: PR I NT#1, ,"'"":D RAW"C3BR238,64R6D2L4D2R12L1U5E2L7F2D5 R4F2D2G2L14U18D18D1R1D2F1R3E1U2R2D2F1 R3E1U2*:PA I NT <239,66),3:C0LQR3:PRESET (243,57) , 1: PRINT# 1 ,
1200 DRAW"C3BM17,50R6D2L4D2R12L!U5E2L 7F2D5R4F2D2B2L14U10D10D1R1D2F1R3E1U2R 2D2F1R3E1U2":PAINT(18,52),3:C0L0R3:PR ESET (22,43) , 1: PRINT#i,
1210 DRAW"C3BM206,33U!H1U4H3L4G4D4F3R 4E3U3H3L2G3D2F2R3E2H3L1G1D2F1R1E1H1L1 C3BM206,3361H1L1B1L662D1R14E2U6E1U1H1 E1R1 Li 1L1D1B1L1U3L1D1R1D2G1D5G1L1": F'A I NT(203,34),3
1220 DRAW"C3BM130,153U1H1U4H3L4G4D4F3 R4E3U3H3L2G3D2F2R3E2H3L1BlD2F1R1E1H1L 1C3BM130,153G1H1L1G1L6G2D1R14E2U6E1U1 H1E1R1U i L1D1G1L1U3L1D1R1D2G1D5G1L1": F' AI NT(130,155),3
1230 DRAW"C3BM243,100L1G1D3G2D2G1D4F2 R3U2R3D2R2E2U4H1U2H2U3H1G1H1":PA ï NT(2 43,1055 , 3:DRAW"C3BM243,100E2R6D1L1F3D 36 i H3U3E1L4B1
1240 DRAW"C3BM43,105L1G1D3G2D2G1D4F2R 3U2R3D2R2E2U4H1U2H2U3H161H1":PAINT(43 ,110),3:D R A W"C 3 B M 4 3 , 10 5 E 2 R 6 D1L1F 3 D 3 61 H3U3E1L4G111: DRAW"C3BM74,3iRl 1U7R4F3D6 G1L1D2G1L3H1U2L4D2G1L3H1U2R15L17U3C3B M86,31R3U4H1L2D5":PA I NT(76,32),3:LI NE (74,29)-(83,24),3,B
1250 DRAW"C3BM98,131R11U7R4F3D6G1L1D2 61L3H1U2L4D2G1L3H i U2R15L17U3C3BM110,1 31R3U4H1L2D5": F'A I NT (100,132) , 3: LINE (9 8,129) - <107,124) , 3 , B 1260 DRAW" C3BM175,45R14D13L14U13E3R14 G3D13E3U1 4BM1 77,47E1R8F1 D5G1L8H1U5": F' AINT (190,47) ,3: PRESET (177,50) , 1-.PRINT *1,". . ": DRAW"C3BM36,66R14D13L14U13E3R 14G3D13E3U14BM38,68E1R8F1D5G1L8H1U5": PA INT !51,68) ,3: PRESET (38,71) , 1: F'R INT#
£ II U
1270 DRAW"C3BH137,90E9R1D5R10G4F4L10D 5L1H9": C0L0R3: PRESET(142,86),1:PRINT# 1 , "A":DRAW"C3BM51,6R10U5R1F9G9L1U5L10 E4H4" :CGLÜR3: PRESET(63,7),1:PR INT#1," P"
1280 CIRCLE(118,71),3,3:CIRCLE(124,74 ),3.3: PA INT(118,71),3,3: PA INT(124,74) ,3,3:DRAW"C3BH119,69E6D6":PRESET(118, 61) , 1:C0L0R3:PRINT#1 1290 CIRCLE(62,94),3,3:CIRCLE(69,96), 3,3:PA INT(60,94),3,3:PA INT(69,96),3,3 : DRAW" C3BI461,91E6D6": PRESET (60,82) ,1: C0L0R3: F'R I NT# 1," *"
1300 DRAW"C3BM96,47R5U3E2R2F2D3R5D8G3 L10H3U8R11L1U3H1L2G1D3L4D2R12D5G2L8H2 U3R10D3L8U1R6":DRAW"C3BM118,107R5U3E2 R2F2D3R5D8G3L10H3U8R11L1U3H1L2G1D3L4D 2R12D5G2L8H2U3R10D3L8U1R6"
1310 DRAW"C3BM177,88E6R1166L11D3R11U3 E6D3G6L1D7L1U7L2D2L1U2L4D7L1U7R10E4D6 R1U7": DRAW"C3BM137,128E6R11G6L11D3R11 Ü3E6D3G6L1D7L1U7L2D2L1U2L4D7L1U7R10E4 D6R1U7
1320 DRAW "C3BM85,116U4R2D7L2U3": F'AI NT (86,116!,3:DRAW"C3bM85,116R9H5R3H4R2H 3R1H2G2R1G3R2G4R3G5R7":PAI NT(85,110), 3:DRAW"C3BM204,74U4R2D7L2U3":PA INT(20 5,74),3:DRAW"C3BM204,74R9H5R3H4R2H3R1 H2G2R163R2G4R3G5R7": F'AINT (204,68) ,3 1330 DRAW"C3BH159,74U2R3H2U2D2F2R2U7D 7R1E4G4R4D2L9D3F1 R'6E 1U3": PA INT (162,76 ),3:C0LGR3:PRE5ET(154,62),1:PRINT#1, ■ ":C0L0R3:PRESET(158,67),l:PRINT#!," »":C0LÜR3:PRESET(167,64), 1 :PRINT#1 , "
!i
1340 DRAWC3BM220,134U2R3H2U2D2F2R2U7 D7R1E464R4D2L9D3F1R6E1U3": F'A I NT (223,1 36),3:C0L0R3:PRESET(216,120) , 1:PRINT# 1,"":C0LÜR3:PRESET(219,126),1:PR INT #1,"•":C0LGR3:PRESET(228,124),i:PRINT #1,
1350 LI NE(77,97)-( 133,83), 10,BF:LINE(
195,60)-(195,40),3:LINEi195,160)-(195
,140),3:LINE(35,60)-(35,40) ,3
1360 'ilü SCHRIJVEN VAN DE CIJFERS
1370 X=-8:Y=6:N=0:COLQRCC
1380 X = X + 40:N = N + i:PRESET(X,Y),1: PRINT
#1,N: IFN=6THEN1390ELSE1380
1390 Y = Y + 40:N = N+1:PRESET(X,Y),1:PRINT
#1 ,N: I FN=9THENX=252:Y=146:GOTO1400ELS
E 1390
1400 X = X-40:N=N + 1:PRESET< X,Y),1:PR INT
#1 ,N: IFN=15THEN1410ELSE1400
1410 Y = Y-40:N = N+1:PRESET(X,Y),1: PRINT
#1 ,N:IFN=18THEN1420ELSE1410
1420 X = X + 40:N=N+1:PRESET(X,Y),1: PRINT
#1,N:IFN=23THEN1430ELSE1420
1430 Y=Y+40:N=N+1:PRESET(X,Y),1:PRINT
# 1, N:IFN=25THENX=232:Y = 126:GOTO1440EL
SE 1430
14 40 X = X-40:N = N+1:PRESET(X,Y),1:PRINT
#1 ,N:IFN=30THEN1450ELSE1440
1450 Y=Y-40:N=N+1:PRESET(X,Y),1:PRINT
#1 ,N: IFN=32THEN1460ELSE1450
1460 X = X+40:N=N+1:PRESET(X,Y),1:PRINT
#1 ,N: IFN=36THEN1470ELSE1460
1470 Y = Y + 40: N = N+1: PRESET <X,Y) , 1: F'RINT
#1,N:X=212:Y=106
1480 X = X-40:N=N+1:PRESET(X,Y),1: PRINT #1 ,N: IFN=41THEN1490ELSE1480 1490 Y=Y-40:N=N+1:PRESET(X,Y),1:PRINT #1 ,N
1500 X=X+40:N=N+1:PRESET(X,Y),1:PRINT
#1 ,N: IFN = 45THEN1510ELSEi500
1510 X=152:Y=86:N=N+1:PRESET(X,Y),C:P
RINT# 1, N:X = 0:Y=0:N=0
1520 Üil BEGIN SPEL
1530 X l = -5:X2=-2:X3 = l:Y1 = 1:Y2=l:Y3 = i
1540 PUTSPRITE0,(-30,-30),0,1:PUTSPRI
TE 1 , (-30,-30),0,0:PUTSPRITE2,(-30,-30
) ,0,0:PUTSPRITE3,(-30,-30),0,0
1550 IFGR=0THEN1630
1560 LINE(217,187)-(252,175),1,BF:PR
ESET(220,177),1:PR I NT#1,GR
1570 '
1580 F'LAY"V11T255L6404CR64GR6403GR640 4GR64CR64GR6403GR6404GR64CV8L4T12004"
1590 *
1600 '
1610 C0L0R6:PRESET(155,179),1:PRINT#
1,"N. ":COLOR15:PRESET(170,178),1:PRI NT#1,GI: PRESET(17 i,178),1:PR INT#1,GI
I! i!
1620 F O RI = 1T Q13 B 0:N E X T1 1630 IF6R=0THENPUTSPRITE0,(-30,-30),0 ,1:LINE < 0, 190)-(45,163),1,BF:FORI = 1TO 20:LI NE(217,187)-(252,163),1 ,BF:FORJ = 1T025:NEXTJ:PRESET(219,172),1:PRINT#! , "EINDE" :NEXTI:GOSUB3220ELSE1650 1640 LI NE(0,192)-(256,0),4,BF:COLOR15 ,4,4:SCREEN0:L0CATE9,12:PR I NT" T O T ZIENS ":CLOSE:FORI = 1TO 15 00:NE X T I:KEYON:CLS:END
1650 IFG = 1THENPUTSPRITE1, (20,1),K1,0: GOTO 1690
1660 IFG = 2THENPUTSPRITE1,<20,1) ,K1,0: PUTSPRITE2,(10,1),K 2,0:GOTO 1690 1670 IFG = 3THENPUTSPRITE1,(20,1),K1,0: PUT SPRITE2,(10,1),K2,0:PUTSPRITE3,(0, i),K3,0
1680 IBHI BEGINNEN 1690 IFG=1THENZ$ = Z 1 $:N = N1:K=K1:X = X1:Y = Y1:S=1:6OSUB1740:GOSUB2050:X1 = X:Y1=Y :N1=N:GOTO 1690
1700 IFG=2THENZt=Zl$:K=Kl:N=Ni:X=Xl:Y =Y1:S=1:GOSUB1740:GOSUB2050:X1=X:Y1=Y :Ni=N:Z$ = Z2$:N=N2:K=K2:X = X 2:Y=Y2:S=2:
:GOSUB 1740:GÖSUB2050:N2=N:X2=X:Y2=Y: GOTO 1700
1710 IFG = 3THENZ$ = Z 1 $:N = N1:K=K 1:X = X1:Y =Y1:S=1:GOSUB1740:GOSUB2050:X1=X:Y1=Y : N1 =N
1720 Z$=Z2$:N=N2:K=K2:X=X2:Y=Y2:S=2:G O S U B17 4 0: G O 3 U B 2 0 5 0: N 2 = N: X 2 = X: Y 2 = Y 1730 Z$ = Z3$:N=N3:K=K3:X = X3:Y = Y3:S=3:G OSUB 1740;GOSUB2050:X 3 = X:Y3 = Y:N3 = N:GOT 01710
1740 IBII WORP VAN DOBBELSTEEN
1750 LI NE(0,190)-(213,163) , 1, BF
1760 PUTSPRITE0,(-30,-30),0,1:W=135:Z
=150:IFN=9ORN=16THEN1840
1770 C0L0R6:PRESET(17,165) , 1:PRINT# 1 ,
U i COLOR 15
1780 '
1790 PRESET( 17,1805 , 1 s PR INT#1,"Werp d obbeisteen ";J$
1800 A=INT(RND(1)*6)+1 1810 IFN=0TBEN1830
1820 FORI=1T02:PUTSPRITES,(X,Y),0,0:N EXT I:FORI = 1T02:PUTSPRITES,(X,Y 5,K,0:N EXT'
1830 IFSTRÏG(JT)=-1THEN1840ELSE1800
1840 A=INT (RND(1)*6)+1
1850 LINE (12,190)- (213,163) , 1, BF
1860 LI NE(120,185)-( 135, 170) , 15,B
1870 DRAW"C15BH135;,170e5d15g5u15115e
5r 15":FORJ = 1TO300:NEXTJ
1880 FORI = 1T05:W = W-15:Z = Z-15
1890 LINE (W, 185) -'(Z , 170) , 15,B: DRAW"Cl
5BM=Z;,170e5d15q5u15115e5rl5":LINE(W-
15,190)-<Z +15,162),i ,BF:DRAW"C15BH = W;
,185E10H10G10F10r5e1015r5h1015*:PLAY" VI0T255L64R64O7BO4T120L4V8";LINE(N-15 , 19 0) - ( Z +15,16 2) , 1 , B F 1900 NEXTI
1910 D R A W"C15 B M 6 2,17 0 e 5 d15 q 5 u15 i15 e 5 r
15 b m 6 2,1851 15u 1511
1920 IFA=2THEN19B0
1930 IFA=3THEN1990
1940 IFA=4THEN2000
1950 IFA=5THEN2010
1960 IFA=6THEN2020
1970 PUTSPRITE0,(48,170),15,1:GOTO203 0
1980 PUTSPRITE0,(48,170),15,2:GOTO203 0
1990 PUTSPRITE0,(48,1705,15,3:GOTO203 0
2000 PUTSPRITE0,(48,170),15,4:GOTO203 0
2010 PUTSPRITE0,(48,170),15,5:GOTO203 0
2020 PUTSPRITE0,(48,170),15,6:GOTO203 0
2030 FORI=1TO500:NEXTI:IFN=90RN=16THE N2040ELSERETURN
2040 "SB1B PLAATSEN VAN PIONNEN 2050 F0RI=1T0A
2060 IFN<6THENX=X+40:GOTO2340 2070 IFN = 6THENY = Y + 60:GOTO2340 2080 IFN<9THENY = Y + 40:GOTO2340 2090 IFN=9THENX=X-20:GOTO2340 2100 IFN<15THENX=X-40:GOTO2340 2110 IFN=15THENY=Y-40:6OTO2340 2120 IF N <18 T H E N Y = Y-4 0:G O T O 2 3 4 0 2130 IFN=18THENX=X+40:GOTO2340 2140 IFN<23THENX=X+40:GOTO2340 2150 1FN=23THENY=Y+Ó0:GOTO2340 2160 IFN<25THENY = Y + 40:GOTO2340 2170 IFN=25THENX=X-20:GOTO2340 2180 IFN<30THENX=X-40:GOTO2340 2190 IFN=30THENY=Y-40:GÖTO2340 2200 IF.N<32THENY = Y-40: GOTO234G 2210 IFN=32THENX=X+40:GOTO2340 2220 IFN<36THENX = X + 40:6OTO2340
2230 IFN=36THENY=Y+60:GOTO2340 2240 IFN<37THENY=Y+40:GOTO2340 2250 IFN=37THENX=X-20:GOTO2340 2260 IFN<41THENX=X-40:GOTO2340 2270 IFN=41THENY=Y-40:GOTO2340 2280 IFN<42THENY=Y-40:GÜTQ2340 2290 IFN = 42THENX = X + 40:GOTO2340 2300 IF N < 4 5 T H E N X = X + 4 0: G O T 0 2 3 4 0 2310 IFN=45THENY=Y+20:X = X-20:GOTO2340
2320 IFN=46THENX=X-60:GÜTÜ2340 2330 IFN>46THENGOBUB2460:6OTO2350 2340 PUTSF'R ITES , (X,Y) , K, 0: BEEP: FOR j = l TOJJ:NEXTJ:N=N +1 2350 NEXTI
2360 IFN = 47THENGOSUB2670:RETURN 1530 2370 IFN=6QRN=37THENGOSUB2B30:GOTO244 0
2380 IFN=40RN=110RN=18QRN=290RN=3BTHE NGOSUB2900:GOTO2040
2390 IFN=24ORN=42THENGOBUB2970:GOTO24 40
2400 IFN=20ORN=32THENGOSUB3030:GOTO24 40
2410 IFN=26THENGOSUB3100:SOTO2040 2420 IFN = 90RN=16THENGOSUB3130:GOTO 176 0
2430 IFN=i5THENGÜSUB3180:GOTO2440 2440 RETURN
2450 1181 SPECIALE VELDEN
2460 '
2470 IFA=2ANDI=2THENX=X+60:PUTSPRITE3 ,(X,Y),K,0:BEEP:FORJ=1TOJJ:NEXTJ:N=46 :I=A:RETURN
2480 IFA=3ANDI=3THENX=X+60:PUTSPRITES ,< X,Y),K,0:BEEP:FORJ=1TOJJ:NEXTJ:N=46 :I=A:RETURN
2490 IFA=4ANDI=4THENX=X+60:PUTSPRITES ,(X,Y),K,0:BEEP:FORJ=1TOJJ:NEXTJ:N=46 :I=A:RETURN
2500 IFA=5ANDI=5THENX=X+60:PUTSPRITES ,< X,Y),K,0:BEEP:FORJ = 1TOJJ:NEXTJ:N = 46 :I=A:RETURN
2510 IFA=6ANDI=6THENX=X+60:PUTSPRITES ,(X,Y),K,0:BEEP:FORJ=lTOJJ:NEXTJ:N=46 :I=A:RETURN 2520 '
2530 IFA=3ANDI=2THENX=X+60:PUTSPRITES ,(X,Y),K,0:BEEP:FORJ=1TOJJ:NEXTJ:X=X+ 20: Y=Y-20:PUTSPRITES,(X,Y) , K,0:B E E P:F ORJ = 1TOJ J:NEXTJ:W=45:I=A:RETURN
2540 IFA=4ANDI=3THENX=X+60:PUTSFRITES
,< X,Y1,K,0:BEEP:FDRJ = 1T0JJ:NEXTJ:X = X + 20:Y=Y-20:PUTSPRITES,(X,Y),K,0:BEEP:F ORJ = 1 TOJJ:NEXTJ:N = 45:I=A:RETURN 2550 IFA=5ANDI=4THENX=X+60:PUTSFRITES ,< X,Y),K,0:BEEP:FORJ=1TOJJ:NEXTJ:X = X + 20: Y = Y - 20: F'UTSPRITES, <X,Y> ,K,0:BEEP:F ORJ = 1 TOJJ:NEXTJ:N = 45:I=A:RETURN 2568 IFA=6ANDI=5THENX=X+60:PUTSPRITES , IX,Y),K,0:BEEP:FORJ = 1TOJJ:NEXTJ:X = X + 20:Y=Y-20:PUTSPRITES, IX,Y) ,K,0:BEEP:F ORJ=1TOJJ:NEXTJ:N=45:I=A:RETURN 2570 '
2580 IFA=4ANDI=2THENX=X+60:PUTSPRITES ,(X,Y),K,0:BEEP:FORJ=lTOJJ:NEXTJ:X=X+ 20:Y=Y-20:PUTSFRITES,(X,Y),K,0:BEEP:F ORJ = lTOJJ:NEXTJ:X = X-40:PUTSPRITES, (X, Y) ,K,0:BEEP:FORJ = 1TOJJ:NEXTJ:N = 44:I=A :RETURN
2590 IFA = 5ANDI=3THENX = X + 60:PUTSPRITES ,(X,Y),K,0:BEEP:FÜRJ=1TOJJ:NEXTJ:X=X+ 20:Y = Y-20:PUTSPRITES,(X,Y) , K , 0:BEEP:F ORJ=1TOJJ:NEXTJ:X=X-40:PUTSPRITES,(X, Y),K,0:BEEP:FORJ = 1TOJJ:NEXTJ:N=44:I=A :RETURN
2600 IFA=6ANDI=4THENX=X+60:PUTSPRITES ,(X,Y),K,0:BEEP:FORJ=lTOJJ:NEXTJ:X=X+ 20: Y = Y-20: PUTSPRI TES, ( X , Y > , K,0:BEEP:F 0RJ=1TQJJ:NEXTJ:X=X-40:PUTSPRITES,IX, Y),K,0:BEEP:FORJ=lTOJJ:NEXTJ:N=44:I=A :RETURN 2610 *
2620 IFA=5ANDI=2THENX=X+60:PUTSPRITES ,(X ,Y) ,K,0:BEEP:FORJ = 1TOJJ:NEXTJ:X = X + 20:Y = Y-20:PUTSPRITES,(X,Y),K,0:B E E P:F ORJ = 1TOJJ:NEXTJ:X = X~40:PUTSPRITES, (X, Y),K,0:BEEP:FORJ=lTOJJ:NEXTJ:X=X-40:P UTSPRITES,(X,Y),K,0:BEEP:FORJ=1T0JJ:N EXTJ:N=43:I=A:RETURN 2630 IFA=6ANDI=3THENX=X+60:PUTSPRITES ,< X,Y),K,0:BEEP:FORJ=1TOJJ:NEXTJ:X=X+ 20:Y=Y-20:PUTSPRITES,(X,Y) ,K,0:BEEP:F ORJ=lTOJJ:NEXTJ:X=X-40:PUTSPRITES,(X, Y! ,K,0: BEEP: FORJ = lTOJJ: NEXTJ:X = X-40: F' UTSPRITES,IX,Y),K,0:BEEP:FORJ=1TOJJ:N EXTJ:N=43:I=A:RETURN 2640 '
2650 IFA = 6ANBI=2THENX = X + 60:PUTSPRITES , IX ,Y) ,K,0:BEEP:FORJ = lTOJJ:NEXTJ:X = X + 20:Y=Y-20:PUTSPRITES,(X,Y),K,0:BEEP:F ORJ = 1TOJJ:NEXTJ:X = X -4 0:PUTSPRITES,(X, Y i,K,0:BEEP:FORJ = 1TUJ J:NE X TJ:X = X-40:P UTSPRITES,IX,Y),K,0:BEEP:FORJ=lTOJJ:N EXTJ
2660 X = X-40:PUTSPRITES,<X,Y),K,3:BEEP :FORJ = 1TOJ J:NEXTJ:N=42:I=ft:RETURN 2670 "3111 AANKOMST 268S PUTSPRITE0,(-20,-20), 0,1;LI NE(39 , 189)-(205,162),1,BF:C0L0R15,6,6:PLAY 11V1307T255L64CDEF6FEDC04L4T120V8"; FOR 1 = 1 TO300:NEX TI
2690 C0L0R7:PRESET(43,165 5 , 1 ï PRINT#1 , "GEWELDIG!!";C0L0R6:PRESET(125,165),1 :PRINT#1,Z$:C0L0R7;PRESET(43,180) , 1:P RINT#1,"GEWONNEN SPEL Nr.";GI:C0L0R15
2700 PLAY"T60L45V1305CCCCCCCCR6404GR2
4AAA6GGG6R10Q5CCCCCCCCR64O4GR24AAAGGR
10O5F-R64F-R64FFFF-R10F-R64F-R64FFFF-
R803L8GGAB04CT120L4V8O4T120L4V8","T60
L45V9O5EEEEEEEER64ER24FFFEEEEER10EEEE
EEEER64ER24FFFEER10GR64GR64AAA6R10GR6
4GR64AAAGRST120L4O4V8!1
2710 FORI = 1TO40;FORJ = 1TO20:COLOR,,6:N
E X T J ; F O R J = 1T O 2 0; C O L O R , , 10: N E X T J : N E X TI
:COLOR 15,1 ,1
2720 N=0:X=0:Y=0:X1=0:Y1=B:X2=0:Y2=0: X3=0:¥3=0:N1=0:M2=8:N3=0:GI=6I+1:GR=G R-1: FORI = 1TO500:NEX TI:LI ME(0,189)-i 20 5,162),1,BF;PUTSPRITE0,(18,173) ,0,1 2730 IFZ$=Z1$THENV1=V1+1 2740 IFZ$=Z2$THENV2=V2+1 2750 IF Z $ = Z 3 $ T H E N V 3 = V 3 +1 2760 IFG = 1THEN2820
2770 IFG = 2THENCQLQR6:PRESET(45,165) , 1 : PR INT#1,Z1 $:COLOR11:PRESET <45, 180) , 1 :PRINT#!,"SPEL GEWONNEN =";V1:FORI=1 TO1000:NEXTI:LI NE(39,189)-(205,162) , 1 ,BFELSE2790
2780 C0L0R6:PRESET(45,165),1:PRINT#1, Z2Ï:COLOR11:PRESET !45,180) , 1:PRINT#!, "SPEL GEWONNEN ="; V2: FOR I = 1 TO 1 000: NEX TI:LINE<39,189)-(205,162),1,BF:GOTO28 20
2790 IFG = 3THENCOLOR6:PRESET <45,165) ,1 :PRINT#!,Zlf:COLOR11:PRESET(45,180) , 1 :PRINT#!,"SPEL GEWONNEN =";V1:FORI = 1T 01000:NEXTI:LI NE(39,189)- (205,162) , 1 , BF
2820 C0L0R6:PRESET(45,165) , IrPRINTil, Z 2*:COLOR11:PRESET(45,180), 1:PR I NT#1, "SPEL GEWONNEN V2: FORT = 1 TO 1080: NEX TI;LI NE ! 39,189 S-(205,162),1,BF 2810 C0L0R6:PRESET(45,165), 1:PRINT#!, 23-^: COLOR! 1: PRESET (45,180) , 1; PRINT# 1 , "SPEL GEWONNEN =";V3:FORT = 1TOl000:NEX TI :L INE(39, 189)~(205,162), 1, BF:GOTO28 20
2820 COLOR15:RETURN
2830 ÏHl TERUG
2840 PUTSPRITE0,(-30,-30),0,1
2850 LI NE(39,189)-(205,162),1 ,BF:COLO
R7:PRESET(43,165), 1:PRINT#1,"JAMMER !
! ":C0LuR6:PRESET( 125,165) , 1 :PRINT#!,Z *:COLOR7: PRESET(43,180),1:PR INT#1,"Ga terug naar beqin ":COLQRT5 2860 PLAY"yi2L10O2CFFR646A-A-R64GFFFF FFR64CR64CCR64CR64CCCCCCCV8L404":FORJ = 1TOl700:NEXT J
2870 IFZ$ = Zl'$THENX = -5:Y = l:N = 0:FORI = iT
0200;PUTSPRITE 1,(20,1),0,0:PUTSPRI TE 1
, (20,1) , K1,0;NEXTI:RETURN
2880 IF Z $ = Z 2 $ T H E N X = - 2: Y = 1: N -- 0: F O F: I = 1T
0200:PUTSPRITE2,(10,1),0,0:PUTSPRITE2
, (10,1) ,K2,0:NEXTI:RETURN
2890 IFZ$=Z3$THENX=i:Y=1:N=0:F0RI=1TQ
200:PUTSPRITE3,(0,1),0,0:PUTSPRITE3 , (
0,1),K 3,0:NEXTI;RETURN
2900 0IH VOORUIT GAAN
2910 PUTSPRITEB,(-30,-30),0,1: LINE (3
9.189) -(205,162),1,BF:C0L0R7:PRESET(4
3.165) ,1: PR INT#!," PR I MA ! ! 11: CÖL0R6: PR ESET(105,165),1:PRINT#!,Zf:C0L0R7:PRE SET(43,180),1
2920 IFA=1THENPRINT#1,"Ga vooruit";A; "velden ":GuTu2940
2930 IFA< >1THENPRI NT#1,"Ga vooruit";A ;"velden"
2940 COLOR 15
2950 PLAY"V12L64T255O5R64GF;64GR64AR64 AR64ER64ER64G6R4GR64GR64AR64AR64ER64E R64GGG04L4T120VS","V12L64T25505R64ER6 4ER64FR64FR64CR64CR64EER4ER64ER64FR64 FR64CR64CR64EEEO4L4T120V8"
2960 FORJ=1TO1300:NEXTJ:RETURN 2970 Uil TERUG NAAR VELD 13 2980 PUTSPRITE0,(-30,-30),0,1: LINE(3
9.189) -(205,162),1,BF:C0L0R7:PRESET(4
3.165) ,1:PRINT#!,"PECH !!":CÖLQR6:PRE SET(120,165),1s PR INT#1,Z$:C0L0R7:PRES ET(43,180),1:PRINT#!,"Ga terug naar 1 3":COLOR15
2990 PLAY"V1203C02BAGFEBCCC04V8":FORJ =1102000:NEXTJ
3000 IFZf = Z1$THENX = 95:Y = 141:N=13:FORJ = 1TQ200:PUTSPRITE 1,(X,Y),0,0:PUTSPR IT El,(X,Y),K1,0:NEXT J:RETURN 3010 IFZ$=Z2$THENX=98:Y=141:N=13:FORJ = 1TO200:PUTSPRITE2, (X,Y) ,0,0:PUTSPRIT E2,(X,Y),K2,0:NEXTJ:RETURN
3020 IFZ$ = Z3'$THENX = i2i: Y= 141: N = 13: FOR J=iTO200:PUT5PRITE3,(X,Y),8,0:PUTSPRI TE3, (X,Y),K3,0: NEXTJ: RETURN 3030 'IB1B VLIES NAAR 3?
3040 PUTSPRITE0,(-30,-30),0,1
3050 LINE (39,189)- !205,162),1,BF:COLO
R7:PRESET<43,1655,1:PRINT#!,"GOED ZO
! I ":CÖLOR6:PRESET(115,165),1:PRINT#1,
Z$:CÜLOR7:PRESET(43,180),1:PRINT#1,"V
lieg naar nr. 39";Ü0L0R15
306 0 PLAY"V12T255L6403CDEF6AB04CBEFGA
BO5CDEFGABO6CDEF6ABQ7CCCCCCCCCCL4T120
0498","V12T255L6403EFGAB04CDEFGAB05CD
EFGAB06CDEFSAB07CDEEEEEEEEEE":F0RI=1T
O i 400: NEXTI
3070 IFZ$=Z1$THENX=135:Y=101:N=39:FOR J = 1TO200:PUTSPRI TE 1,i X,Y),0,0:PUTSPRI TE 1, S X , Y),K1,0:NEXT J:RETURN 3080 IFZ$=Z2$THENX=13B:Y=101:N=39:FOR J = 1TO200:PUTSPRITE2,(X,Y 5,0,0:PUTSPRI TE2, (X,Y),K2,0;NEXTJ:RETURN 3090 IF Z f = Z 3 $ T H E N X = 141:Y =101:N = 3 9:F O R J = 1TO200:PUTSPRITE3,(X,Y5,0,0:PUTSPRI T E 3,< X,Y) , K 3,0:NEXTJ:RETURN 3100 "IBIS 10 STAPPEN VOORUIT
3110 PUTBPRITE0,(-30,-30),0,1: LINE(3 9,189)-(205,162),1,BF:C0L0R7:PRESET(4
3.165) ,1:PRINT#1,"GOED ! ! ":CÜLQR6:PRE SET (105,165), 1 ï PRINT#1,1$:C0L0R7:PRES ET(43,180),1:PRINT#1,"Ga 10 velden va orui t":CQL0R7
3120 PLAY"V12L64T255Ö5DDR6D-DD+B+R6DD
BDDDR4DR46S66L4O4V8T120":FORJ=1TO1000
:NEXTJ:A=10:RETURN
3130 Ui! NOG EEN KEER GOOIEN
3140 PUTSPRITE0,(-30,-30),0,1: LINES3
9,189!-(205,162),1,BF:C0L0R7:PRESET(4
3.165) , 1:PRINT#1,"JOKER ï! ":CQLQR6:P RESET(120,165),1 :PRINT#1,Z$: C0L0R7: PR ESET143,180),1:PRINT#1,"Gooi nog een keer":C0L0R15
3150 PLAY" VI21 llo4geer64etgo5erllerll ccccco414V8":FORI=ÏTO1500:NEXTI:LINE( 39,1895-(205,162 5 , 1 ,BF:PRESET(60,172)
, liCOLOR13:PRINT#1Werp goed":COLOR1 5
3160 FORI = 1T02:PUTSPRITES,(X,Y),0,0:N EX TI:FORI = 1T02:PUTSPRITES,i X,Y i,K,0:N EXT!
3170 IFSTRIB(JT)=-1THENRETURNELSE3160
3180 " Uil 5 VELDEN TERUG 3190 PUTSPRITE0,(-30,-30),0,1: LI NE(3 9,189!-(205,162), 1,BF:C0L0R7:PRESET (4
3,165),1:PRINT#1,"PECH !! ":C0L0R6:PR ESET(110,165),1:PRINT#1,Z$;C0L0R7:PRE SET(43,180) , 1:PRINT#1,"Ga 5 velden te rug":C0L0R7
3200 PLAY1'V12L1102GR64GR64GR64EEEEEEE EEEEEEEEV8L404":FORJ=1TO1400:NEXTJ 3210 FQRI = 1 TOS::BEEF:X = X + 40:PUTSPRITE S, < X , Yi ,K,0:FORJ = 1TOJJ:NEXTJ:NEXTI:N = 10:RETURN
3220 "1111 EINDE PARTIJ 3230 PUTSPRITE1,(-30,-30),0,0:PUTSPRI TE2, (-30,-30),0,0:PUTSPRITE3,(-30,-30 ) ,0,0:LINE(0,192) - (256,05, 1 ,BF 3240 LINE(5,185)-(250,5),6,B:LINEi10, 80) - (245,30),6,B:LINE(15,145) - (240,90 5 ,2, B
3250 PRESET(60,15) , 1:PR INT# 1,"Eindsit uat i e"
3260 IFG=1THENC0L0R7:PRESET(20,52),1: PR I NT#1,Z M:COLOR15:PRESET < 90,52) , 1 :P RINT# 1 , "Spel gewonnen -11; V1: GOTQ3300 3270 IFG = 2THENC0L0R7:PRESET(20,45) , 1 : PRINT#!,Zi$:COLOR15:PRESET(90,45) , 1 :P RINT#1,"Spel gewonnen ;VI:C0LQR7:PR ESET(20,60),1:PRINT#!,Z2$:COLOR15:PRE SET(90,60! , 1:PR INT#1,"Spel gewonnen -";V2:GOTO3300
32S0 IFG=3THENC0L0R7:PRESET(20,40),1: PRINT#1,Z1 $:COLOR15:PRESET(90,40) , 1:P RINT# 1 , "Spel gewonnen -,!; VI: C0L0R7: PR ESET(20,55),1:PRINT#1,Z2$:COLOR15:PRE SET(90,55),1:PRINT#!,"Spel gewonnen -"; V2
3290 C0L0R7:PRESET(20,705,1 :PRINT#!, Z 3t:COLOR15:PRESET(90,70) , 1 :PRINT#1,"S pel gewonnen -";V3:GOTO3300 3300' 'HU VERMELDING WINNAAR 3310 IF6=1THENPRESET(50,100),1:PRINT# l,"Er is geen twijfel aan":PRESET(25, 110),1:P RIN T #1,"d e winnaar van deze p art ij":COLOR10:PRESET(60,130),1 :PR I NT
#1,"......ben jij !!":GOTO3440ELSE332
0
3320 PRESET (20,105) ,!: PRINT#!, "De partij is gewonnen door"
3330 IFG=2THEN3340ELSE3360 3340 IFV1=V2THENC0L0R13:PRESET(50,120 ) ,i;PRINT#l,Zi*;■ en "; Z2*:COLOR15:GO TO3450ELSE3350
3350 IFV1>V2THENCDLDR13:PRESET(80,12B ) , 1: PRINT#!,Z1*: COLOR15:GGTO3450:ELSE COLOR13:PRESET{80,120),1:PRÏNT#1,Z2$: C0L0R15:BOTO3450
3360 IFv 1 = V2ANDV 1 = V3THENC0L0R 13: F'RESE T (80,115) ,l:F'RINT#l,Zlf: PRESET (80,125 ) , 1:PRINT#1,Z2$:PRESET(80,135), 1:PRIN T# 1, Z3$:COLOR15:6OTO3450ELSE3370 3370 IFV1=V2ANDV1>V3AND»2>V3THENC0L0R 13:PRESET(50,125), 1 :PRINT#!,Z1$; " en "; Z2$:C0L0R15:BOTO3450ELSE3380 3380 IFV1=V3ANDV1>V2ANDV3>V2THENC0L0R 13: PRESET (50,125) , 1 : PRINT# 1 ,Z1$; " E ;Z3f:C0L0R15:GOTO3450ELSE3390 3390 IFV2 = V3ANDV2>V1ANDV3>V1THENCOLOR 13:PRESET(50,125),1:PRINTtl,Z2t;" E " ;Z3t:COLOR15:GOTO3450ELSE3400 3400 IFV1 >V2ANDV1 >V3THENC0L0F: 13: F'RESE T (80,125),1:PRINT#1,Z1$:COLOR15:GOTO3 450ELSE3410
3410 IF92>V1 ANDv2>V3THENC0L0R13:PRESE T (80,125),1:PRINT#1,Z2$:COLOR15: GOTO3 450ELBE3420
3420 IF'y3>V1 AMDV3>V2THENC0LuR 13: PRESE T <80,125i , 1:PRINT#!,Z3*:COLOR15:GOTO3 450ELSE3430 3430 '
3440 COLOR3:PRESET(70,158),1:PRINT#!, "Nog een keer ?":PRESET(15,170),1:PRI NTtï,J$;" =Ja - \N7 =Nee":COLOR15
: GOTO3460:ELSE3450
3450 C0L0R3: PRESET(70,158),1:PR INT#1 ,"Nog een keer ?":PRESET(15,170),1:PR INT#l,Jf;" =Ja - \N/ =Nee":COLOR1
5: GOTO3460
3460 IFSTRIG(JT)=-1THENCL0SE;C0L0R1,3 ,3:SCREEN0:V1=0:92=0:V 3 = 0:RUN120ELSE3 470
3470 K$=INKEY$:IFK$="N"THENRETURNELSE 3460