GETNUM:
PRINT "Input a Four-Digit Number";
INPUT NUM
IF NUM - INT(NUM) <> 0 THEN GOTO GETNUM
IF NUM < 1000 THEN GOTO GETNUM
IF NUM > 9999 THEN GOTO GETNUM
LET QUOTIENT = NUM / 1000
LET DIG4 = FIX(QUOTIENT)
LET NUM = NUM - 1000 * DIG4
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; DIG4
PRINT DIG4 + 10 * DIG3 + 100 * DIG2 + 1000 * NUM
END