home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l217 / 2.ddi / EXAMPLES / CH06EX02.PRO < prev    next >
Encoding:
Prolog Source  |  1990-03-26  |  594 b   |  25 lines
  1. /*
  2.    Copyright (c) 1986, 90 by Prolog Development Center
  3. */
  4.     
  5. domains
  6.    row, column, step = integer
  7.    movement = up(step); down(step); 
  8.              left(step); right(step)
  9.  
  10. predicates
  11.    move_cursor(row, column, movement)
  12.  
  13. clauses
  14.    move_cursor(R, C, up(Step)) :-
  15.        cursor(R, C), R1=R-Step, cursor(R1, C).
  16.  
  17.    move_cursor(R, C, down(Step)) :-
  18.        cursor(R, C), R1=R+Step, cursor(R1, C).
  19.  
  20.    move_cursor(R, C, left(Step)) :-
  21.        cursor(R, C), C1=C-Step, cursor(R, C1).
  22.  
  23.    move_cursor(R, C, right(Step)) :-
  24.        cursor(R, C), C1=C+Step, cursor(R, C1).
  25.