Umístnení souboru www.TrSek.com/cover/ivo/win.pas

{ WIN.PAS                                                           }
{                                                                   }
{ Author: Ivan Dimov                                                }
{ Date  : 15.02.1997                           http://www.trsek.com }

program WINDOWS97;
uses crt,dos;

var
c,x,y,i,a,b,d,t:integer;
e:real;
v:char;
p:pointer;
reboot:procedure;

BEGIN
clrscr;
textcolor(15);
textbackground(0);
clrscr;
for i:=1 to 13 do begin
     gotoxy(1,i);
     writeln('                                                                   ');
     writeln('                      Mi....... Corp.                              ');
     writeln('                                                                   ');
     writeln('    ÛÛ     Û     ÛÛ ÛÛ ÛÛ  ÛÛ ÛÛÛÛ   ÛÛÛÛ  ÛÛ     Û     ÛÛ   ÛÛÛÛÛ ');
     writeln('     ÛÛ   ÛÛÛ   ÛÛ  ÛÛ ÛÛÛ ÛÛ ÛÛ  Û ÛÛ  ÛÛ  ÛÛ   ÛÛÛ   ÛÛ   Û     Û');
     writeln('      ÛÛ ÛÛ ÛÛ ÛÛ   ÛÛ ÛÛ ÛÛÛ ÛÛ  Û ÛÛ  ÛÛ   ÛÛ ÛÛ ÛÛ ÛÛ    Û      ');
     writeln('       ÛÛÛ   ÛÛÛ    ÛÛ ÛÛ  ÛÛ ÛÛÛÛ   ÛÛÛÛ     ÛÛÛ   ÛÛÛ      ÛÛÛÛÛ ');
     writeln('    97 97 97 97 97 97 97 97 97 97 97 97 97 97 97 97 97 97         Û');
     writeln('                                                            Û     Û');
     writeln('                                                             ÛÛÛÛÛ ');
     textcolor(i);
     delay(200);
    end;

for i:=1 to 57 do begin
     gotoxy(i,25);
     write(' Programing:IVAN DIMOV');
     delay(80);
    end;

delay(1000);
gotoxy(30,22);
writeln('Loading....');
delay(1000);
gotoxy(30,23);
write('Press t to continue');
v:=readkey;

if (UpCase(v)='T') then begin;
    clrscr;
    textcolor(14);
    gotoxy(1,1);
    writeln('                                                                               ');
    writeln('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('º                                                                             º');
    writeln('ÌÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍ¹');
    writeln('º START º                                                             º  TIME º');
    writeln('ÈÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍ¼');
  end;

if (UpCase(v)='S') then begin
    gotoxy(20,10);
    textcolor(14);
    write('WELCOME IN WINDOWS 97.');
    delay(3000);
    gotoxy(30,22);
    write('Loading....');
    delay(3000);
    gotoxy(30,22);
    write('                      ');
    delay(3000);
    gotoxy(20,10);
    write('                      ');
    clrscr;
  end;

gotoxy(30,15);writeln('A / Format harddisk.');
gotoxy(30,16);writeln('B / Delete harddisk.');
gotoxy(30,17);writeln('C / Restart computer.');
gotoxy(30,18);writeln('D / End and autodestrukcion.');

v:=readkey;
if (UpCase(v)='A') then begin
    clrscr;
    gotoxy(10,4);
    writeln('Total Format OK.');
    gotoxy(10,5);
    writeln('Pro menej inteligentne nobo driv narodene opakuji:');
    gotoxy(10,6);
    writeln('FORMATOVANIE DOKONCENO.');
   end;

if (UpCase(v)='B') then begin
    clrscr;
    gotoxy(10,4);
    writeln('Harddisk delete. Harddisk vymazany.');
    gotoxy(10,5);
    writeln('Na harddisku sa nenachadza nic okrem mojich suborov,');
    gotoxy(10,6);
    writeln('ktore zabranuju akimkolvek manipulaciam s harddiskom.');
  end;

if (UpCase(v)='C') then begin
    clrscr;
    gotoxy(10,4);
    writeln('Ked si si myslel ze ti restartnem pocitac,si na velkom omyle!');
    gotoxy(10,5);
    writeln('Ani nahodou,ked chces restartnut pocitac,skus take tlacidlo na');
    gotoxy(10,6);
    writeln('srinke pocitaca a mas po pocitaci.');
    gotoxy(10,7);
    writeln('PS.:Odkupujem kovovy a plasticky srot.Zastav sa u mna!');
    v:=readkey;
    p:=Ptr($FFFF,$0);
    @Reboot:=p;
    Reboot;
   end;

if (UpCase(v)='D') then begin
    clrscr;
    gotoxy(30,4);
    writeln('PROGRAM UKONCEN!!!');
    gotoxy(30,5);
    writeln('NASLEDUJE DESTRUKCIA!!!');
    delay(7000);
    clrscr;
    gotoxy(20,3);
    writeln('                                                                  ');
    writeln('            ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
    writeln('            ÛÛ Û Û Û Û                                    Û Û Û Û ÛÛ');
    writeln('            ÛÛÛ Û Û Û    ÛÛÛÛÛÛÛÛÛÛ  ÛÛ   Û  ÛÛÛÛÛÛÛÛÛÛ    Û Û Û ÛÛÛ');
    writeln('  ÍèÍÍÍÍ    ÛÛ Û Û Û Û       ÛÛ      Û Û  Û      ÛÛ       Û Û Û Û ÛÛ');
    writeln('        ÍÍÍÍÛÛÛ Û Û Û        ÛÛ      Û  Û Û      ÛÛ        Û Û Û ÛÛÛ');
    writeln('            ÛÛ Û Û Û Û       ÛÛ      Û   ÛÛ      ÛÛ       Û Û Û Û ÛÛ');
    writeln('            ÛÛÛ Û Û Û        ÛÛ      Û    Û      ÛÛ        Û Û Û ÛÛÛ');
    writeln('            ÛÛ Û Û Û Û                                    Û Û Û Û ÛÛ');
    writeln('            ÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛÛ');
   end;

  delay(6000);

  clrscr;
  for i:=1 to 13 do begin
      gotoxy(1,i);
      writeln('                                                                     ');
      writeln('          ±±±±±±±±          ±±±       ±±±       ±±±             ±±±  ');
      writeln('          ±±±     ±±        ±±±       ±±±       ±±±±±         ±±±±±  ');
      writeln('          ±±±     ±±        ±±±       ±±±       ±±±  ±±     ±±  ±±±  ');
      writeln('          ±±±     ±±        ±±±       ±±±       ±±±    ±± ±±    ±±±  ');
      writeln('          ±±±±±±±±          ±±±       ±±±       ±±±     ±±±     ±±±  ');
      writeln('          ±±±     ±±        ±±±       ±±±       ±±±      ±      ±±±  ');
      writeln('          ±±±     ±±        ±±±       ±±±       ±±±             ±±±  ');
      writeln('          ±±±     ±±        ±±±±±±±±±±±±±       ±±±             ±±±  ');
      writeln('          ±±±±±±±±            ±±±±±±±±±         ±±±             ±±±  ');
      textcolor(i);
      delay(200);
    end;

gotoxy(32,4);
writeln('THIS IS END OF DEMO.');
gotoxy(32,5);
writeln('THANK FOR START WINDOWS 97');
v:=readkey;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com