'****************************************************************************
'
'   einfacher Fortschrittsbalken in PowerBASIC 3.0/3.2
'
'   entwickelt von / developed by   :  Thomas Gohel
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************


CLS
COLOR 15,3
Fort%     = 1
Programm% = 30000

LOCATE 12,20: PRINT STRING$(38,176)
LOCATE 12,20: PRINT "²"
FOR i% = 1 TO Programm%
    LOCATE 13,20
    PRINT i%
    IF i% > (Programm%/38)*Fort% AND i% < Programm% THEN
        LOCATE 13,30
        PRINT FORT%
        LOCATE 12,20 + Fort%:
        PRINT "²"
        INCR Fort%
    END IF
NEXT i%
LOCATE 12,20
PRINT STRING$(38,"²")