//
// $Id: test.prg 2620 2000-04-19 09:35:17Z vszel $
//

//

procedure main()

   local s := " " + chr(0) + "  mab  " + chr(0) + " "

   StrDump( s )
   QOut( s )

   qout( '"' + ltrim(s) + '"' )
   qout( '"' + rtrim(s) + '"' )
   qout( '"' + alltrim(s) + '"' )

return
