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