Cls
T%=Timer
X%=240
Y%=128
For K%=0 To 6000
  N%=Random(3)
  If N%=0 Then
    Div X%,2
    Div Y%,2
  Elseif N%=1 Then
    Div X%,2
    Add X%,60
    Div Y%,2
    Add Y%,64
  Else
    Div X%,2
    Add X%,120
    Div Y%,2
  Endif

  Plot X%,Y%
Next K%
Print (Timer-T%)/200