Program to Reverse any digit / number in QBASIC
CLS
INPUT "Enter number for reverse"; num
WHILE num <> 0
    re = num MOD 10
sum = sum * 10 + re
    num = num \ 10
WEND
PRINT "Reverse of the given number =, sum
END