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