'{$STAMP BS2}
'------------------------------------------
'testhd.bs2
'
'This program tests the head motor by moving it
'from left to center to right.

net     con 8              'Coprocessor network pin
baud    con 396            'Coprocessor baud rate

testhd: 
        serout net,baud,["!1R2FF"]  'Move head right
        pause 2000                  'Wait 2 seconds

        serout net,baud,["!1R280"]  'Move head center
        pause 2000                  'Wait 2 seconds

        serout net,baud,["!1R201"]  'Move head left
        pause 2000                  'Wait 2 seconds

        goto testhd                 'Loop forever