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
	GET
ENDP

PROC GetChars:(Str$)
  LOCAL x%
	x%=1
	DO
	  Char$(x%)=Mid$(Str$,x%,1)
	  x%=x%+1
	UNTIL x%=LEN(Str$)+1
ENDP