home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH14EX04.PRO < prev    next >
Encoding:
Prolog Source  |  1988-06-21  |  595 b   |  26 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 14, Example Program 4
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8. predicates
  9.    exp_window(integer)
  10.  
  11. clauses
  12.    exp_window(0) :- !.
  13.    exp_window(N) :-
  14.       makewindow(_, _, _, _, A, B, C, D),
  15.       A1 = A-1, B1 = B-2, C1 = C+2, D1 = D+4,
  16.       resizewindow(A1,B1,C1,D1),
  17.       N1 = N-1, exp_window(N1).
  18.  
  19. goal
  20.    makewindow(1, 7, 7, "TEST 1", 10, 20, 3, 10),
  21.    exp_window(9),
  22.    makewindow(2, 7, 7, "TEST 2", 12, 50, 3, 10),
  23.    exp_window(9),
  24.    makewindow(3, 7, 7, "TEST 3", 14, 16, 3, 10),
  25.    exp_window(8).
  26.