В зависимости от номера месяца выдать сообщение о времени года (зима, весна, лето, осень) — QBasic(Бейсик)

CLS : DEFINT A-Z
Again: INPUT "Enter month : ", Mes
 IF ABS(Mes) > 12 OR Mes = 0 GOTO Again
  SELECT CASE Mes
    CASE 3 TO 5: Vr$ = "VESNA"
    CASE 6 TO 8: Vr$ = "LETO"
    CASE 9 TO 11: Vr$ = "OSEN'"
    CASE ELSE: Vr$ = "ZIMA"
  END SELECT
PRINT Vr$