Function TEST_REVCAPI_SUB(text)
/*
** Stub for recapi test.  
*/
If Assigned(text) Else text = ''

* This will come back in the reply ( DATA_AVAILABLE$)
ans = 'you sent ' : quote(text)

* This will come back in the statustext ( INFO_AVAILABLE$)
*Call Set_Status(1, 'Happy')
Return ans