Back to main page | Email me at: Gene!
I have modified this program to eliminate the need to construct alpha text lines synthetically. It increases the byte count of this program, but is much easier to key in.
Requirements:
1) This program requires the HP-IL Module, the HP-IL 2225B thinkjet
printer, an HP-41CX or an HP-41CV with X-Functions/Memory, and the CCD
Module.
Instructions: Just put the name of the program to print bar code for into alpha an XEQ "PBC2". Sit back and watch the bar code print out.
Line Instruction 01 LBL "PBC2" 02 ALENG 03 X = 0? 04 GETAS 05 CLRG 06 PHD 07 STO 00 08 1 09 PPLNG 10 STO 02 11 - 12 A+B 13 PEEKB 14 6 15 bS? 16 FC 23 17 9.018 18 STO 03 19 PRA 20 27 21 XTOA 22 42 23 XTOA 24 114 25 XTOA 26 55 27 XTOA 28 56 29 XTOA 30 52 31 XTOA 32 83 33 XTOA 34 OUTA 35 CLA 36 128 37 XTOA 38 27 39 CRFLAS 40 LBL 00 41 SF 22 42 RCL 00 43 A- 44 X <> 00 45 PEEKB 46 STO IND 03 47 ST+ 06 48 DSE 01 49 GTO 01 50 143 51 - 52 X < = 0? 53 97 54 64 55 - 56 X < = 0? 57 34 58 32 59 - 60 X < = 0? 61 3 62 STO 01 63 STO 04 64 LBL 01 65 ISG 03 66 GTO 11 67 LBL 02 68 RCL 05 69 16 70 MOD 71 LASTX 72 FC? 23 73 ST+ X 74 + 75 ST+ 06 76 STO 07 77 ISG 05 78 CLX 79 RCL 04 80 RCL 01 81 DSE X 82 - 83 RCL 08 84 + 85 STO 08 86 RCL 06 87 + 88 255 89 MOD 90 X = 0? 91 LASTX 92 STO 06 93 RCL 03 94 INT 95 DSE X 96 1 E3 97 / 98 9 99 + 100 STO 03 101 3 102 - 103 CLA 104 RCL 05 105 CHS 106 ARCLI 107 ->"-" 108 PRA 109 CLA 110 112 111 XTOA 112 XTOA 113 RDN 114 LBL 03 115 X <> Y 116 RCL IND X 117 7 118 CHS 119 LBL 04 120 bC? 121 XEQ 07 122 LASTX 123 bS? 124 XEQ 08 125 LASTX 126 ISG X 127 GTO 04 128 APPCHR 129 CLA 130 RDN 131 ISG Y 132 GTO 03 133 XEQ 08 134 XEQ 07 135 CF 22 136 APPCHR 137 26 138 LBL 05 139 RCLPT 140 1 E3 141 * 142 CLA 143 27 144 XTOA 145 RDN 146 42 147 XTOA 148 RDN 149 98 150 XTOA 151 RDN 152 ARCL X 153 ->"W" 154 SF 17 155 OUTA 156 CLX 157 SEEKPT 158 LBL 06 159 GETREC 160 OUTA 161 FS? 17 162 GTO 06 163 X <> Y 164 DSE X 165 GTO 05 166 6 167 GTO 10 168 LBL 07 169 FS? 22 170 GTO 12 171 7 172 XTOA 173 RDN 174 CF 22 175 RTN 176 LBL 12 177 112 178 XTOA 179 RDN 180 RTN 181 LBL 08 182 FC?C 22 183 GTO 09 184 127 185 XTOA 186 RDN 187 RTN 188 LBL 09 189 7 190 XTOA 191 RDN 192 240 193 XTOA 194 RDN 195 SF 22 196 RTN 197 LBL 10 198 SF 17 199 CLA 200 27 201 XTOA 202 RDN 203 42 204 XTOA 205 RDN 206 98 207 XTOA 208 RDN 209 49 210 XTOA 211 RDN 212 87 213 XTOA 214 RDN 215 OUTA 216 CF 17 217 CLA 218 128 219 XTOA 220 RDN 221 ACA 222 DSE X 223 GTO 10 224 CLFL 225 16 226 RCL 01 227 DSE X 228 * 229 STO 08 230 LBL 11 231 DSE 02 232 GTO 00 233 FS? 22 234 GTO 02 235 PURFL 236 CLA 237 27 238 XTOA 239 42 240 RDN 241 114 242 XTOA 243 RDN 244 66 245 XTOA 246 RDN 247 OUTA 248 BEEP 249 END