program startrek;
uses crt;
var v:char;
begin
clrscr;
textcolor(yellow);
textbackground(green);
gotoxy(35,2);writeln('Software by Tondword');
gotoxy(15,22);writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(15,23);writeln('º º');
gotoxy(15,24);writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(17,23);writeln('press s to go on');
gotoxy(2,2);
write('Rozhodol');delay(1000);gotoxy(11,3);write('si');delay(1000);gotoxy(14,4);write('sa');
delay(1000);gotoxy(17,5);write('pozriet');delay(1000);gotoxy(25,6);write('si');delay(1000);gotoxy(28,7);
write('program,');delay(1000);gotoxy(36,8);write('ktoreho');delay(1000);gotoxy(44,9);
write('autorom');delay(1000);gotoxy(52,10);write('je');delay(1000);gotoxy(55,11);
write('zacinajuci');delay(1000);gotoxy(66,12);write('programator');delay(1000);gotoxy(3,10);
write('T');sound(100);delay(300);nosound;write('O');sound(130);delay(300);nosound;
write('N');sound(160);delay(300);nosound;write('Y ');sound(190);delay(300);nosound;
write('M');sound(220);delay(300);nosound;write('A');sound(250);delay(300);nosound;write('G');
sound(280);delay(300);nosound;write('D');sound(310);delay(300);nosound;write('Z');
sound(340);delay(300);nosound;write('I');sound(370);delay(300);nosound;write('A');
sound(400);delay(300);nosound;write('K.');sound(430);delay(300);nosound;delay(1000);
gotoxy(17,11);write('Tento');delay(1000);gotoxy(23,12);write('program');delay(1000);
gotoxy(31,13);write('bol');delay(1000);gotoxy(35,14);write('vytvoreny');delay(1000);
gotoxy(45,15);write('dna');delay(1000);gotoxy(49,16);write('24.11.96');
v:=readkey;
clrscr;
textbackground(green);
textcolor(magenta);
gotoxy(12,9);
writeln(' ÛÛÛÛÛÛÛÛÛ');
gotoxy(12,10);
writeln('Û Û');
gotoxy(12,11);
writeln('Û Û Û Û');
gotoxy(12,12);
writeln('Û Û Û Û Û');
gotoxy(12,13);
writeln(' ÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛ Û ÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛ Û ÛÛ');
gotoxy(12,14);
writeln(' Û Û Û ÛÛ Û Û Û ÛÛ');
gotoxy(12,15);
writeln(' Û Û ÛÛÛÛÛÛ Û Û Ûßßßßß Û Û');
gotoxy(12,16);
writeln('Û Û Û Û Û Û Û Û Û Û ÛÛ');
gotoxy(12,17);
writeln(' ÛÛÛÛÛÛÛÛÛ Û ÛÛÛÛÛÛ ÛÛ Û Û ÛÛÛÛÛ Û Û');
v:=readkey;
clrscr;
textbackground(black);
textcolor(white);
write( ' . . * . . . . * . ') ;
write( ' . . * . . . . * . ') ;
write( ' . . * . . . . * . ') ;
write( ' . . * . . . . * . ') ;
write( ' . . * . . . . * . ') ;
write( ' . . * . . . . * . ') ;
write('. * . . * . .');
write(' . . . . . . . ') ;
write(' . * . * . . . . * . ') ;
write(' . . * . ') ;
gotoxy(10,10);
writeln(' ÛÛÛÛÛÛÛÛÛ . * . . . . . . . . ');
gotoxy(10,11);
writeln('Û . Û . . . * ');
gotoxy(10,12);
writeln('Û Û . Û * Û');
gotoxy(10,13);
writeln('Û . Û . * Û Û Û');
gotoxy(10,14);
writeln(' ÛÛÛÛÛÛÛÛÛ. ÛÛÛÛÛÛÛ ÛÛÛÛÛ Û.ÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛ Û ÛÛ * . ');
gotoxy(10,15);
writeln(' . Û * Û Û * ÛÛ * Û . Û . Û ÛÛ . ');
gotoxy(10,16);
writeln(' . Û Û ÛÛÛÛÛÛ . Û Û Ûßßßßß Û Û ');
gotoxy(10,17);
writeln('Û . Û Û Û Û Û Û . Û Û . Û ÛÛ * ');
gotoxy(10,18);
writeln(' ÛÛÛÛÛÛÛÛÛ Û ÛÛÛÛÛÛ ÛÛ Û Û ÛÛÛÛÛ Û Û');
write(' . . . . . . . ') ;
write(' . . * . . . . * . ') ;
write(' . * . . . . * . ') ;
write(' . * . . . . * . ') ;
write(' . . * . . . . * . ') ;
write(' . . * . . . . * . ') ;
write(' . . * . . . . * . ') ;
write(' . * . . . . * . ') ;
write(' . . * . . . . * . ') ;
write(' . . * . . . . * . ') ;
write(' . . * . . . . * . ') ;
write(' . . * . . . . * . ') ;
write(' . . * . . . . * . ') ;
write( ' . . * . . .') ;
gotoxy(23,17);
writeln('T H E N E X T G E N E R A T I O N');
v:=readkey
end.