The program

The program for the experiment is below:

1 G=0
2 I=0
3 L=0
4 M=0
5 O=0
6 Q=0
7 R=0
15 FOR Z = 1 TO 3
16 CLS
17 X=0
18 Y=0
19 P=5
20 A=0
30 B=0
40 C=5
50 D=0
60 E=0
70 F=5
81 H=0
82 J=0
83 K=5
84 V=0
85 W=0
100 FOR N=1 TO 10000
400 IF P=1 THEN GOTO 10000
450 IF P=5 THEN X=RND(127)
460 IF P=2 THEN GOTO 11000
470 IF P=5 THEN Y=RND(47)
471 IF P=3 THEN GOTO 12000
472 IF P=4 THEN GOTO 13000
600 COLOUR 4
601 SET(X,Y)
603 LET P=RND(4)
620 IF K=1 THEN GOTO 29500
621 IF K=5 THEN H=RND(127)
623 IF K=2 THEN GOTO 29600
624 IF K=5 THEN J=RND(47)
625 IF K=3 THEN GOTO 29700
626 IF K=4 THEN GOTO 29800
627 COLOUR 13
628 SET(H,J)
630 LET K=RND(4)
4000 IF C=1 THEN GOTO 20000
4500 IF C=5 THEN A=RND(127)
4600 IF C=2 THEN GOTO 21000
4700 IF C=5 THEN B=RND(47)
4710 IF C=3 THEN GOTO 22000
4720 IF C=4 THEN GOTO 23000
6000 COLOUR 1
7000 SET(A,B)
7600 LET C=RND(4)
7610 IF F=1 THEN GOTO 25000
7620 IF F=5 THEN D=RND(127)
7625 IF F=2 THEN GOTO 26000
7630 IF F=5 THEN E=RND(47)
7640 IF F=3 THEN GOTO 27000
7650 IF F=4 THEN GOTO 28000
7670 COLOUR 15
7680 SET(D,E)
7690 LET F=RND(4)
7700 IF X = A LET V = V + 1
7701 IF X = A THEN GOTO 29850
7710 IF X = D LET V = V + 1
7711 IF X = D THEN GOTO 29852
7720 IF X = H LET V = V + 1
7721 IF X = H THEN GOTO 29854
7730 IF A = D LET V = V + 1
7731 IF A = D THEN GOTO 29856
7740 IF A = H LET V = V + 1
7741 IF A = H THEN GOTO 29858
7750 IF D = H LET V = V + 1
7751 IF D = H THEN GOTO 29860
7760 IF Y = B LET W = W + 1
7770 IF Y = E LET W = W + 1
7780 IF Y = J LET W = W + 1
7790 IF B = E LET W = W + 1
7795 IF B = J LET W = W + 1
7799 IF E = J LET W = W + 1
7800 IF V = 1 LET G = G + 1
7810 IF V = 2 LET I = I + 1
7830 IF V > 2 LET L = L + 1
7900 IF W = 1 LET M = M + 1
7910 IF W = 2 LET O = O + 1
7930 IF W > 2 LET Q = Q + 1
7931 COLOUR 2
7934 PRINT Z;
7935 PRINT ",";
7936 PRINT N
7940 V = 0
7950 W = 0
8000 NEXT N
8002 NEXT Z
8005 PRINT "RESULTS"
8009 PRINT "2X: ",
8010 PRINT G
8011 PRINT "3X: ",
8020 PRINT I
8021 PRINT "4X: ",
8030 PRINT L
8031 PRINT "2Y: ",
8040 PRINT M
8041 PRINT "3Y: ",
8050 PRINT O
8051 PRINT "4Y: ",
8053 PRINT Q
8054 PRINT "EXACT MATCHES: ",
8060 PRINT R
8070 PRINT "PLEASE EMAIL RESULTS TO PROGRAMMINGE@YAHOO.COM"
9000 END
9200 GOTO 15
10000 X=X+1
10005 IF X>127 THEN X=127
10010 Y=Y
10020 GOTO 600
11000 Y=Y+1
11005 IF Y>47 THEN Y=47
11010 X=X
11020 GOTO 600
12000 X=X-1
12005 IF X<0 THEN X=0
12010 Y=Y
12020 GOTO 600
13000 Y=Y-1
13005 IF Y<0 THEN Y=0
13010 X=X
13020 GOTO 600
20000 A=A+1
20005 IF A>127 THEN A=127
20010 B=B
20020 GOTO 6000
21000 B=B+1
21005 IF B>47 THEN B=47
21010 A=A
21020 GOTO 6000
22000 A=A-1
22005 IF A<0 THEN A=0
22010 B=B
22020 GOTO 6000
23000 B=B-1
23005 IF B<0 THEN B=0
23010 A=A
23020 GOTO 6000
25000 D=D+1
25005 IF D>127 THEN D=127
25010 E=E
25020 GOTO 7670
26000 E=E+1
26005 IF E>47 THEN E=47
26010 D=D
26020 GOTO 7670
27000 D=D-1
27005 IF D<0 THEN D=0
27010 E=E
27020 GOTO 7670
28000 E=E-1
28005 IF E<0 THEN E=0
28010 D=D
28020 GOTO 7670
29500 H=H+1
29505 IF H>127 THEN H=127
29510 J=J
29520 GOTO 627
29600 J=J+1
29605 IF J>47 THEN J=47
29610 H=H
29620 GOTO 627
29700 H=H-1
29705 IF H<0 THEN H=0
29710 J=J
29720 GOTO 627
29800 J=J-1
29805 IF J<0 THEN J=0
29810 H=H
29820 GOTO 627
29850 IF Y = B LET R = R + 1
29851 GOTO 7710
29852 IF Y = E LET R = R + 1
29853 GOTO 7720
29854 IF Y = J LET R = R + 1
29855 GOTO 7730
29856 IF B = E LET R = R + 1
29857 GOTO 7740
29858 IF B = J LET R = R + 1
29859 GOTO 7750
29860 IF E = J LET R = R + 1
29861 GOTO 7760
Please click here > http://programminge.blogspot.com/2010/10/running-program-and-sending-data.html to learn how to run the program and send us the data you gain from it.