uses CRT;
label 1,2 ;
begin

clrscr;
textcolor(12);
writeln ('        Underground Pirates - Frequenz-Scanner fr den Pseudo Hacker')  ;
writeln ('')                                                       ;
writeln ('')                                                       ;


1:
Sound(random(1000));
Delay(random(2500));
NoSound;
if keypressed then goto 2;
goto 1;

2:
textcolor(99);
writeln ('               DiE GR”SSTE VERARSCHuNG WeSTLiCH DeS HoRIZONTs');
delay(5000);
end.