CLS

INPUT "Enter some text:", t$

PRINT "You entered:" + t$
PRINT "You entered:"; t$
PRINT "You entered:", t$


PRINT "It's length is"; LEN(t$); "letters."

FOR i = 1 TO LEN(t$)    ' get text from left
  PRINT LEFT$(t$, i)
NEXT i

PRINT
                       
FOR i = 1 TO LEN(t$)    ' get text from right
  PRINT RIGHT$(t$, i)
NEXT i