9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
37 lines
696 B
Plaintext
37 lines
696 B
Plaintext
//NOTEST - You'll want to test this with the output redirected to a file!
|
|
|
|
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
|