Another version of Star Trek in the text mode

Category: KMP (Club of young programmers)

Author: Tomas Madziak
Program: Startrek.pas
File exe: Startrek.exe

{ 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.