17 lines
486 B
Text
17 lines
486 B
Text
#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
|