#APPTYPE CONSOLE

DIM languages[] = {{"English", {"one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten"}}, _
		  {"French", {"un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf", "dix"}}}

MAP(SpeakALanguage, languages)

PAUSE

SUB NameANumber(lang, nb, number)
	PRINT "The number ", nb, " is called ", STRENC(number), " in ", lang
END SUB

SUB SpeakALanguage(lang)
	MAP(NameANumber, lang[0], 1 TO 10, lang[1])
	PRINT LPAD("", 40, "-")
END SUB