for a = 1 to 10
  print a
next

for a = 1 to 10
  for b = 1 to 10
    print a + b
  next
next

for a = 1 to 10
  for b = 1 to 10
    for c = 1 to 10
      print a + b + c
    next
  next
next

;29 Buchstaben a,b,c,d,..,ä,ö,ü;9 Ziffern 0,1,2,3..9
;29+9=>38
for a=0 to 37
   for b=0 to 37
     for c=0 to 37
        s$=""
        s$=machdazu(s$,a)
        s$=machdazu(s$,b)
        s$=machdazu(s$,c)
        print s$
     next
   next
next

function machdazu(s$,n)
   if n=0 then s$=s$+"a"
   if n=1 then s$=s$+"b"
   if n=2 then s$=s$+"c"
   if n=3 then s$=s$+"d"
   if n=4 then s$=s$+"e"
   if n=5 then s$=s$+"f"
   if n=6 then s$=s$+"g"
.........................................
   if n=35 then s$=s$+"7"
   if n=36 then s$=s$+"8"
   if n=37 then s$=s$+"9"
   return s$
end function

Global max = 4

create()

Function create(zeichenkette$= "")
   For I = 97 To 122
      neue_zeichenkette$ = zeichenkette$ + Chr(I)
      DebugLog neue_zeichenkette$
      If Len(neue_zeichenkette$) < max Then create(neue_zeichenkette$)
   Next
End Function

Global max = 4 ;Definiert die maximale Länge

create()

Function create(zeichenkette$= "")
   For I = 97 To 122 ;Das ist der Textbereich in ASCIIWerten (Kleinbuchstaben)
      neue_zeichenkette$ = zeichenkette$ + Chr(I) ;Hier addiert er es zur vorhandenen hinzu
      DebugLog neue_zeichenkette$ ;Diese wird dann in die Logdatei gesichert
      If Len(neue_zeichenkette$) < max Then create(neue_zeichenkette$); Hier eine Längenabfrage (Falls zu kurz, dann wiederholt er den Vorgang mit der selben Zeichenkette)
   Next
End Function