14 lines
299 B
Plaintext
14 lines
299 B
Plaintext
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
|
|
|