REM drivtest.bas
REM qbasic parallel port motor driver test program
REM copyright 1998 - Zagros Robotics
REM all rights reserved
dataport = 888  'could also be 632 or 956
REM stop robot on startup
OUT dataport, 0
REM set commands
forward = 54
back = 27
left = 30
right = 51
halt = 0
1 PRINT "Command"
PRINT "(f)orward"
PRINT "(b)ackward"
PRINT "(l)eft"
PRINT "(r)ight"
PRINT "(s)top"
PRINT "(e)nd program"
INPUT "enter command"; a$
IF a$ = "f" THEN command = forward
IF a$ = "b" THEN command = back
IF a$ = "l" THEN command = left
IF a$ = "r" THEN command = right
IF a$ = "s" THEN command = halt
IF a$ = "e" THEN
        OUT dataport, 0
        END
END IF
OUT dataport, command
GOTO 1

END


REM parallel port connections
REM p port   driver
REM   2        3 (m1+)
REM   3        5 (m1inh)
REM   4        7 (m1-)
REM   5        4 (m2+)
REM   6        6 (m2inh)
REM   7        8 (m2-)