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

/* reg2.pro */
/* richiesta dati numerici e uso finestra */
/* esegue operazioni su numeri inseriti */

domains
X,Y = integer
clauses
goal
clearwindow,
makewindow(1,7,3,"",1,1,20,70),
attribute(3),
write("scrivi intero:"),readint(X),
write("scrivi intero:"),readint(Y),
Prodotto=X*Y,
Somma=X+Y,
Differenza=X-Y,
Quoziente=X/Y,
Divisione=X div Y,
Resto=X mod Y,
cursor(4,2),attribute(5),
write("prodotto.....=",Prodotto),
cursor(5,2),
write("somma....... =",Somma),
cursor(6,2),
write("Differenza...=",Differenza),
cursor(7,2),
write("quoziente....=",Quoziente),
cursor(8,2),
write("divisione....=",Divisione),
cursor(9,2),
write("resto........=",Resto),
keypressed.