create_bar_code_model

a:=[]
b:=[]
create_bar_code_model (a, b, BarCodeHandle)
dev_close_window ()
dev_open_window (0, 0, 120, 300, 'black', WindowHandle)
dev_set_draw ('margin')
dev_set_line_width (3)
Colors := ['forest green','magenta']
set_display_font (WindowHandle, 14, 'mono', 'true', 'false')
for I := 1 to 6 by 1
    read_image (Image, 'barcode/code39/code39' + (I$'.2'))
    dev_resize_window_fit_image (Image, 0, 0, -1, -1)
*     set_bar_code_param (BarCodeHandle, 'element_size_max', 6)
    find_bar_code (Image, SymbolRegions, BarCodeHandle, 'Code 39', DecodedDataStrings)
    dev_display (Image)