Very nice program! I think I will copy your high scores management code.

The graphic input routine is also very useful. Where did you take these key values ? Aren't there constants declared somewhere for these values ?

Code:
    if (key <> 8) and (key <> 13) and (key <> 18432) and (key <> 19712) and
      (key <> 19200) and (key <> 20480) and (key <> 15104) and (key <> 15360)