My journey with JM

QBASIC PROGRAM TO FIND  FACTORIAL USING FUNCTION.

DECLARE FUNCTION FACT(N0
CLS
INPUT"ENTER ANY NUMBER";N
PRINT"FACT=";FACT(N)
END

FUNCTION FACT(N)
F=1
FOR I= 1 TO N
F=F*I
NEXT I
PRINT"FACTORIAL=";F
END SUB