Msg: 4305 *Conference*

05-06-93 18:14:45

From: CARROLL LEWIS

To : ALL

Subj: BAR CODES

  WARNING:
  If you have downloaded MSG# 7723 in hopes that your Epson will print bar
codes it will NOT work. That message was sent while I was still having problems
making it work. 
 
  The following changes WILL produce viable Bar Codes from the Tandy program
#26-3845 on an Epson printer (FX-80 for sure MX-80 and LQ-80 more than likely,
if not let me know).
 
  1. Load BCODE.BA and EDIT 235. Change ":X=128:" TO ":X=0:"
 
  2. Replace line 115 with:
 
  115 LPRINTCHR$(27);"A";CHR$(8);:X3=42+(X*21):IFX3<256THENX1=X3:X2=0ELSE
X1=X3MOD256:X2=INT(X3/256)
  116 FORZ=1TO4:
LPRINTCHR$(27);"L";CHR$(X1);CHR$(X2):LPRINTK;:FORY=1TOX:LPRINTD(INSTR(A,MID$(G,Y
,1)));B(0);:NEXT:LPRINTK:NEXT
  117 LPRINTCHR$(27);"2";:LPRINT: LPRINTD;L;:RETURN
 
  If you have problems "reading", a new ribbon may be all you need. (the
density of the code should be very dark). 
 
  Anyhow this should do it. If you have questions, or problems I would like to
know.
 
  -Carroll Lewis-