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

/* lonat.pro */
/* esempio vari tipi argomenti e stampa */
/* scrivere GOAL:valori(intero) */

domains
numero = real
predicates
calcola(numero)
valore(numero)
clauses
calcola(0).
calcola(X) if
X>0,
Y=X-1,
calcola(Y).
valore(X) if
S=ln(X), /* operazione */
write("valore......",X,".."),
write("risultato...",S,"..."),
calcola(S).