REM to check perfect square or not DECLARE FUNCTION per$ (a) CLS INPUT "enter a number"; a PRINT per$(a) END FUNCTION per$ (a) s = SQR(a) IF s = INT(s) THEN per$ = "perfect square" ELSE per$ = "not perfect square" END IF END FUNCTION