7665582530
* tests/test.prg
! Implemented missing function.
* package/winuni/RELNOTES
* upx 3.04 -> 3.05
* contrib/hbct/ctcom1.c
* Minor formatting.
24 lines
346 B
Plaintext
24 lines
346 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL s := " " + Chr( 0 ) + " mab " + Chr( 0 ) + " "
|
|
|
|
StrDump( s )
|
|
QOut( s )
|
|
|
|
QOut( '"' + LTrim( s ) + '"' )
|
|
QOut( '"' + RTrim( s ) + '"' )
|
|
QOut( '"' + AllTrim( s ) + '"' )
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE StrDump( s )
|
|
LOCAL tmp
|
|
FOR EACH tmp IN s
|
|
QOut( Asc( tmp ) )
|
|
NEXT
|
|
RETURN
|