home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH14EX01.PRO < prev    next >
Encoding:
Prolog Source  |  1988-06-21  |  634 b   |  24 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 14, Example Program 1
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8. predicates
  9.    run
  10.  
  11. clauses
  12.    run :-
  13.       makewindow(1, 20, 7, "A blue window", 2, 5, 10, 50),
  14.       write("The characters are red"), nl,
  15.       makewindow(2, 176, 7, "A light cyan window", 14, 25, 10, 40),
  16.       write("This window is light cyan and the "),
  17.       write("letters are black and blink."), nl,
  18.       write("Please type an integer to exit."), nl,
  19.       readint(_),
  20.       removewindow,
  21.       write("Please type an integer to exit."), nl,
  22.       readint(_),
  23.       removewindow.
  24.