Ako by asi mal vyzera» Windows 97
Delphi & Pascal (èeská wiki)
Kategorija: KMP (Programy mladòakoch
Zrobil: Ivan Dimov
Program: Win.pas
Subor exe: Win.exe
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.