/* --- Copyright University of Sussex 1987.  All rights reserved. ---------
 > File:           $usepop/pop/local/plog/lib/readline.pl
 > Purpose:        Read in a line of input as a list of Prolog atoms
 > Author:         Tom Khabaza, Feb 25 1987
 > Machines:       cvaxa unx1 psuna psunb pas-sun esuna tsuna tbobf vax2 cgeca
 > Documentation:  PLOGHELP * READLINE
 > Related Files:
 */

:- prolog_language(pop11).

procedure (x,c);
    lvars c x;
    unify(readline(),x,c);
endprocedure -> prolog_valof("readline",1);

:- prolog_language(prolog).
