home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / JNFB88.ZIP / TAIL.ARC / TYPEWRIT.PRO < prev   
Encoding:
Prolog Source  |  1987-10-22  |  333 b   |  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.