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