01 LBL "PFR"
 02 FIX 06
 03 CLRG
 04 STO 00
 05 -50.05005
 06 STO 20
 07 LBL 00
 08 CF 22
 09 6
 10 STO 25
 11 LBL 01
 12 RCL 00
 13 PI
 14 +
 15 5
 16 Y^X
 17 FRC
 18 STO 00
 19 41
 20 *
 21 30
 22 +
 23 INT
 24 STO IND 25
 25 DSE 25
 26 50
 27 -
 28 STO IND 25
 29 DSE 25
 30 GTO 01
 31 RCL 03
 32 RCL 01
 33 R-P
 34 RDN
 35 STO 07
 36 RCL 05
 37 RCL 05
 38 X^2
 39 RCL 03
 40 X^2
 41 RCL 01
 42 X^2
 43 +
 44 +
 45 SQRT
 46 STO 21
 47 "DISTANCE"
 48 XEQ 05
 49 PSE
 50 /
 51 ASIN
 52 STO 08
 53 6
 54 STO 25
 55 0
 56 LBL 02
 57 RCL IND 25
 58 RCL 25
 59 1.5
 60 *
 61 3
 62 -
 63 10^X
 64 /
 65 +
 66 DSE 25
 67 DSE 25
 68 GTO 02
 69 STO 09
 70 LBL 03
 71 RCL 20
 72 "ENTERPRISE"
 73 XEQ 05
 74 PSE
 75 PSE
 76 PSE
 77 FS? 22
 78 GTO 04
 79 RCL 09
 80 "ALIEN"
 81 XEQ 05
 82 PSE
 83 PSE
 84 PSE
 85 FS? 22
 86 GTO 04
 87 RCL 21
 88 "DISTANCE"
 89 XEQ 05
 90 PSE
 91 FS? 22
 92 GTO 04
 93 GTO 03
 94 LBL 04
 95 X<>Y
 96 RCL 07
 97 "THETA"
 98 XEQ 05
 99 PSE
100 -
101 "ERROR"
102 XEQ 05
103 PSE
104 ABS
105 X<>Y
106 RCL 08
107 "PHI"
108 XEQ 05
109 PSE
110 -
111 "ERROR"
112 XEQ 05
113 PSE
114 ABS
115 +
116 "TOTAL ERROR"
117 XEQ 05
118 PSE
119 GTO 00
120 LBL 05
121 BEEP
122 AVIEW
123 PSE
124 CLD
125 RTN
126 END