>*_______________________________________________________________________________ function C_printf( out, sformat, p1, p2) if vartype (m.p2)=="C" declare integer sprintf in msvcrt.dll as sPrintf_str_str ; string@, string, string, string return sPrintf_str_str (@m.out, m.sformat, m.p1, m.p2) else declare integer sprintf in msvcrt.dll as sPrintf_str_int ; string@, string, string, integer return sPrintf_str_int(@m.out, m.sformat, m.p1, cast(m.p2 as I)) endif *_______________________________________________________________________________