home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / LB09C.ZIP / STRTEST.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-03-14  |  203 b   |  13 lines
  1.  
  2.  
  3.     ' Test the left$() and right$() functions
  4.  
  5.     test$ = "Here is my test string."
  6.  
  7.     for i = -5 to len(test$)
  8.  
  9.         print left$(test$, i)
  10.         print right$(test$, i)
  11.  
  12.     next i
  13.