FrameLimit 40
Locate 30,30
AddText "This text is sticky and won't go away"
AddText "unless you use the Cleartext command."
AddText "Thank god, this demo features also that"
AddText "command."
AddText ""
Color 255,0,0
AddText "Press SPACE to clear the text."
plusx=2
plusy=2
Repeat
'update the game itself
x=x+plusx
y=y+plusy
If x<0 Or x>400 Then plusx= -plusx
If y<0 Or y>300 Then plusy= -plusy
Color Rand(255),Rand(255),Rand(255)
Circle x-20,y-20,40
'clear the text?
If KeyHit(cbkeyspace) Then ClearText
DrawScreen
Until EscapeKey()
|
|