Movimientos de robot - grupo 4

***** linea recta *****


INICIO:
IF $PSD < 20 THEN 
     MOVE @{2,0,179},10,1000
     MOVE @{2,22,197},10,1000
     MOVE @{2,42,206},10,1000
     MOVE @{2,62,203},10,1000
     MOVE @{2,70,182},10,1000

     GOTO INICIO
ELSE
     IF $KIR < 0 THEN
         GOTO INICIO
     ELSE
         END
ENDIF



***** CIRCUNFERENCIA *****


INICIO:
IF $PSD < 20 THEN 
     MOVE @{2,88,206},10,1000
     MOVE @{2,64,161},10,1000
     MOVE @{2,61,138},10,1000
     MOVE @{2,98,181},10,1000
     MOVE @{2,114,211},10,1000

     GOTO INICIO
ELSE
     IF $KIR < 0 THEN
         GOTO INICIO
     ELSE
         END
ENDIF