listati da Prolog2
listati da copiare e incollare su notes e salvare come file.PRO
richiamabili in ambiente Prolog

esci listaprolog.htm

/* grafi3.pro */
/* Questo programma richiede una scheda EGA o CGA */
/* Non Š supportata la scheda Hercules! */
/* disegna linee parallele */
/* formattazione testo con t\t....\n\n */

domains
intero = integer
X= integer
Y = integer
Predicates
crealinea
cornice(Intero,Intero,Intero)
/* posizione inizio linee,numero righe */
Goal
graphics(1,7,1),attribute(3),crealinea.

Clauses
crealinea :- cursor(0,0), write("\n\n\t\t\tPROVA RIGHE\n\n\n"),
cornice(1000,1000,50).
/* t ...tabulazione....n interlinea...*/

cornice(Riga1,Colo1,N) :-
N>0,!, /* esegue per N>n.righe*/
X=1000,Y=20000,
line(Riga1,X,Riga1,Y,N),
line(X,Colo1,Y,Colo1,N),
Riga2=Riga1+400,
Colo2=Colo1+400,
N2=N-1, /* decremento contatore*/
/* passo 1 */
cornice(Riga2,Colo2,N2).
cornice(_,_,0):-sound(100,500),
cursor(18,2).