{ 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('║ ║'); Writeln('╚════════════════════════════════════════════════════════════════════════════╝'); Writeln('╔════════════════════════════════════════════════════════════════════════════╗'); Writeln('║ ║'); Writeln('╚════════════════════════════════════════════════════════════════════════════╝'); Writeln('╔════════════════════════════════════════════════════════════════════════════╗'); Writeln('║ ║'); Writeln('╚════════════════════════════════════════════════════════════════════════════╝'); Writeln('╔════════════════════════════════════════════════════════════════════════════╗'); Writeln('║ ║'); Writeln('╚════════════════════════════════════════════════════════════════════════════╝'); Writeln('╔════════════════════════════════════════════════════════════════════════════╗'); Writeln('║ ║'); Writeln('╚════════════════════════════════════════════════════════════════════════════╝'); Writeln('╔════════════════════════════════════════════════════════════════════════════╗'); Writeln('║ ║'); Writeln('╚════════════════════════════════════════════════════════════════════════════╝'); Writeln('╔════════════════════════════════════════════════════════════════════════════╗'); Writeln('║ ║'); Writeln('╚════════════════════════════════════════════════════════════════════════════╝'); Writeln('╔════════════════════════════════════════════════════════════════════════════╗'); Writeln('║ ║'); 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.