home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / misc / smc203.ark / RAT.C < prev    next >
Encoding:
Text File  |  1983-07-28  |  512 b   |  30 lines
  1.  
  2.  
  3. int test, base;
  4.  
  5. extern putchar();
  6. #include "stdio80.h"
  7. #define NOCCARGC
  8.  
  9. main()
  10.     {
  11.         test=99;
  12.         base=8;
  13.         prnum(test,base);
  14.         putchar('\n');
  15.     }
  16.  
  17. prnum(num,base)
  18.  
  19.     int num,base;
  20.     {   int quot,rem;
  21.  
  22.         if(base<2 || base>10)  return;
  23.         if(num<0)   {putchar('-'); num= -num;}
  24.         quot=num/base;
  25.         rem=num%base;
  26.         if(quot!=0) prnum(quot,base);
  27.         putchar(rem+'0');
  28.     }
  29.  
  30. ▒PPKX     COM ▒; ╥/