Bar-Code

[Rob Havens]

<color><param>0100,0100,0100</param>We print bar codes using QUIZ AND QUICK on two different printers: 
Eltron 2042's attached to either the serial or parallel port of a PC 
using Reflections or HP2563A's attached serially to the HP950 system. 
In both cases, you need to know the escape sequences necessary to 
direct the printer. In the case of the Eltron's, you also need to use 
escape sequences to control Reflections to turn the printer port on and 
off and direct the output to the printer. 


The following example is QUIZ code that prints barcoded inventory 
labels on an Eltron printer attached to the serial or parallel port of 
either a Cumulus terminal or a PC running Reflections:


   43     ;THIS NEXT ROUTINE IS IDENTICAL TO THE PREVIOUS EXCEPT THAT 
IT IS

   44     ;     FORMATTED TO PRINT ON A PRINTER ATTACHED TO A CUMULUS 
OR REFLECTIONS TERMINAL.

   45     SET REP SPA 0 LIM 20000 DEV TERM

   46     SET PAGE WIDTH 240 LENGTH 0

   47     SET NOLOCK NOWAIT

   48     SET NOFORMFEED

   49     ACCESS *TAG1

   50     DEF X INT SIZ 2 = 27 ; ESC CHAR IN DECIMAL

   51     DEF Y INT SIZ 2 = 12 ; FF CHAR IN DECIMAL

   52     DEF A CHA SIZ 1 = CHA(X)[2:1] ; ESC CHAR IN BINARY

   53     DEF B CHA SIZ 1 = CHA(Y)[2:1] ; FF CHAR IN BINARY

   54     DEF M CHA SIZ 4 = A+"&pW"    ; ESC SEQ TO PRINT WHATEVER 
FOLLOWS UNTIL LF

   55     DEF L1 CHA SIZ 19=A+'S0'+A+'D7'+A+'?3'+A+'M06'+A+'R12' ; 
+A+'B'

   56     INITIAL HEADING M SKIP 2

   57     PAGE HEADING

   58     REP      A "&oFOPEN PRINTER" &

   59         SKIP M L1   A "A13 " & ;The Newman Group Computer 
Services Corp" &

   60         SKIP M A "A11 " & ;   7400 NewmanBlvd, Dexter, MI 48130" &

   61         SKIP M A "A11    " &

   62         SKIP M A "X2" A "A13" A "|" CATALOG# "}" &

   63         SKIP M A "A12Catalog#: " CATALOG# &

   64         SKIP M A "X4" A "A13" A "|" TAG# PIC"^^^^^^" FILL "0" "}" 
&

   65         SKIP M A "A12Tag#: " TAG# &

   66         SKIP M A "X2" A "A13" A "|" SERIAL# "}" &

   67         SKIP M A "A11Serial#: " SERIAL# " REV: " REV-LEVEL &

   68         SKIP M A "A11    " &

   69         SKIP M A "A11    " &

   70         SKIP M A "A12Rec#:" REC# " Cond:" CONDITION HEA"" &

   71                " Status:" ORD-EQUIP-STATUS HEA"" " Warr:" 
WARRANTY HEA"" &

   72         SKIP M       "Po#: " PO# " RcvDte: " XDATE &

   73         SKIP M       "Vendor: " COMPANY &

   74         SKIP M "Mnt Cont: " MAINT-CONTRACT &

   75         SKIP M A "A12Catalog#: " CATALOG# &

   76         SKIP M A "X4" A "A13" A "|" TAG# PIC"^^^^^^" FILL "0" "}" 
&

   77         SKIP M A "A12Tag#: " TAG# &

   78         SKIP M A "X2" B &

   79         SKIP A "&oFCLOSE PRINTER"

   80     FINAL FOOTING M A "R20"

<nofill>