Получение натурального числа путем записи цифр исходного в обратном порядке — QBasic(Бейсик)

CLS
PRINT "Poluchenie nat.chisla putem zapisi tsifr iskhodnogo v obratnom poryadke"
PRINT ""
10 INPUT "Vvedite kol-vo chisel: ", n
IF n < 0 THEN PRINT "Oshibka. Vvedeno otritsatelnoe kolichestvo chisel"
IF n < 0 THEN GOTO 10
IF n = 0 THEN PRINT "Oshibka.Vvedeno kol-vo chisel, ravnoe 0"
IF n = 0 THEN GOTO 10
IF n < 1 THEN PRINT "Oshibka.Vvedeno desyatichnoe kol-vo"
IF n < 1 THEN GOTO 10
FOR i = 1 TO n
    20 INPUT "Vvedite chislo:", a&
    IF a& < 0 THEN PRINT "Oshibka.Vvedeno otritsatelnoe chislo"
    IF a& < 0 THEN GOTO 20
    IF a& < 1 THEN PRINT "Oshibka.Vvedeno desyatichnoe chislo"
    IF a& < 1 THEN GOTO 20
    b& = 0
    DO
        b& = b& * 10 + a& MOD 10
        a& = a& \ 10
    LOOP UNTIL a& = 0
    IF b& <= 10 THEN PRINT "Vvedeno chislo, ne imeyushchee obratnoe"
    IF b& <= 10 THEN GOTO 30
    PRINT "Obratnim chislom yavlyaetsya:"
    PRINT b&
30 NEXT