12 lines
235 B
Plaintext
12 lines
235 B
Plaintext
|
&ACCESS RVO
|
||
|
|
DEFFCT CHAR[32] INT_TO_STR(iVal:IN)
|
||
|
|
DECL INT iVal,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,"%d",iVal)
|
||
|
|
Return (Ret[])
|
||
|
|
ENDFCT
|
