Статус бар
- 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'ом, я лишь подправил, улучшил. Надеюсь вам он пригодится. 
