'************************************************************************
'* Programa para prueba de funcionamiento de motor paso a paso          *
'* unipolar de 4 fases con interfaz para puerto paralelo                *
'*                                                                      *
'* Conexiones:                                                          *
'*      NEGRO ------------ Vdd                                          *
'*      BLANCO ----------- HP0                                          *
'*      ROJO ------------- HP1                                          *
'*      AZUL ------------- HP2                                          *
'*      MARRON ----------- HP3                                          *
'************************************************************************


OUT 888, 0                                  'inicilaizo el puerto
CLS
PRINT
PRINT
PRINT "Presione cualquier tecla para salir"

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

sigue:      FOR z = 1 TO 26                  'inicio vuelta hacia la izquierda
                FOR i = 1 TO 100000          'delay
                NEXT i
                OUT 888, 3                   'primer paso

                FOR i = 1 TO 100000          'delay
                NEXT i
                OUT 888, 6                   'segundo paso

                FOR i = 1 TO 100000          'delay
                NEXT i
                OUT 888, 12                  'tercer paso

                FOR i = 1 TO 100000          'delay
                NEXT i
                OUT 888, 9                   'cuarto paso
                NEXT z
               
                FOR i = 1 TO 100000           'delay
                NEXT i
                OUT 888, 3                    'quinto paso

                IF INKEY$ = "" THEN GOTO sigue1
                OUT 888, 0                           'si preciono una tecla
                END                                  'paro el motor y salgo
       
sigue1:
                FOR z = 1 TO 26                       'inico vuelta a la derecha
                FOR i = 1 TO 100000           'delay
                NEXT i
                OUT 888, 9                    'primer paso

                FOR i = 1 TO 100000           'delay
                NEXT i
                OUT 888, 12                   'segundo paso

                FOR i = 1 TO 100000           'delay
                NEXT i
                OUT 888, 6                    'tercer paso

                FOR i = 1 TO 100000           'delay
                NEXT i
                OUT 888, 3                    'cuarto paso
               
                FOR i = 1 TO 100000           'delay
                NEXT i
                OUT 888, 9                    'quinto paso
        NEXT z

GOTO paso                                     'vuelvo para empezar a la izq.