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

( Написана 10.94 

Hex 

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

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

( Опишем символьные названия устройств в слотах----------- 
: None    ¤" ??" ; 
: Teac    ¤" teac"    ; 
: Shug    ¤" shugart" ; 
: Net     ¤" net"     ; 
: Mem     ¤" memory"  ; 
: Prn     ¤" printer" ; 
: Mod     ¤" modem"   ; 
: Dflt    ¤" 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)