[an error occurred while processing this directive]

<pre>


QLogDev @ 18 ?err

  ClrTrt       ( Очистим поле обработчиков ) 
0 CurrDevNo !  ( Текущее устройство= 0 ) 

." Загружается системная библиотека" cr
use# system.frl

." Загружается библиотека ошибок" cr
use# err.frl

checkslt       ( Опросим слоты машины ) 
3 makelogstr   ( Создадим логическую структуру до 4  ) 
               ( физического устройства т.е. до принтера )
A:             ( Установим текущим первое логическое ) 
               ( устройство ) 

." Подождите" 

: directory ." DIR " ;
: datfile   ." DAT " ;
: comfile   ." COM " ; 
: relfile   ." REL " ;
: resfile   ." RES " ;
: binfile   ." BIN " ;
: basfile   ." BAS " ;
: ardfile   ." ARD " ;
: txtfile   ." TXT " ;
: unknfile  ." ??? " ;

&amp;ff &amp;40 &amp;20 &amp;10 &amp;8 &amp;4 &amp;2 &amp;1 &amp;0 &amp;9    
ncase filetype 
txtfile
ardfile
basfile
binfile 
resfile
relfile
comfile
datfile
directory
unknfile

: outcat               ( Адрес строки шаблона 
  base @ &gt;r decimal
  ." Тип Имя_файла" cr cr
  0 8 !
  bank5 1 5 outd bank5 
   begin
     dup c`   
    while    
     dup count 1+ 2dup + c` filetype 
     type count 2+ +
     8 1+!
   repeat 
  cr ." Всего файлов: " 8 ` . drop
  r&gt; base !
;

: cat" &amp;a2 word here outcat ;

: catalog &curren;" *.*" outcat ; 

: Help 
    CR ." ****************** BForthHelp ********************"
    CR ." Данная версия FORTH интерпретатора доступна" 
    CR ." на АГАТ-9. И практически соответствует стандарту" 
    CR ." F79. В данной версии реализована также текстовая" 
    CR ." среда, позволяющая выполнить минимальное редакти-" 
    CR ." рование и запуск программ на форте( сам редактор 
    CR ." написан на форте и поэтому все необходимое ВЫ мо-" 
    CR ." жете добавить сами)." 
    CR ." Запуск редактора: load" a2 out 
       ."  editor.frt" a2 out ." +&lt;ENTER&gt;" 
    CR ." В поставляемом редакторе доступны следующие " 
    CR ." кнопки:" 
    CR ." '1' - Удл.Сим." 
    CR ." '2' - Вст./Зам." 
    CR ." '4' - Стр.Вверх" 
    CR ." '5' - Стр.Вниз" 
    CR ." '9' - Удл.Стр." 
    CR ." '0' - Стр./Загл." 
    CR ." '.' - Компилировать 
    CR ." 'f2'- Зап.Файл( вместо имени файла можно *)" 
    CR ." 'f3'- Чт.Файл ( то же )" 
    CR ." '^n'- Открыть новое окно" 
    CR ." '^w'- Перейти к нужному окну" 
    CR ." '^o'- Временно выйти в форт" 
    CR ." &lt;ESC&gt;- Везде действует как и должно" 
    CR ." Дальнейшую информацию можно получить, прочитав " 
    CR ." файл: README!.DOC" 
    CR ." ************************************************** 
    CR CR 
; 

ToBegStr ." Для помощи HELP+&lt;ENTER&gt;" CR 

</pre>

[an error occurred while processing this directive]