home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / cliptc / testrev.prg < prev   
Text File  |  1987-07-24  |  325b  |  16 lines
  1. PUBLIC CLIPPER
  2. IF .NOT. CLIPPER
  3.         RETU
  4. ENDI
  5. m=spac(10)
  6. CLEAR
  7. DO WHIL .T.
  8.         @5,0 SAY "Enter string to reverse (QUIT to quit):" GET m
  9.         READ
  10.         IF UPPE(TRIM(m))="QUIT"
  11.                 EXIT
  12.         ENDI
  13.         CALL REVERSE WITH m
  14.         @6,0 SAY "Reversed string is:"+m
  15.         WAIT
  16. ENDD