Ïal¹ia podoba Star Treku v textovom re¾ime

Delphi & Pascal (èeská wiki)
Pøejít na: navigace, hledání
Kategorija: KMP (Programy mladòakoch

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.