REM This is a program to generate all possible German nonsense syllables

REM using the rules of Müller and Schumann (1894).

REM

DIM word$(3000), n$(17), m$(12), f$(12)

REM 17 initial consonant/consonant clusters

n$(1) = "b"

n$(2) = "d"

n$(3) = "f"

n$(4) = "g"

n$(5) = "h"

n$(6) = "j"

n$(7) = "k"

n$(8) = "l"

n$(9) = "m"

n$(10) = "n"

n$(11) = "p"

n$(12) = "r"

n$(13) = "s"

n$(14) = "t"

n$(15) = "w"

n$(16) = "z"

n$(17) = "sch"

REM 12 medial vowel graphemes/diphthong

m$(1) = "a"

m$(2) = "ä"

m$(3) = "au"

m$(4) = "aa"

m$(5) = "e"

m$(6) = "ei"

m$(7) = "ei"

m$(8) = "i"

m$(9) = "o"

m$(10) = "ö"

m$(11) = "u"

m$(12) = "ü"

REM 12 end consonants

f$(1) = "f"

f$(2) = "k"

f$(3) = "l"

f$(4) = "m"

f$(5) = "n"

f$(6) = "p"

f$(7) = "r"

f$(8) = "s"

f$(9) = "t"

f$(10) = "z"

f$(11) = "ch"

f$(12) = "sch"

REM prepare file for output

OPEN "A:\syllable.txt" FOR OUTPUT AS #1

REM loop to generate words

l = 1

FOR i = 1 TO 17

FOR j = 1 TO 12

FOR k = 1 TO 12

word$(l) = n$(i) + m$(j) + f$(k)

PRINT l, word$(l)

PRINT #1, l, word$(l)

l = l + 1

NEXT k

NEXT j

NEXT i

CLOSE #1