include VarBstrFromR4.inc
.data
f REAL4 3.14
.data?
output dd ?
buffer db 8 dup(?)
.code
start:
invoke VarBstrFromR4,f,0,0,ADDR output
xor eax,eax
invoke WideCharToMultiByte,CP_ACP,eax,\
output,-1,ADDR buffer,\
8,eax,eax
invoke StdOut,ADDR buffer
invoke SysFreeString,output
invoke ExitProcess,0
.
.