Die Wahrheit kommt ans Licht

Alles was nicht in die anderen Foren reinpasst...

Moderatoren: asi, retroK

Antworten
Benutzeravatar
Choddy
Beerfreak
Beiträge: 1958
Registriert: Mi Jun 13, 2001 12:01 am

Die Wahrheit kommt ans Licht

Beitrag von Choddy »

Hab im Internet nach langer Suche auf diversen Betriebsinternen Microdoof-Servern endlich den ominösen Windoof 98 Source-Code gefunden *lol*
IMPORT System, RandomNumbers, Keyboard, Mouse, Floppy, Harddisk, CD-Rom, Screen, Others;


PROCEDURE Windows98*(laufzeit:INTEGER);

VAR nothing:BOOLEAN; c:CHAR;

BEGIN

IF Floppy.InDrive() THEN
System.BootFromFloppy;
ELSE
System.BootWindows98;
END;

nothing = TRUE;

WHILE nothing DO
IF RandomNumbers(10) = 7 THEN
System.Close;
ELSE RandomNumbers(100) 80 THEN
Screen.DisplayBlueScreen;
System.HangUp;
END;
END;

System.StartGUI(user1);

IF Mouse.WasMoved() THEN
System.EvalPi(50000);
Screen.MoveMouse;
END;

IF Keyboard.WasPressed() THEN
IF Keyboard.WasReallyPressed() THEN
c := Keyboard.WhichKeyWasPressed();
IF System.Program.WantsKey() THEN
System.Program.GetsKey(c);
Screen.DisplayKey(c);
END;
END;
END;

IF Floppy.InDrive() THEN
Screen.DisplayBlueScreen;
System.Close;
System.BootFromFloppy;
END;

IF CD-Rom.CdInDrive() THEN
CD-Rom.Autostart;
System.AutoHangUp;
Screen.DisplayBlueScreen;
END;

IF System.SoftwareInstallation() THEN
IF System.CheckForMicrosoftSoftware = FALSE THEN
System.Crash(Adress 020F7:0003d);
END;
END;

System.Kill(DOS);
System.Format(c: );
Screen.DisplayWarning(Explorer.exe cannot be loaded);
System.HangUp;

END Windows98;
Bild
Benutzeravatar
Katana
Beiträge: 5337
Registriert: So Jan 02, 2000 1:01 am

Beitrag von Katana »

Ich glaube nicht, daß Win98 in Object Pascal geschrieben wurde (nach der Sprache sieht das zumindest ungefähr aus, auch wenn 'n paar Fehler drin sind).

Gibt's allerdings schon in anderen Versionen, aber ganz nett ;)
Antworten