Graphics 800, 600
SetBuffer BackBuffer()
x# = 400
y# = 300
dir = 20
vx# = Sin(dir)
vy# = Cos(dir)
While Not KeyHit(1)
x = x + vx
y = y + vy
Cls
Plot Int(x), Int(y) ; int() is redundant, but there to show you when the floats are converted to integers
Flip
Wend