Kryptologie - Informatik

PROCEDURE PROCEDURE buchstaben_ersetzen (buch: char; posi: point; farbe: integer);
VAR V VAR A R loesch: rect;
BEGIN
BEGIN
IF IF NOT NOT N NOT O T halt THEN THEN
THEN
BEGIN
BEGIN
setRect(loesch, posi.h - 1, posi.v - TS + 3, posi.h + TS - 3, posi.v + 3);
foreColor(blueColor);
paintRect(loesch);
foreColor(farbe);
moveto(posi.h, posi.v);
writeDraw(buch);
foreColor(blackColor);
END END; END
END E END N D; { buchstaben_ersetzen }
PROCEDURE PROCEDURE text_anzeigen;
VAR
VAR
i, z, s, nz, ns: integer;
bMenge: SET SET OF OF OF char;
c: char;
BEGIN
BEGIN
bMenge := [‚A‘..’Z’, ‚a‘..’z’];
foreColor(yellowColor);
paintRect(feld);
foreColor(blackColor);
frameRect(feld);
textface([]);
ns := (feld.right - feld.left - TS) DIV DIV TS;
nz := (feld.bottom - feld.top) DIV DIV DIV TS;
FOR FOR FFOR FOR O R z := 1 TO TO TTO TO O nz DO DO
DO
FOR F FOR O R s := 1 TO TO T TO O ns DO DO
DO
BEGIN
BEGIN
moveto(feld.left + s * TS, feld.top + z * TS);
i := (z - 1) * ns + s;
textface([]);
foreColor(cyanColor);
IF IF IIF IF F i > textLaenge THEN
THEN
writeDraw(‚-‘)
ELSE ELSE IF IF NOT N NOT O T (textVorlage[i] IN IIN IN N bMenge) THEN
THEN
writeDraw(textVorlage[i])
ELSE
ELSE
BEGIN
BEGIN
c := zuordnung[gross(textVorlage[i])];
IF IF IIF IF F c = ‚•‘ THEN
THEN
writeDraw(textVorlage[i])
ELSE
ELSE
BEGIN
BEGIN
foreColor(redColor);
textface([bold]);
writeDraw(zuordnung[gross(textVorlage[i])])
END END; END
END END; END
END END END; END END
END END EEND END N D; { text_anzeigen }
46