22 lines
278 B
Plaintext
22 lines
278 B
Plaintext
&ACCESS RVO
|
|
DEFFCT CHAR[32] REAL_TO_STR(iVal:IN)
|
|
DECL REAL iVal
|
|
DECL INT I,offset
|
|
DECL CHAR Ret[32]
|
|
DECL STATE_T state
|
|
offset=0
|
|
FOR I=1 TO 32
|
|
Ret[I]=0
|
|
ENDFOR
|
|
SWRITE(Ret[],state,offset,"%.3f",iVal)
|
|
Return (Ret[])
|
|
ENDFCT
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
