Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

                        ◄Example►                ◄Contents►  ◄Index►  ◄Back►
──────────────────────────────────────────────────────────────────────────────
' This example uses a DEF FN function to calculate the factorial of an
' integer (for example, the factorial of 3 is 3*2*1).
 
' To try this example:
' 1. Choose New Project from the file menu
' 2. Copy the code example below to the code window
' 3. Press F5 to run the example
 
 CLS                         ' Clear the screen
 DEF FNFactorial# (X%)
     STATIC Tmp#, I%
     Tmp# = 1
     FOR I% = 2 TO X%
          Tmp# = Tmp# * I%
     NEXT I%
     FNFactorial# = Tmp#
 END DEF
 
 INPUT "Enter an integer: ", Num%
 PRINT : PRINT Num%; "factorial is"; FNFactorial#(Num%)