RUNTIME;
EXECUTE;
BKCOLOR = 0;
ACTIONS
 cls color = 9
 display
"Вас приветствует система поиска неисправностей!
выбирайте симптомы- получайте способ устранения
(нажмите любую клавишу для продолжения.)   "
   cls
   FIND bug_method
      display "метод устранения неисправности {#bug_method}.";

ask prich1: "Неисправность
           1-нет топлива в карбюраторе
           2-нет импульсов высокого напряжения
           3-нет импульсов тока на катушке зажигания
           4-нет высокого напряжения на свечах
           5-неправиьно подсоединены высоковольтные провода
           6-неправильный зазор в свечах
           7-трещина на изоляторе свечей
           8-неправильный момент зажигания
           9-неисправен эл.маг. клапан
           10-не открывается воздушная заслонка            "
;

!----------------------------------------------------------------

ask prich1_1: "Неисправность
           1-засорены топливопроводы
           2-засорены фильтры
           3-несправен топливный насос"
;

RULE 6
IF prich=1 and
   prich1=1 and
   prich1_1=1
THEN
bug_method=1
display "прочистить топливопровод~"
;

RULE 7
IF prich=1 and
   prich1=1 and
   prich1_1=2
THEN
bug_method=2
display "прочистить или заменить фмльтры~"
;

RULE 8
IF prich=1 and
   prich1=1 and
   prich1_1=3
THEN
bug_method=3
display "починить насос~"
;

!----------------------------------------------------------------

ask prich1_2: "Неисправность
           1-обрыв проводов коммутатора
           2-несправен бесконтактный датчик"
;

RULE 10
IF prich=1 and
   prich1=2 and
   prich1_2=1
THEN
bug_method=4
display "проверить провода коммутатора~"
;

RULE 11
IF prich=1 and
   prich1=2 and
   prich1_2=2
THEN
bug_method=5
display "починить датчик~"
;

!----------------------------------------------------------------

ask prich1_3: "Неисправность
           1-обрыв проводов катушки зажигания
           2-неисправен коммутатор
           3-не замыкаются контакты выключателя зажигания"
;


RULE 13
IF prich=1 and
   prich1=3 and
   prich1_3=1
THEN
bug_method=6
display "проверить провода~"
;

RULE 14
IF prich=1 and
   prich1=3 and
   prich1_3=2
THEN
bug_method=7
display "починить коммутатор~"
;

RULE 15
IF prich=1 and
   prich1=3 and
   prich1_3=3
THEN
bug_method=8
display "починить контакты~"
;

!----------------------------------------------------------------
ask prich1_4: "Неисправность
           1-повреждение изоляции проводов выс.напр.
           2-износ контактного уголька
           3-повреждение крышки распределителя
           4-повреждение ротора
           5-отказ резистора
           6-повреждена катушка зажигания "
;


RULE 17
IF prich=1 and
   prich1=4 and
   prich1_4=1
THEN
bug_method=8
display "проверить провода~"
;

RULE 18
IF prich=1 and
   prich1=4 and
   prich1_4=2
THEN
bug_method=9
display "осмотреть крышку распределителя, прочистить уголек~"
;

RULE 19
IF prich=1 and
   prich1=4 and
   prich1_3=3
THEN
bug_method=10
display "заменить крышку распределителя~"
;

RULE 20
IF prich=1 and
   prich1=4 and
   prich1_3=4
THEN
bug_method=11
display "заменить ротор распределителя~"
;

RULE 21
IF prich=1 and
   prich1=4 and
   prich1_3=5
THEN
bug_method=12
display "заменить резистор~"
;

RULE 22
IF prich=1 and
   prich1=4 and
   prich1_3=6
THEN
bug_method=13
display "заменить катушку зажигания~"
;

!----------------------------------------------------------------

RULE 23
IF prich=1 and
   prich1=5
THEN
bug_method=14
display "проверьте правильность присоеденения проводов~"
;

!----------------------------------------------------------------

RULE 24
IF prich=1 and
   prich1=6
THEN
bug_method=15
display "очистите свечи и отрегулируйте зазор между электродами~"
;

!----------------------------------------------------------------

RULE 25
IF prich=1 and
   prich1=7
THEN
bug_method=16
display "заменить свечи~"
;

!----------------------------------------------------------------

RULE 26
IF prich=1 and
   prich1=8
THEN
bug_method=17
display "отрегулируйте момент зажигания~"
;

!----------------------------------------------------------------

ask prich1_9: "Неисправность
           1-обрыв проводов блока управления клапаном
           2-неисправен блок управления клапаном
           3-неисправен клапан"
;

RULE 28
IF prich=1 and
   prich1=9 and
   prich1_9=1
THEN
bug_method=18
display "восстановите соединение~"
;

RULE 29
IF prich=1 and
   prich1=9 and
   prich1_9=2
THEN
bug_method=19
display "починить блок управления клапаном~"
;

RULE 30
IF prich=1 and
   prich1=9 and
   prich1_9=3
THEN
bug_method=20
display "заменить клапан~"
;

!----------------------------------------------------------------

RULE 31
IF prich=1 and
   prich1=10
THEN
bug_method=21
display "отрегулируйте заслонку~"
;


ask prich2: "Неисправность
           1-не отрегулирован холостой ход
           2-несправен карбюратор
           3-ранее зажигание
           4-поврежден шланг вакумного усилителя тормозов
           5-повреждена прокладка во впускном коллекторе
           6-повреждены трубки отбора разряжения"
;

RULE 33
IF prich=2 and
   prich2=1
THEN
bug_method=22
display "отрегулируйте холостой ход~"
;

!----------------------------------------------------------------

ask prich2_2: "Неисправность
           1-засорены жиклеры или каналы карбюратора
           2-вода в карбюраторе
           3-нарушена герметичность диафрагмы"
;

!----------------------------------------------------------------

RULE 35
IF prich=2 and
   prich2=2 and
   prich2_2=1
THEN
bug_method=23
display "продуть жиклеры и каналы~"
;

RULE 36
IF prich=2 and
   prich2=2 and
   prich2_2=2
THEN
bug_method=24
display "удалить воду~"
;

RULE 37
IF prich=2 and
   prich2=2 and
   prich2_2=3
THEN
bug_method=25
display "заменить диафрагму~"
;

!----------------------------------------------------------------

RULE 38
IF prich=2 and
   prich2=3
THEN
bug_method=26
display "отрегулируйте момент зажигания~"
;

!----------------------------------------------------------------

RULE 39
IF prich=2 and
   prich2=4
THEN
bug_method=27
display "замените поврежденный шланг~"
;

!----------------------------------------------------------------

RULE 40
IF prich=2 and
   prich2=5
THEN
bug_method=28
display "восстановите прокладку~"
;

!----------------------------------------------------------------

RULE 41
IF prich=2 and
   prich2=6
THEN
bug_method=29
display "восстановите трубки~"
;


RULE 42
IF prich=3
THEN
bug_method=30
display "заменить пружины в распределителе~"
;


ask prich4: "Неисправность
           1-повреждены провода в системе зажигания
           2-поврежен контактный уголек
           3-подгорел центральный контакт
           4-прогар ротора или крышки
           5-износ электродов или замасливание свечей
           6-неисправен коммутатор
           7-повреждение помехоподавительного наконечника "
;

!----------------------------------------------------------------

RULE 41
IF prich=4 and
   prich4=1
THEN
bug_method=31
display "замените поврежденные провода~"
;

!----------------------------------------------------------------

RULE 42
IF prich=4 and
   prich4=2
THEN
bug_method=32
display "замените контактный уголек~"
;

!----------------------------------------------------------------

RULE 43
IF prich=4 and
   prich4=3
THEN
bug_method=33
display "зачистите центральный контакт~"
;

!----------------------------------------------------------------

RULE 44
IF prich=4 and
   prich4=4
THEN
bug_method=34
display "замените ротор или крышку~"
;

!----------------------------------------------------------------

RULE 45
IF prich=4 and
   prich4=5
THEN
bug_method=35
display "замените неисправные свечи~"
;

!----------------------------------------------------------------

RULE 46
IF prich=4 and
   prich4=6
THEN
bug_method=31
display "почините коммутатор~"
;

!----------------------------------------------------------------

RULE 47
IF prich=4 and
   prich4=7
THEN
bug_method=31
display "замените наконечник~"
;

ASK prich:"Двигатель
           1-не запускается
           2-неустойчиво работает на холостом ходу
           3-неустойчиво работает при больших оборотах
           4-перебои во всех режимах";

CHOICES prich:1,2,3,4;
CHOICES prich1:1,2,3,4,5,6,7,8,9,10;
CHOICES prich2:1,2,3,4,5,6;
CHOICES prich3:1,2,3;
CHOICES prich4:1,2,3,4,5,6,7;
CHOICES prich1_1:1,2,3;
CHOICES prich1_2:1,2;
CHOICES prich1_3:1,2,3;
CHOICES prich1_4:1,2,3,4,5,6;
CHOICES prich1_9:1,2,3;
CHOICES prich2_2:1,2,3;