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