
 If %NextMove = N/A
   set %NextMove 0

 set %NextMove %NextMove + 1

 If %NextMove > 1
   Set %NextMove 0

 If %NextMove = 0
   {
     msg $Back$
     msg $Papa patras$
     gosub ShipMove
    }

 If %NextMove = 1
   {
     msg $Forward$
     msg $Avante toda!$
     gosub ShipMove
    }
exit

sub ShipMove
     set %BarcoX #CHARPOSX
     set %BarcoY #CHARPOSY
     Set %Timeout #SCNT + 20
       esperollegar:
         set %tmpx %BarcoX - #CHARPOSX
         set %tmpy %BarcoY - #CHARPOSY
         IF #SCNT > %Timeout
            goto llegado:
         If %Tmpx > 10
            goto llegado:
         If %Tmpx < -10
            goto llegado:
         If %Tmpy > 10
            goto llegado:
         If %Tmpy < -10
            goto llegado:
         wait 1s 
        goto Esperollegar:
     llegado:
     msg $STOP$
     msg $Kieto Parao$
 return