
>> Memorizer, the brain game! (click me to download) <<

Code: Select all
Procedure bf(s.s, m)
l = Len(s) + 1
pw.s
For i = 97 To 122
pw = s + Chr(i)
If l < m : bf(pw, m) : EndIf
Debug(pw)
Next
EndProcedure
bf("", 5)
My proposal...traumatic wrote:Code: Select all
Key338 = Zeichensätze Key339 = Zeichensatzname: