Could you refer to the following program? DEF STR2ARR S$,A% VAR D WHILE LEN(A%)>0:D=POP(A%):WEND WHILE LEN(S$)>LEN(A%) PUSH A%,ASC(S$[LEN(A%)]) WEND END DIM C%[100] STR2ARR "SMILEBASIC",C% FOR I=0 TO LEN(C%)-1:?C%[I]:NEXT I