Willkommen zu Pfeifer's Bastelstunde

Heute: Wir basteln uns ein Windows XP

Windows XP ist ein neues Betriebssystem von Microsoft - Leider ist es nicht ganz billig. Doch woher nehmen wenn nicht stehlen ?
Ganz einfach: man baut es sich eben selbst.
Dazu braucht man nur das unten aufgeführte Pascal Programm abtippen und starten. Erfahrene Programmierer können das Programm auch in Basic übersetzen und dann mit einem (möglichst schlechten) Interpreter ausführen. Das selbst gebaute Windows XP ist zwar nicht 100% zum Original kompatibel dafür aber wesentlich stabiler.

program Windows_XP

uses crt,printer,mouse,graph,math,4711,remember,crash,do_nothing,joystick,crt,crt,graph;
Var make_prog_look_big:Array[0..1000,0..1600] of Char;
 swp:file;
 i:Integer;

begin
if detect_cache=True Then disable_cache;
if fast_cpu=True Then 
begin
 set_wait_states(lots);
 set_mouse(speed,very_slow);
 set_mouse(action,jumpy);
 set_mouse(reaction,sometimes);
end;
show_start_screen;
if system_ok=True Then Crash_to_DOS_prompt else
begin
Assign(swp,'C:\win386.swp');
rewrite(swp);
blockwrite(swp,make_prog_look_big,1600000);
{ close(swp) }
end;
setIEHomeURL('www.tnt-factory.de');
show_desktop;
repeat
delay(15);
get_user_input;
delay(20);
if random(100)>10 Then act_on_user_input;
delay(25);
if random(100)<20 Then crash(complete_system);
delay(random(100));
until big_red_switch_time=True;
end.

-tp

© 2008 TNT-Factory

http://www.tnt-factory.de/windows_95.htm Seite weiterempfehlen