chore: Small cleanups
This commit is contained in:
parent
e087e5f29f
commit
24bfa426ab
2 changed files with 4 additions and 4 deletions
|
@ -1,13 +1,13 @@
|
||||||
login :-
|
login :-
|
||||||
getdata(_, _),
|
getdata,
|
||||||
writeln('Welcome!').
|
writeln('Welcome!').
|
||||||
login :-
|
login :-
|
||||||
repeat,
|
repeat,
|
||||||
writeln('Sorry, you are not permitted.'),
|
writeln('Sorry, you are not permitted.'),
|
||||||
getdata(_, _),
|
getdata,
|
||||||
writeln('Welcome').
|
writeln('Welcome').
|
||||||
|
|
||||||
getdata(Name, Password) :-
|
getdata :-
|
||||||
write('Username: '),
|
write('Username: '),
|
||||||
read(Name),
|
read(Name),
|
||||||
write('Password: '),
|
write('Password: '),
|
||||||
|
|
|
@ -155,7 +155,7 @@ continue :-
|
||||||
write('Write anything to continue... '),
|
write('Write anything to continue... '),
|
||||||
read(_).
|
read(_).
|
||||||
|
|
||||||
clear :- clear(30).
|
clear :- clear(50).
|
||||||
|
|
||||||
clear(0) :- !.
|
clear(0) :- !.
|
||||||
clear(N) :-
|
clear(N) :-
|
||||||
|
|
Reference in a new issue