2006/05/31
CHAPTER 8 BAR CODE CONTROL - 11
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 >
To Next Page
Loading...
Need help?
General
