01 LBL "~P"
 02 SF 21
 03 CF 04
 04 CF 03
 05 CLRG
 06 "N?"
 07 PROMPT
 08 1
 09 +
 10 STO 14
 11 1 E3
 12 /
 13 STO 13
 14 LBL 00
 15 CF 01
 16 CF 22
 17 BEEP
 18 "Y^X?"
 19 PROMPT
 20 FC? 22
 21 GTO 03
 22 STO 02
 23 X<>Y
 24 STO 01
 25 RCL 13
 26 FRC
 27 STO 13
 28 STO 11
 29 ISG 13
 30 15
 31 STO 12
 32 RCL 15
 33 1
 34 +
 35 CF 21
 36 VIEW X
 37 SF 21
 38 LBL 04
 39 RCL 11
 40 FRC
 41 STO 11
 42 ISG 11
 43 RCL 13
 44 INT
 45 STO 10
 46 LBL 02
 47 RCL 10
 48 RCL 11
 49 INT
 50 +
 51 2
 52 -
 53 RCL 02
 54 X<>Y
 55 Y^X
 56 FC? 01
 57 ST+ IND 12
 58 FS? 01
 59 ST- IND 12
 60 ISG 12
 61 DEG
 62 ISG 11
 63 GTO 02
 64 RCL 01
 65 RCL 02
 66 RCL 10
 67 DSE X
 68 STO X
 69 Y^X
 70 *
 71 RCL 14
 72 X^2
 73 LASTX
 74 +
 75 15
 76 +
 77 RCL 10
 78 1
 79 -
 80 +
 81 X<>Y
 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 STOP
116 XROM 29,17
117 RTN
118 LBL "PP"
119 RCL 14
120 X^2
121 LASTX
122 ST+ X
123 +
124 14
125 +
126 STO Y
127 RCL 14
128 -
129 1
130 +
131 1 E3
132 /
133 +
134 STO 13
135 "X?"
136 PROMPT
137 ENTER
138 ENTER
139 ENTER
140 RCL IND 13
141 *
142 DSE 13
143 LBL 07
144 RCL IND 13
145 +
146 *
147 DSE 13
148 GTO 07
149 RCL IND 13
150 +
151 "Y="
152 ARCL X
153 AVIEW
154 END