dim as Integer x=100
dim s as Integer
ScreenRes 640,480,8
color 7 ' color of line (duh)

 'column, line
line (30,140) - (300,300)
line (30,140) - (100,300)
color 4
print "markmenu!"

 do until (x >500)
' Makes a box that gets big!
'     clm  lne  to  c   l
line (100 ,100 ) - (x, 100)
line (100 ,100 ) - (100, x )
line (x ,100 ) - (x, x )
line (100 ,x ) - (x, x )

' x +=1
x+=10

input "",s
' put 1 var s exit

if (s = 1) Then end 0




Loop

' to compile:
' fbc res.bas
' res

sleep
