home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / borland / jnfb88.arc / TAIL.ARC / TYPEWRIT.PRO < prev   
Text File  |  1987-10-22  |  333b  |  22 lines
  1. /* TYPEWRIT.PRO */
  2.  
  3. /* Uses 'repeat' to keep accepting
  4.    characters and printing them
  5.    until Return is encountered. */
  6.  
  7. PREDICATES
  8.  
  9.   repeat
  10.   typewriter
  11.  
  12. CLAUSES
  13.  
  14.   repeat.
  15.   repeat :- repeat.
  16.  
  17.   typewriter :- repeat,
  18.                 readchar(C),
  19.                 write(C),
  20.                 char_int(C,13).
  21.  
  22.