EndIf 
    MoveR tpx,tpy
    Delay 50
    Goto start
EndIf