How to Reverse Number in QBasic (for Example 123 to 321 )?

Code: 

Cls

a$ = "Y"

While a$ = "Y" Or a$ = "y"

    Input "Enter a number"; n

    orginal = n

    While n <> 0

        r = n Mod 10

        s = s * 10 + r

        n = n \ 10

    Wend

    If orginal = n Then

        Print "Pandroma number"

    Else

        Print "The number is not pandroma number"

    End If

    Input "press y to continue"; a$

Wend

End