'### Example: PROGRESSBAR & TIMEOUT Terry Becker Oct. 7, 2012 INCLUDE "/usr/share/BaCon/hug.bac",INIT,DISPLAY,WINDOW,PROGRESSBAR,TIMEOUT \ ,ATTACH,SET,TEXT INIT 'DECLARE prog TYPE FLOATING i = 0 FUNCTION PROG '########## SET the PROGRESSBAR`s progress value. SET(pb_, i) '################ Set the PROGRESSBAR`s TEXT. TEXT(pb_, STR$(i) & " %") INCR i IF i > 100 THEN i = 0 RETURN TRUE END FUNCTION win_ = WINDOW(" PROGRESSBAR", 200, 50) pb_ = PROGRESSBAR("0", 180, 25) ATTACH(win_, pb_, 10, 10) TIMEOUT(50, PROG) DISPLAY