diff --git a/examples/basics/password.pl b/examples/basics/password.pl index 55d5054..7322247 100644 --- a/examples/basics/password.pl +++ b/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: '), diff --git a/examples/demo.pl b/examples/demo.pl index ce07040..ed94765 100644 --- a/examples/demo.pl +++ b/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) :-