' Permutationengenerator: Erzeuge alle m”glichen Anordnungen mit den
' Ziffern 1 bis 7

DIM SHARED frei%(1 TO 7), aPermut&

DECLARE SUB RekursivSchritt (e%, t$)

FOR i% = 1 TO 7
  frei%(i%) = -1
NEXT i%

aPermut& = 0&
RekursivSchritt 0, ""
PRINT "Total Permutationen:"; aPermut&

SUB RekursivSchritt (e%, t$)
  IF e% < 7 THEN
    FOR i% = 1 TO 7
      IF frei%(i%) THEN
        frei%(i%) = 0
        RekursivSchritt e% + 1, t$ + CHR$(48 + i%)
        frei%(i%) = -1
      END IF
    NEXT i%
  ELSE
    ' Fhre gewnschte Aktion aus mit der gefundenen Permutation
    PRINT t$
    aPermut& = aPermut& + 1&
  END IF
END SUB