tutorial/group2/11.bas

   1 CLS\r
   2 \r
   3 INPUT "Enter some text:", t$\r
   4 \r
   5 FOR i = 1 TO LEN(t$)\r
   6   a$ = LEFT$(t$, i)\r
   7   b$ = RIGHT$(a$, 1)\r
   8   PRINT "letter:"; b$\r
   9 NEXT i\r
  10 \r