Progressbar with % (snippet)

[Sver]

NOMAINWIN

WindowWidth=400
WindowHeight=200
UpperLeftX=INT((DisplayWidth-WindowWidth)/2)
UpperLeftY=INT((DisplayHeight-WindowHeight)/2)
TEXTBOX #win.tb1, 20, 20, 360, 25
STATICTEXT #win.st1, "", 180, 60, 40, 25
BUTTON #win.btn1, "CLOSE", quit, LL, 170, 0, 60, 25
OPEN "Loading Progress" FOR WINDOW AS #win
PRINT #win, "trapclose quit"

FOR k=1 to 180
   display$=display$+"|"
   PRINT #win.tb1, display$
   progress=INT((k/180)*100)
   PRINT #win.st1, progress; "%"
   CALL pause
NEXT k
WAIT

SUB pause
   TIMER 25, [continue]
   WAIT
   [continue]
   TIMER 0
END SUB

SUB quit handle$
   CLOSE #win
   END
END SUB




[tsh73]

Looks very cool for me
Though it depends on character size, which likely could differ (if say display set to 125%?)