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