10/10/03

4.EXAMPLE PROGRAM LISTINGS

10 ' Barcode

20 WIDTH "LPT1:", 255

30 ' CODE 39

40LPRINT CHR$(27); "it0r1s0x00y00b123456\";

50'INTER LEAVED

60LPRINT CHR$(27); "it1r1s0x70y00b123456\";

70' EAN-13

80LPRINT CHR$(27); "it5r1s0x00y020b123456789012?\";

90LPRINT CHR$(27); "it5r1s0x70y020b123456789012?+12345\";

100' UPC-A

110LPRINT CHR$(27); "it5r1s0x00y050b12345678901?\";

120LPRINT CHR$(27); "it5r1s0x70y050b12345678901?+12345\";

130' EAN-8

140LPRINT CHR$(27); "it5r1s0x00y080b1234567?\";

150LPRINT CHR$(27); "it5r1s0x70y080b1234567?+12345\";

160' UPC-E

170LPRINT CHR$(27); "it6r1s0x00y110b0123456?\";

180LPRINT CHR$(27); "it6r1s0x70y110b0123456?+12344\";

190' CODABAR

195LPRINT CHR$(27); "it9r1s0x00y140bA123456A\";

210' POST NET

220LPRINT CHR$(27); "it4r1x70y140b1234567?\";

230' FIM

240LPRINT CHR$(27); "iT3R1x130Y140BA\";

250' ISBN

260LPRINT CHR$(27); "it130r1s0x00y170b123456789012?+12345\";

270LPRINT CHR$(27); "it130r1s0x70y170b12345678901?+12345\";

280LPRINT CHR$(27); "it130r1s0x00y200b1234567?+12345\";

300' LABEL PRINT

310LPRINT CHR$(27); "ih10w10x25y230lSample\";

320LPRINT CHR$(27); "ix90y230s4h10w10f2g2e";

330LPRINT CHR$(27); "ix105y230s4h10w10v";

400LPRINT CHR$(&HC);

< Sample 19 >

CHAPTER 8 BAR CODE CONTROL - 10

Page 312
Image 312
Homelite HL-1050, HL-P2500, HL-1660E, HL-2400CE Example Program Listings, Inter Leaved, Codabar, Label Print, Lprint CHR$&HC