наращивание цвета
- 10 setcolor cl1%,cl2%,cl3%
- 20 cl1%=mod(cl1%+1,255)
- 30 cl2%=mod(cl2%+1,255)
- 40 cl3%=mod(cl3%+1,255)
- 50 drawstring "stroca",screenwidth(0)/2-stringwidth("stroka")/2,screenheight(0)/2-stringheight("stroka")/2
- 60 sleep 20
- 70 goto 10
данный код существенно ускоряет работу программы так как проверка на значение цветовой переменной не проводится
