A text positioner with size indicator!

It can move text, tell you the coordinates of the text on the screen, and tell you the size of your text.
(font changing coming soon)

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `________variables________
remstart
  notice how these variables
  are outside of the loop!
  this causes the variables to
  retain their last known # or $
remend
    textposx# = 307
    textposy# = 309
    textsize# = 72
    textsizeorig# = 12
    
`__________code___________
do
    sync rate 60
    sync
    cls
    hide mouse
    
    if upkey()= 1
        textsize# = textsize# + 1
    endif
    
    if leftkey()= 1
        textposx# = textposx# - 1
    endif
    
    if rightkey()= 1
        textposx# = textposx# + 1
    endif
    
    if downkey()= 1
        textposy# = textposy# + 1
    endif
    
    set text size textsizeorig#
    text 1, 1, " x = "+str$(textposx#)+" and y = "+str$(textposy#)+""
    set text size textsize#
    text textposx#, textposy#, "Text Here"
    set text size textsizeorig#
    text 1, 12, "Text size = "+str$(textsize#)+""
loop