Sorry your browser is not supported!

Rem Project: Installer
Rem Created: Sunday, February 06, 2011

Rem ***** Main Source File *****
percent = 0
do
 cls
 render_menu(percent)
 percent = percent + 1
 wait 100
LOOP

end

function render_menu(percent)
    Print "|----------------------------------------------------------------------------------------------------|"
    print "|                                       >PROGRESS<                                                   |"
    if percent <10 then  print "|                                            " + str$(percent) +"%" + "                                                      |"
    if percent <100 && percent >9 then  print "|                                           " + str$(percent) +"%" + "                                                      |"
    if percent = 100 then print "|                                          " + str$(percent) +"%" + "                                                      |"
    print "|----------------------------------------------------------------------------------------------------|"
    
    value2 = 100
    value = percent 
    
    bar$ = "|"
    repeat
        bar$ = bar$ + "\"
        counter = counter + 1
    until counter = 100 -percent

    print bar$+"|"
   

    print "|----------------------------------------------------------------------------------------------------|"
    print "|                                                                                                    |" 
    Print "|----------------------------------------------------------------------------------------------------|"
    
ENDFUNCTION

until counter >= percent

for percent=0 to 100
 cls
 render_menu(percent)
 wait 100
next percent

wait key
end

function render_menu(percent)

    Print "|----------------------------------------------------------------------------------------------------|"
    print "|                                       >PROGRESS<                                                   |"
    if percent <10 then  print "|                                            " + str$(percent) +"%" + "                                                      |"
    if percent <100 && percent >9 then  print "|                                           " + str$(percent) +"%" + "                                                      |"
    if percent = 100 then print "|                                          " + str$(percent) +"%" + "                                                      |"
    print "|----------------------------------------------------------------------------------------------------|"

    #constant BAR_TEXT "|\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
    print left$(BAR_TEXT,percent+1)+space$(100-percent)+"|"
   

    print "|----------------------------------------------------------------------------------------------------|"
    print "|                                                                                                    |" 
    Print "|----------------------------------------------------------------------------------------------------|"
    
ENDFUNCTION