Amthello
The
thinking
person's game. Try to surround and capture your opponent's squares
without leaving your own squares onen to capture! For one player against the
computer. Keyboard only.
10
'AMTHELLO
by
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
3,26
80
LOCATE
2,3:PEN
3:PRINT"A":LOCATE 3,4:PRINT"M":LOCATE
4,5:PRINT"T":LOCATE
5,6:PRINT"H"
90
LOCATE
6,7:PRINT"E":LOCATE 7,8:PRINT"L":LOCATE
8,9:P
RINT"L":LOCATE
9,10:PRINT"0"
100
WINDOW
#1,2,39,22,25:PAPER
#1,1:PEN #1,0:CLS
#1
110
PEN
0
120
LOCATE
#1,8,1:PRINT
#1,"BLACK
ALWAYS
PLAYS
FIRST"
130
LOCATE
#1,1,3:PRINT
#1,"PRESS B
OR
W
TO
CHOOSE
BLAC
K
OR
WHITE"
140 B$=INKEY$:IF B$='"'
THEN
140
150
IF
B$="W"
OR
B$="w"
THEN
Q%=3:N%=0:GOTO
210
160
IF B$="B"
OR
B$="b"
THEN
Q%=0:N%=3:GOTO
210
170
CLS
#1:LOCATE
#1,4,3
180
PRINT
#1,"
BLACK
OR
WHITE
ONLY"
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:12%=7:J2%=7
230
FOR
1%=0
TO
9
240 C%(I%,0%)=6:C%(0,I%)=6
250 C%(9,I%)=6:C%(I%,9)=6
260
NEXT
1%
270
FOR
1%=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
1%
330
C%(4,4)=3:C%(4,5)=0:C%(5,4)=0:C%(5,5)=3
continued on the next page
Appendix 3
Page
14
Some Programs
for
you
....
To Next Page
