1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | Use UI # IF !@>= 200 External_Function wsprintf "wsprintfA" USER32 . DLL Address asResult String sTemplate ; Address a0 Address a1 Address a2 Address a3 Address a4 Address a5 Address a6 Address a7 Address a8 Address a9 ; Address a10 Address a11 Address a12 Address a13 Address a14 Address a15 Address a16 Address a17 Address a18 Address a19 ; Address a20 Address a21 Address a22 Address a23 Address a24 Address a25 Address a26 Address a27 Address a28 Address a29 ; Returns Integer #ENDIF Procedure Test String sResult sDay Integer iLength Move "Sunday" to sDay Move ( Repeat ( " " , 1024 )) to sResult Move (wsprintf( AddressOf (sResult), "Today: %s Time:%.2u:%.2u" , AddressOf (sDay), 4 , 3 )) to iLength Showln sResult InKey FieldIndex End_Procedure Send Test |