'cotest.bs2   Arrick Robotics   www.robotics.com
'
'This program runs on the master and sends LED
'control commands to the coprocessor.

charn   var     byte        'input variable.
chart   var     byte        'output variable.
baud    con     396         'baud rate.
net     con     8           'network I/O pin.

low 10    'ARobot Red LED off.
low 9     'Speaker off.

main
        'Send !2R1  - Red LED on.
        pause 500               'short delay.
        chart="!"
        serout net,baud,[chart] 'output the char.
        pause 10
        chart="2"
        serout net,baud,[chart] 'output the char.
        pause 10
        chart="R"
        serout net,baud,[chart] 'output the char.
        pause 10
        chart="1"
        serout net,baud,[chart] 'output the char.
        serin net,baud,[charn]  'intput the char.

        debug charn             'Display char.

        'Send !2R0  - Red LED off.
        pause 500               'short delay.
        chart="!"
        serout net,baud,[chart] 'output the char.
        pause 10
        chart="2"
        serout net,baud,[chart] 'output the char.
        pause 10
        chart="R"
        serout net,baud,[chart] 'output the char.
        pause 10
        chart="0"
        serout net,baud,[chart] 'output the char.
        serin net,baud,[charn]  'input the char.

        debug charn             'Display char.

goto main