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-