01 LBL "FORCE"
 02 CLSIGMA
 03 "N^E HELD ?"
 04 PROMPT
 05 STO 08
 06 X<>Y
 07 STO 07
 08 LBL A
 09 "N^E"
 10 PROMPT
 11 XEQ 09
 12 SIGMA+
 13 GTO A
 14 LBL 09
 15 STO 02
 16 RCL 08
 17 -
 18 X<>Y
 19 STO 01
 20 RCL 07
 21 -
 22 RTN
 23 LBL B
 24 XEQ 09
 25 SIGMA-
 26 GTO A
 27 LBL C
 28 1
 29 RCL 15
 30 RCL 14
 31 /
 32 STO 04
 33 R-P
 34 X<>Y
 35 STO 01
 36 SIN
 37 ASIN
 38 ABS
 39 HMS
 40 STO 03
 41 RCL 01
 42 90
 43 /
 44 1
 45 +
 46 INT
 47 STO 05
 48 FIX 04
 49 GTO IND 05
 50 LBL 01
 51 "N "
 52 GTO 03
 53 LBL 02
 54 "S "
 55 LBL 03
 56 ARCL 03
 57 >" E"
 58 PROMPT
 59 LBL D
 60 FIX 03
 61 STO 09
 62 RCL 07
 63 -
 64 RCL 04
 65 /
 66 RCL 08
 67 +
 68 STO 00
 69 "E: "
 70 ARCL 00
 71 PROMPT
 72 GTO D
 73 LBL E
 74 FIX 03
 75 STO 00
 76 RCL 08
 77 -
 78 RCL 04
 79 *
 80 RCL 07
 81 +
 82 STO 09
 83 "N: "
 84 ARCL 09
 85 PROMPT
 86 GTO E
 87 END