Files
harbour-core/harbour/tests/working/transdef.prg
1999-08-09 05:57:34 +00:00

10 lines
215 B
Plaintext

/*
* $Id$
*/
procedure main
local a := 1, b := 5.22
qout( "[" + transform( 1, "@B" ) + "]" )
qout( "[" + transform( 1.0, "@B" ) + "]" )
qout( "[" + transform( day( ctod("1/1/2000") ), "@B" ) + "]" )
quit