How can I write Progress Bar on unix screen.

set ANZ.UP to your number of tasks, e.g. 170

do GOSUB GRAPH after each step


GRAPH:
******
*
* Graph of % completion of a task
*
    CNTR += 1
    NEW.PCT = INT( CNTR * 100 / ANZ.UP)
    IF NEW.PCT NE OLD.PCT THEN
        percent = NEW.PCT
        caption = 'This is the bottom-line of your progress bar - add some text'
    END
    OLD.PCT = NEW.PCT
    PRINT @(1,14):'          |---|---|---|---|---|---|---|---|---|---| ':@(-4)
    PRINT @(1,15):'          0       20      40      60      80     100':@(-4)
    PRINT @(1,16):'          ':caption:@(-4)
    bar.length = INT( percent * 40 / 100)
    bar = STR(' ',bar.length)
    PRINT @(1,13):"           ":@(-13):bar:@(-14):percent:' %':@(-4)

    RETURN