{ STARTREK.PAS } { } { Author: Tomas Madziak } { Date : 15.02.1997 http://www.trsek.com } 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.