!------------- DRAW INVOICE# BARCODE ----------------
  Gosub GDI.InitLogFont
  lfHeight$ = IntelD(26*20)
  lfFaceName$ = "3 of 9 Barcode"+NullByte$
  lfCharSet$ = INTEL(ANSI.CHARSET)
  Gosub SetFont
  X1=.25*TWIP.INCH
  Y1=1
! Data$ = "*"+PCMPY$+INVOICE$+"*"
  Data$ = "*"+INVOICE$+"*"

  Print (Lun) (TR); (TR);(TextOut = X1, Y1);Data$;NullByte$

  If Archive$='Y' _  
   Print (DocMgr) (TR); (TR);(TextOut = X1, Y1);Data$;NullByte$