01 LBL "BANNER" 02 LBL A 03 CF 29 04 FIX 00 05 "STARTING AT?" 06 PROMPT 07 1.4 08 + 09 STO 01 10 CF 22 11 LBL 14 12 ISG 01 13 "COLUMN " 14 RCL 01 15 2 16 - 17 ARCL X 18 >"?" 19 PROMPT 20 STO IND 01 21 FS?C 22 22 GTO 14 23 CHS 24 STO IND 01 25 "DONE" 26 PROMPT 27 LBL c 28 3.4 29 STO 00 30 LBL 16 31 FC? 04 32 GTO 15 33 CF 29 34 FIX 00 35 CF 12 36 "64" 37 XROM 29,01 38 6 39 XROM 29,23 40 "32" 41 XROM 29,01 42 6 43 XROM 29,23 44 "16" 45 XROM 29,01 46 3 47 XROM 29,23 48 8 49 XROM 29,05 50 6 51 XROM 29,23 52 4 53 XROM 29,05 54 6 55 XROM 29,23 56 2 57 XROM 29,05 58 6 59 XROM 29,23 60 1 61 XROM 29,05 62 3 63 XROM 29,23 64 ADV 65 LBL 15 66 RCL IND 00 67 X<0? 68 GTO 17 69 OCT 70 1 E2 71 / 72 STO 02 73 RCL 00 74 2 75 STO 01 76 - 77 FS? 03 78 RCL IND 00 79 CF 12 80 FS? 04 81 XROM 29,05 82 SF 12 83 RCL 02 84 1 85 X>Y? 86 XEQ 32 87 X>Y? 88 GTO 11 89 - 90 STO 02 91 XEQ 31 92 LBL 11 93 RCL 02 94 10 95 * 96 FRC 97 STO 02 98 LASTX 99 XEQ IND X 100 DSE 01 101 GTO 11 102 ADV 103 ISG 00 104 GTO 15 105 LBL 17 106 CF 12 107 SF 29 108 FIX 03 109 RTN 110 LBL 00 111 XEQ 34 112 XEQ 32 113 RTN 114 LBL 01 115 XEQ 34 116 XEQ 31 117 RTN 118 LBL 02 119 XEQ 32 120 XEQ 31 121 XEQ 32 122 RTN 123 LBL 03 124 XEQ 32 125 XEQ 33 126 RTN 127 LBL 04 128 XEQ 31 129 XEQ 34 130 RTN 131 LBL 05 132 XEQ 31 133 XEQ 32 134 XEQ 31 135 RTN 136 LBL 06 137 XEQ 33 138 XEQ 32 139 RTN 140 LBL 07 141 XEQ 33 142 XEQ 31 143 RTN 144 LBL 33 145 XEQ 31 146 LBL 31 147 3 148 FC? 04 149 5 150 XROM 29,23 151 31 152 XROM 29,02 153 RTN 154 LBL 34 155 XEQ 32 156 LBL 32 157 10 158 FC? 04 159 12 160 XROM 29,23 161 RTN 162 LBL B 163 "FROM?" 164 PROMPT 165 2 166 + 167 "TO?" 168 PROMPT 169 2 170 + 171 X