home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH14EX01.PRO < prev    next >
Encoding:
Prolog Source  |  1990-03-26  |  573 b   |  21 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.    
  5. predicates
  6.    run
  7.  
  8. clauses
  9.    run :-
  10.       makewindow(1, 20, 7, "A blue window", 2, 5, 10, 50),
  11.       write("The characters are red"), nl,
  12.       makewindow(2, 176, 7, "A light cyan window", 14, 25, 10, 40),
  13.       write("This window is light cyan and the "),
  14.       write("letters are black and blink."), nl,
  15.       write("Please type an integer to exit."), nl,
  16.       readint(_),
  17.       removewindow,
  18.       write("Please type an integer to exit."), nl,
  19.       readint(_),
  20.       removewindow.
  21.