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

/* reg6.pro */
/* attivazione grafica */
/* pendown penup pencolor forward back */
/* right left penpos graphics dot line */
domains
predicates
clauses
goal
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),sound(50,1000),
sound(100,900),
cursor(10,10),
write("attivazione funzioni grafiche "),
dot(50,50,1),dot(50,52,2),dot(50,54,3),
pencolor(6),
forward(10000),sound(100,600),
pencolor(5),
left(90),
forward(10000),sound(100,500),
penpos(1000,1000,45),
forward(20000),sound(100,700),
right(150),
back(10000),sound(100,500),
left(90),
penup,forward(900),left(120),pendown,
sound(100,600),
pencolor(6),forward(20000),
sound(300,500),
cursor(19,2),beep,beep,
keypressed.