Kryptologie - Informatik

1.4 Ereignis-Schleife des Hauptprogramms { Vorgabe Oktober 1998 }
BEGIN BEGIN { Hauptprogramm }
Menue_installieren;
Anfangsbelegungen;
ende := false;
WHILE WHILE NOT N NOT O T ende DO DO BEGIN
BEGIN
Ereignis_behandeln;
END END; END
END END END. END
1.5 Zu schreibende Unterprogramme, etwa { Vorgabe Oktober 1998 }
PROCEDURE PROCEDURE original_laden;
BEGIN
BEGIN
menu_zeigen(2, 4, true);
menu_zeigen(3, 0, true);
menu_zeigen(4, 0, true);
menu_zeigen(5, 0, true);
END EEND END N D; { original_laden }
PROCEDURE PROCEDURE bereinigt_laden;
BEGIN
BEGIN
menu_zeigen(2, 4, true);
menu_zeigen(3, 0, true);
menu_zeigen(4, 0, true);
menu_zeigen(5, 0, true);
END E END N D; { bereinigt_laden }
PROCEDURE PROCEDURE sichern_als;
BEGIN
BEGIN
END END E END N D; { sichern_als }
PROCEDURE PROCEDURE caesar (codieren: boolean);
BEGIN
BEGIN
END E END N D; { caesar }
PROCEDURE PROCEDURE zuordnung (codieren: boolean);
BEGIN
BEGIN
END E END N D; { zuordnung }
PROCEDURE PROCEDURE vigenere (codieren: boolean);
BEGIN
BEGIN
END E END N D; { vigenere }
PROCEDURE PROCEDURE textAnalyse;
BEGIN
BEGIN
END END EEND END N D; { textAnalyse }
PROCEDURE PROCEDURE interAktiv;
BEGIN BEGIN
BEGIN
END E END N D; { interAktiv }
10