Graphics 800,600,16,2
.start
x=1
Repeat
Cls
x=x+1
x=y^2
Goto start
Text 10,10,x
Flip
Until KeyHit(1)
End
с debug enabled комп тормозит.
Если отключить комп зависает(у меня) примерно на минут 10 + компьютор жалобно писчит, и курсор застывает на месте!