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

/* reg5.pro */
/* attivazione grafica */

domains
Lettera = char

clauses
goal
makewindow(1,7,3,"finestra grafica",1,1,20,60),
graphics(4,5,7),attribute(2),
line(3,3,3,30000,5),
line(3,3,30000,3,6),
line(3,30000,30000,30000,5),
line(30000,3,30000,30000,2),
dot(50,50,1),dot(50,52,2),dot(50,54,3),
pencolor(6),
forward(10000),
pencolor(5),
left(90),
forward(10000),
penpos(1000,1000,45),
forward(20000),
right(90),
back(10000),
sound(300,500),
/*cursor(19,2),write("premi tasto SPACE"),
readchar(Lettera).*/
cursor(19,2),beep,beep,
keypressed.