Barcode making program for 41 series?

[4ster]

An example: The following backs up a data file in extended memory to bar code. It uses an HP-41 with an extended functions/memory module, an HP-IL module, an HP-IL thermal printer and a plotter module. Enter the Extended memory file name in the Alpha register and s.nnnii in the X register, s=starting register number, nnn=the number of registers you want to convert to bar code and ii=the increment (01 to print every register).

Print eXtended Memory Bar Code Data
01 LBL "PXMBCD"
02 SF 21
03 STO 01
04 LBL 01
05 FIX 0
06 RCL 01
07 INT
08 "R:"
09 ACA
10 ACX
11 ADV
12 SEEKPT
13 GETX
14 BCX
15 CHS
16 BCO
17 ISG 01
18 GTO 01
19 END

This prints out one labeled register at a time as barcode. It would be nice if multiple data registers could be on one line of code but I haven't been able to figure out how to do that yet. Its still much easier than keying in a large data file after a memory lost. I have a companion program that scans data into an extended memory file from this barcode.

Anyway, one example of what you can do.