Future shock - game in pascal

Delphi & Pascal (èeská wiki)
Pøejít na: navigace, hledání
Category: KMP (Club of young programmers)
fshock.pngAuthor: Tomá¹ Ferko
Program: Fshock.pas
File exe: Fshock.exe

Future shock. A lot of ideas and verbal expressions. Exactly as we are accustomed to the Tomas' way.
{ FSHOCK.PAS                                                        }
{                                                                   }
{ Author: Tomas Ferko                                               }
{ Date  : 15.02.1997                           http://www.trsek.com }
 
Program Terminator;
Uses Crt;
Var n,l,s,o,h,m,e,q:integer;
v:char;
 
Procedure Menu;
begin;
 ClrScr;
 textcolor(white);
 Delay(100);
 Writeln('         ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ       ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
 Writeln('        Û-|-|-|-|-|-|-|-|-|-Û      º        MAIN MENU       º');
 Writeln('       Û-|-|-|-|-|-|-|-|-|-|-Û     ºÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͺ');
 Writeln('      Û    ----       ----    Û    º B)egin                 º');
 Writeln('     Û     |  |       |  |     Û   º L)oad game             º');
 Writeln('    Û      ----       ----      Û  º S)ave game             º');
 Writeln('    Û             Û             Û  º O)ptions               º');
 Writeln('     Û            Û            Û   º H)igh Scores           º');
 Writeln('      Û                       Û    º M)ultiplayer game      º');
 Writeln('       Û---------------------Û     º T)itle                 º');
 Writeln('        ÛÛ      º Q)uit                  º');
 Writeln('         ÛÛ       º                        º');
 Writeln('          Û---------------Û        ºÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͺ');
 Writeln('          ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ        ºTERMINATOR:FUTURE SHOCK º');
 Writeln('                                   ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
 Gotoxy(1,24);
 Writeln('Terminator:future shock PREVIEW Copyright 1996@ PRESS ANY KEY');
 V:=Readkey;
end;
 
Procedure Title;
Begin
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Textcolor(Red);
 Writeln('ÛÛÛÛÛÛÛ Û    Û ÛÛÛÛÛÛ');
 Writeln('   Û    Û    Û Û     ');
 Writeln('   Û    ÛÛÛÛÛÛ ÛÛÛÛÛÛ');
 Writeln('   Û    Û    Û Û     ');
 Writeln('   Û    Û    Û ÛÛÛÛÛÛ');
 Writeln;
 Writeln('ÛÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ Û   Û Û Û   Û ÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛ');
 Writeln('   Û    Û      Û    Û ÛÛ ÛÛ Û ÛÛ  Û Û   Û    Û    Û     Û Û   Û');
 Writeln('   Û    ÛÛÛÛÛÛ ÛÛÛÛÛÛ Û Û Û Û Û Û Û ÛÛÛÛÛ    Û    Û     Û ÛÛÛÛÛ');
 Writeln('   Û    Û      Û Û    Û   Û Û Û  ÛÛ Û   Û    Û    Û     Û Û Û  ');
 Writeln('   Û    ÛÛÛÛÛÛ Û  Û   Û   Û Û Û   Û Û   Û    Û    ÛÛÛÛÛÛÛ Û  Û ');
 sound(700);Delay(500);
 sound(900);Delay(500);
 sound(200);Delay(500);
 sound(550);Delay(500);
 sound(800);Delay(500);
 sound(100);Delay(500);
 sound(900);Delay(500);
 sound(400);Delay(500);
 sound(150);Delay(500);
 sound(800);Delay(500);
 Nosound;
End;
 
Procedure Ter;
Begin
 Clrscr;
 Gotoxy(1,30);Writeln('Mission 1');
 Gotoxy(2,30);Writeln('BRIEFING');
 Writeln('Soldier!');
 Writeln('1)FIND THE WAY TO THE OUPOST');
 Writeln('2)DOWNLOAD DATA FROM THREE COMPUTERS');
 Writeln('3)PLACE A BOMB TO DESTROY THE OUPOST');
 Writeln('4)SAVE THE QUEEN OF ENGLAND AND PRINCESS DIANA');
 Writeln('5)ESCAPE FROM THE SEWER');
 v:=readkey;
 Clrscr;
 Writeln('SORRY THIS ONLY A DEMO.....');
 Delay(500);
 V:=Readkey;
 
 Clrscr;
 Writeln(' ÛÛ    ÛÛÛÛÛÛ  ÛÛ    Û  Û ÛÛÛÛÛÛÛÛÛ');
 Delay(100);
 Writeln(' Û Û   Û    Û  Û Û   Û  Û     Û');
 Delay(100);
 Writeln(' Û  Û  Û    Û  Û  Û  Û        Û');
 Delay(100);
 Writeln(' Û Û   Û    Û  Û   Û Û        Û');
 Delay(100);
 Writeln(' ÛÛ    ÛÛÛÛÛÛ  Û    ÛÛ        Û');
 Delay(100);
 Writeln;
 Delay(100);
 Writeln('ÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛÛ');
 Delay(100);
 Writeln('Û      Û     Û Û    Û Û      Û         Û');
 Delay(100);
 Writeln('ÛÛÛÛÛÛ Û     Û ÛÛÛÛÛÛ Û ÛÛÛÛ ÛÛÛÛÛÛ    Û');
 Delay(100);
 Writeln('Û      Û     Û Û Û    Û    Û Û         Û');
 Delay(100);
 Writeln('Û      ÛÛÛÛÛÛÛ Û  Û   ÛÛÛÛÛÛ ÛÛÛÛÛÛ    Û');
 Delay(100);
 Writeln;
 Delay(100);
 Writeln('ÛÛÛÛÛÛÛ ÛÛÛÛÛÛ');
 Delay(100);
 Writeln('   Û    Û    Û');
 Delay(100);
 Writeln('   Û    Û    Û');
 Delay(100);
 Writeln('   Û    ÛÛÛÛÛÛ');
 Delay(100);
 Writeln('');
 Delay(100);
 Writeln('ÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛÛ Û ÛÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ');
 Delay(100);
 Writeln('Û    Û Û       Û      Û Û        Û   Û      Û    Û');
 Delay(100);
 Writeln('ÛÛÛÛÛÛ ÛÛÛÛÛÛÛ Û ÛÛÛÛ Û ÛÛÛÛÛÛ   Û   ÛÛÛÛÛÛ ÛÛÛÛÛÛ');
 Delay(100);
 Writeln('Û Û    Û       Û    Û Û      Û   Û   Û      Û Û   ');
 Delay(100);
 Writeln('Û  Û   ÛÛÛÛÛÛÛ ÛÛÛÛÛÛ Û ÛÛÛÛÛÛ   Û   ÛÛÛÛÛÛ Û  Û  ');
 Delay(600);
 
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Writeln('   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛ');
 Writeln('   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛ');
 Writeln('   ÛÛ           ÛÛ  ÛÛ        ÛÛ');
 Writeln('   ÛÛ           ÛÛ  ÛÛ        ÛÛ');
 Writeln('   ÛÛ           ÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛ');
 Writeln('   ÛÛ           ÛÛ  ÛÛÛÛÛÛÛÛÛÛÛÛ');
 Writeln('   ÛÛ           ÛÛ  ÛÛ  ÛÛ      ');
 Writeln('   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛ   ÛÛ       ÛÛÛ  ÛÛÛ  ÛÛÛ');
 Writeln('   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ  ÛÛ    ÛÛ      ÛÛÛ  ÛÛÛ  ÛÛÛ');
 Delay(500);
 
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 clrscr;
 Textcolor(red);
 Writeln('                ÛÛÛÛÛÛÛ     Û      ÛÛÛÛÛÛÛ');
 Writeln('                Û     Û     Û      Û     Û');
 Writeln('                ÛÛÛÛÛÛÛ     Û      ÛÛÛÛÛÛÛ');
 Writeln('                Û Û         Û      Û      ');
 Writeln('                Û  Û        Û      Û      ');
 Writeln('                Û   Û   ÛÛ  Û  ÛÛ  Û       ÛÛ');
 Writeln('');
 Writeln('                    Û ÛÛ ÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛ');
 Writeln('                  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
 Writeln('                  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
 Writeln('                  ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
 Writeln('                  ÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛÛÛ Û');
 Writeln('                   ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ Û');
 Writeln('                   Û ÛÛÛÛÛÛÛÛÛÛ Û');
 Writeln('                    ÛÛÛÛÛÛ Û Û');
 Writeln('                      Û');
 V:=readkey;
 
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 clrscr;
 Textcolor(yellow);
 Writeln('ÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛ  ÛÛ      ÛÛ  ÛÛÛÛÛÛÛÛÛ');
 Writeln('Û          Û      Û  Û Û    Û Û  Û        ');
 Writeln('Û          Û      Û  Û  Û  Û  Û  Û        ');
 Writeln('Û  ÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛ  Û   ÛÛ   Û  ÛÛÛÛÛÛÛÛÛ');
 Writeln('Û       Û  Û      Û  Û        Û  Û        ');
 Writeln('Û       Û  Û      Û  Û        Û  Û        ');
 Writeln('ÛÛÛÛÛÛÛÛÛ  Û      Û  Û        Û  ÛÛÛÛÛÛÛÛÛ');
 Writeln;
 Writeln('ÛÛÛÛÛÛÛÛ  Û           Û  ÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛ');
 Writeln('Û      Û   Û         Û   Û         Û      Û');
 Writeln('Û      Û    Û       Û    Û         Û      Û');
 Writeln('Û      Û     Û     Û     ÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛ');
 Writeln('Û      Û      Û   Û      Û         Û Û     ');
 Writeln('Û      Û       Û Û       Û         Û  Û    ');
 Writeln('ÛÛÛÛÛÛÛÛ        Û        ÛÛÛÛÛÛÛÛ  Û   Û   ');
 V:=readkey;
 ClrScr;
 Writeln('Wisit our WEBSIDE http:\www.prog.com');
 Writeln('Or write to us a E-Mail Shaker@sk');
 Delay(500);
end;
 
Begin
 Textbackground(black);
 ClrScr;
 Textcolor(White);
 Gotoxy(30,10);
 Writeln('Tomas Ferko Pressent');
 Gotoxy(30,11);
 Writeln('A Modified game by:');
 sound( 50);Delay(500);
 sound(100);Delay(500);
 sound(150);Delay(500);
 sound(200);Delay(500);
 sound(250);Delay(500);
 Nosound;
 Delay(2000);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 ClrScr;
 Textcolor(lightred);
 Gotoxy(10,5);
 Writeln('ÛÛÛÛÛÛ  ÛÛÛÛÛÛ ÛÛÛÛÛÛÛ Û    Û ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛ   ÛÛÛÛÛÛ');
 Gotoxy(10,6);
 Writeln('Û    Û  Û         Û    Û    Û Û       Û        Û  Û  Û    Û');
 Gotoxy(10,7);
 Writeln('ÛÛÛÛÛÛÛ ÛÛÛÛÛÛ    Û    ÛÛÛÛÛÛ ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ Û   Û ÛÛÛÛÛÛ');
 Gotoxy(10,8);
 Writeln('Û     Û Û         Û    Û    Û Û              Û Û  Û  Û    Û');
 Gotoxy(10,9);
 Writeln('ÛÛÛÛÛÛÛ ÛÛÛÛÛÛ    Û    Û    Û ÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛ ÛÛÛ   Û    Û');
 Gotoxy(10,10);
 Writeln('');
 Gotoxy(10,11);
 Writeln('ÛÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛÛÛÛ Û   Û   Û ÛÛÛÛÛÛ ÛÛÛÛÛÛÛ Û  Û ÛÛÛÛÛÛÛ');
 Gotoxy(10,12);
 Writeln('Û       Û    Û Û        Û    Û   Û   Û Û    Û Û     Û Û Û  Û      ');
 Gotoxy(10,13);
 Writeln('ÛÛÛÛÛÛÛ Û    Û ÛÛÛÛÛ    Û    Û   Û   Û Û    Û ÛÛÛÛÛÛÛ ÛÛ   ÛÛÛÛÛÛÛ');
 Gotoxy(10,14);
 Writeln('      Û Û    Û Û        Û    Û   Û   Û Û    Û Û Û     Û Û        Û');
 Gotoxy(10,15);
 Writeln('ÛÛÛÛÛÛÛ ÛÛÛÛÛÛ Û        Û    ÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛ Û  Û    Û  Û ÛÛÛÛÛÛÛ');
 
 sound(600);Delay(500);
 sound(700);Delay(500);
 sound(400);Delay(500);
 sound(250);Delay(500);
 sound(500);Delay(500);
 Nosound;
 
 ClrScr;
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 Delay(100);
 Textbackground(black);
 Title;
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Textcolor(green);
 Delay(100);
 Writeln('ÛÛÛÛÛÛÛÛÛÛ ÛÛ     ÛÛ ÛÛÛÛÛÛÛÛÛÛ ÛÛ     ÛÛ ÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛ');
 Writeln('ÛÛÛÛÛÛÛÛÛÛ ÛÛ     ÛÛ ÛÛÛÛÛÛÛÛÛÛ ÛÛ     ÛÛ ÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛ');
 Writeln('ÛÛ         ÛÛ     ÛÛ     ÛÛ     ÛÛ     ÛÛ ÛÛ     ÛÛ  ÛÛ        ');
 Writeln('ÛÛÛÛÛÛÛÛÛÛ ÛÛ     ÛÛ     ÛÛ     ÛÛ     ÛÛ ÛÛ     ÛÛ  ÛÛÛÛÛÛÛÛÛÛ');
 Writeln('ÛÛÛÛÛÛÛÛÛÛ ÛÛ     ÛÛ     ÛÛ     ÛÛ     ÛÛ ÛÛÛÛÛÛÛÛÛ  ÛÛÛÛÛÛÛÛÛÛ');
 Writeln('ÛÛ         ÛÛÛÛÛÛÛÛÛ     ÛÛ     ÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛ  ÛÛ        ');
 Writeln('ÛÛ         ÛÛÛÛÛÛÛÛÛ     ÛÛ     ÛÛÛÛÛÛÛÛÛ ÛÛ ÛÛ      ÛÛÛÛÛÛÛÛÛÛ');
 Writeln('ÛÛ         ÛÛÛÛÛÛÛÛÛ     ÛÛ     ÛÛÛÛÛÛÛÛÛ ÛÛ  ÛÛ     ÛÛÛÛÛÛÛÛÛÛ');
 Writeln('');
 Writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛ        ÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛ ÛÛ    ÛÛ');
 Writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛ        ÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛ ÛÛ   ÛÛ  ');
 Writeln('ÛÛ            ÛÛ        ÛÛ ÛÛ        ÛÛ ÛÛ          ÛÛ  ÛÛ   ');
 Writeln('ÛÛ            ÛÛ        ÛÛ ÛÛ        ÛÛ ÛÛ          ÛÛ ÛÛ    ');
 Writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛ        ÛÛ ÛÛ          ÛÛÛÛ     ');
 Writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛ        ÛÛ ÛÛ          ÛÛÛÛ     ');
 Writeln('           ÛÛ ÛÛ        ÛÛ ÛÛ        ÛÛ ÛÛ          ÛÛ ÛÛ    ');
 Writeln('           ÛÛ ÛÛ        ÛÛ ÛÛ        ÛÛ ÛÛ          ÛÛ  ÛÛ   ');
 Writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛ        ÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛ ÛÛ   ÛÛ  ');
 Writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛ        ÛÛ ÛÛÛÛÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛÛ ÛÛ    ÛÛ ');
 
 sound( 50);Delay(500);
 sound( 60);Delay(500);
 sound( 70);Delay(500);
 sound( 80);Delay(500);
 sound( 90);Delay(500);
 sound(100);Delay(500);
 sound(110);Delay(500);
 sound(120);Delay(500);
 sound(130);Delay(500);
 sound(140);Delay(500);
 sound(150);Delay(500);
 sound(160);Delay(500);
 sound(170);Delay(500);
 sound(180);Delay(500);
 sound(190);Delay(500);
 Nosound;
 
 clrscr;
 Textcolor(white);
 textbackground(black);
 Gotoxy(1, 5);Writeln('            ÛÛÛÛÛÛÛÛÛÛÛÛ    Los Angeles');
 Gotoxy(1, 6);Writeln('          ÛÛ   Û     Û Û       1996');
 Gotoxy(1, 7);Writeln('         Û     Û     Û Û  ');
 Gotoxy(1, 8);Writeln('         ÛÛÛÛÛÛÛÛÛÛÛÛÛ Û  ');
 Gotoxy(1, 9);Writeln('         Û           Û Û                            ÛÛÛÛÛÛÛÛÛÛÛ');
 Gotoxy(1,10);Writeln('         Û           Û Û                          ÛÛ       ÛÛÛÛ');
 Gotoxy(1,11);Writeln('         Û           Û Û                         Û         Û  Û');
 Gotoxy(1,12);Writeln('         Û           Û Û         ÛÛÛÛÛÛÛÛÛÛ      ÛÛÛÛÛÛÛÛÛÛÛ  Û');
 Gotoxy(1,13);Writeln('         Û           Û Û       ÛÛ       Û Û      Û         Û  Û');
 Gotoxy(1,14);Writeln('         Û           Û Û      Û         Û Û      Û         Û  Û');
 Gotoxy(1,15);Writeln('         Û           Û Û      ÛÛÛÛÛÛÛÛÛÛÛ Û      Û         Û  Û');
 Gotoxy(1,16);Writeln('         Û           Û Û      Û         Û Û      Û         Û  Û');
 Gotoxy(1,17);Writeln('         Û           Û Û      Û         Û Û      Û         Û  Û');
 Gotoxy(1,18);Writeln('         Û           Û Û      Û         Û Û      Û         Û  Û');
 Gotoxy(1,19);Writeln('         Û           Û Û      Û         Û Û      Û         Û  Û');
 Gotoxy(1,20);Writeln('         Û           Û Û      Û         Û Û      Û         Û  Û');
 Gotoxy(1,21);Writeln('         Û           Û Û      Û         Û Û      Û         Û  Û');
 Gotoxy(1,22);Writeln('         Û           Û Û      Û         Û Û      Û         Û  Û');
 Gotoxy(1,23);Writeln('         Û           Û Û      Û         ÛÛÛ      Û         Û  Û');
 Gotoxy(1,24);Writeln('ÛÛÛÛÛÛÛÛÛÛ           ÛÛÛÛÛÛÛÛÛÛ         ÛÛÛÛÛÛÛÛÛÛ         ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
 delay(1000);
 
 sound(50);Delay(500);
 sound(100);Delay(500);
 sound(150);Delay(500);
 sound(200);Delay(500);
 sound(250);Delay(500);
 Nosound;
 
 Clrscr;
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Gotoxy(1,3);
 Writeln('');
 Gotoxy(1, 4);Writeln('        LOS ANGELES,2015:THE WAR AGANIST HUMANITY HAS RAGED');
 Gotoxy(1, 5);Writeln('        FOR 20 YEARS.YOU ARE SURVIVOR OF THE NUCLEAR WAR,');
 Gotoxy(1, 6);Writeln('        LIVING IN THE YEARS OF DARKNESS THAT FOLLOWED.');
 Gotoxy(1, 9);Writeln('        YOU HAVE ONLY ONE CHOICE:HELP JOHN CONNOR');
 Gotoxy(1,10);Writeln('        PULL TOGEDDER THE LAST REMNANTS OF THE HUMAN RACE');
 Gotoxy(1,11);Writeln('        TO RESSIST THE ROBOT MENACE.CAN YOU ACT DECISIVELY');
 Gotoxy(1,12);Writeln('        BEFORE ITS TOO LATE?');
 Gotoxy(1,18);Writeln('           ÛÛÛÛÛÛÛÛÛ');
 Gotoxy(1,19);Writeln('          Û         Û                               ÛÛ             Û');
 Gotoxy(1,20);Writeln('         Û        ÛÛ       ÛÛÛÛÛÛÛ          ÛÛ     Û  Û           Û Û');
 Gotoxy(1,21);Writeln('        Û          Û      Û Û Û  Û      Û ÛÛ   Û Û    Û         ÛÛ   Û');
 Gotoxy(1,22);Writeln('       Û         Û  Û    Û       Û     Û        Û      ÛÛ Û    Û     Û');
 Gotoxy(1,23);Writeln('      Û        Û  Û     Û         Û    ÛÛÛÛÛÛÛÛ Û Û Û Û Û Û  ÛÛ       Û');
 Gotoxy(1,24);Writeln('ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
 
 sound(400);Delay(500);
 sound(300);Delay(500);
 sound(200);Delay(500);
 sound(100);Delay(500);
 sound(100);Delay(500);
 sound(200);Delay(500);
 sound(300);Delay(500);
 sound(400);Delay(500);
 sound(400);Delay(500);
 sound(300);Delay(500);
 sound(200);Delay(500);
 sound(100);Delay(500);
 sound(100);Delay(500);
 sound(200);Delay(500);
 sound(300);Delay(500);
 sound(400);Delay(500);
 Nosound;
 
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 ClrScr;
 Delay(100);
 Textbackground(white);
 ClrScr;
 Delay(100);
 Textbackground(black);
 
 repeat
  Menu;
  If v='b'then Begin
    Clrscr;
    Gotoxy(30, 5);Writeln('Select Difficulty:');
    Gotoxy(30, 6);Writeln('1) I M YOUNG TO DIE');
    Gotoxy(30, 7);Writeln('2) HEY NOT TOO ROUGHT');
    Gotoxy(30, 8);Writeln('3) HURT ME PLENTY');
    Gotoxy(30, 9);Writeln('4) ULTRA VIOLENCE');
    Gotoxy(30,10);Writeln('5) NIGHTMARE');
    V:=readkey;
    Ter;
   End;
 
 If (v='l') or (v='s') then begin
    ClrScr;
    Writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
    Writeln('º                               <EMPTY SLOT>                                 º');
    Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
    Writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
    Writeln('º                               <EMPTY SLOT>                                 º');
    Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
    Writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
    Writeln('º                               <EMPTY SLOT>                                 º');
    Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
    Writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
    Writeln('º                               <EMPTY SLOT>                                 º');
    Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
    Writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
    Writeln('º                               <EMPTY SLOT>                                 º');
    Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
    Writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
    Writeln('º                               <EMPTY SLOT>                                 º');
    Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
    Writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
    Writeln('º                               <EMPTY SLOT>                                 º');
    Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
    Writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
    Writeln('º                               <EMPTY SLOT>                                 º');
    Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
    V:=readkey;
   end;
 
 If v='o' then Begin
    Clrscr;
    Writeln('DO HARDWARE TESTS?(Y\N)');
    v:=readkey;
    If v='y' then Begin
       Writeln('Graphick Test(PLEASE WAIT)');
       Delay(500);
       Repeat
        ClrScr;
        Delay(100);
        Textbackground(white);
        Highvideo;
        ClrScr;
        Delay(100);
        Textbackground(black);
        ClrScr;
        Delay(100);
       until (keypressed);
 
       Writeln('Sound Test(PLEASE WAIT)');
       Delay(500);
       Repeat
        Sound(1000);
       until (keypressed);
       Nosound;
 
       Clrscr;
       Writeln('HDD Test(PLEASE WAIT)');
       Delay(1000);
       Writeln('No HDD DETECTED');
       v:=readkey;
      End;
     End;
 
 If v='n' then Begin
    ClrScr;
    Writeln('AS YOU WANT');
    V:=readkey;
   End;
 
 If v='h' then Begin
    Clrscr;
    Writeln('TOMAS...........................................................999999999999');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    Writeln('NOBODY...........................................................0');
    v:=readkey;
   end;
 
 If v='m' then Begin
    ClrScr;
    Writeln('M)odem game');
    Writeln('I)PX network');
    Writeln('S)erial link');
    v:=readkey;
 
    If v='m' then Begin
       Clrscr;
       Gotoxy(25, 5);Writeln('ÉÍÍÍÍÍÍÍÍÍMODEMÍÍÍÍÍÍÍÍÍ»');
       Gotoxy(25, 6);Writeln('º                       º');
       Gotoxy(25, 7);Writeln('º                       º');
       Gotoxy(25, 8);Writeln('º   CONNECTING MODEM    º');
       Gotoxy(25, 9);Writeln('º                       º');
       Gotoxy(25,10);Writeln('º                       º');
       Gotoxy(25,11);Writeln('º                       º');
       Gotoxy(25,12);Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
       Delay(1000);
       ClrScr;
       Gotoxy(25, 5);Writeln('ÉÍÍÍÍÍÍÍÍÍMODEMÍÍÍÍÍÍÍÍÍ»');
       Gotoxy(25, 6);Writeln('º                       º');
       Gotoxy(25, 7);Writeln('º                       º');
       Gotoxy(25, 8);Writeln('º       MODEM NOT       º');
       Gotoxy(25, 9);Writeln('º         FOUND         º');
       Gotoxy(25,10);Writeln('º                       º');
       Gotoxy(25,11);Writeln('º                       º');
       Gotoxy(25,12);Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
       v:=readkey;
      end;
 
    If v='i' then Begin
       ClrScr;
       Gotoxy(25, 5);Writeln('ÉÍÍÍÍÍÍÍÍÍÍIPXÍÍÍÍÍÍÍÍÍÍ»');
       Gotoxy(25, 6);Writeln('º                       º');
       Gotoxy(25, 7);Writeln('º                       º');
       Gotoxy(25, 8);Writeln('º  CONNECTING NETWORK   º');
       Gotoxy(25, 9);Writeln('º                       º');
       Gotoxy(25,10);Writeln('º                       º');
       Gotoxy(25,11);Writeln('º                       º');
       Gotoxy(25,12);Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
       delay(1000);
       Clrscr;
       Gotoxy(25, 5);Writeln('ÉÍÍÍÍÍÍÍÍÍÍIPXÍÍÍÍÍÍÍÍÍÍ»');
       Gotoxy(25, 6);Writeln('º                       º');
       Gotoxy(25, 7);Writeln('º                       º');
       Gotoxy(25, 8);Writeln('º      IPX NETWORK      º');
       Gotoxy(25, 9);Writeln('º          NOT          º');
       Gotoxy(25,10);Writeln('º         FOUND         º');
       Gotoxy(25,11);Writeln('º                       º');
       Gotoxy(25,12);Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
       v:=readkey;
      End;
 
 If v='s' then Begin
    Clrscr;
    Gotoxy(25, 5);Writeln('ÉÍÍÍÍÍÍÍÍÍÍLINKÍÍÍÍÍÍÍÍÍ»');
    Gotoxy(25, 6);Writeln('º                       º');
    Gotoxy(25, 7);Writeln('º                       º');
    Gotoxy(25, 8);Writeln('º   CONNECTING SERIAL   º');
    Gotoxy(25, 9);Writeln('º         LINK          º');
    Gotoxy(25,10);Writeln('º                       º');
    Gotoxy(25,11);Writeln('º                       º');
    Gotoxy(25,12);Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
    delay(1000);
    ClrScr;
    Gotoxy(25, 5);Writeln('ÉÍÍÍÍÍÍÍÍÍÍLINKÍÍÍÍÍÍÍÍÍ»');
    Gotoxy(25, 6);Writeln('º                       º');
    Gotoxy(25, 7);Writeln('º                       º');
    Gotoxy(25, 8);Writeln('º    NO SERIAL LINK     º');
    Gotoxy(25, 9);Writeln('º         FOUND         º');
    Gotoxy(25,10);Writeln('º                       º');
    Gotoxy(25,11);Writeln('º                       º');
    Gotoxy(25,12);Writeln('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
    v:=readkey;
   End;
  End;
 
  If v='t' then Title;
 until ((v=#27) or (v='q'));
end.