Golpear Pelota y hace movimientos

INICIO:
    PRINT "Presione la tecla enter para escanear y la tecla escape para Salir"
    LET C = $KBD

    IF C = 13 THEN
        MOVE @{2,50,200},10,1000
        FOR A = 10 TO 40
            LET B = 5 * A
            'PRINT B
            MOVE @{2,B,200},1,100
           
            'WAIT 200
            'PRINT "PSD = "; $PSD
            IF $PSD < 20 THEN
            '   PRINT "ENTRA IF"
                MOVE @{2,B,45},1,50
                WAIT 500
                MOVE @{2,B,200},1,50
                GOTO REGRESAR
            ENDIF
            'PRINT "FUERA DEL IF"
        NEXT A
        REGRESAR:
        MOVE @{2,50,200},1,1000
    ELSE
        'PRINT "ENTRA ELSE"
        IF C=27 THEN
            GOTO FINALIZAR
        ENDIF
    ENDIF
   
    GOTO INICIO
   
FINALIZAR:
END



INICIO:

PRINT "Presione Enter para guardar posiciones y ESC para realizar movimientos guardados"

DELETE *
LET C = 0
SERVO 0 = @
SERVO 1 = @

LECTURA:

LET G = $KBD
LET A = $SERVO(0)
LET B = $SERVO(1)
IF G = 13 THEN
    C = C+1
    INSERT C, A
    C = C+1
    INSERT C, B
    PRINT "Posicion";A;" - ";B;" Guardada"
ELSE
    IF G = 27 THEN
        GOTO MOVER
    ENDIF
ENDIF
GOTO LECTURA

MOVER:
LET D = C/2
LET F = 0

IF C = 0 THEN
    PRINT "Tiene que guardar posiciones antes de Ejecutar Mov"
    GOTO LECTURA
ENDIF

FOR E = 1 TO D
    F = E * 2
    MOVE @{2,@![F-1],@![F]},10,1000
NEXT E

PRINT "Presione Enter para volver a ejecutar o ESC para Salir"

ESPERANDORESPUESTA:

LET H = $KBD

IF H = 27 THEN
    GOTO SALIR
ELSE
    IF H = 13 THEN
        GOTO INICIO
    ENDIF
ENDIF

GOTO ESPERANDORESPUESTA

SALIR:
SERVO 0 = @
SERVO 1 = @
END