Update barcode.bas