00 { 157-Byte Prgm } 01▸LBL "RJN" 02 1 03 STO 88 04 0 05 STO 89 06 72.075 07 STO 81 08▸LBL 01 09 RCL 81 10 IP 11 RCL IND ST X 12 RCL 81 13 IP 14 4 15 + 16 R↓ 17 STO IND ST T 18 ISG 81 19 GTO 01 20 XEQ "AKR" 21 XEQ "EXK" 22 0.008 23 STO 86 24▸LBL 02 25 XEQ "SBX" 26 XEQ "SHR" 27 XEQ "MXC" 28 XEQ "AKR" 29 XEQ "EXK" 30 ISG 86 31 GTO 02 32 XEQ "SBX" 33 XEQ "SHR" 34 XEQ "AKR" 35 68.071 36 STO 88 37 0 38▸LBL 03 39 RCL 88 40 IP 41 R↓ 42 STO IND ST T 43 ISG 88 44 GTO 03 45 76.087 46 STO 88 47 0 48▸LBL 04 49 RCL 88 50 IP 51 R↓ 52 STO IND ST T 53 ISG 88 54 GTO 04 55 0 56 STO 88 57 STO 89 58 CLST 59 END 00 { 43-Byte Prgm } 01▸LBL "AKR" 02 0.003 03 STO 84 04▸LBL 01 05 RCL 84 06 IP 07 64 08 + 09 RCL IND ST X 10 RCL 84 11 IP 12 76 13 + 14 R↓ 15 RCL IND ST T 16 XOR 17 STO IND ST Y 18 ISG 84 19 GTO 01 20 END 00 { 207-Byte Prgm } 01▸LBL "EXK" 02 0.003 03 STO 84 04▸LBL 02 05 RCL 84 06 IP 07 80 08 + 09 STO 87 10 1 11 - 12 RCL IND ST X 13 STO 68 14 RCL 87 15 4 16 MOD 17 X=0? 18 XEQ 03 19 RCL 87 20 4 21 - 22 RCL IND ST X 23 RCL 68 24 XOR 25 RCL 87 26 4 27 - 28 R↓ 29 STO IND ST T 30 RCL 87 31 R↓ 32 STO IND ST T 33 ISG 84 34 GTO 02 35 RTN 36▸LBL 03 37 RCL 68 38 255 39 AND 40 -24 41 ROTXY 42 STO 69 43 RCL 68 44 8 45 ROTXY 46 16777215 47 AND 48 RCL 69 49 XOR 50 STO 68 51 0 52 STO 69 53 0.003 54 STO 85 55▸LBL 04 56 RCL 68 57 255 58 RCL 85 59 IP 60 8 61 × 62 STO 70 63 +/- 64 ROTXY 65 AND 66 RCL 70 67 ROTXY 68 XEQ "LKP" 69 RCL 70 70 +/- 71 ROTXY 72 RCL 69 73 XOR 74 STO 69 75 ISG 85 76 GTO 04 77 RCL 69 78 RCL 88 79 XOR 80 STO 68 81 RCL 88 82 -1 83 ROTXY 84 8 85 BIT? 86 XEQ 05 87 R↓ 88 255 89 AND 90 STO 88 91 RTN 92▸LBL 05 93 R↓ 94 27 95 XOR 96 ENTER 97 RTN 98 END 00 { 250-Byte Prgm } 01▸LBL "IXK" 02 0.003 03 STO 84 04▸LBL 01 05 RCL 84 06 IP 07 76 08 + 09 RCL IND ST X 10 RCL 84 11 IP 12 80 13 + 14 R↓ 15 STO IND ST T 16 ISG 84 17 GTO 01 18 0 19 STO 89 20 0.003 21 STO 84 22▸LBL 02 23 79 24 RCL 84 25 IP 26 - 27 STO 87 28 3 29 + 30 RCL IND ST X 31 STO 68 32 RCL 87 33 4 34 MOD 35 X=0? 36 XEQ 03 37 RCL 87 38 4 39 + 40 RCL IND ST X 41 RCL 68 42 XOR 43 RCL 87 44 R↓ 45 STO IND ST T 46 ISG 84 47 GTO 02 48 90 49 STO 89 50 RTN 51▸LBL 03 52 RCL 68 53 255 54 AND 55 -24 56 ROTXY 57 STO 69 58 RCL 68 59 8 60 ROTXY 61 16777215 62 AND 63 RCL 69 64 XOR 65 STO 68 66 0 67 STO 69 68 0.003 69 STO 85 70▸LBL 04 71 RCL 68 72 255 73 RCL 85 74 IP 75 8 76 × 77 STO 70 78 +/- 79 ROTXY 80 AND 81 RCL 70 82 ROTXY 83 XEQ "LKP" 84 RCL 70 85 +/- 86 ROTXY 87 RCL 69 88 XOR 89 STO 69 90 ISG 85 91 GTO 04 92 RCL 69 93 RCL 88 94 XOR 95 STO 68 96 RCL 88 97 1 98 ROTXY 99 35 100 BIT? 101 XEQ 05 102 R↓ 103 255 104 AND 105 STO 88 106 RTN 107▸LBL 05 108 R↓ 109 -34359738227 110 XOR 111 ENTER 112 RTN 113 END 00 { 227-Byte Prgm } 01▸LBL "MXC" 02 0.003 03 STO 80 04▸LBL 01 05 0 06 STO 82 07 64 08 RCL 80 09 IP 10 + 11 STO 69 12 RCL IND 69 13 65535 14 -16 15 ROTXY 16 AND 17 16 18 ROTXY 19 RCL IND 69 20 XOR 21 ENTER 22 ENTER 23 255 24 -8 25 ROTXY 26 AND 27 8 28 ROTXY 29 XOR 30 255 31 AND 32 STO 68 33 0.003 34 STO 81 35▸LBL 02 36 RCL 81 37 IP 38 8 39 × 40 STO 71 41 RCL IND 69 42 255 43 RCL 71 44 +/- 45 ROTXY 46 AND 47 RCL 71 48 ROTXY 49 STO 70 50 RCL IND 69 51 255 52 RCL 71 53 8 54 + 55 32 56 MOD 57 +/- 58 ROTXY 59 AND 60 RCL 71 61 8 62 + 63 32 64 MOD 65 ROTXY 66 RCL 70 67 XOR 68 XEQ 03 69 RCL 68 70 XOR 71 RCL 70 72 XOR 73 RCL 71 74 +/- 75 ROTXY 76 RCL 82 77 XOR 78 STO 82 79 ISG 81 80 GTO 02 81 RCL 82 82 STO IND 69 83 ISG 80 84 GTO 01 85 0 86 STO 69 87 STO 68 88 STO 70 89 STO 82 90 RTN 91▸LBL 03 92 -1 93 ROTXY 94 8 95 BIT? 96 XEQ 04 97 R↓ 98 255 99 AND 100 RTN 101▸LBL 04 102 R↓ 103 27 104 XOR 105 ENTER 106 RTN 107 END 00 { 319-Byte Prgm } 01▸LBL "IMXC" 02 0.003 03 STO 80 04▸LBL 01 05 0 06 STO 82 07 64 08 RCL 80 09 IP 10 + 11 STO 69 12 RCL IND 69 13 4294901760 14 AND 15 16 16 ROTXY 17 RCL IND 69 18 XOR 19 ENTER 20 ENTER 21 65280 22 AND 23 8 24 ROTXY 25 XOR 26 255 27 AND 28 STO 68 29 XEQ 03 30 XEQ 03 31 XEQ 03 32 RCL 68 33 XOR 34 STO 68 35 0.003 36 STO 81 37▸LBL 02 38 RCL 81 39 IP 40 8 41 × 42 STO 71 43 RCL IND 69 44 255 45 RCL 71 46 +/- 47 ROTXY 48 AND 49 RCL 71 50 ROTXY 51 STO 70 52 RCL IND 69 53 255 54 RCL 71 55 16 56 + 57 32 58 MOD 59 +/- 60 ROTXY 61 AND 62 RCL 71 63 16 64 + 65 32 66 MOD 67 ROTXY 68 RCL 70 69 XOR 70 XEQ 03 71 STO 70 72 RCL IND 69 73 255 74 RCL 71 75 +/- 76 ROTXY 77 AND 78 RCL 71 79 ROTXY 80 RCL 70 81 XOR 82 STO 70 83 RCL IND 69 84 255 85 RCL 71 86 8 87 + 88 32 89 MOD 90 +/- 91 ROTXY 92 AND 93 RCL 71 94 8 95 + 96 32 97 MOD 98 ROTXY 99 RCL 70 100 XOR 101 XEQ 03 102 RCL 68 103 XOR 104 RCL IND 69 105 255 106 RCL 71 107 +/- 108 ROTXY 109 AND 110 RCL 71 111 ROTXY 112 XOR 113 RCL 71 114 +/- 115 ROTXY 116 RCL 82 117 XOR 118 STO 82 119 ISG 81 120 GTO 02 121 RCL 82 122 STO IND 69 123 ISG 80 124 GTO 01 125 0 126 STO 69 127 STO 68 128 STO 70 129 STO 82 130 RTN 131▸LBL 03 132 -1 133 ROTXY 134 8 135 BIT? 136 XEQ 04 137 R↓ 138 255 139 AND 140 RTN 141▸LBL 04 142 R↓ 143 27 144 XOR 145 ENTER 146 RTN 147 END 00 { 118-Byte Prgm } 01▸LBL "SHR" 02 0 03 STO 68 04 STO 69 05 STO 70 06 STO 71 07 0.003 08 STO 80 09▸LBL 01 10 0.003 11 STO 81 12▸LBL 02 13 RCL 80 14 RCL 81 15 + 16 IP 17 4 18 MOD 19 64 20 + 21 RCL IND ST X 22 255 23 RCL 81 24 IP 25 8 26 × 27 +/- 28 ROTXY 29 AND 30 RCL 80 31 IP 32 68 33 + 34 STO 82 35 R↓ 36 RCL IND 82 37 XOR 38 STO IND 82 39 ISG 81 40 GTO 02 41 ISG 80 42 GTO 01 43 0.003 44 STO 80 45▸LBL 03 46 RCL 80 47 IP 48 64 49 + 50 ENTER 51 ENTER 52 4 53 + 54 RCL IND ST X 55 STO IND ST Z 56 ISG 80 57 GTO 03 58 END 00 { 89-Byte Prgm } 01▸LBL "SBX" 02 0.003 03 STO 80 04▸LBL 01 05 0 06 STO 71 07 64 08 RCL 80 09 IP 10 + 11 STO 69 12 0.003 13 STO 81 14▸LBL 02 15 RCL IND 69 16 255 17 RCL 81 18 IP 19 8 20 × 21 STO 70 22 +/- 23 ROTXY 24 AND 25 RCL 70 26 ROTXY 27 XEQ "LKP" 28 RCL 70 29 +/- 30 ROTXY 31 RCL 71 32 XOR 33 STO 71 34 ISG 81 35 GTO 02 36 RCL 71 37 STO IND 69 38 ISG 80 39 GTO 01 40 END 00 { 43-Byte Prgm } 01▸LBL "LKP" 02 ENTER 03 ENTER 04 4 05 MOD 06 X<>Y 07 4 08 ÷ 09 IP 10 RCL 89 11 + 12 RCL IND ST X 13 X<>Y 14 R↓ 15 X<>Y 16 8 17 × 18 STO ST Z 19 255 20 X<>Y 21 +/- 22 ROTXY 23 AND 24 X<>Y 25 ROTXY 26 END 00 { 203-Byte Prgm } 01▸LBL "IRJN" 02 1 03 STO 88 04 90 05 STO 89 06 72.075 07 STO 81 08▸LBL 01 09 RCL 81 10 IP 11 RCL IND ST X 12 RCL 81 13 IP 14 4 15 + 16 R↓ 17 STO IND ST T 18 ISG 81 19 GTO 01 20 0.009 21 STO 86 22▸LBL 05 23 XEQ "EXK" 24 ISG 86 25 GTO 05 26 54 27 STO 88 28 XEQ "AKR" 29 XEQ "IXK" 30 0.008 31 STO 86 32▸LBL 02 33 XEQ "SBX" 34 XEQ "SHR" 35 XEQ "SHR" 36 XEQ "SHR" 37 XEQ "ARK" 38 XEQ "IXK" 39 XEQ "IMXC" 40 ISG 86 41 GTO 02 42 XEQ "SBX" 43 XEQ "SHR" 44 XEQ "SHR" 45 XEQ "SHR" 46 XEQ "AKR" 47 68.071 48 STO 88 49 0 50▸LBL 03 51 RCL 88 52 IP 53 R↓ 54 STO IND ST T 55 ISG 88 56 GTO 03 57 76.087 58 STO 88 59 0 60▸LBL 04 61 RCL 88 62 IP 63 R↓ 64 STO IND ST T 65 ISG 88 66 GTO 04 67 0 68 STO 88 69 STO 89 70 CLST 71 END