string s$ = ""
'9,223,372,036.854,775,807
double n = 9223372036.854775807
s$ += "double: trun = " str(trunc(n)) " frac = " str(frac(n)) chr(10) chr(13)
print s$
any a = n
s$ += "any: trun = " str(trunc(a)) " frac = " str(frac(a)) chr(10) chr(13)
print s$
float f = n
s$ += "float: trun = " str(trunc(f)) " frac = " str(frac(f)) chr(10) chr(13)
print s$
single s = n
s$ += "single: trun = " str(trunc(s)) " frac = " str(frac(s)) chr(10) chr(13)
print s$