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$ = ""
FORi=0TO31
DATA3$ = DATA3$ + CHR$(i)
NEXT i
PRINT #1, E$; "A";
S1 S0
b80000000011111111
b70000111100001111
b60011001100110011
b50101010101010101
b4b3b2b1 0123456789ABCDEF
00000
SP 0 @ P ° p
00011 !1A Q a q
00102 "2B R b r
00113 #3C S c s
01004 $4D T d t
01015 %5E U e u
01106 &6F V f v
01117 ’7G W g w
10008 (8H X h x
10019 )9I Y i y
1010A *:J Z j z
1011B + ; K [ k {
1100C , < L \ l |
1101D - = M ] m }
1110E . > N ^ n ~
1111F / ? O _ o
DE
L