//Fonts ermitteln
 fonts_ermitteln()
sub fonts_ermitteln()
	dim fonts$(1)
	dim styles$(1)

	fontfamilies$ = draw get$ "fontfamily"
	numFonts = token(fontfamilies$, fonts$(), "|")
	for i = 1 to numFonts
		//menu "Fonts", fonts$(i), "", Start_FensterName$
		fontstyles$ = draw get$ fonts$(i)
		numStyles = token(fontstyles$, styles$(), "|")
		for j = 1 to numStyles
		//	submenu "Fonts", fonts$(i), styles$(j), "", Start_FensterName$
		print "Fonts: "+fonts$(i) +" , "+ styles$(j)
		next j
		//submenu set "Fonts", fonts$(i), true, Start_FensterName$
	next i
	return
end sub