Honeywell PM45 - Sample Code

94 PM45 and PM45c User Guide
Sample Code
input on
qVendor$ = /Vendor/
qModel$ = /Model Name/
qSerial$ = /Serial Number/
qDpi% = 406 \ sysvar(45)
qLen% = len(qVendor$)+len(qModel$)+len(qSerial$)
qMag%=2
if qLen% < 50 then qMag%=3
if qLen% < 40 then qMag%=4
if qLen% < 30 then qMag%=5
if qLen% < 20 then qMag%=6
if qLen% < 10 then qMag%=7
AN 1
PP 20,20
PX 160,360,4
AN 5
PP 100,100
BT "DATAMATRIX"
BM qMag%
PB "@"+qVendor$+"@"+qModel$+"@"+qSerial$
AN 5
FONT "Univers Bold", 14
PP 260,110
PT qVendor$
AN 5
FONT "Univers", 14
PP 260,70
PT qModel$