Tabla de contenido
2670
c%(8,2)=q%
IF
2680
c%(2,8)=q%
IF
2690
IF
c%(8,7)=q%
2700
IF
c%(7,8)=q%
2710
RETURN
2720 pas%=0
2730
FOR
i%=1
TO
8
2740
FOR
j%=1
TO
8
2750
IF
c%(i%,i%)=q%
2760
NEXT j%:NEXT
2770
pas%=1:RETURN
2780
k%=1
8
FOR
TO
2790
vr%=0:c3%=i%:c4%=j%
2800
c3%=c3%+c1%(k%):c4%=c4%+c2%(k%)
2810
IF
c3%<1
OR
c3%>8
2820
NEXT k%:GOTO
2830
IF
c4%<1
OR
c4%>8
2840
IF
c%(c3%,c4%)=n%
2850
vr%=vr%+1:GOTO
2860
IF
c%(c3%,c4%)=q%
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,140,255,140,270,140
2940
DATA
270,140,270,150,270,150,255,150,255,160,270,160,270,160,270,180
2950
DATA
270,180,255,180,270,170,255,170,270,190,270,210,270,200,255,200
2960
DATA
255,200,255,210,255,220,270,220,270,220,270,230,270,230,255,230
2970
DATA
255,230,255,240,255,240,270,240,255,250,270,250,270,250,270,260
2980
DATA
270,260,255,260,255,250,255,270,270,280,270,300,270,300,255,300
2990
DATA
255,310,255,330,255,330,270,330,270,330,270,310,270,310,255,310
3000
255,320,270,320
DATA
3010
DATA
310,355,310,375,350,355,335,355,335,355,335,365,335,365,350,365
3020
DATA
350,365,350,375,350,375,335,375,365,355,380,355,380,355,380,375
3030
380,375,365,375,380,365,365,365,410,355,410,375,410,365,395,365
DATA
3040
DATA
395,365,395,375,425,355,440,355,440,355,440,365,440,365,425,365
3050
DATA
425,365,425,375,425,375,440,375,455,375,455,355,455,355,470,355
3060
DATA
470,355,470,365,470,365,455,365,485,375,500,375,500,375,500,355
3070
DATA
515,375,515,355,515,355,530,355,530,355,530,375,530,375,515,375
3080
DATA
515,365,530,365
c%(8,5)=n%
AND
AND
c%(5,8)=n%
AND
AND
AND
c%(8,4)=n%
AND
AND
c%(4,8)=n%
AND
GOTO
2780
i%
GOTO
2820
ELSE
2760
GOTO
2820
ELSE
GOTO
2850
ELSE
2800
GOTO
2820
ELSE
Manual de Amstrad CPC 6128 (revisión 2008) - Página 416
c%(8,3)=6
c%(8,4)=6
AND
c%(3,8)=6
c%(4,8)=6
AND
c%(8,5)=6
AND
c%(8,6)=6
c%(5,8)=6
AND
c%(6,8)=6
2830
2840
2860
2870
p%(8,3)=26
THEN
p%(3,8)=26
THEN
THEN
p%(8,6)=26
THEN
p%(6,8)=26
Tabla de contenido
