REM to check whether the input number is palindrome or not DECLARE SUB rev (a) CLS INPUT "enter a number"; a CALL rev(a) END SUB rev (a) n = a WHILE a <> 0 r = a MOD 10 re = re * 10 + r a = a \ 10 WEND IF re = n THEN PRINT "it is palindrome" ELSE PRINT "it is not palindrome" END IF END SUB