Program to verify Palindrome number in QBASIC
CLS
INPUT "Enter number to verify Number is Palindrome or Not"; num
n = num
WHILE (num <> 0)
    re = num mod 10
sum = sum * 10 + re
num = num \ 10
wend
if (n = sum) then
Print "It is Palindrome"
else
Print "It is not Palindrome"
Endif
END