***program start***
100 '-------- StepperMotor ------------
110 ' 4 phase unipolar
120 ' 2-2 excitation
130 ' 0:io0 - x
140 ' 1:io1 - ~x
150 ' 2:io2 - y
160 ' 3:io3 - ~y
200 '
210 dim Pattern[4]
220 Pattern[0]=10:Pattern[1]=11:Pattern[2]=1:Pattern[3]=0
230 for i=0 to 200
240   ss=i-i/4*4
250   pat=Pattern[ss]
260   if pat>=10 then out 0,1:out 1,0:pat=pat-10 else out 0,0:out 1,1
270   if pat>=1 then out 2,1:out 3,0 else out 2,0:out 3,1
280   gosub 500
290   if i-i/2*2=0 then out 16,1 else out 16,0
300 next
310 out 0,0:out 1,0:out 2,0:out 3,0
400 end
500 a=10
510 for J=0 to 10: a=a*1:next 
520 return 
***program end***