a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
40 lines
711 B
Plaintext
40 lines
711 B
Plaintext
//NOTEST - You'll want to test this with the output redirected to a file!
|
|
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL short := "1234567890"
|
|
LOCAL i, long, very_long
|
|
|
|
long := short
|
|
FOR i := 1 TO 12
|
|
long += long
|
|
NEXT
|
|
|
|
very_long := long
|
|
FOR i := 1 TO 5
|
|
very_long += very_long
|
|
NEXT
|
|
|
|
OutErr( Len( short ), Len( long ), Len( very_long ) )
|
|
QOut ( Len( short ), Len( long ), Len( very_long ) )
|
|
|
|
OutStd( hb_eol() )
|
|
OutStd( Len( short ), Len( long ), Len( very_long ) )
|
|
|
|
OutStd( hb_eol() )
|
|
OutStd( hb_eol() )
|
|
OutStd( short )
|
|
|
|
OutStd( hb_eol() )
|
|
OutStd( hb_eol() )
|
|
OutStd( long )
|
|
|
|
OutStd( hb_eol() )
|
|
OutStd( hb_eol() )
|
|
OutStd( very_long )
|
|
|
|
RETURN
|