-- Coded by RedHunter
 
System.irdaInit()
irstring = ""
Red = Color.new(255,0,0,255)
White = Color.new(255,255,255,255)
while true do
screen:clear()
pad = Controls.read()
screen:print(2,2,"X para leer",Red)
screen:print(2,20,"O para enviar",Red)
screen:print(2,40,irstring,White)
 
if pad:cross() then
	irstring = ""
	while (irstring == "") do
	pad = Controls.read()
		screen:clear()
			screen:print(2,2,"Esperando... O para cancelar",White)
		    irstring = System.irdaRead()
		if pad:circle() then break end
	end
end
 
if pad:circle() then
	System.irdaWrite(irstring)
end
 
 
 
screen.flip()
end