AMSTRAD CPC 6128 Manual Del Usario página 415

1570 j%=1 8
FOR TO
1580 c%(i%,j%)=q%
IF
1590 IF c%(i%,j%)=n%
1600 NEXT j%:NEXT
1610 IF cq%>cn% GOTO
1620 IF cq%=cn% GOTO
1630 CLS#1:LOCATE
1640 END
1650 CLS#1:LOCATE
1660 LOCATE #1,11,3:PRINT#1,"YO HE GANADO ... !!!"
1670 END
1680 CLS#1:LOCATE
1690 LOCATE #1,5,3:PRINT#1,"MUY BIEN. USTED HA GANADO ...!!!"
1700 END
1710 IF c%(2,2)=q%
1720 p%(3,1)=1:p%(1,3)=1
1730 IF c%(7,7)=q%
1740 p%(8,6)=1:p%(6,8)=1
1750 IF c%(2,7)=q%
1760 p%(1,6)=1:p%(3,8)=1
1770 IF c%(7,2)=q%
1780 p%(6,1)=1:p%(8,3)=1
1790 IF d%=1 OR d%=8
1800 cx1%=1
IF OR
1810 RETURN
1820 FOR j%=1 TO 8
1830 FOR i%=2 TO 7
1840 IF c%(i%,j%)=n%
1850 p%(i%+1,j%)=21:p%(i%-1,j%)=21
1860 IF c%(j%,i%)=n%
1870 p%(j%,i%+1)=21:p%(j%,i%-1)=21
1880 NEXT i%
1890 FOR i%=2 TO 7
1900 IF c%(i%,j%)=q%
1910 p%(i%+1,j%)=2:p%(i%-1,j%)=2
1920 IF c%(j%,i%)=q%
1930 p%(j%,i%+1)=2:p%(j%,i%-1)=2
1940 NEXT i%:NEXT
1950 p%(1,2)=1:p%(1,7)=1:p%(2,1)=1:p%(7,1)=1
1960 p%(2,8)=1:p%(7,8)=1:p%(8,2)=1:p%(8,7)=1
1970 FOR i%=2 TO 7
1980 c%(1,i%-1)=q%
IF
1990 IF c%(8,i%-1)=q%
2000 IF c%(i%-1,1)=q%
2010 IF c%(i%-1,8)=q%
2020 NEXT i%
2030 FOR j%=1 TO 8
2040 FOR i%=4 TO 8
2050 IF c%(j%,i%)<>n%
2060 ic%=1%-1:IF c%(j%,ic%)=6
2070 IF c%(j%,ic%)=q%
2080 ic%=ic%-l:GOTO
2090 IF c%(j%,ic%)=6
2100 GOTO 2140
2110 IF ic%=0 GOTO
cq%=cq%+1
THEN
THEN cn%=cn%+1
i%
1680
1630 ELSE 1650
#1,25,2:PRINT#1,"BLOQUEADO"
#1,5,1:PRINT#1,"USTED TIENE ";cq%;" CUADRADOS. YO TENGO
#1,5,1:PRINT#1,"USTED TIENE ";cq%;" CUADRADOS. YO TENGO
AND (c%(3,1)=n% OR
AND (c%(8,6)=n% OR
AND (c%(1,6)=n% OR
AND (c%(6,1)=n% OR
OR e%=1 OR e%=8
cx1%=8 cx2%=1
OR OR
STEP 7
GOTO 1850 ELSE
GOTO 1870 ELSE
GOTO 1910 ELSE
GOTO 1930 ELSE
j%
c%(1,i%+1)=q%
AND
AND c%(8,i%+1)=q%
AND c%(i%+1,1)=q%
AND c%(i%+1,8)=q%
STEP 7
GOTO 2140
GOTO 2140
GOTO 2080 ELSE
2070
GOTO 2110
2140
Manual de Amstrad CPC 6128 (revisión 2008) - Página 414
c%(1,3)=n%) GOTO
c%(6,8)=n%) GOTO
c%(3,8)=n%) GOTO
c%(8,3)=n%) GOTO
GOTO 1820
cx2%=8 1820
GOTO
1860
1880
1920
1940
p%(1,i%)=25
THEN
THEN p%(8,i%)=25
THEN p%(i%,1)=25
THEN p%(i%,8)=25
2090
1720 ELSE 1730
1740 ELSE 1750
1760 ELSE 1770
1780 ELSE 1790
";cn%
";cn%