{**************************************************************************} 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.