Pemotretan mobil dari atas

GraphicsWindow.Show()
i = 0
awal:

gerak1()
Program.Delay(1)
gerak2()

If x[i] <> x[i+1] and y[i] <> y[i+1] then
TextWindow.WriteLine(i + "Mouse bergerak")
ElseIf x[i] = x[i+1] and y[i] = y[i+1] then
TextWindow.WriteLine(i + "Mouse diem")
endif

i = i + 1
Goto awal



Sub gerak1
  x[i] = GraphicsWindow.MouseX
  y[i] = GraphicsWindow.MouseY
EndSub

Sub gerak2
  x[i+1] = GraphicsWindow.MouseX
  y[i+1] = GraphicsWindow.MouseY
EndSub