Kryptologie - Informatik

1.6 PROCEDURE
PROCEDURE
PROCEDURE Menue_bearbeiten (Info: longint); { Vorgabe Oktober 1998 }
VAR V VAR A R menuNumm, menuItem: integer;
BEGIN BEGIN BEGIN { Menue_bearbeiten }
IF I IF F info 0 THEN
THEN
BEGIN BEGIN BEGIN PenNormal;
IF I IF F menu_markiert(4, 4) THEN THEN item_aendern(4, 4);
MenuNumm := Hiword(info) - RES_ID_NR + 1;
menuItem := LoWord(info);
CASE CASE MenuNumm OF
OF
1: { Sehr speziell : Behandelt das —----> }; { APPLE-Menü }
2: CASE CASE CASE menuItem OF OF OOF OF F { Menü : Ablage }
1: BEGIN
BEGIN
original_laden;
END END; END
dateiname := concat(dateiname, ‚.O‘);
2: BEGIN
BEGIN
bereinigt_laden;
END END; END
dateiname := concat(dateiname, ‚.B‘);
4: sichern;
6: ende := true;
END END EEND END N D; { CASE menuItem 2 }
3: CASE CASE menuItem OF O OF F { Menü : Codierung }
1: BEGIN
BEGIN
caesar(true);
END END END; END
dateiname := concat(dateiname, ‚C‘);
2: BEGIN
BEGIN
zuordnung(true);
END END; END END
dateiname := concat(dateiname, ‚Z‘);
3: BEGIN
BEGIN
vigenere(true);
END END; END
END E END N D; { CASE menuItem 3 }
dateiname := concat(dateiname, ‚V‘);
4: CASE CASE menuItem OF O OF F { Menü : Dekodierung }
1: BEGIN
BEGIN
caesar(false);
END END; END
dateiname := concat(dateiname, ‚c‘);
2: BEGIN
BEGIN
zuordnung(false);
END END; END
dateiname := concat(dateiname, ‚z‘);
3: BEGIN
BEGIN
vigenere(false);
END END; END
END E END N D;{ CASE menuItem 4 }
dateiname := concat(dateiname, ‚v‘);
5: CASE CASE CASE menuItem OF O OF F { Menü : Werkzeuge }
1: BEGIN
BEGIN
textAnalyse(TRUE); dateiname := concat(dateiname, ‚t‘);
END END; END END
3: BEGIN
BEGIN
interAktiv;
END
END
END E END N D;{ CASE menuItem 4 }
dateiname := concat(dateiname, ‚i‘);
END EEND END N D; { CASE MenuNumm }
hiliteMenu(0);
END E END N D; { IF info 0 }
END END E END N D; { Menue_bearbeiten }
11