Tabla de contenido
Publicidad
480
PLOT 270+(30*d%),70+(30*e%):DRAW
490
PLOT 290+(30*d%),70+(30*e%):DRAW
500
GOTO
540
510
FOR
m%=0
TO
19
520
DRAW 290+(30*d%),70+m%+(30*e%),6:NEXT
530
GOTO
400
540 vrx%=0
550
FOR
k%=1
TO
8
560
vr%=0:c3%=d%:c4%=e%
570
c3%=c3%+c1%(k%):c4%=c4%+c2%(k%)
580
c%(c3%,c4%)=n%
IF
590
vr%=vr%+1:GOTO
600
IF
c%(c3%,c4%)=6
610
NEXT k%:GOTO
670
620
IF
vr%=0
GOTO
630
vrx%=vrx%+vr%
640
c3%=c3%-c1%(k%):c4%=c4%-c2%(k%)
650
IF
c%(c3%,c4%)=6
660
c%(c3%,c4%)=q%:GOTO
670
IF
vrx%=0
GOTO
680
CLS#1:PRINT#1,"ESO NO ES POSIBLE"
690
FOR
t=1
TO 1000:NEXT t
700
GOTO
510
710
e%=e%:dt=d%:vrx%=vrx%
720
CLS#1:PRINT#1,"USTED VA A LA LINEA
730
PRINT#1," Y A LA COLUMNA
740
LOCATE
#1,2,4:PRINT#1,"CON LO QUE CONSIGUE ";vrx%;" CUADRADO(S)"
750
c%(d%,e%)=q%:GOSUB
760
GOSUB
1460
770
CLS#1:LOCATE
#1,10,2:PRINT#1,"AHORA ME TOCA A MI ..."
780 p%=0:vrx%=0:vry%=0
790
IF
i1%*j1%=1
AND
800
k%=2
7
FOR
TO
810
IF
c%(2,k%)<>6
820
IF
c%(7,k%)<>6
830
IF
c%(k%,2)<>6
840
IF
c%(k%,7)<>6
850
NEXT
k%
860
FOR
i%=i1%
TO
870
FOR
j%=j1%
TO
880
IF
c%(i%,j%)=6
890
NEXT j%:NEXT
i%
900
IF
p%>0
THEN
1000
910
IF
pas%=1
GOTO
920
CLS#1:PRINT#1,"BLOQUEADO! YO TAMBIEN TENGO QUE PASAR. FIN DE LA PARTIDA"
930
FOR
t=1
TO 1000:NEXT t:GOTO
940
CLS#1:LOCATE
#1,18,2:PRINT#1,"TENGO QUE PASAR"
950
GOSUB
2720
960
IF
pas%=1
GOTO
970
CLS#1:PRINT#1,"BLOQUEADO! USTED TAMBIEN TIENE QUE PASAR. FIN DE LA PARTIDA."
975
RETURN
980
FOR
t=1
TO 1000:NEXT t:GOTO
990
GOTO
400
1000
lc%=0
THEN lc%=1:RANDOMIZE
IF
1010
cx1%=cx%(r1%):cx2%=cy%(r1%)
STEP 2:PLOT
270+(30*d%),70+m%+(30*e%)
590
GOTO
ELSE
570
GOTO
610
ELSE
620
610
ELSE
630
GOTO
610
ELSE
660
640
680
ELSE
710
";d%
1710
i2%*j2%=64
GOTO
THEN
i1%=1
THEN
i2%=8
THEN
j1%=1
THEN
j2%=8
i2%
j2%
GOTO
1030
920
ELSE
940
1550
970
ELSE
990
1550
lc%:r1%=RND(lc%)
Manual de Amstrad CPC 6128 (revisión 2008) - Página 412
290+(30*d%),89+(30*e%),q%
270+(30*d%),89+(30*e%),q%
m%
600
";e%
860
Publicidad
Tabla de contenido
