96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
23 lines
303 B
Plaintext
23 lines
303 B
Plaintext
PROCEDURE Main()
|
|
|
|
LOCAL s := " " + Chr( 0 ) + " mab " + Chr( 0 ) + " "
|
|
|
|
StrDump( s )
|
|
? s
|
|
|
|
? '"' + LTrim( s ) + '"'
|
|
? '"' + RTrim( s ) + '"'
|
|
? '"' + AllTrim( s ) + '"'
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE StrDump( s )
|
|
|
|
LOCAL tmp
|
|
|
|
FOR EACH tmp IN s
|
|
? Asc( tmp )
|
|
NEXT
|
|
|
|
RETURN
|