7m…ôcU–\cd)Proc Start: LOCAL String$(255),x% GLOBAL Char$(255,1) String$="Gary Ewer"REM Pass the string that you want split up to GetChars: GetChars:(String$)REM The following is just to show that String$ has been REM split up correctly: x%=1 DO Print "Char$("+FIX$(x%,0,100)+") = "+Char$(x%) x%=x%+1 UNTIL x%=LEN(String$)+1 GETENDPPROC GetChars:(Str$) LOCAL x% x%=1 DO Char$(x%)=Mid$(Str$,x%,1) x%=x%+1 UNTIL x%=LEN(Str$)+1ENDPÐР   \cðefd\cøefdý‚.ÆA…*TextEd.app…‰‡