Amthello
El juego de la reflexión. Trate de rodear y capturar los cuadrados de su oponente sin dejar las
suyos al descubierto. Para un jugador contra el ordenador. Sólo teclado.
10
'AMTHELLO, por M. J. Gribbins
20
'copyright (c) AMSOFT 1984
30
'
40
BORDER
14
50
CLEAR
60
MODE 1:PEN 0:PAPER 1:CLS
70
INK 0,0:INK 1,14:INK 2,18:INK
80
LOCATE 2,3:PEN 3:PRINT"A":LOCATE 3,4:PRINT"M":LOCATE
5,6:PRINT"H"
90
LOCATE 6,7:PRINT"E":LOCATE 7,8:PRINT"L":LOCATE 8,9:PRINT"L":LOCATE
100
WINDOW #1,2,39,22,25:PAPER #1,1:PEN
110
PEN
0
120
LOCATE
#1,5,1:PRINT#1,"LAS NEGRAS SIEMPRE EMPIEZAN"
130
LOCATE
#1,4,3:PRINT#1,"ELIJA BLANCAS [B] O NEGRAS [N]"
140
b$=INKEY$:IF
b$=""
150
IF
b$="B"
OR
b$="b"
160
IF
b$="N"
OR
b$="n"
170
CLS#1:LOCATE
#1,4,3
180
PRINT#1," SOLO BLANCAS O NEGRAS"
190
FOR
t=0
TO 1000:NEXT t
200
GOTO
140
210
DIM
c%(10,10),p%(9,9),c1%(8),c2%(8),cx%(9),cy%(9)
220 i1%=2:j1%=2:i2%=7:j2%=7
230
FOR
i%=0
TO
9
240 c%(i%,o%)=6:c%(0,i%)=6
250 c%(9,i%)=6:c%(i%,9)=6
260
NEXT
i%
270
FOR
i%=1
TO
8
280
READ
c1%(i%),c2%(i%)
290
FOR
j%=1
TO
8
300
READ
p%(i%,j%)
310 c%(i%,j%)=6
320
NEXT j%:NEXT
i%
330 c%(4,4)=3:c%(4,5)=0:c%(5,4)=0:c%(5,5)=3
340
FOR
k%=1
TO
58
350
READ
ar%,br%,cr%,dr%
360
PLOT ar%,br%:DRAW
370
NEXT
k%
380
GOSUB
1460
390
IF
q%=3
GOTO
770
400
CLS#1:INPUT
#1," ELIJA FILA
410
IF
e%<1
OR
e%>8
420
LOCATE #1,1,3:INPUT
430
IF
d%<1
OR
d%>8
440
IF
c%(d%,e%)=6
450
CLS#1:LOCATE
#1,5,2:PRINT#1,"ESE CUADRADO YA ESTA OCUPADO!"
460
FOR
t=1
TO 1000:NEXT t
470
GOTO
400
3,26
THEN
140
THEN q%=3:n%=0:GOTO
THEN q%=0:n%=3:GOTO
cr%,dr%,0
";e%
GOTO
400
#1," ELIJA COLUMNA
GOTO
420
GOTO
480
Manual de Amstrad CPC 6128 (revisión 2008) - Página 411
4
#1,0:CLS#1
210
210
";d%
,5:PRINT"T":LOCATE
9,10:PRINT"O"