home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / REFEXAMP / MAKWIN8.PRO < prev    next >
Encoding:
Text File  |  1990-03-26  |  919 b   |  27 lines
  1. %====================== makewindow/8          ===============================
  2. predicates
  3.    nondeterm repeat
  4.    delay(integer)
  5.  
  6. GOAL
  7.    makewindow(1, 1, 7, "one", 5, 0, 10, 20), write("ONE"),
  8.    makewindow(2, 2, 7, "two", 1, 10, 10, 20), write("TWO"),
  9.    makewindow(3, 3, 7, "three", 2, 20, 10, 20), write("THREE"),
  10.    makewindow(4, 4, 7, "four", 8, 30, 10, 20), write("FOUR"),
  11.    makewindow(5, 5, 7, "five", 4, 40, 10, 20), write("FIVE"),
  12.    makewindow(6, 6, 7, "six", 5, 50, 10, 20), write("SIX"),
  13.    makewindow(7, 7, 7, "seven", 9, 5, 10, 20), write("SEVEN"),
  14.    makewindow(8, 8, 7, "eight", 1, 10, 10, 20), write("EIGHT"),
  15.    makewindow(9, 9, 7, "nine", 15, 20, 10, 20), write("NINE"),
  16.    repeat,
  17.    random(9,X), N=X+1, shiftwindow(N),
  18.    framewindow(112),  delay(1000),   framewindow(7),
  19.    keypressed.
  20.  
  21. clauses
  22.   repeat.
  23.   repeat :- repeat.
  24.  
  25.   delay(0):-!.
  26.   delay(N):-N1=N-1,delay(N1).
  27.