01 LBL "WOMPUS"
 02 LBL C
 03 23.025
 04 STO Z
 05 LBL 01
 06 CLX
 07 RCL IND Z
 08 X=Y?
 09 GTO 00
 10 ISG Z
 11 GTO 01
 12 "NO TUNNEL"
 13 PROMPT
 14 LBL 00
 15 RDN
 16 LBL 20
 17 ENTER
 18 X<> 21
 19 -
 20 ABS
 21 .3
 22 *
 23 ST+ 26
 24 LASTX
 25 /
 26 ST- 27
 27 1
 28 ST- 28
 29 LBL 21
 30 CF 23
 31 CF 24
 32 CF 25
 33 23.025
 34 RCL IND 21
 35 LBL 02
 36 FRC
 37 1 E3
 38 *
 39 ENTER
 40 INT
 41 100
 42 X<=Y?
 43 SF IND T
 44 MOD
 45 STO IND Z
 46 RDN
 47 ISG Y
 48 GTO 02
 49 FS?C 06
 50 RTN
 51 LBL B
 52 ADV
 53 CLA
 54 RCL 26
 55 HMS
 56 24
 57 /
 58 INT
 59 ARCL X
 60 >" DAYS "
 61 RCL 26
 62 HMS
 63 24
 64 MOD
 65 INT
 66 ARCL X
 67 >" HRS"
 68 AVIEW
 69 PSE
 70 "IN CAVERN "
 71 ARCL 21
 72 AVIEW
 73 PSE
 74 "YOUR EFF.="
 75 ARCL 27
 76 >"%"
 77 AVIEW
 78 PSE
 79 "TRACKS TO: "
 80 FS? 23
 81 ARCL 23
 82 >" "
 83 FS? 24
 84 ARCL 24
 85 >" "
 86 FS? 25
 87 ARCL 25
 88 AVIEW
 89 "TUNNELS TO:"
 90 23.025
 91 RCL 22
 92 LBL 03
 93 >" "
 94 RCL IND Y
 95 X#0?
 96 ARCL X
 97 X=Y?
 98 SF 06
 99 RDN
100 ISG Y
101 GTO 03
102 AVIEW
103 PSE
104 "I SMELL WOMPUS"
105 FS?C 06
106 AVIEW
107 ADV
108 RTN
109 LBL D
110 .25
111 ST+ 26
112 X<>Y
113 RCL 21
114 RCL 22
115 X=Y?
116 GTO 07
117 CLX
118 23.025
119 X<> Z
120 X<>Y
121 LBL 04
122 CLX
123 RCL IND Z
124 X=Y?
125 GTO 00
126 ISG Z
127 GTO 04
128 "NO TUNNEL"
129 PROMPT
130 LBL 00
131 "NO ARROWS"
132 CLX
133 RCL 30
134 X<=0?
135 PROMPT
136 DSE 30
137 LBL 90
138 CLX
139 RCL 22
140 X=Y?
141 GTO 00
142 "PING ... HIT A "
143 >"ROCK"
144 AVIEW
145 GTO B
146 LBL 00
147 7
148 ST- 28
149 "KILLED THE WOMP"
150 >"US"
151 RCL 28
152 X<=0?
153 GTO 09
154 "YIPE-WOUNDED TH"
155 >"E WOMPUS"
156 AVIEW
157 ADV
158 LBL 05
159 XEQ 99
160 RCL 28
161 *
162 25
163 X>Y?
164 GTO B
165 LBL 06
166 XEQ 99
167 3
168 *
169 1
170 +
171 INT
172 22
173 +
174 RCL 21
175 RCL 22
176 X=Y?
177 SF IND Z
178 RCL Z
179 22
180 -
181 3
182 *
183 10^X
184 STO 29
185 RCL IND 22
186 *
187 INT
188 1 E2
189 MOD
190 RCL 21
191 X<>Y
192 X#Y?
193 X=0?
194 GTO 05
195 1 E3
196 ST/ 29
197 CLX
198 RCL 29
199 RCL IND 22
200 *
201 INT
202 .1
203 +
204 RCL 29
205 /
206 LASTX
207 10
208 *
209 STO 29
210 RCL IND 22
211 *
212 FRC
213 RCL 29
214 /
215 +
216 STO IND 22
217 X<>Y
218 STO 22
219 15
220 ST+ 26
221 FS? 06
222 RTN
223 GTO 21
224 LBL 07
225 "WOMPUS ATTACKS"
226 AVIEW
227 LBL 08
228 CF 05
229 RCL 28
230 "WOMPUS IS"
231 X<=0?
232 GTO 09
233 RCL 27
234 "YOU ARE"
235 X<=0?
236 GTO 09
237 XEQ 99
238 *
239 XEQ 99
240 RCL 28
241 *
242 -
243 X>0?
244 SF 05
245 10
246 FS? 05
247 ST- 28
248 FC? 05
249 ST- 27
250 XEQ 99
251 10
252 *
253 31
254 +
255 XEQ 99
256 10
257 *
258 41
259 +
260 ENTER
261 "WOMPUS"
262 FS? 05
263 "YOU"
264 ASTO X
265 ENTER
266 "YOUR"
267 FS? 05
268 "HIS"
269 ASTO X
270 CLA
271 ARCL Y
272 >" "
273 ARCL IND T
274 FC? 05
275 >"S"
276 >" "
277 ARCL X
278 >" "
279 ARCL IND Z
280 AVIEW
281 XEQ 99
282 .3
283 X<=Y?
284 GTO 08
285 "WOMPUS RUNS"
286 AVIEW
287 SF 06
288 XEQ 06
289 RCL 28
290 RCL 27
291 X<=Y?
292 GTO B
293 RCL 22
294 STO 21
295 XEQ 21
296 "YOU CAUGHT HIM"
297 AVIEW
298 GTO 08
299 LBL 09
300 >" DEAD"
301 TONE 03
302 TONE 02
303 TONE 01
304 TONE 00
305 AVIEW
306 PSE
307 XEQ B
308 OFF
309 LBL E
310 RCL 27
311 1.5
312 *
313 100
314 X>Y?
315 X<>Y
316 STO 27
317 8
318 ST+ 26
319 "SNORE, SNORE"
320 AVIEW
321 XEQ 99
322 .2
323 X<=Y?
324 GTO B
325 "BODY SNATCH"
326 AVIEW
327 TONE 07
328 XEQ 99
329 19
330 *
331 1
332 +
333 INT
334 GTO 20
335 LBL 99
336 RCL 00
337 9821
338 *
339 .211327
340 +
341 FRC
342 STO 00
343 END