listati da Turbo Prolog
listati da copiare e incollare su notes e salvare con "tutti i file",come file.PRO
richiamabili in ambiente Prolog

esci listaprolog.htm

/* reg1.pro */
/* richiesta dati numerici e uso finestra */

domains
X,Y = integer
clauses
goal
clearwindow,
makewindow(1,7,3,"",1,1,20,40),
attribute(3),
write("scrivi intero:"),readint(X),
write("scrivi intero:"),readint(Y),
Prodotto=X*Y,
write("prodotto=",Prodotto),
cursor(10,2),
keypressed.