01 LBL 67
 02 LBL 10
 03 LBL A
 04 XROM 30,11
 05 STO 01
 06 X<>Y
 07 P-R
 08 ST- 02
 09 X<>Y
 10 ST- 03
 11 RTN
 12 LBL 11
 13 LBL B
 14 RCL 01
 15 +
 16 X<>Y
 17 P-R
 18 ST+ 02
 19 X<>Y
 20 ST+ 03
 21 RCL 02
 22 STO 05
 23 RCL 03
 24 STO 06
 25 RTN
 26 LBL 12
 27 LBL C
 28 STO 04
 29 RCL 05
 30 STO 02
 31 CLX
 32 RCL 06
 33 STO 03
 34 CLX
 35 RDN
 36 X<>Y
 37 P-R
 38 ST+ 02
 39 X<>Y
 40 ST+ 03
 41 RCL 03
 42 RCL 02
 43 R-P
 44 XROM 30,34
 45 X<>Y
 46 X<0?
 47 XEQ 00
 48 RCL 04
 49 -
 50 180
 51 X<>Y
 52 X>Y?
 53 GTO 01
 54 RTN
 55 LBL 01
 56 X<>Y
 57 2
 58 *
 59 -
 60 RTN
 61 LBL 13
 62 LBL D
 63 X<>Y
 64 P-R
 65 STO 07
 66 X<>Y
 67 STO 08
 68 RCL 06
 69 RCL 05
 70 R-P
 71 ST+ 07
 72 RCL 08
 73 RCL 07
 74 R-P
 75 RTN
 76 LBL 14
 77 LBL E
 78 RCL 06
 79 RCL 05
 80 R-P
 81 XROM 30,34
 82 X<>Y
 83 X<0?
 84 XEQ 00
 85 RTN
 86 LBL 00
 87 360
 88 +
 89 RTN
 90 STOP
 91 END