Askvalue answervalue advise predicate uses the predefined display window

ask(A,V):-
window(quest,write,A),
window([type(prompt),coord(16,10,16,70),border(white:blue), contents(white:blue)],
read, ['', Y]),
asserta(known(A,Y)),
Y = V.

menuask(Attribute,AskValue,Menu):-
length(Menu,L),
R1 = 16,
R2 is R1 + L - 1,
window(quest,write,Attribute),
window([type(menu),coord(R1,10,R2,40),border(white:blue), contents(white:blue),menu(Menu)],
read, AnswerValue),
asserta(known(Attribute,AnswerValue)),
AskValue = AnswerValue.

11.5 Summary

One can model a fairly complex domain relatively quickly in Prolog, using the tools available. A small semantic gap on the knowledge base and good user interface are two very important points in the prototype.