home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l074 / 1.ddi / PALINDR.TRU < prev    next >
Encoding:
Text File  |  1985-01-05  |  601 b   |  27 lines
  1. ! Check for palindromes.
  2. !
  3. DO
  4.    PRINT "The phrase";
  5.    LINE INPUT phrase$                 ! No error-checking
  6.  
  7.    IF phrase$ = "" then STOP          ! Stop on null string
  8.  
  9.    LET reversed$ = ""                 ! Initialize reversed$  
  10.    FOR i = Len(phrase$) to 1 step -1  ! Go thru backwards
  11.  
  12.       LET reversed$ = reversed$ & phrase$[i:i]   ! Getting chars
  13.  
  14.    NEXT i
  15.  
  16.    PRINT "That's: "; reversed$   
  17.    IF reversed$ = phrase$ then        ! Check reversed & original
  18.       PRINT "It's a palindrome."
  19.    ELSE
  20.       PRINT "Not a palindrome."
  21.    END IF
  22.    PRINT
  23.  
  24. LOOP
  25.  
  26. END
  27.