'% filename "t.exe"
'uses rtl64

'casting variables
==================
float f=4.25
sys a
a=(int) f
'print a 'strange number
float g
g=(float) a
print g '4.25

'casting pointers
=================
float n = 3.14
sys p = @n
float f2
f2 = (float*) p
print str(f2,2)
print str((float*)p,2)
print str(cast(float*)p,2)
print str(cast float*p,2)
