home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / editor / me_cd.arc / BIGNUM.MUT < prev    next >
Text File  |  1988-03-01  |  1KB  |  52 lines
  1.     ; bignum : convert a number to a big number
  2.     ;        ###
  3.     ; eg 2 =>      #   #
  4.     ;           #
  5.     ;          #
  6.     ;         #
  7.     ;            #####
  8.  
  9. (string r1 80 r2 80 r3 80 r4 80 r5 80 r6 80 r7 80)
  10. (defun
  11.   dump-row HIDDEN {(substr (arg 0)(* (arg 1) 7) 7)}
  12.   numvert HIDDEN
  13.   {
  14.     (if (< (arg 0) 10) (dump-row (arg 1) (arg 0))
  15.       (concat
  16.     (numvert (/ (arg 0) 10)(arg 1))
  17.     (dump-row (arg 1) (- (arg 0)(* 10 (/ (arg 0) 10))))
  18.       )
  19.     )
  20.   }
  21.   bignum    ; input: number to make big
  22.   {
  23.     (msg (numvert (arg 0) r1))
  24.     (msg (numvert (arg 0) r2))
  25.     (msg (numvert (arg 0) r3))
  26.     (msg (numvert (arg 0) r4))
  27.     (msg (numvert (arg 0) r5))
  28.     (msg (numvert (arg 0) r6))
  29.     (msg (numvert (arg 0) r7))
  30.   }
  31. )
  32.  
  33.     ; initialize each row
  34. (r1
  35. ;1234567.234567.234567.234567.234567.234567.234567.234567.234567.234567.
  36. " ###      #     ###    ###        # #####    ##   #####   ###    ###   ")
  37. (r2
  38. "#  ##    ##    #   #  #   #      ## #       #         #  #   #  #   #  ")
  39. (r3
  40. "# # #     #        #      #     # # #      #         #   #   #  #   #  ")
  41. (r4
  42. "# # #     #       #     ##     #  # ####   ####     #     ###    ####  ")
  43. (r5
  44. "# # #     #     #         #   #####     #  #   #    #    #   #      #  ")
  45. (r6
  46. "##  #     #    #      #   #       # #   #  #   #    #    #   #     #   ")
  47. (r7
  48. " ###    #####  #####   ###        #  ###    ###     #     ###    ##    ")
  49.  
  50. (int n)(n (atoi (ask "n = ")))
  51. (bignum n)
  52.