CREATE buffer: 80 ALLOT
: a+b= ." Введите число a:" CR
       ." >"
       buffer: 80 ACCEPT buffer: SWAP EVALUATE
       ." Введите число b:" CR
       ." >"
       buffer: 80 ACCEPT buffer: SWAP EVALUATE
       + ." a+b=" .
       CR
;
a+b=

: a+b= ." Введите число a:" CR
       ." >"
       PAD DUP 80 ACCEPT  EVALUATE
       ." Введите число b:" CR
       ." >"
       PAD DUP 80 ACCEPT  EVALUATE
       +
       ." a+b=" .
;
a+b=

: ?INT-INPUT (  - n f )
   PAD 16 BLANK  PAD 12 ACCEPT  PAD SWAP NUMBER?  DUP 2 = IF 2NIP THEN 1 = ;
: Input ( - n )
      BEGIN ?INT-INPUT UNTIL ;
: MAIN
  CR ." A=" INPUT
  CR ." B=" INPUT
  CR ." A+B=" +
  . ;

: ?INT-INPUT (  - n f )
   PAD 16 BLANK  PAD 12 ACCEPT  PAD SWAP NUMBER?  DUP 2 = IF 2NIP THEN 1- THROW ;
: Input ( - n )
      BEGIN
         ['] ?INT-INPUT CATCH DUP IF CR ." INCORRECT" 1 THROW THEN
     0= UNTIL ;
: MAIN
  BEGIN CR ." A=" ['] INPUT CATCH 0= UNTIL
  BEGIN CR ." B=" ['] INPUT CATCH 0= UNTIL
  CR ." A+B=" +
  . ;

\ вводим число, по окончании ввода на вершине стека число двойной размерности
: ?INPUT (  -  | d )
    PAD 23 BLANK            \ заполнять обязательно пробелами, и ничем иначе
    PAD 21 ACCEPT           \ собственно ввод
    PAD SWAP NUMBER?        \ преобразование строку ввода в число
    1- ?DUP IF  1- THROW    \ генерируем исключение в случае ошибки преобразования
    ELSE  S>D  THEN ;       \ если число одинарной размерности, то его преобразуем

\ обработчик ввода   
: (INPUT) ( - d )
    ['] ?INPUT CATCH         \ защищаем ввод, так как неизвестно, что может твориться в ЭВМ
    ?DUP IF CR ." INCORRECT" \ уведомляем пользователя о неправильном вводе
            THROW  THEN ;    \ заставляем вызвавшее слово, повторить процедуру сначала

: INPUT ( xt - d )   
    BEGIN
        DUP EXECUTE         \ отображаем приглашение ввода
        ['] (INPUT) CATCH
    0= UNTIL  ROT DROP ;    \ удаляем токен-указатель на приглашение ввода

\ различные сообщения выводимые на экран
: ."A="  CR ." A=" ;
: ."B="  CR ." B=" ;
: ."A+B="  CR ." A+B=" ;

\ собственно тело программы
: MAIN
   ['] ."A=" INPUT
   ['] ."B=" INPUT
   ."A+B=" D+ D. ;

: ?INPUT (  -  | d )
    PAD 22 BLANK            \ заполнять обязательно пробелами, и ничем иначе
    PAD 21 ACCEPT           \ собственно ввод
    [CHAR] , OVER PAD + C!  \ допишем знак для нужного преобразования
    PAD SWAP 1+ NUMBER?     \ преобразование строку ввода в число
    2- THROW ;              \ теперь это выход с уведомлением о том, как прошло преобразование