AMSTRAD CPC 6128 Manual Del Usario página 416

2120 c%(j%,i%+1)=q%
IF
2130 p%(j%,ic%)=26
2140 IF c%(i%,j%)<>n%
2150 ic%=1%-1:IF c%(ic%,j%)=6
2160 IF c%(ic%,j%)=q%
2170 ic%=ic%-l:GOTO
2180 IF c%(ic%,j%)=6
2190
GOTO
2230
2200 IF ic%=0 GOTO
2210 IF c%(i%+1,j%)=q%
2220 p%(ic%,j%)=26
2230 NEXT i%
2240 FOR i%=1 TO 5
2250 IF c%(j%,i%)<>n%
2260 ic%=i%+1:IF c%(j%,ic%)=6
2270 IF c%(j%,ic%)=q%
2280 ic%=ic%+1:GOTO
2290 IF c%(j%,ic%)=6
2300 GOTO 2340
2310 IF ic%=9 GOTO
2320 IF c%(j%,i%-1)=q%
2330 p%(j%,ic%)=26
2340 IF c%(i%,j%)<>n%
2350 ic%=i%+1:IF c%(ic%,j%)=6
2360 IF c%(ic%,j%)=q%
2370 ic%=ic%+1:GOTO
2380 IF c%(ic%,j%)=6
2390 GOTO 2430
2400 IF ic%=9 GOTO
2410 IF c%(i%-1,j%)=q%
2420 p%(ic%,j%)=26
2430 NEXT i%:NEXT
2440 IF c%(1,1)=n%
2450 FOR i%=2 TO 6:p%(1,i%)=20:p%(i%,1)=20:NEXT
2460 IF c%(1,8)=n%
2470 FOR i%=2 TO 6:p%(i%,8)=20:p%(1,9-i%)=20:NEXT
2480 IF c%(8,1)=n%
2490 FOR i%=2 TO 6:p%(9-i%,1)=20:p%(8,i%)=20:NEXT
2500 IF c%(8,8)=n%
2510 FOR i%=3 TO 7:p%(i%,8)=20:p%(8,i%)=20:NEXT
2520 IF c%(1,1)<>6
2530 IF c%(1,8)<>6
2540 IF c%(8,1).06
2550 IF c%(8,8)0,6
2560 p%(1,1)=30:p%(1,8)=30:p%(8,1)=30:p%(8,8)=30
2570 FOR i%=3 TO 6
2580 IF c%(1,i%)=n%
2590 IF c%(8,i%)=n%
2600 IF c%(i%,1)=n%
2610 IF c%(i%,8)=n%
2620 NEXT i%
2630 IF c%(7,1)=q%
2640 IF c%(1,7)=q%
2650 IF c%(2,1)=q%
2660 IF c%(1,2)=q%
c%(j%,ic%-1)=6
AND
GOTO 2230
GOTO 2230
GOTO 2170 ELSE
2160
GOTO 2200
2230
AND c%(ic%-1,j%)=6
GOTO 2340
GOTO 2340
GOTO 2280 ELSE
2270
GOTO 2310
2340
AND c%(j%,ic%+1)=6
GOTO 2430
GOTO 2430
GOTO 2370 ELSE
2360
GOTO 2400
2430
AND c%(ic%+1,j%)=6
j%
GOTO 2450 ELSE 2460
GOTO 2470 ELSE 2480
GOTO 2490 ELSE 2500
GOTO 2510 ELSE 2520
THEN p%(2,2)=5
THEN p%(2,7)=5
THEN p%(7,2)=5
THEN p%(7,7)=5
THEN p%(2,i%)=4
THEN p%(7,i%)=4
THEN p%(i%,2)=4
THEN p%(i%,7)=4
AND c%(4,1)=n% AND
AND c%(1,4)=n% AND
AND c%(5,1)=n% AND
AND c%(1,5)=n% AND
Manual de Amstrad CPC 6128 (revisión 2008) - Página 415
2140
GOTO
2180
GOTO 2230
2290
GOTO 2340
2380
GOTO 2430
i%
i%
i%
i%
c%(6,1)=6 AND c%(5,1)=6
c%(1,6)=6 AND c%(1,5)=6
c%(3,1)=6 AND c%(4,1)=6
c%(1,3)=6 AND c%(1,4)=6
THEN p%(6,1)=26
THEN p%(1,6)=26
THEN p%(3,1)=26
THEN p%(1,3)=26