Tabla de contenido
1020
1220
GOTO
1030 vrx%=0
1040
FOR
k%=1
TO
8
1050
vr%=0:c3%=i%:c4%=j%
1060
c3%=c3%+c1%(k%):c4%=c4%+c2%(k%)
1070
IF
c%(c3%,c4%)=q%
1080
vr%=vr%+1:GOTO
1090
IF
c%(c3%,c4%)=6
1100
NEXT k%:GOTO
1110
vr%=o%
IF
GOTO
1120
vrx%=vrx%+vr%:GOTO
1130
IF
vrx%=0
GOTO
1140
IF
p%(i%,j%) < p%
1150
IF
p%(i%,j%) > p%
1160
p%=p%(i%,j%):vry%=vrx%:lc%=0:cx%(0)=i%:cy%(0)=j%:GOTO
1170
IF
vry%>vrx%
1180
IF
vry%<vrx%
1190
lc%=0:vry%=vrx%:cx%(0)=i%:cy%(0)=j%:GOTO
1200
lc%=lc%+1:cx%(lc%)=114:cy%(lc%)=j%
1210
GOTO
890
1220
cx2%=cx2%:cx1%=cx1%:vry%=vry%
1230
CLS#1:PRINT#1,"YO VOY A LA FILA
1240
PRINT#1," Y A LA COLUMNA
1250
LOCATE
#1,1,4:PRINT#1,"CON LO QUE CONSIGO ";vry%;" CUADRADO(S)"
1260
PLOT 270+(30*cx1%),70+(30*cx2%):DRAW
1270
PLOT 290+(30*cx1%),70+(30*cx2%):DRAW
1280
FOR
t=1
TO 1000:NEXT t
1290
FOR
k%=1
TO
8
1300
vr%=0:c3%=cx1%:c4%=cx2%
1310
c3%=c3%+c1%(k%):c4%=c4%+c2%(k%)
1320
IF
c%(c3%,c4%)=q%
1330
vr%=vr%+1:GOTO
1340
c%(c3%,c4%)=6
IF
1350
NEXT k%:GOTO
1360
IF
vr%=0
GOTO
1370
c3%=c3%-c1%(k%):c4%=c4%-c2%(k%)
1380
IF
c%(c3%,c4%)=6
1390
c%(c3%,c4%)=n%:GOTO
1400
c%(cx1%,cx2%)=n%
1410
GOSUB
2720
1420
GOSUB
1460
1430
IF
pas%=1
GOTO
1440
CLS#1:PRINT#1," USTED TIENE QUE
1450
GOTO
400
1460
FOR
i%=1
TO
8
1470
FOR
j%=1
TO
8
1480
FOR
m%=1
TO
19
1490
z%=270+(30*i%):h%=70+(30*j%):w%=h%+m%
1500
PLOT z%,w%:DRAW
1510
NEXT m%:NEXT j%:NEXT
1520 x%=x%+1
1530
IF
x%=61
GOTO
1540
RETURN
1550 cq%=0:cn%=0
1560
FOR
i%=1
TO
8
GOTO
1080
ELSE
1060
GOTO
1100
ELSE
1130
1100
1120
ELSE
1100
890
GOTO
890
GOTO
1160
ELSE
GOTO
890
GOTO
1190
ELSE
1200
";cx1%
GOTO
1330
ELSE
1310
1350
GOTO
ELSE
1400
1350
GOTO
1350
1370
1440
ELSE
1450
STEP
2
z%+20,w%,c%(i%,j%)
i%
1550
Manual de Amstrad CPC 6128 (revisión 2008) - Página 413
1090
1110
1170
890
";cx2%
290+(30*cx1%),89+(30*cx2%),n%
270+(30*cx1%),89+(30*cx2%),n%
1340
1360
PASAR":FOR
t=1
TO 1000:NEXT t:GOTO
890
770
Tabla de contenido
