01 LBL "~M"
 02 SF 21
 03 CF 04
 04 CF 03
 05 CLRG
 06 "N?"
 07 PROMPT
 08 1
 09 +
 10 STO 14
 11 DSE X
 12 1 E3
 13 /
 14 STO 13
 15 LBL 00
 16 CF 01
 17 CF 22
 18 "Y?"
 19 BEEP
 20 PROMPT
 21 FC? 22
 22 GTO 03
 23 STO 10
 24 RCL 13
 25 FRC
 26 STO 13
 27 1
 28 STO 00
 29 ISG 13
 30 LBL 01
 31 FIX 00
 32 CF 29
 33 "X"
 34 ARCL 13
 35 >"?"
 36 TONE IND 13
 37 PROMPT
 38 STO IND 13
 39 ISG 13
 40 GTO 01
 41 FIX 05
 42 SF 29
 43 RCL 13
 44 FRC
 45 STO 13
 46 STO 11
 47 15
 48 STO 12
 49 RCL 15
 50 1
 51 +
 52 CF 21
 53 VIEW X
 54 SF 21
 55 LBL 04
 56 RCL 11
 57 FRC
 58 STO 11
 59 LBL 02
 60 RCL IND 13
 61 RCL IND 11
 62 *
 63 FC? 01
 64 ST+ IND 12
 65 FS? 01
 66 ST- IND 12
 67 ISG 12
 68 DEG
 69 ISG 11
 70 GTO 02
 71 RCL 14
 72 X^2
 73 LASTX
 74 +
 75 15
 76 +
 77 RCL 13
 78 +
 79 RCL IND 13
 80 RCL 10
 81 *
 82 FC? 01
 83 ST+ IND Y
 84 FS? 01
 85 ST- IND Y
 86 ISG 13
 87 GTO 04
 88 GTO 00
 89 LBL 03
 90 SF 21
 91 SF 04
 92 SF 05
 93 CF 10
 94 CF 09
 95 CF 08
 96 CF 07
 97 CF 06
 98 XROM 01,05
 99 RTN
100 LBL A
101 RCL 14
102 X^2
103 LASTX
104 +
105 15
106 +
107 STO Y
108 1
109 -
110 RCL 14
111 +
112 1 E3
113 /
114 +
115 RTN
116 LBL "PM"
117 XEQ A
118 STO 13
119 RCL 14
120 1
121 -
122 STO 12
123 CF 29
124 FIX 00
125 LBL 07
126 "X"
127 ARCL 12
128 >"?"
129 PROMPT
130 STO IND 12
131 DSE 12
132 GTO 07
133 1
134 SF 29
135 FIX 05
136 STO 00
137 RCL 14
138 1
139 -
140 1 E3
141 /
142 STO 12
143 0
144 LBL 08
145 RCL IND 13
146 RCL IND 12
147 *
148 +
149 ISG 12
150 STO X
151 ISG 13
152 GTO 08
153 "Y="
154 ARCL X
155 AVIEW
156 END