tutorial/group2/10.bas

   1 CLS\r
   2 \r
   3 INPUT "Enter some text:", t$\r
   4 \r
   5 PRINT "You entered:" + t$\r
   6 PRINT "You entered:"; t$\r
   7 PRINT "You entered:", t$\r
   8 \r
   9 \r
  10 PRINT "It's length is"; LEN(t$); "letters."\r
  11 \r
  12 FOR i = 1 TO LEN(t$)    ' get text from left\r
  13   PRINT LEFT$(t$, i)\r
  14 NEXT i\r
  15 \r
  16 PRINT\r
  17                        \r
  18 FOR i = 1 TO LEN(t$)    ' get text from right\r
  19   PRINT RIGHT$(t$, i)\r
  20 NEXT i\r
  21 \r