/*======( Prüfe ob Zeichenkette aus gleichen Zeichen besteht )=======*/
SameChars: Procedure
Parse Arg pref 2 rest
/* Liefert 0 zurück, wenn die Kette aus gleichen Zeichen besteht, */
/* sonst wird die Position des ersten anderen Zeichens geliefert. */
Return Verify( rest, pref, "N" )
/*** End SameChars ***/