to make your program not quit straight away and keep playing, start off with something simple like this:
[pascal]
program youprog;
var
quit : boolean;
quitStr: string;
begin
quit := false;
repeat
//your code here
writeln('Whould you like to play again? y/n');
ReadLn(quitStr);
if LowerCase(quitStr) = 'y' then //still quit if they have CAPs on
quit := true;
until quit = true;
writeLn('Good bye!')
end.
[/pascal]
---
I think {$CONSOLE} is a Delphi only thing. (I been caught out by this in Delphi a few times though, lol)
Bookmarks