01 LBL "RELATV"
 02 299792456.2
 03 STO 03
 04 STO 07
 05 RTN
 06 LBL A
 07 STO 00
 08 FS?C 22
 09 STOP
 10 XEQ 02
 11 RCL 01
 12 *
 13 STO 00
 14 RTN
 15 LBL B
 16 STO 01
 17 FS?C 22
 18 STOP
 19 RCL 00
 20 XEQ 02
 21 /
 22 STO 01
 23 RTN
 24 LBL C
 25 FS? 22
 26 XEQ 05
 27 STO 02
 28 FS?C 22
 29 STOP
 30 XEQ 03
 31 RCL 03
 32 *
 33 STO 02
 34 RTN
 35 LBL D
 36 STO 03
 37 FS?C 22
 38 STOP
 39 RCL 02
 40 XEQ 03
 41 /
 42 STO 03
 43 RTN
 44 LBL e
 45 LBL 02
 46 1
 47 RCL 02
 48 RCL 03
 49 /
 50 X^2
 51 -
 52 SQRT
 53 RTN
 54 LBL 03
 55 1
 56 RCL 00
 57 RCL 01
 58 /
 59 X^2
 60 -
 61 SQRT
 62 RTN
 63 LBL E
 64 RCL 03
 65 SF 22
 66 RTN
 67 LBL a
 68 STO 05
 69 FS?C 22
 70 STOP
 71 RCL 06
 72 RCL 07
 73 X^2
 74 *
 75 STO 05
 76 RTN
 77 LBL b
 78 STO 06
 79 FS?C 22
 80 STOP
 81 RCL 05
 82 RCL 07
 83 X^2
 84 /
 85 STO 06
 86 RTN
 87 LBL c
 88 STO 07
 89 FS?C 22
 90 STOP
 91 RCL 05
 92 RCL 06
 93 /
 94 SQRT
 95 STO 07
 96 RTN
 97 LBL d
 98 RCL 01
 99 RCL 00
100 -
101 RCL 02
102 X^2
103 *
104 RTN
105 LBL 05
106 RCL 03
107 X<=Y?
108 ASIN
109 X<>Y
110 END