Teksti : komennot

CLEARTEXT


   KUVAUS

Poistaa kaikki AddText-komennolla lisätyt tekstit.

   KÄYTTÖ
CLEARTEXT

Katso myös: ADDTEXT

   ESIMERKKI
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()

<<TAKAISIN