16 lines
159 B
Plaintext
16 lines
159 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
sx_Descend()
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL cString := "Harbour"
|
|
|
|
? sx_Descend( cString )
|