start tok64 d64-Fj9EU7
1 REM  chess-boot
2 REM chess-64 is based on the program
3 REM chess c4 from creative computing
4 REM magazine and was converted for
5 REM the c64 by p. thompson, kambah act
6 REM convertion included: a complete
7 REM review of the basic program, the
8 REM addition of a chess clock, and
9 REM implementation of c64 graphics
10 REM and sprites.
11 REM please feel free to include any
12 REM improvements and enhancements
13 REM let me know of them through the
14 REM commodore user group act.
15 REM
22 POKE 53280,6:POKE 53281,6
25 PRINT "{clear}{white}{down*14}{right*15}loading {.*3}{down*6}":GOSUB100
40 PRINT "{home}{blue}load"CHR$(34)"chs/char"CHR$(34)",8,1"
41 PRINT "{down*4}load"CHR$(34)"chess/clk"CHR$(34)",8,1"
42 PRINT "{down*4}new"
44 PRINT "{down*2}load"CHR$(34)"chess-64"CHR$(34)",8"
50 POKE 198,10
55 DATA 19,13,13,13,13,32,82,85,78,13
60 FOR i=1 TO 10:READ x:POKE 630+i,x:NEXT
70 POKE 44,64:POKE 16*1024,0:CLR:NEW
100 PRINT"{space*3}{reverse on}{space*3}{reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on}{space*3}{reverse off} {reverse on}{space*3}{reverse off} {reverse on}{space*3}{reverse off}{space*5}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}
110 PRINT"{space*3}{reverse on} {reverse off}{space*3}{reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{space*7}{reverse on} {reverse off}{space*3}{reverse on} {reverse off} {reverse on} {reverse off}
120 PRINT"{space*3}{reverse on} {reverse off}{space*3}{reverse on} {reverse off}{cm y}{reverse on} {reverse off} {reverse on} {reverse off}{cm y}{space*2}{cm y*2}{reverse on} {reverse off} {cm y*2}{reverse on} {reverse off} {cm y*3} {reverse on} {reverse off}{cm y}{reverse on} {reverse off} {cm y*2}{reverse on} {reverse off}
130 PRINT"{space*3}{cm y*3} {cm y} {cm y} {cm y*3} {cm y*3} {cm y*3}{space*5}{cm y*3}{space*3}{cm y}";
140 RETURN
stop tok64
(bastext 1.0)