Вывод числа прописью на кириллице

// **** FSTR2.C - функции перевода числа и даты в пропись 16.10.92  *
#include "a.h"
#include "dfun.h"
#include <math.h>
 
// *********
// asc *sot[]={"сто","двести","триста","четыреста","пятьсот","шестьсот",
//             "семьсот","восемьсот","девятьсот" };
 asc *sot[]={"сто","двести","триста","четыреста",
             "пят","шест", "сем","восем","девят" };
 asc *desiat[]={"двадцать","тридцать","сорок","пят","шест",
                "сем","восем","девяносто" };
 asc *edm[]={"","один","два","три","четыре","пять","шесть","семь","восемь",
             "девять","десять","один","две","три",
             "четыр","пят","шест","сем","восем","девят" };
 asc *edw[]={"одна","две" };
 asc *nmtr[]={"трилион","миллиард","миллион","тысяч" };
 asc *nokm[]={"а","ов" };
 asc *nokt[]={"а","и","" };
 static double MLRD=1000000000.0, TRLN=1000000000000.0;
 
char *propis(double d,int rg) // * Перевод числа в сумму прописью *
{ long l,lt;  double lmlr;
  int j, tr[5], trln, n, ns, nd, r;
  char s[1000], *p, *ps;
 
  if (d>=1E15) return(strmalc(" "));
  if (d<1.0) return(strmalc("Ноль"));
  trln = tr[0] = (int) floor(d/TRLN);
  if (trln>=1000) tr[0] = trln % 1000;
  lmlr = d - trln*TRLN;
  ps = s;
  tr[1] = (int) (lmlr/MLRD);
  l = (long)fmod(lmlr,MLRD);
  tr[2] = l/1000000;
  lt = l%1000000;
  tr[3] = lt/1000;
  tr[4] = lt%1000;
 
  afc(j,5) {
    n=tr[j];
    if (!n) continue;
    ns = n/100;
    if (ns)    ps = stract(ps, " ", sot[ns-1]);
    if (ns>=5) ps = stpcpy(ps, "ьсот");
    n=n%100; nd=n/10;
    if (nd>=2) {
       ps = stract(ps," ",desiat[nd-2]);
       if (nd>=5 && nd<=8) ps = stpcpy(ps, "ьдесят");
       n = n%10;
    }
    r = sklon(n);
    if (j==3 && n>0 && n<3) p = edw[n-1];
    else p=edm[n];
    ps = stract(ps, " ", p);
    if (n>10) ps = stpcpy(ps, "надцать");
    if (j<4) {
      ps = stract(ps," ",nmtr[j]);
      if (j==3)     ps = stpcpy(ps, nokt[r]);
      else if (r>0) ps = stpcpy(ps, nokm[r-1]);
    }
  }
  if (rg=='o') {
     ps = sp(s);
     *ps = toupp(*ps);
  }
  return(strmalc(s));
}
// ***********
sklon(long dd)         // * Определение склонения числа *
{  int n,r;
 
    r = 2;
    n = dd % 100;
    if (n>4 && n<20) return(r);
    n = n % 10;
    if      (n==1)       r=0;
    else if (n>1 && n<5) r=1;
    return(r);
}
// **********

#pragma warning(disable:4996)
#include <stdlib.h>
#include <stdio.h>
#include <locale.h>
#include <string.h>
 
void int_to_str(char *num){
    int len = strlen(num); 
    char *single[] = { "нуль", "один", "два",
        "три", "четыре","пять",
        "шесть", "семь", "восемь", "девять" };
 
    char *two[] = { "", "десять", "одиннадцать", "двенадцать",
        "тринадцать", "четырнадцать",
        "пятнадцать", "шестнадцать",
        "семнадцать", "восемнадцать", "девятнадцать" };
 
    char *tens[] = { "", "", "двадцать", "тридцать", "сорок", "пятьдесят",
        "шестьдесят", "семьдесят", "восемьдесят", "девяносто" };
 
    printf("\n%s: ", num);
 
    if (len == 1){
        printf("%s\n", single[*num - '0']);
        return;
    }
 
    while (*num != '\0') {
        if (len >= 3) {
            if (*num - '0' != 0) {
                printf("сто"); 
            }
            --len;
        }
 
        else {
            if (*num == '1') {
                int sum = *num - '0' + *(num + 1) - '0';
                printf("%s\n", two[sum]);
                return;
            }
 
            else if (*num == '2' && *(num + 1) == '0') {
                printf("двадцать\n");
                return;
            }
 
            else {
                int i = *num - '0';
                printf("%s ", i ? tens[i] : "");
                ++num;
                if (*num != '0')
                    printf("%s ", single[*num - '0']);
            }
        }
        ++num;
    }
}
 
int main() {
    setlocale(LC_ALL, "Rus");
    char str[256];
    printf("Введите число от 1 до 100 \n");
    scanf("%s",&str);
    int_to_str(str);
    getchar();
    getchar();
    return 0;
}