Kryptologie - Informatik

PROCEDURE PROCEDURE interAktiv;
CONST CONSTRD CONST = 25;
TS = 18;
VAR V VAR A R ueber, alt, neu, altab, neuab, text, ersetzen, feld, stop :rect;
r1, r2, r3: rect;
y0, y1, y2, y3, links, breit: integer;
zuordnung: ARRAY ARRAY[‚A‘..’Z’] ARRAY
OF O OF F char;
halt: boolean;
PROCEDURE PROCEDURE hinweis (wo: rect; was: str255; farbe, groesse: integer);
BEGIN
BEGIN
IF IF IIF IF F (farbe = whiteColor) THEN
THEN
eraseRect(wo)
ELSE
ELSE
BEGIN
BEGIN
foreColor(farbe);
textsize(groesse);
textFace([bold]);
textFormatieren(was, wo, TeCenter)
END
END
END E END N D; { hinweis }
PROCEDURE PROCEDURE Bild_zeichnen;
VAR V VAR A R c: char;
PROCEDURE PROCEDURE zeichne_Rechteck (VAR VAR VAR VVAR A R name: rect;
li, ob, re, un, Hfarbe, r, Tfarbe: integer; titel: STRING);
BEGIN
BEGIN
forecolor(Hfarbe);
setrect(name, li, ob, re, un);
paintRoundrect(name, r, r);
forecolor(blackcolor);
frameRoundrect(name, r, r);
Moveto(li + 5, ob + 20);
forecolor(Tfarbe);
writedraw(titel);
pensize(1, 1);
END E END N D; { zeichne_Rechteck }
PROCEDURE PROCEDURE beschrifte_mit (x, y: integer; titel: str255);
BEGIN
BEGIN
forecolor(blackColor);
moveto(x, y);
writeDraw(titel);
END E END N D; { beschrifte_mit }
42