This program was designed and made by Martin 'Fish' Hutchinson, 2001, and is not copyrighted in any way, shape of form.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

If you decide to use, amend or distribute this program, I just ask that you mention my name ('Martin "Fish" Hutchinson') as developer, leave this message in full here and also that you E-Mail me telling me what has been done and where on the internet it can be found. I also ask that no costs are charged other than costs of distribution to other users.

--------------------------------------------------------------------

Program ASCIIworker;

uses WinCrt;

var
  C,cont: Char;

begin
     repeat
  Writeln('Please press a key');
  C := Readkey;
  Writeln(' You pressed ', C, ', whose ASCII value is ', Ord(C), '.');
  writeln;
  writeln('Are there any more values? (y or n)');
  readln(cont);
  writeln;
  until cont='n';
  donewincrt;
end.