01 LBL "AREA"
 02 0
 03 STO 09
 04 TONE 05
 05 "X0^Y0?"
 06 PROMPT
 07 STO 01
 08 X<>Y
 09 STO 00
 10 LBL 00
 11 CF 22
 12 "X1^Y1?"
 13 TONE 05
 14 PROMPT
 15 FC? 22
 16 GTO 04
 17 STO 03
 18 X<>Y
 19 STO 02
 20 "X2^Y2?"
 21 TONE 05
 22 PROMPT
 23 STO 05
 24 X<>Y
 25 STO 04
 26 0
 27 STO 06
 28 STO 07
 29 STO 08
 30 XEQ 01
 31 XEQ 02
 32 XEQ 01
 33 XEQ 02
 34 XEQ 01
 35 RCL 00
 36 XEQ 03
 37 ST+ 09
 38 RCL 02
 39 XEQ 03
 40 ST- 09
 41 GTO 00
 42 LBL 04
 43 "AREA="
 44 ARCL 09
 45 BEEP
 46 AVIEW
 47 RTN
 48 LBL 01
 49 RCL 01
 50 RCL 00
 51 RCL 02
 52 -
 53 RCL 00
 54 RCL 04
 55 -
 56 *
 57 /
 58 ST+ 06
 59 STO Y
 60 RCL 02
 61 RCL 04
 62 +
 63 *
 64 ST+ 07
 65 X<>Y
 66 RCL 02
 67 *
 68 RCL 04
 69 *
 70 ST+ 08
 71 RTN
 72 LBL 02
 73 RCL 05
 74 X<> 03
 75 X<> 01
 76 STO 05
 77 RCL 04
 78 X<> 02
 79 X<> 00
 80 STO 04
 81 RTN
 82 LBL 03
 83 ENTER
 84 ENTER
 85 ENTER
 86 RCL 06
 87 *
 88 3
 89 /
 90 RCL 07
 91 2
 92 /
 93 -
 94 *
 95 RCL 08
 96 +
 97 *
 98 RTN
 99 END