01 LBL "REVERSI"
 02 CLRG
 03 FIX 00
 04 CF 29
 05 CF 01
 06 CF 12
 07 .8188111883
 08 STO 16
 09 .8661683130
 10 STO 17
 11 .1316636633
 12 STO 18
 13 .36845518
 14 STO 19
 15 .414814156
 16 STO 20
 17 .6556564346
 18 STO 21
 19 .3435747552
 20 STO 22
 21 .5742472425
 22 STO 23
 23 .7376626732
 24 STO 24
 25 .3723268287
 26 STO 25
 27 .717821212
 28 STO 26
 29 .177277227
 30 STO 27
 31 SIGN
 32 STO 62
 33 STO 09
 34 CHS
 35 STO 08
 36 STO 72
 37 9
 38 STO 15
 39 CHS
 40 STO 14
 41 +
 42 STO 11
 43 CHS
 44 STO 10
 45 11
 46 STO 13
 47 CHS
 48 STO 12
 49 61
 50 STO 07
 51 "DIAG?"
 52 CF 23
 53 AON
 54 PROMPT
 55 RCL 09
 56 RCL 08
 57 FS?C 23
 58 X<>Y
 59 STO 61
 60 X<>Y
 61 STO 71
 62 XEQ 06
 63 "HP FIRST?"
 64 PROMPT
 65 AOFF
 66 FS?C 23
 67 GTO 00
 68 "I MOVE"
 69 AVIEW
 70 SF 29
 71 LBL 14
 72 "I"
 73 CF 03
 74 LBL 08
 75 16.027
 76 FS?C 29
 77 21
 78 STO 05
 79 LBL 11
 80 RCL IND 05
 81 X=0?
 82 GTO 05
 83 SF 05
 84 LBL 13
 85 RCL 10
 86 X^2
 87 *
 88 STO 06
 89 INT
 90 XEQ 12
 91 FC?C 04
 92 GTO 00
 93 RCL 06
 94 FRC
 95 X#0?
 96 GTO 13
 97 FS? 05
 98 STO IND 05
 99 LBL 05
100 ISG 05
101 GTO 11
102 "NO MOVE"
103 AVIEW
104 TONE 09
105 PSE
106 LBL 00
107 FS?C 01
108 GTO 14
109 "MOVE?"
110 PROMPT
111 X=0?
112 GTO 14
113 SF 03
114 "YOU"
115 X<0?
116 SF 01
117 X<0?
118 GTO 08
119 XEQ 12
120 FC?C 04
121 GTO 14
122 "ILLEGAL"
123 AVIEW
124 TONE 09
125 GTO 00
126 LBL 12
127 SF 04
128 17
129 +
130 STO 00
131 RCL IND 00
132 X#0?
133 RTN
134 CF 05
135 STO 01
136 8.015
137 STO 02
138 RCL 09
139 FC? 03
140 CHS
141 STO 04
142 LBL 01
143 RCL 00
144 RCL IND 02
145 +
146 STO 03
147 RCL IND X
148 RCL 04
149 X#Y?
150 GTO 12
151 LBL 03
152 LASTX
153 ST+ 03
154 RCL IND 03
155 RCL 04
156 X=Y?
157 GTO 03
158 CHS
159 X#Y?
160 GTO 12
161 STO IND 00
162 LBL 04
163 LASTX
164 ST- 03
165 RCL 00
166 RCL 03
167 X=Y?
168 GTO 12
169 RCL 08
170 ST* IND Y
171 ST- 01
172 GTO 04
173 LBL 12
174 ISG 02
175 GTO 01
176 RCL 01
177 X=0?
178 RTN
179 CF 04
180 >" PLAY "
181 RCL 00
182 17
183 -
184 ARCL X
185 AVIEW
186 FC? 01
187 FC? 03
188 BEEP
189 PSE
190 "FLIP "
191 ARCL 01
192 >" PCES"
193 AVIEW
194 PSE
195 FC? 02
196 GTO 06
197 FS? 03
198 GTO 12
199 LBL 06
200 FC? 55
201 GTO 12
202 ADV
203 31
204 STO 00
205 45
206 STO 01
207 79
208 STO 02
209 2.01
210 STO 03
211 8
212 XROM 29,23
213 49.056
214 STO 04
215 LBL 02
216 RCL 13
217 XROM 29,23
218 X<>Y
219 XROM 29,02
220 ISG X
221 GTO 02
222 XROM 29,10
223 28.035
224 STO 05
225 LBL 09
226 RCL 04
227 XROM 29,02
228 RCL 15
229 XROM 29,23
230 SF 12
231 LBL 10
232 RCL IND 05
233 RCL 09
234 +
235 RCL IND X
236 XROM 29,02
237 RCL 03
238 XROM 29,23
239 ISG 05
240 GTO 10
241 XROM 29,10
242 ST+ 05
243 CF 12
244 ISG 04
245 GTO 09
246 ADV
247 FS? 03
248 GTO 12
249 ADV
250 ADV
251 LBL 12
252 DSE 07
253 RTN
254 FC? 02
255 GTO 12
256 FS?C 03
257 XEQ 06
258 LBL 12
259 32
260 "GAME IS OVER"
261 28.105
262 AVIEW
263 0
264 LBL 07
265 RCL IND Y
266 +
267 ISG Y
268 GTO 07
269 2
270 /
271 X<>Y
272 RDN
273 ST- Z
274 +
275 ADV
276 "HP: "
277 ARCL X
278 >", YOU: "
279 ARCL Y
280 AVIEW
281 BEEP
282 ADV
283 PSE
284 X=Y?
285 STOP
286 "I"
287 X<Y?
288 "YOU"
289 >" WON"
290 PROMPT
291 END