Kryptologie - Informatik

BEGIN BEGIN { Interaktion }
hinweis(ersetzen, ‚CHOOSE‘, cyanColor, TS);
warten_bis_klick_in(altab, altBuch, altPosi);
buchstaben_ersetzen(altBuch, altPosi, redColor);
hinweis(ersetzen, ‚CHANGE‘, redColor, TS);
warten_bis_klick_in(altab, neuBuch, neuPosi);
neuPosi.h := altPosi.h;
neuPosi.v := altPosi.v + 35;
buchstaben_ersetzen(altBuch, altPosi, cyanColor);
buchstaben_ersetzen(neuBuch, neuPosi, redColor);
zuordnung[altbuch] := neuBuch;
text_anzeigen;
END E END N D; { interAktion }
BEGIN BEGIN { interAktiv }
textAnalyse(TRUE);
grafikfenster_oeffnen;
showdrawing;
textSize(TS);
textFont(Monaco);
textface([bold]);
Bild_zeichnen;
halt := FALSE;
REPEAT REPEAT
REPEAT
interAktion
UNTIL UNTIL halt;
END E END N D; { interAktiv }
PROCEDURE PROCEDURE standard_speichern;
VAR VAR VVAR VAR A R datei: FILE FILE OF OF typ3;
satz: typ3;
i, k: integer;
BEGIN
BEGIN
bereinigt_laden;
textAnalyse(TRUE);
bereinigt_laden;
textAnalyse(FALSE);
bereinigt_laden;
textAnalyse(FALSE);
rewrite(datei, newFileName(‚ƒ:‘, ‚Standard‘));
FOR F FOR O R i := 1 TO TO TO 3 DO DO
DO
FOR F FOR O R k := 1 TO T TO O 26 DO DO
DO
write(datei, buchstaben[i, k]);
close(datei);
END E END N D; { standard_speichern }
PROCEDURE PROCEDURE Menue_bearbeiten (Info: longint);
VAR V VAR A R menuNumm, menuItem: integer;
PROCEDURE PROCEDURE handleApple (dasItem: integer);
VAR
VAR
accNAme: str255;
accNumber, itemNumber, dummy: integer;
appleMenu: menuHandle;
PROCEDURE PROCEDURE infos;
VAR
VAR
dummy: integer;
BEGIN
BEGIN
dummy := Alert(RES_ID_NR, NIL);
END E END N D; { infos }
47