Sub Globals
'Declare the global variables here.
Dim Type(sx,sy,ex,ey)m As Int16
draw = ""
End Sub
Sub App_Start
Form1.Show
Form1.ForeLayer = true
End Sub
Sub Form1_MouseDown (x,y)
m.sx = x
m.sy = y
Form1.Circle(x,y,5,cRed,F)
draw = true
End Sub
Sub Form1_MouseMove (x,y)
If draw = true Then
m.ex = x
m.ey = y
Else
m.ex = m.sx
m.ey = m.sy
End If
Form1.FErase(0,0,Form1.Width,Form1.Height)
Form1.FLine(m.sx,m.sy,m.ex,m.ey,cGreen)
End Sub
Sub Form1_MouseUp (x,y)
Form1.Line(m.sx,m.sy,x,y,cGreen)
Form1.Circle(m.sx,m.sy,5,cRed,F)
Form1.Circle(m.ex,m.ey,5,cRed,F)
draw = false
End Sub