47 lines
842 B
Plaintext
47 lines
842 B
Plaintext
//NOTEST - You'll want to test this with the output redirected to a file!
|
|
//
|
|
// $Id$
|
|
//
|
|
|
|
|
|
function Main()
|
|
|
|
local short := "1234567890", cOs := OS()
|
|
local i, long, very_long, cNewLine
|
|
|
|
IF "OS/2" $ cOs .OR. "WIN" $ cOs .OR. "DOS" $cOs
|
|
cNewLine := CHR( 13 ) + CHR( 10 )
|
|
ELSE
|
|
cNewLine := CHR( 10 )
|
|
END IF
|
|
|
|
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 (cNewLine)
|
|
OutStd (len(short), len(long), len(very_long))
|
|
|
|
OutStd (cNewLine)
|
|
OutStd (cNewLine)
|
|
OutStd (short)
|
|
|
|
OutStd (cNewLine)
|
|
OutStd (cNewLine)
|
|
OutStd (long)
|
|
|
|
OutStd (cNewLine)
|
|
OutStd (cNewLine)
|
|
OutStd (very_long)
|
|
|
|
return nil
|