'edled.bs2        www.robotics.com
'This routine simply turns on the dc motor which makes 'encoder wheel turn, which makes the LED blink.

charn	var	byte		 'input variable.

net	con	8		'coprocessor network pin.
baud	con	396	 	'network baud rate.

speaker	con 	9		'speaker pin.

setup
        low     speaker		'turn off speaker.

main
        serout net,baud,["!1M111FFFF"]	'turn on motor.
        serin net,baud,[charn]	'get ack from coprocessor.
        if charn<>"A" then main	'keep trying if no good.

done
        goto    main			'loop forever.