home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
prolog
/
library
/
prolo_c
/
exampl26.pro
< prev
next >
Wrap
Text File
|
1986-10-06
|
545b
|
21 lines
/* Program 26 */
predicates
run
goal
run.
clauses
run :-
makewindow(1,20,7,"A blue window",2,5,10,50),
write("The characters are red"),
makewindow(2,176,7,"A light cyan window",14,25,10,40),
write("This window is light cyan, the "),
write("letters are black and blinking."),
write(" Please type an integer to exit."),nl,
readint(_),
removewindow,
write(" Please type an integer to exit."),nl,
readint(_),
removewindow.