' *** STEPPER MOTOR DEMO USING "BASIC STAMP". JIM GILLESPIE 4/6/93
' *** CAUSES 240 HALF-STEPS CLOCKWISE THEN COUNTER CLOCKWISE
' *** USES BS170 TMOS TRANSISTORS DRIVEN FROM PORT PINS 0 - 3
' *** VARIATION ON "STEP2.BAS". USES MORE EFFICIENT "LOOKUP" INSTRUCTION

	OUTPUT 	0	' STEPPER MOTOR OUTPUTS TO BS170 DRIVERS
	OUTPUT	1
	OUTPUT	2
	OUTPUT	3
'
'
	PINS = 0		' OUTPUTS ALL ZERO FOR NOW
'
LOOP1:FOR B3= 0 TO 30		' 30 TIMES IN ONE DIRECTION THIS LOOP
        FOR B4 = 0 TO 7		' 8 STEPS IN THIS LOOP (8*30=240 STEPS)
	  LOOKUP B4,(1,3,2,6,4,12,8,9),PINS ' GET OUTPUT PORT STEP PATTERN
	  'PAUSE 1		' WAIT AWHILE (DETERMINES SPEED)
	 NEXT B4		' YOU GET THE IDEA
	NEXT B3			' DONE 30 LOOPS?
				' 240 STEPS CLOCKWISE. NOW CHANGE DIRECTION
      FOR B3=0 TO 30		' SAME IDEA AS ABOVE ONLY GET VALUES
        FOR B4 = 7 TO 0 STEP -1 ' FROM TABLE BAS ACKWARDS
          LOOKUP B4,(1,3,2,6,4,12,8,9),PINS		 
	  'PAUSE 1
	NEXT B4
      NEXT B3

  GOTO LOOP1			' DO IT ALL OVER AGAIN