10 REM ************************* ************
20 REM * DIT IS EEN "HÜMECOOKED
" 60 SPEL #   
30 REM * PRODUCENT:  "REJA" PROD
ÜCÏIÜNS *   
40 REM ■* DATUM START : PAKWEG NO
v 1988 *   
50 REM  GESCHIKT VOOR: M.S.X.  
2 *   
62 REM *************************   
************    
70 REM 80 REM x, Y  COÖRDINATEN
CURSOR 90 REM XA i Y ft  COÖRDINATEN
BORDARRAY    
100 REM ft B (15 , i 5)  : BORDARRAY
110 REM N, M : VERPLAATSIN
6 CURSOR 120 REM EEN 0   DIAMETER ST
130 REM EN F'   AANTAL LIJN
140 REM RT 150 REM GZ   TELLING ZWA
 G W   TELLING WIT
160 REM EN AZ : AANTAL ZETT
170 REM ZW$ : NAAM ZWART
SPELER 180 REM ELER WT* : NAAM WIT SF'
190 REM INB DIAGRAM 200 REM 210 REM  A , B, C, D : PLAATSBEPAL
220 REM 230 CIS
240 CLEAR 1000
250 L E E 6 $ ="
260. BEZf ="BEZET PUNT"
270 DIM AB(15,15)
280 SCREEN 5
290 REM--------------------------------
---------------------SUBROUTINE ieSCHE
RM -
300 eOSUB 2210
310 REH 320 RE H-
■-INVOEREN NAM
EN -
330 REM
340 L 0 ü A T E 0,0 : INPUT i! WI E SPEEL
T ME T 7 WA PT . • 7 ii! t j j. w n f\ 5 t j i. r# ■*•  
350 IF ZW$ =" 8 THEN PRINT "NAAM
INVO EREN S.V.P." : GOTO 340 
360 LOCATE 0,20 : INPUT "EN s: m m
T WIT: "; W T $
INVOEREN S.V.P." : GOTO 360 380 REM
390 REM -------------------------------
M -
400 REM
410 REHFOR K= 1 TO 15 420 REM FOR H= 1 TO 15
430 REM LET AB(K,H)=0
440 REM NEXT H
450 REMNEXT K 460 REM
C L S: C O L O R 15,6,12; S C R E E N 5
470
480
490
500
510
LtT SZ-O LET GW=0
LI NE (5,5)-(251,207) , 14, B PRESET(15,20) :PR I NT#1,"#****#
** HOOFDMENU #**#*#***"
520
ORMAAT
530
PRESET(40,40) :P RIN T #1,"F1 = F
XV
PRf
(40,60) :PRINT#!,"F 2
ORMAAT 11X11" 540
PRESET(40,80) :PRINÏ#1,"F3 - F
ORMftAT 13X13" 550
= T
= w
PRESET(40,100):PRINT#1,"F4 ERUG HOOFDMENU"
560 PRESET(40,120):PRINT#!,"F5
ESNEMEN STENEN"
570 PRESET(40,140):PRINT#1,"F6 = E
X IT"
5S0 PRESET(40,1605:PRINT#!,"F7 = S
PELRESELS"
590 PRESETi15,190):PRINT#!,"C **** REJA##PRODUCT!ONS**##*"
600 CIRCLE (17,193),5,15,,,1.36
610 REM
620 REM-------------------------------
-------------------------FUNCTIE TOET
630 REM 
640 ON KEY GOSU B 680,760,840,410,1
400 ,2280,2000 
650 KEY (1) ON: KE Y (25 0 N:KEr (3)
ON: 1 KEY (4) ON:KEY (5) ON:KEY (6) ON:
 KEY ( 7) ON
660 GOTO 660 
670 REM 
680 REM  
------------------------------------dv9 g
ORD--690 REM
700 XA=10: YA = 10
710 KE Y (15 O F F: K
(3) OFF: KEY (6) OFF:
720 A=11:B=11:C=12
730 X=120:Y=177:0"
740 GOTO 940
750 REM
1 L -gI p C M__________
/ UV P» i_ » I
---------------------------------11X11 8
ORD -
770 REM 780 X A = 12
790 KEY (
(3) OFF: KEY 800 A = 11:
810 X = 12 S
820 GOTO
830 REH
840 REM------
---------------------------------i 3 X ! .3 B
ORD--850 REM
860 X A=14 : YA = 14 
87 0 KEY (1) OFF: K E Y (2) OFF: KEY
(3 i OFF: KEY (6) OFF: KEY (7) OFF
880 A=11:B=11:0=13 1:B=191
890 X = 12 8: Y = 18 9: 0 = 5:M = 10:N=15:P=13
1) OFF: KEY < 2) 0 F F: KEY (65 OFF: KEY (7) OFF B=ll:C=13i:D=i91 :Y=189:0 = 7:M = 12:N= 13:P = 11
940
( (2) OFF
■' p V ! 7
K E Y
) U ! I-
U ~ i. /
hr1 - i A , !l" 1 T ;
P = 9
900 GOTO 940 910 REM
920 REM---------
NEN- -
930 REM
940 CLS
950 COLOR 6,5,1 : SCREE
960 FOR K= 1 TO P
970 LIN E (A , B 5 - (C, B)
BORD LIJ
SEN -
B = B + N
980 N t X j k  1310 REM  
O O ff, l.' B = 11  1320 IF ftB(Xft,Yft)< >0 THEN PRESET (
1000 FOR K= 1 TO P  11,200): PRINT #1,BEZ* E LSE GOTO 1360
1010 LI NE (A , B)-(ft , D): : A=ft+M   
1020 NEXT K  1330 FOR K= 1 TO 350 : NEXT K
1030 REM  1340 PRESET (11,200) : PR INT#1,LEE
1040 REM-
-----------------------------NAAM SF'ELE
RS--
105Z REM
1060 PRESET (0+18,165); PRINT#!,"
AAN ZET:"
1070 PRESET <0+18,190): PRINT#!,"
F4=H00FDMENU"
1080 PRESET <0+18,200): PRINT#!,-
F5=SLAAN11
1090 P F; E S E T (C+18 1 d « 1 yj 1
ZWART:"; LEFT* ( Z W * , 1)
1 100 LIN E (0+16 ,11)
,B   
1110 PRESET (C+18 , ó 5}
'ó L L H Ü t N • »  
1120 PRESET (C+18 ,76)
WIT : "; LEFTf (W T *, 7)
1130 LI NE (0+16 ,72)
5, B   
1140 PRESET (C+18 ,96)
b L w L ft b E N 1150 REM 1160 REM * >!  
   
I TE - 1170 REM   
1180 CDDTTCt { (71 - T w i n a i l. +• \ ii / - u  HR$ (
38)+CHR* (&H10)  
PRINT#!," PRINT#!,"
i* 1 ji 8 , tj tj ) , 1
PRINT#! , "
-CURSOR SPR
1190 PUT S P RI 1 E 6 , (X , Y)
1200 L := STICK(0) 
1210  T C 7 - 1 T i 1 L. " 1 » HEN Y =
ft -1 : IF Y< - 7 THEN y=y+n
1220  IF Z=3 THEN X= 
ft+1 : IF X > C THEN X = X - M
1230  IF Z-5 T Li U k! V - MLil i "
A+i : IF Y> D THEN Y=Y-N
1240  IF l-l T HEN X =
ft-1 : IF X< - 1 THEN X = X + M
1250 FOR K= 1TO30 : NEX
• A - V m-A
A H = /,
1260
I TTOl lil Ij
1280 1290 REM 1300 REMMEN--
ON STR1G BOSUB 1300 STRIG < 0) ON GOTO 1190
LET R=0 : S=0 : T=0 : U=0 
IF Xft = 2 THEN LET R=0 ELSE IF
THEN LET S = 0 
IF Yft = 2 THEN LET T=0 ELSE IF
THEN LET U=0 
IF A B (X ft ,Yft)= 0 THEN GOSUB 150
  ELSE GOS
G*
1350 RETURN 1360 AZ = AZ + !
1370 IF ft Z = 2 * IN T (ftZ/2) THEN GOSUB
1690 ELSE GOSUB 1810 1380 RETURN 1390 REM
1400 REM -------------------------------
-----------------------VERWIJDEREN STEN
EN --1410 REM 1420 1430 X A=Ph 1440
0
UB 1570
1460 PRESET (0 + 90,35):PR I NT#1,GZ 1470 PRESET (0+90,96);PRINT#!,GW
1480 RETURN 1490. REM
1500 REM ------------------------------
------------------CONTROLE VERWIJDER IN
G --
1510 REM
1520 PRESET (11,200) :PRINT #1,"GE
EN STEEN!!!!!"
1530 FÖR K = 1 TO 400 : NEXT K 1540 PRESET ( 1 1,200) : F'RINT #1, LE EG*
1550 RETURN 1560 REM
1570 REM ------------------------------
----------- JÜISTE KLEUR VERWIJDERING
1580 REM
1590 IF AZ = 2*INT(AZ/2) THEN IF A B(X A , YA)= 1 THEN GOSUB 1630: RETURN E LSE GOSUB 1920 ELSE IF AB (X
A,YA)=-1 THEN GOSUB 1630: RETURN ELSE GOSUB 1920 1600 AB(XA,YA)=0
-PLAATSEN DER STE
LET AB{P+
1610 IF AZ=2#INT(AZ/25 THEN LET GW = GW +1 Ei_SE LET G Z = G Z +1 1620 RETURN
1630 PRESET (11,200):PRINT#!,"EIGE
N STEEN"
1640 FOR K= 1 TO 400
1650 NEXT K
1660 PRESET (11,200):PR INT#1,LEEG$
1670 RETURN 1680 REM
1880 FDR K= 2 TQ P+2 :
2, K) = -1: NEXT K 1890 FOR K= 2 TO P+l : LET AB iK, P+2)=-1: NEXT K 1900 GOSUB 2470 1910 RETURN 1920 REM
1930 REM-------------------------------
-----------------------VERWIJDEREN STE
EN -
1940 REM
1690 REM ------------------------------
------------------ PLAATSEN WITTE STEN
EN --1700 REM
1710 CIRCLE (X + 3,Y+2) ,0,15,,,1.36: FA I NT ( X , Y i,15:
CIRCLE (C + S5 , 168),0-2,1 ,,,1.36: PA INT (C+85,1685,1 : 00 = 15 1720 LET AB(XA,YA) = 1
1730 REM-------------------------------
-------------------------------WITTE RA
ND -
1740 1) = 1 : FOR NEXT K = K 1 TO P + 2 : LET ft B (K,
1750 K > = 1 : FOR NEXT K= V F*. 2 TO P + 2 : LET AB (1,
1760 2, K) = 1: FOR NEXT K n TO P + 2 : LET AB (P +
1770 FOR K = X. TO P+l : LET AB (K,
P+2)=1: NEXT K 1780 GOSUB 2460 1790 RETURN 1800 REM
1810 REM ------------------------------
---------------- PLAATSEN ZWARTE STEN
EN --1820 REM
1830 CIRCLE (X + 3,Y + 2),0,1,,,1.36: PA INT (X , Y),1 :
CIRCLE (C+85,168),0-2,1 5,,,1.36 : PA INT (C+85,168),15 : C0 = 1
1840 LET AB(XA,YA)=-1
1850 REM-------------------------------
- - ------- -- --- - - lWhKTE RA
ND -
1860 FOR K = 1 T O P + 2 : LET A B(K, 1)=-1 : NEXT K
1870 FOR K= 2 TO P+2 : LET AB(1,
K)=- 1 : NEXT K
1950 CIRCLE (X+3,Y+2),0,5,,,1.36: F'AINT (X,Yi,5:LINE ( (X+4) -0+R, Y+2) - ( i X + 2)+ 0-S,Y + 2),6: LINE (X+3, (
Y+2)-0+T)-(X+3,(Y + 2)+ O-U) ,6 1960 RETURN 1970 REM
1980 REM------------------------------
-----------------------------SPELREGEL
S -
1990 REM
2000 2010 CLS COLOR 1 cr 19 ,1: SCREEN 0 ;WIDT
H 80 2020 LOCfiTE O 1 J. * j- : PRINT "BEKNOPTE
SPEL REGELS VAN HET 'GO' SPEL"
2030 LOCATE 2,5 : PRINT "HET DOEL
VAN HET GO SPEL IS PUNTEN TE MAKEN D. M.V. HET SLAAN VAN STENEN EN HET AFB AKENEN VAN TERREIN."
2040 LOCATE 2,7 :PRINT!!"
2050 LQCATE 2,8 :PRINT "PUNTEN WOR
DEN GEMAAKT DOOR VAN EEN OF MEERDERE AANEENGESLOTEN STENEN (KETEN) DE H
ORIZONTALE EN VERTICALE LIJNEN AF TE SNIJDEN. "
2060 LOCATE 2,10:PRINT""
2070 LOCATE 2,11:PRINT "DE STENEN
DIE ZO OMSINGELD ZIJN WORDEN VAN HET BORD GENOMEN EN APART GELEGD."
2080 LOCATE 2,12:PRINT""
2090 LQCATE 2,13:PRINT "PUNTEN KUN
NEN OOK GEMAAKT WORDEN DOOR TERREIN T E OMSINGELEN EN DE LEGE KRUI
SPUNTEN, AAN HET EIND VAN HET SPEL, T E TELLEN."
2100 LOCATE 2,15:PRINT""
2110 LOCATE 2,16: PRINT '"ZELFMOORD
' PLEGEN MAG NIET, TENZIJ MET DIE ZET GESLAGEN WORDT."
2120 LOCATE 2,17:PRINT""
2130 LOCATE 2,18:PRINT "WINNAAR IS DIEGENE DIE AAN HET EIND VAN HET SPE L DE MEESTE PUNTEN HEEFT (GES
LAGEN STENEN + KRUISPUNTEN)"
2140 LOCATE 2,50: PRINT "(DRUK OP EEN TOETS VOOR HET HOOFDMENU)"
2450 REM
2460 IF AB(XA,YA-i)+AB(XA,YA+l)+AB
(XA-1,YA)+AB(XA+1,YA)=-4 THEN GOTO 24 80 ELSE GOTO 2520
2470 IF AB(XA,YA-1)+AB(XA,YA+1)+AB
(XA-l,YA)+AB(XA+l,YAi= 4 THEN GOTO 24
2150 Q$=INKEY$   80 ELSE GOTO 2520
2160 IF Q$ O "" THEN GOTO 470 2480 PRESET(11,200): PRINT#!,"ZELF
2170 GOTO 2150  MOORD 11 
2180 REM   2490 FOR K= 1 TG 200 : NEXT K : GO
2190 REM    TO 25 00 
   "ENTREE" SCH 2500 PRESET(11,200): PRINT#!,LEEG$
ERM--      
2200 REM   2510 RETURN 1630 
2210 ri c . üLw1 8 L ü L 0 R 1 f u f u :SCREEN 3 2520 RETURN 
2220 LINE (25,25)-(231 ,167),14,BF   
2230 OPEN" GR P:TEST"FOR OUTPUT AS#1   
2240 C H PRESE T (55,50): PRINT#!,"LET'    
iJ 2250 H PRESET (70,115):  PRINT#!,"-GO   
2260 FOR K = 1 TO 1500 : NEXT K   
2270 RETURN 340 2280 REM
2290 REM-------------------------------
------------------------------RESET KE
Y ' S -
2300 REM
2310 KEYi, "COLQR":KEY2,"AUTO":KEY 3, ■ GOTO":KEY4,"LIST":KEY5,"RUN*
2320 REM
2330 REM-------------------------------
----------------------------"EIND" SCH
ERM--  
2340 REM 
2350 CLS: COLOR 14,6,6 : SCREEN 3
2360 LINE (40,60)-(218 ,130),i,BF
2370 PRESET (24,80) : PR I NT#1,"GOO
DBYE" 2380 FOR K= 1 TO 1500 : NEXT K
2390 SCREEN 0 : INPUT "TEST";Tf
2400 FOR K=1T015:PRINT "REGEL"K;:LO
CATE 10, K+2 :FOR L = 1 TO 15
2410 PRINT AB !L,K); 
2420 NEXTL:PRINT: NEXT K: RUN "AUTO
EXEC.BAS" : END  
2430 REM 
2440 REM  
-CONTROLE "BUURMA
N" -