[an error occurred while processing this directive]

<pre>
( Пример оверлейной программы 
( Выводится меню программ и предоставляется выбрать нужную 

( Написано 10.94 

0 Variable MyCatalogPat &amp;20 allot 

&amp;82 Constant OvrId 

: LoadTxtViewer 
  OvrId SetId Free OvrId SetId 1 Alloc 
  IfNot ." Нет памяти для программы" Get &amp;ffff Error 
  Then ." Подождите" 1 SetMem Load" TxtViewer.frt" 
  Free 
; 

LoadTxtViewer 

: ShowLdCatalog 0 Text32 Screen Drop 
  Home ." BForth грузило" cr ." -------------------" 
  GetWindow 2Swap 2+ 2Swap Window 
  MyCatalogPat ShowCatalog Bank5 
; 

: LoadIt 
   1 Text64 Screen Drop 
   Bank5 ReadFile ." Ждите" sp! Bank5 ExecFile 
   MyCatalogPat ShowLdCatalog 
   False 
; 

UpKey DownKey EnterKey EscapeKey 4 NCase LoadKeys 
True LoadIt BcDown BcUp False 

: Loader OvrId SetId 1 Alloc 
  If 
   1 SetMem cr ." Введите шаблон для программ&gt;" 
   MyCatalogPat 1+ #10 Gets Span ` MyCatalogPat c! Span ` 
   If 
    ShowLdCatalog 
     Begin NoFree OvrId SetId 1 SetMem 
      SetInverseLine Get &gt;r SetNormalLine r&gt; LoadKeys 
     Until 
   Then 
  Else ." Нет памяти для программы" get 
  Then Free 
; 

loader 



</pre>

[an error occurred while processing this directive]