Ïal¹ia podoba Star Treku v textovom re¾ime
Delphi & Pascal (èeská wiki)
Kategorija: KMP (Programy mladòakoch
Zrobil: Tomá¹ Madziak
Program: Startrek.pas
Subor exe: Startrek.exe
Zrobil: Tomá¹ Madziak
Program: Startrek.pas
Subor exe: Startrek.exe
Ïal¹ia podoba Star Treku v textovom re¾ime.
{ 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.