Help with programming for hm-t-hm-r

Hi I need a dc motor remote control so I
I wanted a program I wrote is true whether or not?
Who can to help?

The program for the transmitters is a string:

$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
Dim S As String * 13
Dim Count As Integer
S = "SOBHAN"
Main:
Do
Waitms 75
Incr Count
Print S ; Count ; Chr(13);
Loop
End
********************************
And recipients of this program:

$regfile = "m16def.dat"
$crystal = 1000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = _
Portb.7 , E = Portb.3 , Rs = Portb.2
Config Lcd = 16 * 2
Dim S As String * 13
Main:
Cls
Lcd "NO DATA"
Do
Input S
Cls
Lcd S
Loop
End
***********************************
Program does not work :?
I do not know the module is broken or the program has problems?
Please please help me!
S very important to me
Very important to me
Very urgent help

Who does not know?

---------- Post added at 08:48 ---------- Previous post was at 08:47 ----------

It is very important to me
Please help me!