Code:

Again:CLSCOLOR 15, 1PRINT "=================================="PRINT "   ===========      ==========="PRINT "      === Palindromotron ==="PRINT "   ===========      ==========="PRINT "=================================="COLOR 7, 0PRINT "This program is capable of reversing"PRINT "words, sentences or entire texts."DIM TheString AS STRINGDIM EndString AS STRINGINPUT "Please enter some text:", TheStringTheString = LTRIM$(RTRIM$(TheString))IF LEN(TheString) = 0 THEN GOTO AgainGOSUB Reversestring  PRINT "This is it, reversed: "; EndStringPRINTEnterAgain:PRINT "Do you want to enter some text again? (y/n)"INPUT "(y/n):", Choice$Choice$ = UCASE$(LTRIM$(RTRIM$(UCASE$(Choice$))))IF Choice$ = "Y" THEN GOTO Again ELSE END                                               Reversestring:'this function can actually be made much better using FOR or WHILE'but since you haven`t had them yet, I do it with GOTOCurrentPos = LEN(TheString)NextChar:EndString = EndString + MID$(TheString, CurrentPos, 1)CurrentPos = CurrentPos - 1 'decrease CurrentPos with 1IF CurrentPos <> 0 THEN GOTO NextCharRETURN  ' used by Reversestring only as a GOSUB

Code:

Again:CLSCOLOR 15, 1PRINT “==================================”PRINT “   ===========      ===========”PRINT “      === Palindromotron ===”PRINT “   ===========      ===========”PRINT “==================================”COLOR 7, 0PRINT “This program is capable of reversing”PRINT “words, sentences or entire texts.”DIM TheString AS STRING, EndString AS STRINGINPUT “Please enter some:”, TheStringTheString = LTRIM$(RTRIM$(TheString))IF LEN(TheString) = 0 THEN GOTO AgainGOSUB reversestringPRINT “This is it, reversed: ”; EndStringPRINTEnterAgain:PRINT “Do you want to enter some text again? (y/n)”INPUT “(y/n):”, choice$Choice$ = LTRIM$(RTRIM$(UCASE$(choice$)))IF Choice$ = “Y” THEN GOTO AgainIF Choice$ = “N” THEN END‘the program will only get here if Choice$ ≠ “Y” AND Choice$ ≠ “N”GOTO EnterAgainReversestring:‘this function can actually be made much better using FOR or WHILE‘but since you haven‘t had them yet, I do it with GOTONextChar:CurrentPos = LEN(TheString)EndString = EndString + MID$(TheString, CurrentPos, 1)CurrentPos = CurrentPos – 1‘decrease CurrentPos with 1IF CurrentPos <> 0 THEN GOTO NextCharRETURN

Code:

CurrentPos = LEN(TheString)NextChar:EndString = EndString + MID$(TheString, CurrentPos, 1)CurrentPos = CurrentPos – 1‘decrease CurrentPos with 1IF CurrentPos <> 0 THEN GOTO NextChar