7 lines
157 B
Text
7 lines
157 B
Text
Procedure IsPalindrome(StringToTest.s)
|
|
If StringToTest=ReverseString(StringToTest)
|
|
ProcedureReturn 1
|
|
Else
|
|
ProcedureReturn 0
|
|
EndIf
|
|
EndProcedure
|