AMSTRAD cpc 6128 User Instruction page 494

2680 IF C%(2,8)=Q% AND C%(5,8)=N% AND C%(3,8)=6 AND C%(
4,8)=6 THEN P%(3,8)=26
2690 IF C%(8,7)=Q% AND C%(8,4)=N% AND C%(8,5)=6 AND C%(
8,6)=6 THEN P%(8,6)=26
2700 IF C%(7,8)=Q% AND C%(4,8)=N% AND C%(5,8)=6 AND C%(
6,8)=6 THEN P%(6,8)=26
2710 RETURN
2720 PAS%=0
2730 FOR 1%=1 TO 8
2740 FOR J%=1 TO 8
2750 IF C%(I%,J%)=Q% GOTO 2780
2760 NEXT J%:NEXT 1%
2770 PAS%=1:RETURN
2780 FOR K%=1 TO 8
2790 VR%=0:C3%=I%:C4%=J%
2800 C3%=C3%+C1%(K%):C4%=C4%+C2%(K%)
2810 IF C3% < 1 OR C3% > 8 GOTO 2820 ELSE 2830
2820 NEXT K%:GOTO 2760
2830 IF C4% < 1 OR C4% > 8 GOTO 2820 ELSE 2840
2840 IF C%(C3%,C4%)=N% GOTO 2850 ELSE 2860
2850 VR%=VR%+1:GOTO 2800
2860 IF C%(C3%,C4%)=Q% GOTO 2820 ELSE 2870
2870 IF VR% > 0 THEN RETURN
2880 GOTO 2820
2890 DATA 1,0,30,1,20,10,10,20,1,30,1,1,1,1,3
2900 DATA 3,3,3,1,1,0,1,20,3,5,5,5,5,3,20,-1,1,10,3,5
2910 DATA 0,0,5,3,10,-1,0,10,3,5,0,0,5,3,10,-1
2920 DATA -1,20,3,5,5,5,5,3,20,0,-1,1,1,3,3,3,3,1,1,1,-
1,30,1,20,10,10,20,1,30
2930 DATA 263,100,263,120,270,130,255,130,255,130,255,1
40,255,140,270,140
2940 DATA 270,140,270,150,270,150,255,150,255,160,270,1
60,270,160,270,180
2950 DATA 270,180,255,180,270,170,255,170,270,190,270,2
10,270,200,255,200
2960 DATA 255,200,255,210,255,220,270,220,270,220,270,2
30,270,230,255,230
2970 DATA 255,230,255,240,255,240,270,240,255,250,270,2
50,270,250,270,260
2980 DATA 270,260,255,260,255,250,255,270,270,280,270,3
00,270,300,255,300
2990 DATA 255,310,255,330,255,330,270,330,270,330,270,3
10,270,310,255,310
3000 DATA 255,320,270,320
continued on the next page
Some Programs for you .... Appendix 3 Page 21