

type ty string s,t,u

ty t

'print typeof ty
'print typeof t
'print typeof t.s "   "
'print typecodeof t.s


'=============


function foo(any*v,sys typ) as string
string s
select case typ
case 0x02    : s="short"
case 0x04    : s="long"
case 0x08    : s="quad"
case 0x21    : s="byte"
case 0x22    : s="word"
case 0x24    : s="dword"
case 0x64    : s="single"
case 0x68    : s="double"
case 0xa1    : s="zstring"
case 0xe1    : s="string"
end select
return s 
end function


byte   b
word   w
dword  d
string s



print foo b,typecodeof b
print foo w,typecodeof w
print foo d,typecodeof d
print foo s,typecodeof s










