here's a simple program i made when i was bored. Use the arrowkeys to control the word(s). enjoy.
sync rate 30:hide mouse:input "What do you want it to say: ",say$:cls:input "What color(1 for red,2 for green,3 for blue): ",color
input "(1 for italic, 2 for bold, 3 for normal): ",s:input "what text size: ",size#:input "What font: ",font$
if s=1:set text to italic:endif:if s=2:set text to bold:endif:if s=3:set text to normal:endif:set text size size#:set text font font$
if color=1:ink RGB(255,0,0),0:endif:if color=2:ink RGB(0,255,0),0:endif:if color=3:ink RGB(0,0,255),0:endif:do:cls
set cursor x#,y#:Print say$:if upkey()=1:dec y#,5:endif:if downkey()=1:inc y#,5:endif:if rightkey()=1:inc x#,5:endif:if leftkey()=1:dec x#,5:endif:sync:loop
Mysteries Surround You