Что за язык программирования используется в экспертной системе ESwin?

Question

[Григорий Дудников]

Доброго дня!
Недавно появилась острая необходимость разобраться с принципами работы одной очень старой оболочки для создания экспертных систем - ESwin. Никак не могу разобраться с тем, какой язык там используется внутри, а поэтому не могу объяснить большого количества вещей, которые очень похожи на баги.
Вот скрин и пример кода из одной из систем, быть может тут кто-то сможет это опознать?

Скриншот ESwin

Код программы

TITLE=Buying of car
COMPANY=CopyRight Insicom Ltd., phone: [phone] email: [e-mail]
Frame=Goal
Parent:
  To buy the car
EndF

Frame=Initial data
Parent:
Type of a body (symbol) [Choose type of a body]: (Sedan; Cabriolet; Unified; Hatchback; Minivan) 
Type of a box of transfers (symbol) [Choose type of a box of transfers]: (Automatic; Manual) 
Type of the engine (symbol) [Choose type of the engine]: (Diesel; Petrol) 
Price (lv) [how many money you are ready to spend?]: (Little; Average; Many) 
EndF

Rule 1
 =(Initial data.Type of a body; Unified) 100
 =(Initial data.Type of the engine; Diesel) 100
 =(Initial data.Type of a box of transfers; Automatic) 100 
<(Initial data.price; 1000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Toyota Caldina 1988) 100
 EndR

Rule 2
 = (initial data.Type of a body;  Cabriolet) 100
 = (initial data.Type of the engine; Petrol) 100
 = (initial data.Type of a box of transfers; Automatic) 100 
<(Initial data.price; 400) 100
Do
 = (Goal.To buy the car; it is Easier to cut a roof at запорожца and to put box of transfers the automatic device) 100
 EndR

Rule 3
 = (initial data.Type of a body;  Sedan) 100
 = (initial data.Type of the engine; Petrol) 100
 = (initial data.Type of a box of transfers; Automatic) 100 
<(Initial data.price; 7000) 100
> (Initial data.price; 6000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Toyota Mark II 1996 г.в.) 100 
EndR

Rule 4
 = (initial data.Type of a body; Hatchback) 100
 = (initial data.Type of the engine; Petrol) 100
 = (initial data.Type of a box of transfers; Automatic) 100
 <(Initial data.price; 2000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Toyota Corolla II 1990) 100
 EndR

Rule 5
 = (initial data.Type of a body; Hatchback) 100
 = (initial data.Type of the engine; Petrol) 100
 = (initial data.Type of a box of transfers; Manual) 100 
<(Initial data.price; 6000) 100
> (Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Vases 2112 2001г.в.) 100
 EndR

Rule 6
 = (initial data.Type of a body; Unified) 100
 = (initial data.Type of the engine; Diesel) 100
 = (initial data.Type of a box of transfers; Automatic) 100
<(Initial data.price; 10000) 100
> (Initial data.price; 12000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Toyota Mark II 1998г.в) 100
EndR

Rule 7
 = (initial data.Type of a body; Unified) 100
 = (initial data.Type of the engine; Diesel) 100
 = (initial data.Type of a box of transfers; Manual) 100
> (Initial data.price; 12000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Toyota Caldina 2001) 100
 EndR

Rule 8
 = (initial data.Type of a body; Hatchback) 100
 = (initial data.Type of the engine; Petrol) 100
 = (initial data.Type of a box of transfers; MANUAL) 100 
<(Initial data.price; 10000) 100
> (Initial data.price; 6000) 100 
Do
 = (Goal.To buy the car; Under your choice approaches ВАЗ- 2112 2003Г.В.) 100 
EndR

Rule 9
 = (initial data.Type of a body; Hatchback) 100
 = (initial data.Type of the engine; Petrol) 100
 = (initial data.Type of a box of transfers; MANUAL) 100
> (Initial data.price; 10000) 100
Do
 = (Goal.To buy the car; Under your choice approaches TOYOTA STARLET 2003Г.В.) 100
 EndR

Rule 10
 = (initial data.Type of a body; Hatchback) 100
 = (initial data.Type of the engine; diesel) 100
 = (initial data.Type of a box of transfers; MANUAL) 100
> (Initial data.price; 10000) 100
Do
 = (Goal.To buy the car; Under your choice approaches TOYOTA STARLET 2003Г.В.) 100 
EndR

Rule 11
 = (initial data.Type of a body; Hatchback) 100
 = (initial data.Type of the engine; diesel) 100
 = (initial data.Type of a box of transfers; MANUAL) 100
> (Initial data.price; 5000) 100
 <(Initial data.price; 6000) 100 
Do
 = (Goal.To buy the car; Under your choice approaches TOYOTA STARLET 2003Г.В.) 100 
EndR

Rule 12
 = (initial data.Type of a body; Hatchback) 100
 = (initial data.Type of the engine; diesel) 100
 = (initial data.Type of a box of transfers; MANUAL) 100 
<(Initial data.price; 5000) 100
 
Do
 = (Goal.To buy the car; Under your choice approaches tOYOTA corolla II 1995 Г.В.) 100 
EndR

Rule 13
 = (initial data.Type of a body;  sedan) 100
 = (initial data.Type of the engine; Diesel) 100
 = (initial data.Type of a box of transfers; Automatic) 100
 <(Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Toyota Vista 1993) 100
 EndR
Rule 14
 = (initial data.Type of a body;  sedan) 100
 = (initial data.Type of the engine; Diesel) 100
 = (initial data.Type of a box of transfers; Automatic) 100
> (Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Toyota Vista 1998) 100
 EndR

Rule 15
 = (initial data.Type of a body;  sedan) 100
 = (initial data.Type of the engine; petrol) 100
 = (initial data.Type of a box of transfers; Automatic) 100 
<(Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Toyota Tercel 1993) 100
 EndR

Rule 16
 = (initial data.Type of a body;  sedan) 100
 = (initial data.Type of the engine; petrol) 100
 = (initial data.Type of a box of transfers; Automatic) 100
> (Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Toyota Mark II 2000) 100
 EndR

Rule 17
 = (initial data.Type of a body; Unified) 100
 = (initial data.Type of the engine; Diesel) 100
 = (initial data.Type of a box of transfers; Automatic) 100 
<(Initial data.price; 1000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Toyota Caldina 1988) 100 
EndR

Rule 18
 = (initial data.Type of a body;  minivan) 100
 = (initial data.Type of the engine; Diesel) 100
 = (initial data.Type of a box of transfers; Automatic) 100 
<(Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Mitsubisi RVR 1990) 100
 EndR

Rule 19
 = (initial data.Type of a body;  minivan) 100
 = (initial data.Type of the engine; Diesel) 100
 = (initial data.Type of a box of transfers; Automatic) 100
> (Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Mitsubisi RVR 2000) 100
 EndR

Rule 20
 = (initial data.Type of a body;  minivan) 100
 = (initial data.Type of the engine; petrol) 100
 = (initial data.Type of a box of transfers; Automatic) 100 
<(Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Mitsubisi RVR 1991) 100 
EndR

Rule 21
 = (initial data.Type of a body; minivan) 100
 = (initial data.Type of the engine; petrol) 100
 = (initial data.Type of a box of transfers; Automatic) 100
> (Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Mitsubisi RVR 2001) 100
 EndR

Rule 22
 = (initial data.Type of a body;  minivan) 100
 = (initial data.Type of the engine; petrol) 100
 = (initial data.Type of a box of transfers; manual) 100
 <(Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Mitsubisi RVR 1990) 100
 EndR

Rule 23
 = (initial data.Type of a body;  minivan) 100
 = (initial data.Type of the engine; petrol) 100
 = (initial data.Type of a box of transfers; manual) 100
> (Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Mitsubisi RVR 2000) 100
 EndR


Rule 24
 = (initial data.Type of a body;  minivan) 100
 = (initial data.Type of the engine; Diesel) 100
 = (initial data.Type of a box of transfers; manual) 100 
<(Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Mitsubisi RVR 1991) 100
 EndR

Rule 25
 = (initial data.Type of a body; minivan) 100
 = (initial data.Type of the engine; Diesel) 100
 = (initial data.Type of a box of transfers; manual) 100
> (Initial data.price; 5000) 100
Do
 = (Goal.To buy the car; Under your choice approaches Mitsubisi RVR 2001) 100 
EndR

Answer 1

[yurnei]

Доброго дня!

Не скажу, что за язык =( Но может эта ссылка поможет https://www.google.ru/url?sa=t&rct=j&q=&esrc=s&sou... .

Comments

[Григорий Дудников]

Большое спасибо за подсказку, буду думать в эту сторону, хотя строка "Значением слота может быть практически что угодно (числа или математические соотношения, тексты на естественном языке или программы, правила вывода или ссылки на другие слоты данного фрейма или других фреймов)." мня несколько расстроила :)