home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib26b.dsk / SUBR.MAST.DEMO2.bas < prev    next >
BASIC Source File  |  2023-02-26  |  851b  |  19 lines
  1. 10  REM **********************
  2. 20  REM *  SUBR.MAST.DEMO2   *
  3. 30  REM * COPYRIGHT (C) 1985 *
  4. 40  REM * BY MICROSPARC, INC *
  5. 50  REM * CONCORD, MA  01742 *
  6. 60  REM **********************
  7. 70  IF  PEEK(104) < >17  THEN  POKE 103,44: POKE 104,17: POKE 4395,0: PRINT  CHR$(4)"RUN SUBR.MAST.DEMO2"
  8. 80  IF  PEEK(2304) < >32  THEN  PRINT  CHR$(4)"BLOAD SUBR.MASTER"
  9. 90 FACT = 3141:EXIT = 4058: HOME : VTAB 12: PRINT "FACTORIAL CALCULATIONS USING RECURSION": PRINT : PRINT "* COPYRIGHT (C) 1985 BY MICROSPARC, INC*": VTAB 21: PRINT "PRESS <RETURN> TO START";: GET Z$: PRINT : HOME 
  10. 100  INPUT "INPUT INTEGER (0 TO 33): ";A
  11. 110 RS = 1: REM INITIALIZE RESULT TO 1
  12. 120  CALL FACT,A
  13. 130  PRINT RS
  14. 140  GOTO 100
  15. 150  REM *** BEGINNING OF FACT ROUTINE
  16. 160  DEF FACT,N
  17. 170  IF N >1  THEN RS = RS *N: CALL FACT,N -1
  18. 180  CALL EXIT,FACT
  19. 190  REM *** END OF FACT ROUTINE