'************************************************************************
'* Programa para prueba de funcionamiento de motor paso a paso          *
'* unipolar de 4 fases con interfaz para puerto paralelo                *
'*                                                                      *
'* Conexiones:                                                          *
'*      NEGRO ------------ Vdd                                          *
'*      AMARILLO --------- HP0                                          *
'*      ROJO ------------- HP1                                          *
'*      Azul ------------- HP2                                          *
'*      MARRON ----------- HP3                                          *
'*                                                                      *
'*      Pulsador Izquierda ----- Input 0                                *
'*      Pulsador Derecha ------- Input 1                                *
'*                                                                      *
'* NOTA: Input 2 y 3 se deben conectar directo a GND                    *
'*       Se debe poner una resistencia de 2,2K a Vcc(5v)                *
'*       desde Input 0 e Input 1 para hacer de Pull-Up                  *
'*                                                                      *
'************************************************************************


OUT 888, 0                                  'inicilizo el puerto
CLS
PRINT
PRINT
PRINT "Presione el pulsador correspondiente"
PRINT
PRINT
PRINT
PRINT
PRINT "Presione cualquier tecla para salir"

DIM status(4)
status(1) = 3              'inicializo variables para los pasos
status(2) = 6
status(3) = 12
status(4) = 9

paso = 1

inicio:
        IF INKEY$ = "" THEN GOTO sigue
        OUT 888, 0                           'si preciono una tecla
        END                                  'paro el motor y salgo

sigue:
        FOR z = 1 TO 100000                   'delay
        NEXT z

        botones = INP(889)

        SELECT CASE botones
       
                CASE 152
                    GOTO inicio            'si no hay pulsadores presionados
                     
                CASE 144                   'boton derecha presionado
                    IF paso = 1 THEN
                        paso = 4
                    ELSE
                        paso = paso - 1
                    END IF
                    OUT 888, status(paso)
                    GOTO inicio

                CASE 136                   'boton izquierda presionado
                    IF paso = 4 THEN
                        paso = 1
                    ELSE
                        paso = paso + 1
                    END IF
                    OUT 888, status(paso)
                    GOTO inicio

                CASE 128                   'ambos botones presionados
                    GOTO inicio            'lo dejo como esta

                CASE ELSE
                    GOTO inicio
       
        END SELECT

GOTO inicio                                'vuelvo para empezar a la izq.