{**************************************************************************}
begin
 clrscr;
 z:=39;
 writeln('                            Programm Meteor ');
 repeat until keypressed;
 r:=readkey;
 if (r='e' or r='E') then halt(1);
 gotoxy(1,z);
 if screen$(1,z) <> '*' then aktion
 gotoxy(1,1);writln('Punkte  =  ',p,'                                     ');
 delay(1000);
 gotoxy(1,1);writln;

end.