Ako by asi mal vyzera» Windows 97

Delphi & Pascal (èeská wiki)
Pøejít na: navigace, hledání
Kategorija: KMP (Programy mladòakoch

Zrobil: Ivan Dimov
Program: Win.pas
Subor exe: Win.exe

Ako by asi mal vyzera» Windows 97. A nezdá sa Vám ¾e naozaj tak vyzerá.
{ 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.