REM to check number armstrong or not DECLARE FUNCTION arm$ (a) CLS INPUT "enter a number"; a PRINT "the number is"; arm$(a) END FUNCTION arm$ (a) n = a WHILE a <> 0 r = a MOD 10 ar = ar + r ^ 3 a = a \ 10 WEND IF ar = n THEN arm$ = " armstrong" ELSE arm$ = " not armstrong" END IF END FUNCTION