examples/basics/password.pl

@@ -1,13 +1,13 @@
 login :-
-    getdata,
+    getdata(_, _),
     writeln('Welcome!').
 login :-
     repeat,
     writeln('Sorry, you are not permitted.'),
-    getdata,
+    getdata(_, _),
     writeln('Welcome').
 
-getdata :-
+getdata(Name, Password) :-
     write('Username: '),
     read(Name),
     write('Password: '),

examples/demo.pl

@@ -28,8 +28,8 @@ options :-
     writeln('(1)   A password prompt        basics   password.pl'),
     writeln('(2)   Add i in [a..b]          maths    summer.pl'),
     writeln('(3)   A translator             meta     mib_voorbeelden.pl'),
-    writeln('(4)   A tale of a ceremony     del.con. ceremony.pl'),
-    writeln('(5)   Maths with Shift/Reset   del.con. continuations.pl'),
+    writeln('(4)   A tale of a ceremony     cont.    ceremony.pl'),
+    writeln('(5)   Maths with Shift/Reset   cont.    continuations.pl'),
 %    writeln('(6)   Alternative lists        meta     my_list.pl'),
     nl,
     writeln('(interpreter) to enter the interpreter'),
@@ -155,7 +155,7 @@ continue :-
     write('Write anything to continue... '),
     read(_).
 
-clear :- clear(50).
+clear :- clear(30).
 
 clear(0) :- !.
 clear(N) :-