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
/* reg9.pro */
/* attivazione funzioni SCREEN e cursore */
domains
C = char
D = char
S = string
predicates
clauses
goal
clearwindow,
makewindow(1,7,4,"",1,1,20,60),
attribute(4),
cursor(5,2),
scr_char(10,10,'a'), /* posiziona char */
sound(100,500),
scr_attr(12,10,4), /* assegna colore */
scr_char(12,10,'B'),
sound(100,500),
field_str(14,10,5,asiatica), /* asiat */
field_attr(14,10,3,2), /* colora asi */
cursorform(10,15),
cursor(6,10),
write("forma cursore "),
sound(100,400).