home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / editor / me_cd.arc / TOBASE.MUT < prev    next >
Text File  |  1988-09-23  |  410b  |  17 lines
  1. ; tobase(n,base): convert n (base 10) to base.  eg (tobase 10 16) => A
  2. ;    C Durland
  3.  
  4. (include mod.mut)
  5. (defun
  6.   tobase (int n base) HIDDEN
  7.   {
  8.     (if (< n base) (substr "0123456789ABCDEF" n 1)
  9.       (concat
  10.         (tobase (/ n base) base)    ; tobase n/base base
  11.     (tobase (mod n base) base)    ; tobase (n mod base) base
  12.       )
  13.     )
  14.   }
  15. )
  16. ;(msg (tobase (atoi (ask "n = "))(atoi (ask "base = "))))
  17.