
string  sa="Hello String"
bstring sb="Hello Bstring"
zstring sz[]="Hello Zstring"
zstring * tz="Hello LpSzString"

wstring  wsa="Hello Wide String"
wbstring wsb="Hello Wide Bstring"
wzstring wsz[]="Hello Wide Zstring"


'GET THE POINTERS FOR EACH STRING TYPE
sys psa,psb,psz,psi,psl,wpsa,wpsb,wpsz
psa=strptr sa
psb=strptr sb
psz=strptr sz
psi=strptr tz
psl=strptr "Hello literal String"

wpsa=strptr wsa
wpsb=strptr wsb
wpsz=strptr wsz

string pr,cr

cr=chr(13)+chr(10)

'USE CASTING TO DISPLAY AS ZSTRINGS:

pr=
  cast zstring *psa + cr +
  cast zstring *psb + cr +
  cast zstring *psz + cr +
  cast zstring *psi + cr +
  cast zstring *psl + cr +
  cr +
  cast wzstring *wpsa + cr +
  cast wzstring *wpsb + cr +
  cast wzstring *wpsz + cr +
  cr

print pr
