[an error occurred while processing this directive]

<pre>


( Программа для демонстрации возможностей BForth 
( Для примера программа "тестирования" памяти 
( и показа конфигурации машины 

( Написана 10.94 

Hex 

0 Variable Aborted 
: Aborted? Aborted ` False Aborted ! ; 
: Aborted! True Aborted ! ; 

: ScrTest Home ." Для начала теста памяти нажмите" 
  ."  любую клавишу" Cr Get Coff EscapeKey = 
  IfNot 
    &amp;2f 0 do 
     In If Aborted! Leave Then ( Если нажата кнопка, то выход
     &amp;1000 2k i Fill           ( Заполним экран текущим 
    Loop                       ( символом 
   Else Aborted! 
  Then 
  Home Aborted? 
  If ." Прервано!!" Cr 
  Else ." Тест прошел без замечаний" cr 
       ." Нажмите любую клавишу для продолжения" Then 
  Con Get Drop 
; 

( Опишем символьные названия устройств в слотах----------- 
: None    &curren;" ??" ; 
: Teac    &curren;" teac"    ; 
: Shug    &curren;" shugart" ; 
: Net     &curren;" net"     ; 
: Mem     &curren;" memory"  ; 
: Prn     &curren;" printer" ; 
: Mod     &curren;" modem"   ; 
: Dflt    &curren;" another" ; 

0 1 2 3 4 5 6 
7 ( Число известных слотов 
NCase DevId 
Mod Prn Mem Net Shug Teac None Dflt 

: Configuration 
   Home ." Текущая конфигурация машины" cr 
   6 1 Do      ( По всем слотам цикл 
    i 3 + Swab ( Получим адрес слотовой области 
    ." Слота N" i . ." - " 
    c` DevId OutS Cr 
   Loop Cr 
; 

: TestIt(Example) 
   0 Text64 Screen Drop ( Результат установки режима 
                        ( нас не волнует 
   ScrTest 
   Configuration 
   cr ." Тестовая программа окончена" get Drop 
; 


TestIt(Example) 

</pre>

[an error occurred while processing this directive]