vremia { 
  set %chas $asctime(h)
  set %min $asctime(n)
  if (%min == 0) {
    if (%chas == 1) set %chasnew час
    if (%chas == 2) set %chasnew два
    if (%chas == 3) set %chasnew три
    if (%chas == 4) set %chasnew четыре
    if (%chas == 5) set %chasnew пять
    if (%chas == 6) set %chasnew шесть
    if (%chas == 7) set %chasnew семь
    if (%chas == 8) set %chasnew восемь
    if (%chas == 9) set %chasnew девять
    if (%chas == 10) set %chasnew десять
    if (%chas == 11) set %chasnew одиннадцать
    if (%chas == 12) set %chasnew двенадцать
  }
  else {
    if (%chas == 1) set %chasnew второго
    if (%chas == 2) set %chasnew третьего
    if (%chas == 3) set %chasnew четвёртого
    if (%chas == 4) set %chasnew пятого
    if (%chas == 5) set %chasnew шестого
    if (%chas == 6) set %chasnew седьмого
    if (%chas == 7) set %chasnew восьмого
    if (%chas == 8) set %chasnew девятого
    if (%chas == 9) set %chasnew десятого
    if (%chas == 10) set %chasnew одиннадцатого
    if (%chas == 11) set %chasnew двенадцатого
    if (%chas == 12) set %chasnew первого
  }
  if (%min == 0) set %minnew ровно
  if (%min == 1) set %minnew одна
  if (%min == 2) set %minnew две
  if (%min == 3) set %minnew три
  if (%min == 4) set %minnew четыре
  if (%min == 5) set %minnew пять
  if (%min == 6) set %minnew шесть
  if (%min == 7) set %minnew семь
  if (%min == 8) set %minnew восемь
  if (%min == 9) set %minnew девять
  if (%min == 10) set %minnew десять
  if (%min == 11) set %minnew одиннадцать
  if (%min == 12) set %minnew двенадцать
  if (%min == 13) set %minnew тринадцать
  if (%min == 14) set %minnew четырнадцать
  if (%min == 15) set %minnew пятнадцать
  if (%min == 16) set %minnew шестнадцать
  if (%min == 17) set %minnew семнадцать
  if (%min == 18) set %minnew восемнадцать
  if (%min == 19) set %minnew девятнадцать
  if (%min == 20) set %minnew двадцать
  if (%min == 21) set %minnew двадцать одна
  if (%min == 22) set %minnew двадцать две
  if (%min == 23) set %minnew двадцать три
  if (%min == 24) set %minnew двадцать четыре
  if (%min == 25) set %minnew двадцать пять
  if (%min == 26) set %minnew двадцать шесть
  if (%min == 27) set %minnew двадцать семь
  if (%min == 28) set %minnew двадцать восемь
  if (%min == 29) set %minnew двадцать девять
  if (%min == 30) set %minnew тридцать
  if (%min == 31) set %minnew тридцать одна
  if (%min == 32) set %minnew тридцать две
  if (%min == 33) set %minnew тридцать три
  if (%min == 34) set %minnew тридцать четыре
  if (%min == 35) set %minnew тридцать пять
  if (%min == 36) set %minnew тридцать шесть
  if (%min == 37) set %minnew тридцать семь
  if (%min == 38) set %minnew тридцать восемь
  if (%min == 39) set %minnew тридцать девять
  if (%min == 40) set %minnew сорок 
  if (%min == 41) set %minnew сорок одна
  if (%min == 42) set %minnew сорок две
  if (%min == 43) set %minnew сорок три
  if (%min == 44) set %minnew сорок четыре
  if (%min == 45) set %minnew сорок пять
  if (%min == 46) set %minnew сорок шесть
  if (%min == 47) set %minnew сорок семь
  if (%min == 48) set %minnew сорок восемь
  if (%min == 49) set %minnew сорок девять
  if (%min == 50) set %minnew пятьдесят 
  if (%min == 51) set %minnew пятьдесят одна
  if (%min == 52) set %minnew пятьдесят две
  if (%min == 53) set %minnew пятьдесят три
  if (%min == 54) set %minnew пятьдесят четыре
  if (%min == 55) set %minnew пятьдесят пять
  if (%min == 56) set %minnew пятьдесят шесть
  if (%min == 57) set %minnew пятьдесят семь
  if (%min == 58) set %minnew пятьдесят восемь
  if (%min == 59) set %minnew пятьдесят девять
  if ((%min == 1) || (%min == 21) || (%min == 31) || (%min == 41) || (%min == 51)) set %minb минута 
  elseif ((%min == 2) || (%min == 22) || (%min == 32) || (%min == 42) || (%min == 52) || (%min == 3) || (%min == 23) || (%min == 33) || (%min == 43) || (%min == 53) || (%min == 4) || (%min == 24) || (%min == 34) || (%min == 44) || (%min == 54)) set %minb минуты
  elseif (%min == 0) set %minb
  else set %minb минут
  set %chasn $asctime(H)
  if ((%chasn >= 0) && (%chasn <= 5)) set %vrem 2(тёмная ночь)
  if ((%chasn >= 5) && (%chasn <= 7)) set %vrem 13(раннее утро)
  if ((%chasn >= 8) && (%chasn <= 10)) set %vrem 7(утречко)
  if ((%chasn >= 11) && (%chasn <= 18)) set %vrem 8(денёчек)
  if ((%chasn >= 19) && (%chasn <= 23)) set %vrem 6(вечер)
}
