Qbasic (Find whether the given no. is palindrome)

Declare Function Palin(N)
Cls
Input "A No."; N
Pal = palin(N)
If pal = n then
Print "Numeric Palindrome"
Else
Print "Not Palindrome"
End If
End

Function Palin(N)
M=N
While M<>0
K = M mod 10
P = P*10+R
M = M\10
WEND
Palin = P
END FUNCTION