'this is a simple example to receive using Easy Radio Modules

INCLUDE "modedefs.bas"
DEFINE OSC 20
' -----------------
' Define FR connection speed
' -----------------
baud CON 32

Start:
output PORTC.2      ' serial output to computer
output PORTD.4      ' serial output to RF
input PORTD.5       ' serial input from RF
output PORTB.7
' -----------------
' Counter variable
' -----------------
switchCountVar var byte
' -----------------
' Blink the test pin
' -----------------
high PORTB.7
pause 500
low PORTB.7
pause 500
serout2 PORTC.2, 16468,["Serial comunication established to computer...", 13,10]
' -----------------
' setup the RF channel
' -----------------
serout2 PORTD.4, baud,0,["ER_CMD#C4"]
pause 20
serout2 PORTD.4, baud,0,["ACK"]
serout2 PORTC.2, 16468,["Setup complete...", 13, 10]
' -----------------
MAIN:
   serin2 PORTD.5, baud, 500, main,[STR switchCountVar\1]
   serout2 PORTC.2, 16468,[dec switchCountVar, 13, 10]
goto main