home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / EXAMPLES.ARC / CH12EX08.PRO < prev    next >
Encoding:
Prolog Source  |  1988-06-21  |  706 b   |  28 lines
  1. /*
  2.    Turbo Prolog 2.0 Chapter 12, Example Program 8
  3.       
  4.    Copyright (c) 1986, 88 by Borland International, Inc
  5.    
  6. */
  7.    
  8. domains
  9.    list = integer*
  10.  
  11. predicates
  12.    readlist(list)
  13.  
  14. goal
  15.    makewindow(1, 7, 7, " Integer List ", 5, 5, 15, 70),
  16.    write(" Type in a column of integers, like this:",
  17.          "\n\n  integer (press ENTER)\n  integer (press ENTER)\n",
  18.          "  etc.\n\n Type X (and press ENTER) to end the list.\n\n"),
  19.    readlist(TheList),
  20.    write("\nThe Turbo Prolog list is: ",TheList).
  21. clauses
  22.    readlist([H|T]) :- 
  23.       write("\16 "),                         /* This prints the prompt symbol */
  24.       readint(H), !,
  25.       readlist(T).
  26.  
  27.    readlist([]).
  28.