home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH06EX02.PRO < prev    next >
Encoding:
Prolog Source  |  1988-06-21  |  654 b   |  28 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 6, Example Program 2
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.     
  8. domains
  9.    row, column, step = integer
  10.    movement = up(step); down(step); 
  11.              left(step); right(step)
  12.  
  13. predicates
  14.    move_cursor(row, column, movement)
  15.  
  16. clauses
  17.    move_cursor(R, C, up(Step)) :-
  18.        cursor(R, C), R1=R-Step, cursor(R1, C).
  19.  
  20.    move_cursor(R, C, down(Step)) :-
  21.        cursor(R, C), R1=R+Step, cursor(R1, C).
  22.  
  23.    move_cursor(R, C, left(Step)) :-
  24.        cursor(R, C), C1=C-Step, cursor(R, C1).
  25.  
  26.    move_cursor(R, C, right(Step)) :-
  27.        cursor(R, C), C1=C+Step, cursor(R, C1).
  28.