WINDOWS 98 SOURCE CODE (by BlueTwo)

Ist Windows98 ein Betriebssystem? Nein !!! [ Schönen Gruß an J.E. ;-) ]
Hier ist der komplette Source-Code von Windows98 - jetzt wird wohl einiges klar ;)

HOME

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;