home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / prolog / library / prolo_c / exampl27.pro < prev    next >
Text File  |  1986-10-06  |  985b  |  35 lines
  1. /* Program 27 */
  2.  
  3. predicates
  4.     run(integer)
  5.     do_sums
  6.     set_up_windows
  7.     clear_windows
  8. goal
  9.         set_up_windows,do_sums.
  10. clauses
  11.     set_up_windows :-
  12.         makewindow(1,7,7,"",0,0,25,80),
  13.         makewindow(1,7,7,"Left operand",2,5,5,25),
  14.         makewindow(2,7,7,"",2,35,5,10),
  15.         nl,write(" PLUS"),
  16.         makewindow(2,7,7,"Right operand",2,50,5,25),
  17.         makewindow(3,7,7,"Gives", 10,27,5,25),
  18.         makewindow(4,7,7,"",17,22,5,35).
  19.     do_sums :-
  20.         run(_),clear_windows,do_sums.
  21.     run(Z)  :-
  22.         shiftwindow(1),
  23.         cursor(2,1),readint(X),
  24.         shiftwindow(2),
  25.         cursor(2,10),readint(Y),
  26.         shiftwindow(3),Z=X+Y,cursor(2,10),write(Z),
  27.         shiftwindow(4),
  28.         write("  Please press the space bar"),
  29.         readchar(_).
  30.     clear_windows :-
  31.         shiftwindow(1),clearwindow,
  32.         shiftwindow(2),clearwindow,
  33.         shiftwindow(3),clearwindow,
  34.         shiftwindow(4),clearwindow.
  35.