RETROZONE

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;