Kryptologie - Informatik

PROCEDURE PROCEDURE Ereignis_behandeln;
VAR V VAR A R gefunden: boolean;
BEGIN
BEGIN
IF I IF F MultiFinder THEN THEN
THEN
BEGIN
BEGIN
gefunden := waitNextEvent(everyEvent, ereignis, 0, NIL);
END
END
ELSE
ELSE
BEGIN
BEGIN
systemTask;
gefunden := getNextEvent(everyEvent, ereignis);
END E END N D; { ELSE ELSE }
IF IF IIF IF F gefunden THEN
THEN
CASE CASE ereignis.what OF
OF
mouseDown:
behandle_Maus(ereignis);
keyDown, autoKey:
behandle_Tasten(ereignis);
updateEvt:
BEGIN BEGIN
BEGIN
Begin BeginUpdate(windowptr(ereignis.message));
Begin
End E End n dUpdate(windowptr(ereignis.message));
END END E END N D; { udateEvt }
diskEvt:
BEGIN BEGIN
BEGIN
END E END N D; { diskEvt }
activateEvt:
BEGIN BEGIN
BEGIN
drawGrowIcon(windowPtr(ereignis.message));
END E END N D; { activateEvt }
END E END N D; { CASE }
END EEND END N D; { Ereignis_behandeln }
PROCEDURE
PROCEDURE PROCEDURE Ereignis_Schleife;
BEGIN
BEGIN
end e end n de := false;
MultiFinder := (NGetTrapAddress($60, toolTrap) nGetTrapAddress($9F, toolTrap));
WHILE WHILE NOT NOT end e end n de DO DO
DO
BEGIN
BEGIN
Ereignis_behandeln;
END E END N D; { WHILE }
END E END N D; { Ereignis_Schleife }
BEGIN BEGIN { Hauptprogramm }
Menue_installieren;
Anfangsbelegungen;
IF I IF F STANDARD_ERFASSEN THEN
THEN
standard_speichern;
Ereignis_Schleife;
END END.
END
50