home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / libbasic / factoril.bas < prev    next >
BASIC Source File  |  1992-01-28  |  434b  |  26 lines
  1.  
  2.     'this program computes a factorial for a keyboard entered
  3.     'number and displays the result
  4.  
  5.     INPUT"Please enter a number>"; entry
  6.  
  7.     result = 1
  8.  
  9. [recurringLoop]
  10.  
  11.     counter = counter + 1
  12.     IF counter > entry THEN [skip]
  13.     result = result * counter
  14.     GOSUB [recurringLoop]
  15.  
  16. [skip]
  17.  
  18.     entry = entry - 1
  19.     IF entry = 1 THEN [end]
  20.     RETURN
  21.  
  22. [end]
  23.  
  24.     PRINT"The factorial is: "; result
  25.  
  26.