Future shock - game in pascal
Delphi & Pascal (èeská wiki)
Category: KMP (Club of young programmers)
Author: Tomá¹ Ferko
Program: Fshock.pas
File exe: Fshock.exe
Author: Tomá¹ FerkoProgram: 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.