Program to reverse three digit number in QBASIC
CLS
INPUT "Enter three digit number to get reverse result"; n
a = n MOD 10
b = n \ 10
c = b MOD 10
b = n \ 10
c = b MOD 10
d = b \ 10
e = (a * 100 + c * 10 + d)
PRINT "The reverse of the given number is ="; e
END