home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / busi / rd10a.zip / FCTRL.LBM < prev    next >
Text File  |  1990-03-22  |  161b  |  19 lines
  1. c
  2. c
  3. d=0
  4. "Number whose factorial you wish to find"=
  5. ALT-F3
  6. 1=
  7. ALT-F4 
  8. 0=
  9. ALT-F7
  10. IF F3>0 DO
  11. F7+
  12. 1=
  13. ALT-F7
  14. F4*
  15. F7=
  16. ALT-F4
  17. UNTIL F7=F3
  18. "FACTORIAL"
  19.