home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
borland
/
jnfb88.arc
/
TAIL.ARC
/
TYPEWRIT.PRO
< prev
Wrap
Text File
|
1987-10-22
|
333b
|
22 lines
/* TYPEWRIT.PRO */
/* Uses 'repeat' to keep accepting
characters and printing them
until Return is encountered. */
PREDICATES
repeat
typewriter
CLAUSES
repeat.
repeat :- repeat.
typewriter :- repeat,
readchar(C),
write(C),
char_int(C,13).