01 LBL 04
 02 00
 03 LBL 00
 04 "H"
 05 -
 06 LBL 03
 07 LBL 03
 08 RCL 00
 09 LBL 00
 10 SREG IND 19
 11 AVIEW
 12 LBL 07
 13 LBL 07
 14 0
 15 LBL 00
 16 STO 72
 17 STO 12
 18 LBL 03
 19 LBL 07
 20 RCL 00
 21 LBL 00
 22 "‘x
¹T> 
"  ;"\91x\08\08\10\01\00\B9T>\04\04 \01"
 23 PSE
 24 RCL 10
 25 AVIEW
 26 LBL 07
 27 LBL 07
 28 0
 29 RAD
 30 "µ* 
Ú"  ;"\B5*\07\04 \01\00\DA"
 31 STO 03
 32 AVIEW
 33 LBL 07
 34 LBL 07
 35 0
 36 LBL 00
 37 RAD
 38 SIGN
 39 0
 40 LBL 07
 41 LBL 03
 42 0
 43 RAD
 44 "I"  ;"I\08\04\04"
 45 RCL 00
 46 LBL 00
 47 XEQ d
 48 LBL 07
 49 LBL 07
 50 RCL 00
 51 LBL 00
 52 STO 10
 53 XROM 12,63
 54 0
 55 LBL 07
 56 0
 57 XEQ 17
 58 X=Y?
 59 LBL 03
 60 XEQ ""  ;1E,04
 61 0
 62 XEQ 17
 63 LBL 07
 64 STO 12
 65 LBL 03
 66 LBL 03
 67 LBL 07
 68 -
 69 ""  ;F0
 70 S-
 71 STO 12
 72 LBL 03
 73 LBL 03
 74 0
 75 RAD
 76 CLS
 77 RCL 08
 78 MEAN
 79 LBL 03
 80 LBL 03
 81 0
 82 ""  ;"\00"
 83 RCL 11
 84 -
 85 LBL 03
 86 LBL 03
 87 LBL 03
 88 0
 89 LBL 00
 90 XEQ 28
 91 LBL 07
 92 LBL 03
 93 0
 94 LBL 00
 95 "H "  ;"H\18\08\04 \11\00\09\FF"
 96 21
 97 LBL 07
 98 RCL 00
 99 LBL 00
100 XEQ P
101 LBL 07
102 LBL 07
103 0
104 RAD
105 XEQ 56
106 LBL 07
107 LBL 07
108 RCL 00
109 END