Right now I'm still improvising with a repeat command to repeat the whole program and exit it by a simple write-readln command, it would look something like this:
Uses crt;
Var x: byte;
Begin
Repeat
Clrscr;
Writeln('hello world!');
Write('AGAIN?? (enter 1 to do it, 0 to exit)');
Until(x=0)
End.
I want to somehow remove the ugly phrase "enter 1...", like letting the user press "esc" to exit or maybe an exit button and that I click with my mouse (I saw games written with pascal, some were really awesome, and they featured an exit button :P)
Uses crt;
Var x: byte;
Begin
Repeat
Clrscr;
Writeln('hello world!');
Write('AGAIN?? (enter 1 to do it, 0 to exit)');
Until(x=0)
End.
I want to somehow remove the ugly phrase "enter 1...", like letting the user press "esc" to exit or maybe an exit button and that I click with my mouse (I saw games written with pascal, some were really awesome, and they featured an exit button :P)