Seiko Group BP-6000 User Manual
89
About bar code element type
Any bar code type can be expressed in bar codes by varying bar elements; narrow bar, wide
b a r, narrow space, wide space, and intercharacter gap. However, HRI, check digit, and
s t a r t / e n d c o d e h a v e t o b e a d d e d m a n u a l l y. I f a s p e c i f i c t y p e o f b a r c o d e o t h e r t h a n
specified earlier does not satisfy your needs, create your own program to translate data to a
specific bar code.
b a r, narrow space, wide space, and intercharacter gap. However, HRI, check digit, and
s t a r t / e n d c o d e h a v e t o b e a d d e d m a n u a l l y. I f a s p e c i f i c t y p e o f b a r c o d e o t h e r t h a n
specified earlier does not satisfy your needs, create your own program to translate data to a
specific bar code.
Sample program: Print "CODE39" in code 39 format using bar code element print.
Output:
1 0 0 O P E N " L P T 1 : " A S # 1 : W I D T H # 1 , 2 5 5
1 1 0 D C 4 $ = C H R $ ( & H 1 4 ) : E S C $ = C H R $ ( & H 1 B )
1 2 0 S I $ = C H R $ ( & H F ) : S O $ = C H R $ ( & H E ) : I C G = 4
1 3 0 '
1 4 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " @ " ; ' I n i t i a l i z e
1 5 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " T " ; C H R $ ( 2 5 5 ) ; ' B a r c o d e T y p e : E l e m e n t P r i n t
1 6 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " E " ; C H R $ ( 0 ) ; C H R $ ( 2 ) ; ' N a r r o w B a r : 2 / 1 2 0 "
1 7 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " E " ; C H R $ ( 1 ) ; C H R $ ( 6 ) ; ' W I D E B a r : 6 / 1 2 0 "
1 8 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " E " ; C H R $ ( 2 ) ; C H R $ ( 2 ) ; ' N a r r o w S p a c e : 2 / 1 2 0 "
1 9 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " E " ; C H R $ ( 3 ) ; C H R $ ( 6 ) ; ' W i d e S p a c e : 6 / 1 2 0 "
2 0 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " E " ; C H R $ ( 4 ) ; C H R $ ( 2 ) ; ' I n t e r C h a r G a p : 2 / 1 2 0 "
2 1 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " H " ; C H R $ ( 6 ) ; ' B a r c o d e H e i g h t : 6 / 1 2 "
2 2 0 '
2 3 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " B " ; C H R $ ( 9 * 8 + 7 ) ; ' B a r c o d e D a t a S p e q u e n c e S t a r t
2 4 0 R E S T O R E 4 4 0
2 5 0 F O R I = 1 T O 9 : R E A D A : P R I N T C H R $ ( A ) ; : N E X T I
2 6 0 P R I N T # 1 , C H R $ ( I C G ) ;
2 7 0 F O R J = 1 T O 6
2 8 0 I F J = 1 T H E N R E S T O R E 4 5 0
2 9 0 I F J = 2 T H E N R E S T O R E 4 6 0
3 0 0 I F J = 3 T H E N R E S T O R E 4 7 0
3 1 0 I F J = 4 T H E N R E S T O R E 4 8 0
3 2 0 I F J = 5 T H E N R E S T O R E 4 9 0
3 3 0 I F J = 6 T H E N R E S T O R E 5 0 0
3 4 0 F O R I = 1 T O 9 : R E A D A : P R I N T C H R $ ( A ) ; : N E X T I
3 5 0 P R I N T # 1 , C H R $ ( I C G ) ;
3 6 0 N E X T J
3 7 0 R E S T O R E 4 4 0
3 8 0 F O R I = 1 T O 9 : R E A D A : P R I N T C H R $ ( A ) ; : N E X T I
4 0 0 P R I N T # 1 , C H R $ ( 1 3 ) ; C H R $ ( 1 0 ) ; ' C R + L F
4 1 0 C L O S E # 1
4 2 0 E N D
4 3 0 '
4 4 0 D A T A 0 , 3 , 0 , 2 , 1 , 2 , 1 , 2 , 0
4 5 0 D A T A 1 , 2 , 1 , 2 , 0 , 3 , 0 , 2 , 0
4 6 0 D A T A 1 , 2 , 0 , 2 , 1 , 2 , 0 , 3 , 0
4 7 0 D A T A 0 , 2 , 0 , 2 , 1 , 3 , 0 , 2 , 1
4 8 0 D A T A 1 , 2 , 0 , 2 , 1 , 3 , 0 , 2 , 0
4 9 0 D A T A 1 , 2 , 1 , 3 , 0 , 2 , 0 , 2 , 0
5 0 0 D A T A 0 , 2 , 1 , 3 , 0 , 2 , 1 , 2 , 0
1 1 0 D C 4 $ = C H R $ ( & H 1 4 ) : E S C $ = C H R $ ( & H 1 B )
1 2 0 S I $ = C H R $ ( & H F ) : S O $ = C H R $ ( & H E ) : I C G = 4
1 3 0 '
1 4 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " @ " ; ' I n i t i a l i z e
1 5 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " T " ; C H R $ ( 2 5 5 ) ; ' B a r c o d e T y p e : E l e m e n t P r i n t
1 6 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " E " ; C H R $ ( 0 ) ; C H R $ ( 2 ) ; ' N a r r o w B a r : 2 / 1 2 0 "
1 7 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " E " ; C H R $ ( 1 ) ; C H R $ ( 6 ) ; ' W I D E B a r : 6 / 1 2 0 "
1 8 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " E " ; C H R $ ( 2 ) ; C H R $ ( 2 ) ; ' N a r r o w S p a c e : 2 / 1 2 0 "
1 9 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " E " ; C H R $ ( 3 ) ; C H R $ ( 6 ) ; ' W i d e S p a c e : 6 / 1 2 0 "
2 0 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " E " ; C H R $ ( 4 ) ; C H R $ ( 2 ) ; ' I n t e r C h a r G a p : 2 / 1 2 0 "
2 1 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " H " ; C H R $ ( 6 ) ; ' B a r c o d e H e i g h t : 6 / 1 2 "
2 2 0 '
2 3 0 P R I N T # 1 , D C 4 $ ; D C 4 $ ; " B " ; C H R $ ( 9 * 8 + 7 ) ; ' B a r c o d e D a t a S p e q u e n c e S t a r t
2 4 0 R E S T O R E 4 4 0
2 5 0 F O R I = 1 T O 9 : R E A D A : P R I N T C H R $ ( A ) ; : N E X T I
2 6 0 P R I N T # 1 , C H R $ ( I C G ) ;
2 7 0 F O R J = 1 T O 6
2 8 0 I F J = 1 T H E N R E S T O R E 4 5 0
2 9 0 I F J = 2 T H E N R E S T O R E 4 6 0
3 0 0 I F J = 3 T H E N R E S T O R E 4 7 0
3 1 0 I F J = 4 T H E N R E S T O R E 4 8 0
3 2 0 I F J = 5 T H E N R E S T O R E 4 9 0
3 3 0 I F J = 6 T H E N R E S T O R E 5 0 0
3 4 0 F O R I = 1 T O 9 : R E A D A : P R I N T C H R $ ( A ) ; : N E X T I
3 5 0 P R I N T # 1 , C H R $ ( I C G ) ;
3 6 0 N E X T J
3 7 0 R E S T O R E 4 4 0
3 8 0 F O R I = 1 T O 9 : R E A D A : P R I N T C H R $ ( A ) ; : N E X T I
4 0 0 P R I N T # 1 , C H R $ ( 1 3 ) ; C H R $ ( 1 0 ) ; ' C R + L F
4 1 0 C L O S E # 1
4 2 0 E N D
4 3 0 '
4 4 0 D A T A 0 , 3 , 0 , 2 , 1 , 2 , 1 , 2 , 0
4 5 0 D A T A 1 , 2 , 1 , 2 , 0 , 3 , 0 , 2 , 0
4 6 0 D A T A 1 , 2 , 0 , 2 , 1 , 2 , 0 , 3 , 0
4 7 0 D A T A 0 , 2 , 0 , 2 , 1 , 3 , 0 , 2 , 1
4 8 0 D A T A 1 , 2 , 0 , 2 , 1 , 3 , 0 , 2 , 0
4 9 0 D A T A 1 , 2 , 1 , 3 , 0 , 2 , 0 , 2 , 0
5 0 0 D A T A 0 , 2 , 1 , 3 , 0 , 2 , 1 , 2 , 0
B. Control code summary (bar code)