1 REM COPYRIGHT 1994 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
2 POKE52,48:POKE56,48:CLR:POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
3 FORI=0TO511:POKEI+12288,PEEK(I+53248):NEXT:POKE1,PEEK(1)OR4
4 POKE56334,PEEK(56334)OR1
5 POKE53272,(PEEK(53272)AND240)+12
6 FORI=12576TO12599:READD:POKEI,D:NEXT:POKE53280,10:POKE53281,11
7 A$="$$$$$$$ $$$$$$$$$$$$$$$$$ $$$$"
8 B$="$$$$$^[144]$$$$$$$ $$$$$$$$$^[144]$$$$$$"
9 C$="$$^[144]$$$$$$$$$$$$^[144]$ $$$$$$$$$$$$"
10 D$="$$$$$$$$$$$^[144]$$$$$$$$$$$$$^[144]$$$$"
11 E$=""
12 F$="                                     "
13 GOTO136
14 PRINT"[147]DO YOU WANT TO PLAY AGAINST THE "
15 PRINT:PRINT"   COMPUTER OR ANOTHER HUMAN ?  (C/H)"
16 GET CH$:IF CH$=""THEN16
17 IF CH$="C"THEN CC=1:PT$="COMPUTER":GOTO19
18 IF CH$<>"H"THEN16
19 IF Q$="Y" AND CC=1 THEN25
20 IF Q$="Y" THEN23
21 PRINT:PRINT"   "CHR$(37);:PRINT"  WHAT IS PLAYER ONE'S NAME"
22 PRINT:INPUT"    (SEVEN LETTERS OR LESS)";PO$:IFCC=1 THEN25
23 PRINT:PRINT"   "CHR$(38);:PRINT"  WHAT IS PLAYER TWO'S NAME"
24 PRINT:INPUT"    (SEVEN LETTERS OR LESS)";PT$
25 POKE53281,11:PRINT"[147][144]START"
26 PRINT"[144]"A$""SPC(10)B$""SPC(10)C$""SPC(10)D$
27 PRINTE$"[145][145]"SPC(32)"FINISH
28 [151] 1039,37:[151]55311,1:[153]""[166]17)PO$
29 [151] 1119,38:[151]55391,6:[153] [166]57) PT$
30 CM[178]54272:MM[178]1188:NN[178]1188:SN[178]54272:[129]NS[178]SN[164]SN[170]23:[151]NS,0:[130]:[151]SN[170]24,15
31 [151]1188,38:[151]1188[170]CM,1:[151]1188,37
32 [141]129
33 [151]53281,13:[151]53280,10:[151]SN[170]4,0:[141]134
34 [151]1347,62:[151]1347[170]CM,2:[151]1507,62:[151]1507[170]CM,2:[151]1667,62
35 [151]1667[170]CM,2
36 [141]148:F[178][181]([187](.)[172]9):FF[178][181]([187](.)[172]9[170]1)
37 [153]E$"STOP  "PO$":  ASTOPDD OR SSTOPUBTRACT  "F","FF
38 [161] CL$:[139] CL$[179][177]""[167]38
39 [129]Q[178]1[164]500
40 [161]AS$:[139]AS$[178]"A"[167]44
41 [139]AS$[178]"S"[167]45
42 [130]
43 M[178][181]([187](.)[172]9):[137]48
44 M[178](F[170]FF)[171]1:[137]48
45 [139]F[177]FF[167]M[178](F[171]FF)[171]1:[137]48
46 [139]FF[177]F[167]M[178](FF[171]F)[171]1:[137]48
47 [139] FF[178]F [167] M[178]0:[137]72
48 [129]I[178]MM[164]MM[170]M:[151]I,37:[151]I[170]CM,1:[129]W[178]1[164]250:[130]:[141]110:[151]I,32
49 [151]NN,38:[151]NN[170]CM,6
50 [139]I[178]1218[167]M[178]((MM[170]M)[171]1218):MM[178]1348:[137]48
51 [139]I[178]1378[167]M[178]((MM[170]M)[171]1378):MM[178]1508:[137]48
52 [139]I[178]1538[167]M[178]((MM[170]M)[171]1538):MM[178]1668:[137]48
53 [139]I[178]1698[167] WI$[178]PO$:[137]118
54 [130]:MM[178]I:[151]I,37:[151]I[170]CM,1
55 [139]MM[178]1196[167][141]114:[141]68:[137]65
56 [139]MM[178]1214[167][141]114:[141]68:[137]65
57 [139]MM[178]1362[167][141]114:[141]68:[137]65
58 [139]MM[178]1526[167][141]114: [141]68:[137]65
59 [139]MM[178]1354[167][141]125:[141]70:[137]65
60 [139]MM[178]1372[167][141]125:[141]70:[137]65
61 [139]MM[178]1524[167][141]125:[141]70:[137]65
62 [139]MM[178]1511[167][141]125:[141]70:[137]65
63 [139]MM[178]1694[167][141]125:[141]70:[137]65
64 [139]MM[178]1680[167][141]125:[141]70
65 [139] I[178]NN [167] NN[178]1188:[141]129:[151]1188,38:[151]1188[170]CM,6
66 [139] MM[178]NN [167] NN[178]1188:[141]129:[151]1188,38:[151]1188[170]CM,6
67 [137]72
68 [151]MM,32:[129]D[178]1[164]4:MM[178]MM[170]40:[151]MM,37:[151]MM[170]CM,1:[129]W[178]1[164]250:[130]
69 [151]MM,32:[130]:[151]MM,37:[151]MM[170]CM,1:[142]
70 [151]MM,32:[129]D[178]1[164]4:MM[178]MM[171]40:[151]MM,37:[151]MM[170]CM,1:[129]W[178]1[164]250:[130]
71 [151]MM,32:[130]:[151]MM,37:[151]MM[170]CM,1:[151]MM[170]40,36:[151](MM[170]40)[170]CM,0:[142]
72 [151]53281,14:[151]SN[170]4,0:[141]134
73 [141]148:[139] CC[178]1 [167] N[178][181]([187](.)[172]15):[141]133:[137]86
74 [141]148:F[178][181]([187](.)[172]9):FF[178][181]([187](.)[172]9[170]1)
75 [153]E$"  "PT$":  ADD OR SUBTRACT  "F","FF
76 [161]CL$:[139] CL$[179][177]""[167]76
77 [129] Q[178]1 [164] 500
78 [161]AS$:[139]AS$[178]"A"[167]82
79 [139]AS$[178]"S"[167]83
80 [130]
81 N[178][181]([187](.)[172]9):[137]86
82 N[178](F[170]FF)[171]1:[137]86
83 [139]F[177]FF[167]N[178](F[171]FF)[171]1:[137]86
84 [139]FF[177]F[167]N[178](FF[171]F)[171]1:[137]86
85 [139] FF[178]F [167] N[178]0:[137]33
86 [129]H[178]NN[164]NN[170]N:[151]H,38:[151]H[170]CM,6:[129]W[178]1[164]250:[130]:[141]110:[151]H,32
87 [151]MM,37:[151]MM[170]CM,1
88 [139]H[178]1218[167]N[178]((NN[170]N)[171]1218):NN[178]1348:[137]86
89 [139]H[178]1378[167]N[178]((NN[170]N)[171]1378):NN[178]1508:[137]86
90 [139]H[178]1538[167]N[178]((NN[170]N)[171]1538):NN[178]1668:[137]86
91 [139]H[178]1698[167] WI$[178]PT$:[137]118
92 [130]:NN[178]H:[151]H,38:[151]H[170]CM,6
93 [139]NN[178]1196[167][141]114:[141]106:[137]103
94 [139]NN[178]1214[167][141]114:[141]106:[137]103
95 [139]NN[178]1362[167][141]114:[141]106:[137]103
96 [139]NN[178]1526[167][141]114:[141]106:[137]103
97 [139]NN[178]1354[167][141]125:[141]108:[137]103
98 [139]NN[178]1372[167][141]125:[141]108:[137]103
99 [139]NN[178]1524[167][141]125: [141]108:[137]103
100 [139]NN[178]1511[167][141]125: [141]108:[137]103
101 [139]NN[178]1694[167][141]125:[141]108:[137]103
102 [139]NN[178]1680[167][141]125:[141]108
103 [139]H[178]MM [167] MM[178]1188:[141]129:[151]1188,37:[151]1188[170]CM,1
104 [139] NN[178]MM [167] MM[178]1188:[141]129:[151]1188,37:[151]1188[170]CM,1
105 [137]33
106 [151]NN,32:[129]D[178]1[164]4:NN[178]NN[170]40:[151]NN,38:[151]NN[170]CM,6:[129]W[178]1[164]250:[130]
107 [151]NN,32:[130]:[151]NN,38:[151]NN[170]CM,6:[142]
108 [151]NN,32:[129]D[178]1[164]4:NN[178]NN[171]40:[151]NN,38:[151]NN[170]CM,6:[129]W[178]1[164]250:[130]
109 [151]NN,32:[130]:[151]NN,38:[151]NN[170]CM,6:[151]NN[170]40,36:[151](NN[170]40)[170]CM,0:[142]
110 [151]SN[170]24,15:[151]SN[170]4,17:[129]SD[178]38[164]149[169]82:[151]SN[170]1,SD:[130]
111 [129]SE[178]38[164]149[169]82:[151]SN,SD:[130]
112 [129]SD[178]149[164]38[169][171]82:[151]SN[170]1,SD:[130]
113 [129]SE[178]149[164]38[169][171]82:[151]SN,SE:[130]:[151]SN[170]24,0:[142]
114 [151]SN[170]24,15:[151]SN[170]4,17:[129]SD[178]49[164]126[169]2:[151]SN[170]1,SD:[130]
115 [129]SE[178]49[164]126[169]2:[151]SN,SE:[130]
116 [129]SD[178]126[164]49[169][171]2:[151]SN[170]1,SD:[130]
117 [129]SE[178]126[164]49[169][171]2:[151]SN,SE:[130]:[142]
118 [153]"LOAD"[166]12)"THE WINNER IS  ";:[141]149:[141]157
119 [153]"LOADSTOP"[166]255)WI$
120 [151]53281,1:[129]EN[178]1[164]3000:[130]:[151]53281,0:[153]""
121 CC[178]0:[153]:[153]"LOAD   WOULD YOU LIKE TO TRY AGAIN (Y/N)
122 GET Q$:IF Q$=""THEN122
123 IFQ$="N"THEN END
124 GOTO14
125 POKESN+24,15:POKESN+4,17:FORSD=150TO50STEP-2:POKESN+1,SD:NEXT
126 FORSE=150TO50STEP-2:POKESN,SE:NEXT
127 FORSD=50TO150STEP2:POKESN+1,SD:NEXT
128 FORSE=50TO150STEP2:POKESN,SE:NEXT:RETURN
129 POKESN+24,15:POKESN+5,8:POKESN+6,255:POKESN+4,23:FORSD=1TO3:F1=10
130 FORSE=1TO6:F2=30:POKESN+1,F1:FORSF=1TO3:POKESN+15,F2:F2=F2/1.2:NEXTSF
131 F1=F1*1.5:NEXTSE:FORSG=1TO8:POKESN+1,F1:POKESN+15,5:FORVV=1TO5:NEXTVV
132 F1=F1/1.5:NEXTSG:NEXTSD:POKESN+24,0:RETURN
133 IFCC=1THENPRINTE$;F$:PRINTSPC(2)F$;E$SPC(13)"[144]COMPUTER MOVES "N+1:RETURN
134 PRINTE$SPC(2)F$
135 PRINTSPC(14)F$:RETURN
136 PRINT"[147][155]  THE OBJECT OF [144]KETCHEM[155] IS TO BEAT YOUR  OPPONENT TO THE ";
137 PRINT" FINISH.  EACH TURN,    YOU DETERMINE THE NUMBER OF SPACES YOU"
138 PRINT" WILL ADVANCE BY COMPARING TWO NUMBERS   AND DECIDING WHETHER TO";
139 PRINT" ADD OR SUBTRACT THEM. BY CHOOSING CAREFULLY YOU MAY BE  ABLE TO";
140 PRINT" LAND ON HOLES, AVOID ARROWS, OR SEND YOUR OPPONENT BACK TO START."
141 PRINT:PRINT"  IF YOU LAND ON A HOLE IN THE PATH, YOU  DROP THROUGH TO THE";
142 PRINT" NEXT LEVEL. IF YOU  LAND ON AN ARROW, YOU ARE SENT BACK A   LEVEL";
143 PRINT". IF YOU LAND ON YOUR OPPONENT,    HE IS SENT BACK TO START."
144 PRINT""SPC(13)"[144]GO KETCHEM!!!"
145 PRINT"        HIT ANY KEY TO CONTINUE"
146 GET CL$:IF CL$=""THEN146
147 GOTO14
148 FOR DY=1 TO 1000:NEXT:RETURN
149 SN=54272:POKESN+24,15:POKESN+4,17
150 POKESN+1,25:POKESN,30:POKESN+8,18:POKESN+7,209:FORSF=1TO200:NEXT
151 POKESN+1,33:POKESN,135:POKESN+8,25:POKESN+7,30:FORSF=1TO200:NEXT
152 POKESN+1,42:POKESN,62:POKESN+8,31:POKESN+7,165:FORSF=1TO200:NEXT
153 POKESN+1,50:POKESN,60:POKESN+8,37:POKESN+7,162:FORSF=1TO400:NEXT
154 POKESN+1,42:POKESN,62:POKESN+8,31:POKESN+7,165:FORSF=1TO200:NEXT
155 POKESN+1,50:POKESN,60:POKESN+8,37:POKESN+7,162:FORSF=1TO700:NEXT
156 POKESN+24,0:RETURN
157 FOREN=15TO255STEP40:PRINT"[147]"SPC(EN)WI$:NEXT:RETURN
158 DATA126,90,126,0,0,0,0,0,60,36,255,24,60,102,102,102,255,219,231,24,60
159 DATA24,60,126