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

esci listaprolog.htm

/* grafi1.pro */
/* Questo programma richiede una scheda EGA o CGA */
/* Non Š supportata la scheda Hercules! */
/* disegna linee varie */
/* formattazione testo con t\t....\n\n */
domains
intero = integer
Predicates
crealinea
cornice(Intero,Intero,Intero)
/* posizione inizio linee,numero righe */
Goal
graphics(1,7,1),attribute(1),crealinea.

Clauses
crealinea :- cursor(0,0), write("\t\tPROVA RIGHE\n\n"),
cornice(1000,1000,75).

cornice(Riga1,Colo1,N) :-
N>0,!, /* esegue per N>n.righe*/
Colon2=Colo1+400, N2=N-1,
line(Riga1,Colo1,30000,30000,N),
Riga2=32000-Riga1,
Colo2=32000-Colo1,
line(Riga2,Colo1,Riga1,Colo2,N),
cornice(Riga1,Colon2,N2).
cornice(_,_,0).

/