Sorry your browser is not supported!

sync on : sync rate 0
backdrop on
color backdrop 0
do
if keystate(16)=0
strvar$="blablabla"
text 400,400,""+strvar$
endif
if keystate(16)=1
strvar$=""
text 400,400,""+strvar$
endif
sync
sync sleep 1
loop
end

sync on : sync rate 60
backdrop off
SW = screen width() : SH = screen height()
text SW * .25,SH * .25,"This is text."
text SW * .75,SH * .25,"This is text."
text SW * .25,SH * .75,"This is text."
text SW * .75,SH * .75,"More text."
Text SW * .55,SH * .55,"the text is here abcdef etc etc etc"
ink rgb(0,0,0),0
repeat
  if returnkey() = 1 then box SW * .5,(SH * .5) + text size(),(SW * .5) + text width("the text is here abcdef etc etc etc") + 40,(SH * .5) + 30 + text size()
  sync
until spacekey() = 1
end

SET TEXT OPAQUE
TEXT 400,400, "the text is here abcdef etc etc etc"
`Then to clear it do something like
TEXT 400,400, "   " 
`Use the amount of spaces equal to the number of characters you want to delete. 3 spaces will get rid of "the"
WAIT KEY

sync on : sync rate 60
set display mode 800,600,32
SW = screen width() : SH = screen height()
randomize timer()
hide mouse
` make backdrop image
create bitmap 1,SW,SH
cls rgb(255,255,0)
set text size 60
for g = 1 to 100
  ink rgb(rnd(128) + 127,rnd(128) + 127,rnd(128) + 127),0
  text rnd(SW * .8),rnd(SH * .9),"This is text."
next g
set text size 12
ink rgb(0,0,255),0
text SW * .55,SH * .55,"the text is here abcdef etc etc etc"

get image 1,0,0,SW,SH
set current bitmap 0
backdrop on : texture backdrop 1

disable escapekey
repeat
  if returnkey() = 1
    if image exist(2) = 0 : ` have to do this because DBP weirds out the display if not
    ` set color to background color
      ink rgb(255,255,0)
      set current bitmap 1
      box SW * .55,(SH * .52) + text size(),(SW * .55) + text width("the text is here abcdef etc etc etc") + 40,(SH * .52) + 30 + text size()
      get image 2,0,0,SW,SH
      if image exist(1) = 1 then delete image 1
      texture backdrop 2
      set current bitmap 0
    endif
  endif
  sync
until keystate(1) = 1
delete bitmap 1
if image exist(1) = 1 then delete image 1
if image exist(2) = 1 then delete image 2
show mouse
end