What programming language is used in the ESwin expert system?

Question

Programming languages

Good day!
Recently, there was an urgent need to understand the principles of operation of one very old shell for creating expert systems - ESwin. I just can’t figure out what language is used inside there, and therefore I can’t explain a large number of things that are very similar to bugs.
Here is a screenshot and an example of a code from one of the systems, maybe someone here can identify it?

Screenshot of ESwin

Program code

TITLE=Buying of car
COMPANY=CopyRight Insicom Ltd., phone: [phone] email: [email protected]
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

Good day!
I won’t say what language =( But maybe this link will help https://www.google.ru/url?sa=t&rct=j&q=&esrc=s&sou... .