Kryptologie - Informatik

PROCEDURE PROCEDURE text_ausgeben;
VAR V VAR A R i, nr: integer;
BEGIN
BEGIN
showText;
nr := 0;
FOR F FOR O R i := 1 TO T TO O textLaenge DO
DO
BEGIN
BEGIN
nr := nr + 1;
IF I IF F (ord(textVorlage[i]) = 13) OR O OR R (nr = buAnzahl) OR O OR R ((nr > buAnzahl - 20)
AND A AND N D (textVorlage[i] IN I IN N [‚ ‚, ‚-‘])) THEN
THEN
BEGIN BEGIN
BEGIN
writeln;
nr := 0;
END END; END
write(textVorlage[i]);
END END; END
writeln;
END END E END N D; { text_ausgeben }
PROCEDURE PROCEDURE original_laden;
VAR V VAR A R datei: text;
zeichen: char;
BEGIN
BEGIN
menu_zeigen(2, 4, true);
menu_zeigen(3, 0, true);
menu_zeigen(4, 0, true);
menu_zeigen(5, 0, true);
menu_zeigen(5, 1, false);
IF IF NOT NOT NNOT NOT O T menu_markiert(2, 1) THEN
THEN
item_aendern(2, 1);
IF I IF F menu_markiert(2, 2) THEN
THEN
item_aendern(2, 2);
dateiname := oldfilename(‚ ‚);
writeln(dateiName);
reset(datei, dateiname);
textLaenge := 0;
WHILE WHILE NOT N NOT O T eof(datei) AND AND (textLaenge < N) DO
DO
BEGIN
BEGIN
WHILE WHILE NOT N NOT O T eoln(datei) AND A AND N D (textLaenge < N - 1) DO
DO
BEGIN
BEGIN
read(datei, zeichen);
textLaenge := textLaenge + 1;
textVorlage[textLaenge] := zeichen;
END END; END END
readln(datei);
textlaenge := textlaenge + 1;
textVorlage[textLaenge] := chr(13);
IF I IF F textLaenge MOD M MOD O D 100 = 0 THEN
THEN
writeln(textLaenge);
END END; END
close(datei);
text_ausgeben;
IF IF NOT NOT N NOT O T STANDARD_ERFASSEN THEN
THEN
standard_laden;
END E END N D; { original_laden }
31