The following code works for all except (R) which should send a return to the program ........

Open Jobname For Input As #1
Do While Not EOF(1)
Input #1, varcheck
Sleep (10000)
If varcheck = "(K)" Then
Input #1, FPath
If FPath = "C:\MAR" Then
FPath = "C:\MA" & Format(jdate, "YY") & Format(jdate, "MM") & Format(jdate, "DD") & ".MAR"
End If
Kill FPath

'the following should send a return
' after reading (R)
' to the program but it just hangs up
' works OK for all other codes
ElseIf varcheck = "(R)" Then
Sendkys Chr$(13)
ElseIf varcheck = "(P)" Then
Input #1, TLength
Sleep TLength
ElseIf varcheck = "(S)" Then
Sendkys VK_SPACE
ElseIf varcheck = "(D)" Then
Sendkys (Format(jdate, "DDMMYY"))
ElseIf varcheck = "(A)" Then
Sendkys (Format(jAdd, "DDMMYY"))
ElseIf varcheck = "(T)" Then
Sendkys (Format(Date, "DDMMYY"))
ElseIf varcheck = "(C)" Then
Input #1, FPath
If FPath = "C:\MAR" Then
FPath = "C:\MA" & Format(jdate, "YY") & Format(jdate, "MM") & Format(jdate, "DD") & ".MAR"
startwait = Timer
Do While Timer < startwait + 2700
DoEvents