home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH14EX02.PRO < prev    next >
Encoding:
Prolog Source  |  1990-03-26  |  1.0 KB  |  41 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.    
  5. predicates
  6.    start
  7.    run(integer)
  8.    do_sums
  9.    set_up_windows
  10.    clear_windows
  11.  
  12. clauses
  13.    start :- set_up_windows, do_sums.
  14.  
  15.    set_up_windows :-
  16.       makewindow(1, 7, 7, "", 0, 0, 25, 80),
  17.       makewindow(1, 7, 7, "Left operand", 2, 5, 5, 25),
  18.       makewindow(2, 7, 7, "", 2, 35, 5, 10),
  19.       nl, write(" PLUS"),
  20.       makewindow(2, 7, 7, "Right operand", 2, 50, 5, 25),
  21.       makewindow(3, 7, 7, "Gives", 10, 27, 5, 25),
  22.       makewindow(4, 7, 7, "", 17, 22, 5, 35).
  23.  
  24.    do_sums :- run(_), clear_windows, do_sums.
  25.  
  26.    run(Z) :-
  27.       shiftwindow(1),
  28.       cursor(2, 1), readint(X),
  29.       shiftwindow(2),
  30.       cursor(2, 10), readint(Y),
  31.       shiftwindow(3), Z=X+Y, cursor(2, 10), write(Z),
  32.       shiftwindow(4),
  33.       write("  Please press the space bar"),
  34.       readchar(_).
  35.  
  36.    clear_windows :-
  37.       shiftwindow(1), clearwindow,
  38.       shiftwindow(2), clearwindow,
  39.       shiftwindow(3), clearwindow,
  40.       shiftwindow(4), clearwindow.
  41.