17 lines
199 B
Plaintext
17 lines
199 B
Plaintext
//NOTEST
|
|
//
|
|
// $Id$
|
|
//
|
|
|
|
// compile this using Harbour /10 flag
|
|
|
|
Function Main()
|
|
|
|
QOut( MyReplicatZZ( 'a', 10 ) )
|
|
|
|
return NIL
|
|
|
|
Function MyReplicator( cChar, nLen )
|
|
|
|
return Replicate( cChar, nLen )
|