REM Start of BASIC! Program
REM Little prg to check 


beg:
input "please type in something. It will be scaled to full width...",a$,"blabla"

gr.open 255,255,255,255
gr.orientation 1
gr.color 255,0,20,255,0
gr.screen width, height

b = 20
gr.text.size b
gr.text.width c,a$
scale = width/c
b = b*scale
gr.text.size b

gr.text.draw dr1,0,50+b,a$

gr.text.size height/30
gr.text.draw dr2,10,height-10,"Initial Text Width up to Text Size 20: "+format$("###",c)
gr.render
pause 4000

gr.close
if a$ <> "end" then goto beg

gr.close
end