Sistema experto turboprolog

/*****************************************************************************

PROGRAMACION LOGICA.

SISTEMA EXPERTO EN MECANICA AUTOMOTRIZ

DESARROLLO: SANTIAGO SANCHEZ U.
FERNANDO RODRIGUEZ S.


*****************************************************************************/
DATABASExsi(string)
xno(string)

PREDICATES

opciones(integer)
informacion(integer)
main()
averia(integer,string)
si(string)
no(string)
clear_facts
recuerda(string,symbol)
pregunta(string)
respuesta(string,symbol)
solucion(string)

GOAL

makewindow(1,0,11," PROGRAMA DE DIAGNOSTICO AUTOMOTRIZ ",1,0,24,80),
makewindow(2,14,11," DETECCION DE AVERIA",2,20,23,41),
makewindow(3,4,11,"OPCION",22,70,3,9),
makewindow(4,14,11," AVERIA O DEFECTO ",9,1,5,60),
makewindow(5,14,11," REPARACION REQUERIDA ",14,1,10,68),
makewindow(6,14,11," LOCALIZACION DE AVERIA ",4,2,4,27),
makewindow(7,4,11,"RESP",9,64,3,6),
makewindow(8,4,11,"GRACIAS POR SU CONSULTA",12,27,3,28),
main.

CLAUSES

main():-
shiftwindow(1),clearwindow,shiftwindow(2),clearwindow,
shiftwindow(3),clearwindow,
shiftwindow(4),clearwindow,
shiftwindow(5),clearwindow,
opciones(Op),
shiftwindow(1),clearwindow,
shiftwindow(5),shiftwindow(4),
informacion(Op).
main():-
shiftwindow(1),clearwindow,
shiftwindow(2),clearwindow,
shiftwindow(3),clearwindow,
shiftwindow(4),clearwindow,shiftwindow(5),clearwindow,
write(" Lo siento, pero este programa no cuenta con la informacion suficiente para determinar el tipo de averia buscada"),
clear_facts.

opciones(Op):-

shiftwindow(2),

write(" Arranque del motor (1)\n",
" Rendimiento del motor (2)\n",
" Sistema de refrigeracion (3)\n",
"Bateria (4)\n",
" Sistema de alimentacion (5)\n",
" Lubricacion (6)\n",
" Instrumentos de control (7)\n",
" Transmision (8)\n",
" Frenos (9)\n",
" Suspension (10)\n",
" Direccion (11)\n"," Ruedas y neumaticos (12)\n",
" Ruidos en el motor (13)\n",
" Sistema de arranque (14)\n",
" Sistema generador de DC (15)\n",
" Dinamo (16)\n",
" Alternador (17)\n",
" Luces y alumbrado (18)\n",
" Limpia-parabrisas(19)\n",
" Bomba electrica de gasolina (20)\n",
" SALIR (0)"),

shiftwindow(3),readint (Op).
informacion(0):-
shiftwindow(1),clearwindow,
shiftwindow(8).


informacion(1):-
shiftwindow(6),clearwindow,
write(" ARRANQUE DEL MOTOR "),
shiftwindow(4),clearwindow,
averia(1,X1),write(X1),
shiftwindow(5),clearwindow,
solucion(X1),
clear_facts.
informacion(2):-
shiftwindow(6),clearwindow,
write(" RENDIMIENTO DEL MOTOR "),
shiftwindow(4),clearwindow,
averia(2,X2),
write(X2),
shiftwindow(5),clearwindow,
solucion(X2),
clear_facts.

informacion(3):-
shiftwindow(6),clearwindow,
write("SISTEMA DE REFRIGERACION "),
shiftwindow(4),clearwindow,
averia(3,X4),
write(X4),
shiftwindow(5),clearwindow,
solucion(X4),
clear_facts.
informacion(4):-
shiftwindow(6),clearwindow,
write(" BATERIA "),
shiftwindow(4),clearwindow,
averia(4,X4),
write(X4),
shiftwindow(5),clearwindow,
solucion(X4),
clear_facts....