Amthello - AMSTRAD cpc 6128 User Instruction

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 ....