projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
0831a84be955b2baa3981538ade7cdabf1bf0414
[qbasicapps.git]
/
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