Дано число n, перевернуть это число — QBasic(Бейсик)

CLS
INPUT n
m = n MOD 10
n = n \ 10
WHILE n > 0
m = m * 10 + n MOD 10
n = n \ 10
WEND
PRINT m