' *** Nutzung der MIDI8031-Schrittmotorsteuerung ueber GFA-Basic ***
'
' Jedem der beiden Motoren sein individuelles Fahrprogramm...
'
px=10                 ! Plotposition
max=32                ! Maximalgeschw. des Steppers
DIM soll(1),ist(1)
PRINT "Ende: <Taste>"
REPEAT
  FOR i=0 TO 1
    IF RND(0)<0.01
      soll(i)=RANDOM(max*4+1)-max*2   ! Sollfrequenz
    ENDIF
    ADD ist(i),SGN(soll(i)-ist(i))    ! 'ist' folgt 'soll'
    PLOT px,100+ist(i)+i*200
    OUT 3,ist(i)/2
  NEXT i
  PAUSE 1             ! Etwas Pause
  px=px+0.1           ! Plotposition weiter
UNTIL INKEY$<>""
OUT 3,0               ! Alle Maschinen STOP!
OUT 3,0
END