prolo16

/* pausa.pro */
/* attivazione predicato per attesa tasto */

domains
A,B = integer
predicates
azione
tasto
goal azione.
clauses
azione:-makewindow(1,4,1,"",1,1,20,78),
readint(A),
write(A),nl,
tasto,
readint(B),
write(B),nl,
tasto.

tasto:-
makewindow(3,3,2,"",20,60,3,15),
write("premi enter"),
readchar(_),
removewindow,
gotowindow(1).

/* ritardo.pro */
/* attivazione predicato per ritardo fissato */
nowarnings
domains
A,B = integer
R,R1=real
predicates
azione
tasto
ritardo(R)
goal azione.
clauses
azione:-makewindow(1,4,1,"",1,1,20,78),
readint(A),
write(A),nl,
write("attendere..."),nl,
ritardo(1),   /* assegna inizio misura ritardo*/
write("scrivi numero intero  "),nl,
readint(B),
write(B),nl,
write("attendere..."),nl,
ritardo(50000),
tasto.

ritardo(60000):-!. /* limite pausa fissato */
ritardo(R):-
 R1=R+1,
 ritardo(R1).
 

tasto:-
makewindow(3,3,2,"",20,60,3,15),
write("premi enter"),
readchar(_),
removewindow,
gotowindow(1).