home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL44.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-25  |  498 b   |  21 lines
  1.                 /* Program 44 */
  2.  
  3. domains
  4.     file = input
  5. predicates
  6.     start
  7.     inspect_positions
  8. goal
  9.     start.
  10. clauses
  11.     start:-
  12.         write("Which file do you want to work with ?"),
  13.         readln(FileName),
  14.         openread(input,FileName),
  15.         inspect_positions.
  16.     inspect_positions:-
  17.         readdevice(keyboard),nl,write("Position No?"),  
  18.         readreal(X),
  19.         readdevice(input),filepos(input,X,0),readchar(Y),
  20.         write(Y),inspect_positions.
  21.