AMSTRAD cpc 6128 - Page 489

730 PRINT #1," AND COLUMN NUMBER ";D%
740 LOCATE #1,2,4:PRINT #1,"THAT GIVES YOU ";VRX%;" SQU
ARES(S)"
750
C%(D%,E%)=Q%:GOSUB -1710
760
GOSUB 1460
770
CLS #1:LOCATE #1,10,2:PRINT #1,"NOW IT'S MY TURN ..
. ! 11
780 P%=0:VRX%=0~~RY%=0
790 IF 11%*J1%=1 AND I2%*J2%=64 GOTO 860
800
FOR K%=2 TO 7
810 IF C%(2,K%) <> 6 THEN 11%=1
820 IF C%(7,K%) <> 6 THEN 12%=8
830. IF C%(K%,2) <> 6 THEN J1%=1
840 IF C%(K%,7) <> 6 THEN J2%=8
850 NEXT K%
860 FOR 1%=11% TO 12%
870 FOR J%=J1% TO J2%
880 IF C%(I%,J%)=6 GOTO 1030
890
NEXT J%:NEXT 1%
900 IF P% > 0 GOTO 1000
910
IF PAS%=1GOTO 920 ELSE 940
920
CLS #1:PRINT #1," DEADLOCK! I MUST PASS ALSO.GAME
OVER"
930 FOR T=1 TO 1000:NEXT T:GOTO 1550
940
CLS #1:LOCATE #1,18,2:PRINT #1,"1 MUST PASS"
950 GOSUB 2720
960
IF PAS%=1 GOTO 970 ELSE 990
970
CLS #1:PRINT #1,"DEADLOCK! YOU MUST PASS ALSO.GAME
OVER"
980 FOR T=1 TO 1000:NEXT T:GOTO 1550
990
GOTO 400
1000
IF LC%=0 THEN LC%=1:RANDOMIZE LC%:RL%=RND(LC%)
1010 CX1%=CX%(RL~):CX2%=CY%(RL%)
1020 GOTO 1220
1030
VRX%=0
1040 FOR K%=1 TO 8
1050 VR%=0:C3%=I%:C4%=J%
1060 C3%=C3%+C1%(K%)~C4%=C4%+C2%(K%)
1070 IF C%(C3%,C4%)=Q% GOTO 1080 ELSE 1090
1080
VR%=VR%+1:GOTO 1060
1090
IF C%(C3%,C4%)=6 GOTO 1100 ELSE 1110
1100
NEXT K%:GOTO 1130
1110
IF VR%=O% GOTO 1100 ELSE 1120
1120
VRX%=VRX%+VR%:GOTO 1100
Appendix 3 Page 16
continued on the next page
Some Programs for you ....