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