Demonstrating the usage of the status of the W-motor

rem Demonstrating the usage of the status of the W-motor

rem This program makes the W-motor to move back and forth
rem Commands demonstrated; velw, accw, posw, movaw, rem, wait, goto, rstsw, rw

rem Set the velocity
velw 2000

rem Set the acceleration
accw 20000

200
rem Set the position to move to
posw 5000

rem Start the absolute move
movaw

rem Wait until the move is completed
100
rw
wait 250
rstsw A
if (A & 1) = 1 then goto 100
rw

rem Wait for 250 msec
wait 250

rem Set the position to move to
posw 0

rem Start the absolute move
movaw

rem Wait until the move is completed
150
rw
wait 250
rstsw A
if (A & 1) = 1 then goto 150
rw

rem Wait for 250 msec
wait 250

rem Start all over again
goto 200
end
$