REM to check perfect number or not DECLARE FUNCTION per$ (a) CLS INPUT "enter a number"; a PRINT per$(a) END FUNCTION per$ (a) FOR i = 1 TO a IF a MOD i = 0 THEN s = s + i NEXT i IF a = s - a THEN per$ = "perfect number" ELSE per$ = "not perfect number" END IF END FUNCTION