home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
basic
/
lb09c.zip
/
STRTEST.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-03-14
|
203b
|
13 lines
' Test the left$() and right$() functions
test$ = "Here is my test string."
for i = -5 to len(test$)
print left$(test$, i)
print right$(test$, i)
next i