CURRENT-LANGUAGE = string-expression
|
DEFINE VARIABLE cur-lang AS CHARACTER FORMAT "x(10)" VIEW-AS RADIO-SET
RADIO-BUTTONS czech, "Czech", danish, "Danish", dutch, "Dutch", english, "English", french, "French", german, "German", hungar, "Hungarian", italian, "Italian", norweg, "Norwegian", polish, "Polish", portug, "Portuguese", swedish, "Swedish". cur-lang = IF CURRENT-LANGUAGE = "?" THEN "English" ELSE CURRENT-LANGUAGE. UPDATE cur-lang NO-LABELS. CURRENT-LANGUAGE = cur-lang. MESSAGE "New language is" CURRENT-LANGUAGE. |