REM Start of BASIC!Program
REM TEXT

gr.open 255, 0, 0, 0
gr.orientation 1
gr.screen w,h
    
 !!   gr.screen screenWidth, screenHeight
    scale_x = screenWidth / di_width
    scale_y = screenHeight / di_height
    gr.scale scale_x, scale_y
!!

gr.set.antialias 1
gr.set.stroke 6
gr.set.stroke 6

s=60
d=300
v=300
a=2

for i=1 to 360 step 1
x=1*sin(i/180*3.14)
y=1*cos(i/180*3.14)

gr.color 255,255*rnd(),255*rnd(),255*rnd()

gr.text.align a
gr.text.size 40
gr.rotate.start i,x+v,y+d
gr.text.draw tx1,x+d,y+v,"B A S I C"
gr.rotate.end
gr.render

gr.cls

next i

touch:
gr.touch touched,x,y
if touched then end
goto touch