home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH12EX10.PRO < prev    next >
Encoding:
Prolog Source  |  1988-06-21  |  566 b   |  28 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 12, Example Program 10
  3.    
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8. domains
  9.    file = input
  10.  
  11. predicates
  12.    inspect_positions
  13.  
  14. goal
  15.    write("Which file do you want to work with ?"),
  16.    readln(FileName),
  17.    openread(input, FileName),
  18.    inspect_positions.
  19.  
  20. clauses
  21.    inspect_positions :-
  22.       readdevice(keyboard),
  23.       nl, write("Position No? "),
  24.       readreal(X),
  25.       readdevice(input), filepos(input, X, 0),
  26.       readchar(Y), write("Char is: ",Y),
  27.       inspect_positions.
  28.