/* 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.