#sequence_motors_test.bas
new
10 b$="1": rem Board ID number
25 rem s$ = Servo number
35 rem p$ = Servo Position
100 rem cycle thru motors @ stop
120 open "com1:", 9600 as #5
130 for x=1 to 3
170 print #5, "BD" + b$ + "SV" + str$(x) + "M" + "128"
190 next x
195 print "motors stopped"
200 rem vary motor speed & dir.
210 for y = 1 to 3
220 for x=-120 to 120 step 10
250 print #5, "BD" + b$ + "SV" + str$(y) + "M" + str$(x)
260 for w=1 to 500: next w: rem wait
290 next x
295 next y
360 goto 10
500 close #5
1000 end
run