chore: Small cleanups

This commit is contained in:
Tibo De Peuter 2025-05-19 09:12:37 +02:00
parent e087e5f29f
commit 24bfa426ab
Signed by: tdpeuter
GPG key ID: 38297DE43F75FFE2
2 changed files with 4 additions and 4 deletions

View file

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

View file

@ -155,7 +155,7 @@ continue :-
write('Write anything to continue... '),
read(_).
clear :- clear(30).
clear :- clear(50).
clear(0) :- !.
clear(N) :-