Kryptologie - Informatik

FUNCTION FUNCTION menu_markiert (spalte, zeile: integer): boolean;
VAR V VAR A R c: char;
aktuellesMenu: menuHandle;
BEGIN
BEGIN
aktuellesMenu := getMenu(spalte + RES_ID_NR - 1);
getItemMark(aktuellesMenu, zeile, c);
menu_markiert := (ord(c) = 18);
END EEND END N D; { menu_markiert }
PROCEDURE PROCEDURE menu_zeigen (spalte, zeile: integer; zeigen: boolean);
VAR V VAR A R einMenu: menuHandle; { zeile=0 bedeutet das ganze Menu }
BEGIN
BEGIN
einMenu := getMHandle(RES_ID_NR + spalte - 1);
IF I IF F zeigen THEN THEN enableItem (einMenu, zeile)
ELSE ELSE
disableItem(einMenu, zeile);
END E END N D; { menu_zeigen }
PROCEDURE PROCEDURE standard_laden;
VAR V VAR A R datei : FILE FILE OF O OF F typ3;
satz : typ3;
i, k : integer;
BEGIN
BEGIN
dName : string;
dName := dateiName;
WHILE WHILE dName[length(dName)] ‚:‘ DO
DO
delete(dName, length(dName), 1);
dName := concat(dName, ‚Standard‘);
writeln;
writeln(‚••••• ‚, dName, ‚ wird geladen •••••‘);
reset(datei, dName);
FOR FOR FFOR FOR O R i := 1 TO TO 3 DO
DO
FOR F FOR O R k := 1 TO T TO O 26 DO D DO O
close(datei);
END EEND END N D; { standard_laden }
read(datei, standard[i, k]);
PROCEDURE PROCEDURE Anfangsbelegungen;
VAR V VAR A R i, k, typ: integer;
BEGIN
BEGIN
textFont(Monaco); textSize(9);
gesamt := 0; textLaenge := 0;
TextFenster_oeffnen; showText;
WITH WITH Konsole DO DO
DO
buAnzahl := (right - left) DIV 7;
FOR F FOR O R typ := 1 TO TO TO 3 DO DO
DO
FOR F FOR O R i := 1 TO T TO O 26 DO
DO
BEGIN BEGIN buchstaben[typ, i].anzahl := i;
buchstaben[typ, i].tripel := ‚ ‚;
standard[typ, i].anzahl := i;
standard[typ, i].tripel := ‚ ‚;
FOR F FOR O R k := 1 TO TO TTO TO O typ DO DO
DO
BEGIN BEGIN buchstaben[typ, i].tripel[k] := chr(64 + i);
standard[typ, i].tripel[k] := chr(64 + i);
END END; END
END END END; END END
ende := false;
writeln(‚Herzlich willkommen,‘); writeln;
writeln(‚Um einen Text codieren oder decodieren zu können,‘);
writeln(‚muß er erst geladen werden.‘); writeln;
writeln(‚Eine Textanalyse gelingt nur, wenn er bereinigt geladen wurde‘);
writeln;
END E END N D; { Anfangsbelegungen }
30