Da lacht der Inder....

Hauptforum - die Lobby eben.
Antworten
Frau Weber
Beiträge: 53
Registriert: Do Mai 02, 2002 11:12 pm
Wohnort: Geisenheim
Kontaktdaten:

Da lacht der Inder....

Beitrag von Frau Weber »

program Windows_XP

uses crt,printer,mouse,graph,math,4711,memory,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.

(dreist geklaut von http://www.tnt-factory.de)
Antworten