bwBASIC/B15B/steppr.bas

1 SUB POKE( X, Y )
2 PRINT "Address=";X,"Byte=";Y
3 END SUB
4 ' ---------------------------
10 REM  STEPPER-MOTOR DEMO
15 REM
20 X=49152: REM  PORT ADDRESS
25 DATA 9,1,3,2,6,4,12,8
30 DIM A(8)
35 FOR I=0 TO 7: READ A(I): NEXT I
40 INPUT "START, STOP ";C,D
45 FOR J=C TO D STEP SGN(D-C)
50 K=8*((J/8)-INT(J/8))
55 POKE X,A(K)
60 NEXT J
65 END
70 REM  ------------------------
80 REM  APPEARED IN ASTRONOMICAL
90 REM  COMPUTING, SKY & TELE-
95 REM  SCOPE, APRIL, 1985
99 REM  ------------------------