SATO XL400/410 User Manual
Page 163
Programming Manual
4. Bar Code Specifications
SATO RISC Printers
163
Numeric
Input (Quick Basic Example):
QR barcode test for CL412 1Y0200A/2E2000
CLS
E$ = CHR$(27)
WIDTH "LPT1:", 255
OPEN "lpt1:" FOR OUTPUT AS #1
Print Data
DATA1$ = "0123456789"
DATA2$ = " $%*+-./0123456789:ABCDEFGHIJKLMNOPQRSTUVWXYZ"
DATA3$ = ""
FOR i = 0 TO 31
DATA3$ = DATA3$ + CHR$(i)
NEXT i
PRINT #1, E$; "A";
S1
S0
b8
0
0
0
0
0
0
0
0
1
1
1
1
1
1
1
1
b7
0
0
0
0
1
1
1
1
0
0
0
0
1
1
1
1
b6
0
0
1
1
0
0
1
1
0
0
1
1
0
0
1
1
b5
0
1
0
1
0
1
0
1
0
1
0
1
0
1
0
1
b4
b3
b2
b1
0
1
2
3
4
5
6
7
8
9
A
B
C
D
E
F
0
0
0
0
0
SP
0
@
P
°
p
0
0
0
1
1
!
1
A
Q
a
q
0
0
1
0
2
"
2
B
R
b
r
0
0
1
1
3
#
3
C
S
c
s
0
1
0
0
4
$
4
D
T
d
t
0
1
0
1
5
%
5
E
U
e
u
0
1
1
0
6
&
6
F
V
f
v
0
1
1
1
7
’
7
G
W
g
w
1
0
0
0
8
(
8
H
X
h
x
1
0
0
1
9
)
9
I
Y
i
y
1
0
1
0
A
*
:
J
Z
j
z
1
0
1
1
B
+
;
K
[
k
{
1
1
0
0
C
,
<
L
\
l
|
1
1
0
1
D
-
=
M
]
m
}
1
1
1
0
E
.
>
N
^
n
~
1
1
1
1
F
/
?
O
_
o
DE
L