% ---------------------------------------------------------------------------
domains
i = integer
st = string
c = char
% ---------------------------------------------------------------------------
database - ren
ren(i,st)
predicates
inicia(i,i)
lineas(i,i)
retardo(i)
% ---------------------------------------------------------------------------
clauses
inicia(4,_):-
lineas(4,100), !.
inicia(N,Ren):-
ren(N,Bety), cursor(Ren,15), write(Bety),
retardo(16000), lineas(1,100), N + 1 = N1, !, inicia(N1,Ren).
lineas(0,_):- !. lineas(Rafa,Bety):-
write("\n"), sound(10,Bety),
Bety + 50 = Bety1, Rafa - 1 = Rafa1,
!, lineas(Rafa1,Bety1).
retardo(0):-!. retardo(N):-N-1 = N1, retardo(N1).
% ---------------------------------------------------------------------------
goal
makewindow(1,2,0,"",0,0,25,80),
makewindow(2,7,112,"",8,1,16,78),
asserta(ren(1," E N P R O C E S O"),ren),
asserta(ren(2," - o -"),ren),
asserta(ren(3," D E I N S T A L A C I O N"),ren),
inicia(1,13),
write("Presione cualquier tecla ..."), readchar(_),
removewindow(), removewindow().
% ---------------------------------------------------------------------------