Как сделать дни недели в QBasic, если введено число 1-понедельник, 2-вторник, 3-среда?

Например, с помощью оператора IF. Проверяете введённое число, и в соответствии с ним либо сразу на экран выводите ответ, либо другому объекту значение присваиваете.

1) IF x = 1 Then Print "понедельник"
2) IF x = 1 Then y = "понедельник"