'****************************************************************
'*  Name    : LightPen
'*  Chris Kairalla cdkf92@yahoo.com
'****************************************************************
' serial out is on portc.6
' serial in is on portc.7
' red LED is on portd.0
' green LED is on portd.1
' blue LED is on portd.2
' button is on portb.0

'set a constant with the baudmode 9600-8-n-1-inverted:
inv9600 con 16468

' a byte to send out data:
button1 var byte
led var byte
r var portd.0
g var portd.1
b var portd.2

' set portb.0 to input:
input portb.0
output r
output g
output b
 led = 3
pause 500 ' start program with a half-second delay

main:	
	 button1 = portb.0
	  serout2 portc.6, inv9600, ["A"]
    serin2 portc.7, inv9600, [led]
  ' send it out the serial port:
	 serout2 portc.6, inv9600, [DEC button1, led]
	 if led = "0" then
	 high r
	 low g
	 low b
	 endif
	 if led = "1" then
	 low r
	 high g
	 low b
	 endif
	 if led = "2" then
	 low r
	 low g
	 high b
	 endif
	 if led > "2" then
	 high r
	 high g
	 high b
	 endif

goto main