4. EXAMPLE PROGRAM LISTINGS; EXAMPLE PROGRAM LISTINGS - Page 351

CHAPTER 8 BAR CODE CONTROL - 12 

4.

EXAMPLE PROGRAM LISTINGS 

10 ' Barcode 
20 WIDTH "LPT1:", 255 
30 ' CODE 39 
40 LPRINT CHR$(27); "it0r1s0x00y00b123456\"; 
50 'INTER LEAVED 
60 LPRINT CHR$(27); "it1r1s0x70y00b123456\"; 
70 ' EAN-13 
80 LPRINT CHR$(27); "it5r1s0x00y020b123456789012?\"; 
90 LPRINT CHR$(27); "it5r1s0x70y020b123456789012?+12345\"; 
100 ' UPC-A 
110 LPRINT CHR$(27); "it5r1s0x00y050b12345678901?\"; 
120 LPRINT CHR$(27); "it5r1s0x70y050b12345678901?+12345\"; 
130 ' EAN-8 
140 LPRINT CHR$(27); "it5r1s0x00y080b1234567?\"; 
150 LPRINT CHR$(27); "it5r1s0x70y080b1234567?+12345\"; 
160 ' UPC-E 
170 LPRINT CHR$(27); "it6r1s0x00y110b0123456?\"; 
180 LPRINT CHR$(27); "it6r1s0x70y110b0123456?+12344\"; 
190 ' CODABAR 
195 LPRINT CHR$(27); "it9r1s0x00y140bA123456A\"; 
210 ' POST NET 
220 LPRINT CHR$(27); "it4r1x70y140b1234567?\"; 
230 ' FIM 
240 LPRINT CHR$(27); "iT3R1x130Y140BA\"; 
250 ' ISBN 
260 LPRINT CHR$(27); "it130r1s0x00y170b123456789012?+12345\"; 
270 LPRINT CHR$(27); "it130r1s0x70y170b12345678901?+12345\"; 
280 LPRINT CHR$(27); "it130r1s0x00y200b1234567?+12345\"; 
300 ' LABEL PRINT 
310 LPRINT CHR$(27); "ih10w10x25y230lSample\"; 
320 LPRINT CHR$(27); "ix90y230s4h10w10f2g2e"; 
330 LPRINT CHR$(27); "ix105y230s4h10w10v"; 
400 LPRINT CHR$(&HC); 
 
< Sample 19 >