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

/* reg4.pro */
/* richiesta dati vari e uso finestra */

domains
X = integer
Y = real
Nome = string
Lettera = char
predicates
clauses
goal
clearwindow,
makewindow(1,7,3,"",1,1,20,70),
attribute(3),
write("scrivi stringa :"),readln(Nome),
write("scrivi intero 10,20,100.:"),readint(X),
write("scrivi numero reale......"),readreal(Y),
write("scrivi carattere........."),readchar(Lettera),
cursor(4,2),attribute(5),
Numero_intero=X,
Numero_reale=Y,
Testo = Nome,
Carattere = Lettera,
cursor(5,2),
write("stringa............ =",Nome),
cursor(6,2),
write("numero intero.......=",Numero_intero),
cursor(7,2),
write("numero reale........=",Numero_reale),
cursor(8,2),
write("carattere...........=",Carattere),
keypressed.