CLS

INPUT "Enter some text:", t$

FOR i = 1 TO LEN(t$)
  a$ = LEFT$(t$, i)
  b$ = RIGHT$(a$, 1)
  PRINT "letter:"; b$
NEXT i