01 LBL "WOMPIN"  ; Key: 11
 02 FIX 00
 03 CF 29
 04 "SEED IN R00?"
 05 AVIEW
 06 TONE 00
 07 PSE
 08 SF 25
 09 "SET SIZE 051"
 10 RCL 50
 11 FC? 25
 12 PROMPT
 13 RCL 00
 14 CLRG
 15 STO 00
 16 20
 17 STO 41
 18 "PLEASE WAIT"
 19 AVIEW
 20 LBL 00
 21 RCL 41
 22 1 E6
 23 X<Y?
 24 GTO 03
 25 1.004
 26 LBL 04
 27 CF IND X
 28 ISG X
 29 GTO 04
 30 LBL 01
 31 0
 32 STO 43
 33 LBL 05
 34 ISG 43
 35 LBL 02
 36 RCL 43
 37 7
 38 X<=Y?
 39 GTO 03
 40 RCL 00
 41 9821
 42 *
 43 .211327
 44 +
 45 FRC
 46 STO 00
 47 5
 48 *
 49 INT
 50 X=0?
 51 GTO 02
 52 FS? IND X
 53 GTO 05
 54 SF IND X
 55 CHS
 56 RCL 41
 57 +
 58 STO 44
 59 X<=0?
 60 GTO 02
 61 RCL IND 44
 62 1 E6
 63 X<Y?
 64 GTO 05
 65 RCL IND 44
 66 1 E3
 67 *
 68 RCL 41
 69 +
 70 STO IND 44
 71 RCL IND 41
 72 1 E3
 73 *
 74 RCL 44
 75 +
 76 STO IND 41
 77 1 E6
 78 X>Y?
 79 GTO 01
 80 LBL 03
 81 DSE 41
 82 GTO 00
 83 20
 84 ENTER
 85 1 E9
 86 LBL 07
 87 ST/ IND Y
 88 DSE Y
 89 GTO 07
 90 23.025
 91 RCL 01
 92 LBL 06
 93 1 E3
 94 *
 95 ENTER
 96 INT
 97 STO IND Z
 98 -
 99 ISG Y
100 GTO 06
101 100
102 STO 27
103 STO 28
104 1
105 STO 21
106 20
107 STO 30
108 CLX
109 STO 26
110 CF 23
111 CF 24
112 CF 25
113 RCL 00
114 9821
115 *
116 .211327
117 +
118 FRC
119 20
120 *
121 INT
122 STO 22
123 CF 00
124 CF 01
125 CF 02
126 CF 03
127 CF 04
128 CF 05
129 CF 06
130 "SMACK"
131 ASTO 31
132 "STAB"
133 ASTO 32
134 "GRAB"
135 ASTO 33
136 "BITE"
137 ASTO 34
138 "KICK"
139 ASTO 35
140 "TEAR"
141 ASTO 36
142 "TWIST"
143 ASTO 37
144 "STOMP"
145 ASTO 38
146 "HIT"
147 ASTO 39
148 "PULL"
149 ASTO 40
150 "EYE"
151 ASTO 41
152 "NOSE"
153 ASTO 42
154 "GROIN"
155 ASTO 43
156 "TOE"
157 ASTO 44
158 "EAR"
159 ASTO 45
160 "FACE"
161 ASTO 46
162 "NECK"
163 ASTO 47
164 "CHEST"
165 ASTO 48
166 "GUT"
167 ASTO 49
168 "BRAIN"
169 ASTO 50
170 BEEP
171 "XEQ WOMPUS"
172 PROMPT
173 END