REM to print the factors DECLARE SUB fact (a) CLS INPUT "enter a number"; a CALL fact(a) END SUB fact (a) FOR i = 1 TO a IF a MOD i = 0 THEN PRINT i NEXT i END SUB