EXAMPLE PROGRAM LISTINGS - Page 325

2001/10/02 

CHAPTER 8 BAR CODE CONTROL - 10 

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 >