10 SETCOLOR 0,0,0
15 W%=SCREENWIDTH(0): H%= SCREENHEIGHT(0)
20 FILLRECT 0,0,W%,H%
24 SETCOLOR 255,0,0
28 DRAWSTRING "",(W%-STRINGWIDTH(""))/2- mod(W%-STRINGWIDTH(""),2),H%/2
30 FOR I%=0 TO 100
31 I=I%*W%/100
40 SETCOLOR 200,0,0
50 FILLRECT 0,H%-7,I,5
60 SETCOLOR 0,0,0
70 FILLRECT W%/2-20,H%-27,45,20
79 SETCOLOR 150,0,0
80 DRAWSTRING STR$(I%)+" %",(W%-STRINGWIDTH(STR$(I%)+" %"))/2,H%-27
90 SLEEP ABS(MOD(RND(0),300))
100 NEXT I%
110 end


:     .     (  ),  ( : ''),      .      .  ,      , ,  , .. ,   .   ( )   Debann',   , .    .


: XakepPRO
  : annimon.com