Local Source$ = "Wozu sollte man das brauchen?"

Print("Original:     " + Source)
Print("Rückwärts:    " + Reverse(Source))
Print("Leerzeichen:  " + Count(Source, " "))
Print("Fragezeichen: " + Count(Source, "?"))
Print("Ist 'Dormitory' ein Anagramm von 'Dirty Room' ?: ")
Print(WahrFalsch(IsAnagramm("Dormitory'", "Dirty Room")))
Print("Ist 'Reittier' ein Palindrom?: ")
Print(WahrFalsch(IsPalindrom("reittier")))
WaitKey()
End

Function Reverse$(txt$)
	Local backwards$, i%, length% = Len(txt)
	
	For i = length To 1 Step -1 
		backwards = backwards + Mid(txt,i,1)
	Next
	
	Return backwards
End Function

Function Count(txt$, symbol$)
	Local p% = Instr(txt, symbol), n%
	If p=0 Then Return 0
	
	Repeat
		p = Instr(txt, symbol, p+1)
		n = n+1
	Until p=0
	
	Return n
End Function

Function IsAnagramm(txt1$, txt2$)
	txt1 = Lower(txt1)
	txt2 = Lower(txt2)
	
	Local char[26]
	Local c,i
	
	For i = 1 To Len(txt1)
		c = Asc(Mid(txt1, i, 1))
		
		;       a            z
		If c >= 97 And c <= 122
			char[c - 97] = char[c - 97] + 1
		EndIf
	Next
	
	For i = 1 To Len(txt2)
		c = Asc(Mid(txt2, i, 1))
		
		If c >= 97 And c <= 122
			char[c - 97] = char[c - 97] - 1
		EndIf
	Next
	
	For i = 0 To 25
		If char[i] <> 0 Then
			Return False
		EndIf
	Next
	
	Return True	
End Function

Function IsPalindrom(txt$)
	If txt = Reverse(txt) Then
		Return True
	Else
		Return False
	EndIf
End Function

Function WahrFalsch$(value)
	If value Then
		Return "Wahr"
	Else
		Return "Falsch"
	EndIf
End Function

Step

Mid

Instr

While 1
	t_string$=Input("Enter a word/sentence > ")
	Print ""
	Print "----------"
	Print ""
	Print "Reverted string:"
	Print revert$(t_string$)
	Print ""
	Print "----------"
	Print ""
	
	
	search$=Input ("Enter a character that you want to count in the provided string > ")
	Print "Counting char's '"+search$+"':"
	Print count_char(t_string$,search$)
	Print ""
	Print "----------"
	Print ""
	
	
	Print "Is it a palindrom?"
	Print check_palindrom(t_string$)
	Print ""
	Print "----------"
	Print ""
	
	
	t_string_2$=Input("Enter a second word/sentence that shall be the counterpart > ")
	Print "Is it a anagramm?"
	Print check_anagramm(t_string$,t_string_2$)
	Print ""
	Print "----------"
	Print ""

	
	Print ""
	Print ""
	Print ""

Wend 

Function revert$(strng$)
	Local length%, newstrng$
	length%=Len(strng$)
	;Von hinten anfangen und dann zurücklaufen
	For i=length% To 0 Step -1
		newstrng$=newstrng$+Mid(strng$,i,1)
	Next 
	Return newstrng$
End Function

Function count_char(strng$,char$)
	Local length%, result%
	length%=Len(strng$)
	For i=0 To length%
		;falls gesuchtes zeichen counter erhöhen
		If Mid(strng$,i,1)=char$
			result%=result%+1
		EndIf
	Next
	Return result%
End Function 

Function check_anagramm(strng_orig$,strng_chk$)
	Local length_orig%,length_chk%,value_orig%,value_chk%,add_value%
	;leerzeichen rausnehmen
	strng_orig$=Lower(strng_orig$)
	strng_chk$=Lower(strng_chk$)
	strng_orig$=Replace(strng_orig$," ","")
	strng_chk$=Replace(strng_chk$," ","")
	length_orig%=Len(strng_orig$)
	length_chk%=Len(strng_chk$)
	;falls die länge nicht passt, können wir uns die übung sparen
	If length_orig% <> length_chk% Then Return 0
	For i=0 To length_orig%
		add_value%=Int(Asc(Mid(strng_orig$,i,1)))
		value_orig%=value_orig%+add_value%
	Next
	For i=0 To length_chk%
		add_value%=Int(Asc(Mid(strng_chk$,i,1)))
		value_chk%=value_chk%+add_value%
	Next
	If value_orig%=value_chk% 
		Return 1
	Else
		Return 0
	EndIf 
End Function 

Function check_palindrom(strng$)
	Local lenght%,left_str$,right_str$,middle%
	strng$=Lower (strng$)
	length%=Len(strng$)
	;falls es eine ungrade zahl von zeichen ist, übung abbrechen
	If length% Mod 2 Then Return 0
	;mitte berechnen
	middle%=length%/2
	;links und rechts rausschneiden und vergleichen
	left_str$=Left(strng$,middle)
	right_str$=Right(strng$,middle)
	right_str$=revert(right_str$)
	If left_str$=right_str$ 
		Return 1
	Else
		Return 0
	EndIf 
End Function

Global inp$
Global fnd$
Dim characterstxt(30)
Dim charactersoth(30)

Function WordBackward$(txt$)
	For a = -Len(txt$) To -1
		ret$ = ret$ + Mid$(txt$, Abs(a), 1)
	Next
	Return ret$
End Function

Function CountInstrs$(txt$, find$)
	If Len(find$) > 1
		fnd$ = "character"
		inp$ = "your entry"
		Return "too much"
	EndIf
	For a = 1 To Len(txt$)
		If Mid$(txt$, a, 1) = find$ Then b = b + 1
	Next
	Return b
End Function

Function Anagramm(txt$, other$)
	For a = 1 To Len(txt$)
		If Mid$(txt$, a, 1) <> " "
			characterstxt(Asc(Lower$(Mid$(txt$, a, 1))) - 96) = characterstxt(Asc(Lower$(Mid$(txt$, a, 1))) - 96) + 1
		EndIf
	Next
	For a = 1 To Len(other$)
		If Mid$(other$, a, 1) <> " "
			charactersoth(Asc(Lower$(Mid$(other$, a, 1))) - 96) = charactersoth(Asc(Lower$(Mid$(other$, a, 1))) - 96) + 1
		EndIf
	Next
	ret = 1
	For a = 1 To 30
		If characterstxt(a) <> charactersoth(a) Then ret = 0
	Next
	Return ret
End Function

Function Palindrom(txt$)
	fp$ = Lower$(Left$(txt$, Len(txt$) / 2))
	sp$ = WordBackward$(Lower$(Right$(txt$, Len(txt$) / 2)))
	If fp$ = sp$ Then Return True
End Function

fnd$ = "e"

Repeat
	inp$ = Input$("Word=	")
	
	If Trim$(Lower$(inp$)) = "exit 0" Then End
	If Trim$(Lower$(inp$)) = "exit" Then RuntimeError "Backward:	" + WordBackward$(inp$) + Chr$(10) + "There are " + CountInstrs$(inp$, fnd$) + " " + Chr$(34) + fnd$ + Chr$(34) + "s in " + Chr$(34) + inp$ + Chr$(34) + "." + Chr$(10) + "Anagramm:	" + Anagramm(inp$, "rot") + Chr$(10) + "Palindrom:	" + Palindrom(inp$) + Chr$(10) + Chr$(10) + Chr$(10) + "© KnorxThieus"
	
	Print "Backward:	" + WordBackward$(inp$)
	fnd$ = Input$("Enter the characater I have to find!	")
	Print "There are " + CountInstrs$(inp$, fnd$) + " " + Chr$(34) + fnd$ + Chr$(34) + "s in " + Chr$(34) + inp$ + Chr$(34) + "."
	fnd$ = Input$("Enter the word I have to control if it is anagrammilly to " + inp$ + "!	")
	Print "Anagramm:	" + Anagramm(inp$, fnd$)
	Print "Palindrom:	" + Palindrom(inp$)
	Print ""
Forever