GETNUM:
PRINT "Input a Three-Digit Number";
INPUT NUM
IF NUM - INT(NUM) <> 0 THEN GOTO GETNUM
IF NUM < 100 THEN GOTO GETNUM
IF NUM > 999 THEN GOTO GETNUM
LET QUOTIENT = NUM / 100
LET DIG3 = FIX(QUOTIENT)
LET NUM = NUM - 100 * DIG3
LET QUOTIENT = NUM / 10
LET DIG2 = FIX(QUOTIENT)
LET NUM = NUM - 10 * DIG2
PRINT NUM; DIG2; DIG3
PRINT DIG3 + 10 * DIG2 + 100 * NUM
END