Windows 98 Source Code - javarea.de Forum powered by javarea.de

Archivlink: javarea.de Forum > Talk Talk > Windows 98 Source Code

Vollständigen Link anzeigen: javarea.de Forum > Talk Talk > Windows 98 Source Code

Pages: [1]

geschrieben von Patricia am 02.11.2002 - 13:43

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;

von: http://www.airport1.de/

geschrieben von keys am 06.11.2002 - 16:31

das erklärt so einiges...

geschrieben von Gast am 06.11.2002 - 17:58

*lol* dann is ja alles klar.... und dafür bezahln leute geld ;)