Code:
10 REM Schrittmotorsteuerung
20 BA = &H3F8 :REM COM 1
30 B(0)=3: B(1)=1: B(2)=0: B(3)=2 : R EM Steuerwerte
40 INPUT "POSITION"; X
50 GOSUB 100
60 GOTO 40
100 REM *********** AUSGABE ************
110 IF U < X THEN U=U+1 : REM Einzelschritte
120 IF U > X THEN U=U-1
150 S=U MOD 4 : REM S = Schritt 0...3
160 OUT (BA+4), B(S)  : REM DTR und RTS steuern
170 IF U=X THEN RETURN
180 FOR N=1 TO 100: NEXT N : REM WARTESCHLEIFE
190 GOTO 110
Als Input in Zeile 40 wird eine Postion angegeben, die der Schrittmotor anfährt und die Warteschleife in Zeile 180 dient dazu die Geschwindigkeit des Motors an die CPU-Geschwindigkeit anzupassen.