' Stepper Motor Test Program
' Written by Vince Long
' April 2003

' Read the values from the data statement

   FOR I = 1 TO 8
     READ Coil(I)
   NEXT I

' Clear the screen and get the delay value from the user
  
   CLS
   INPUT "Enter the delay value"; Delay

   LOCATE 10, 1
   PRINT "Now rotating the motor"

' Start rotatinig the motor

   DO
      FOR I = 1 TO 8
         OUT 888, Coil(I)
         FOR D = 1 TO Delay: NEXT D
      NEXT I
     
      I$ = INKEY$

   LOOP WHILE I$ <> CHR$(27)

END


' These are the values that are sent to the motor

DATA 1,3,2,6,4,12,8,9