Kryptologie - Informatik

PROCEDURE
PROCEDURE PROCEDURE warten_bis_klick_in (ziel: rect; VAR V VAR A R ccc: char; VAR VAR V VAR A R ppp: point);
VAR V VAR A R punkt: point;
sBox: rect;
stat, wahl: boolean;
lang, xAlt, xNeu, yAlt, yNeu: integer;
BEGIN
BEGIN
IF IF NOT NNOT NOT O T halt THEN
THEN
BEGIN
BEGIN
stat := FALSE;
wahl := FALSE;
lang := TS DIV D DIV I V 2 - 2;
xAlt := 0;
yAlt := 0;
setPt(punkt, 0, 0);
REPEAT
REPEAT
getmouse(punkt);
halt := ptInRect(punkt, stop);
stat := ptInRect(punkt, feld);
IF IIF IF F stat AND A AND N D keypressed THEN
THEN
BEGIN
BEGIN
stat := FALSE;
foreColor(blackColor);
xNeu := punkt.h DIV DDIV DIV I V TS * TS + lang DIV D DIV I V 2 + 3;
yNeu := (punkt.v + lang) DIV D DIV I V TS * TS - 3 * lang DIV D DIV I V 2 + 1;
IF I IF F (xAlt 0) AND A AND N D (yAlt = yNeu) THEN THEN line(xNeu - xAlt - 6, 0)
ELSE ELSE ELSE
BEGIN
BEGIN
xAlt := 0;
yAlt := 0;
END END END; END END
moveto(xNeu, yNeu);
line(0, 2 * lang);
xAlt := xNeu;
yAlt := yNeu;
END END; END
wahl := ptInRect(punkt, ziel);
UNTIL UNTIL button AND A AND N D (halt OR O OR R stat OR OR OOR OR R wahl);
REPEAT REPEAT
REPEAT
UNTIL UNTIL NOT N NOT O T button;
IF I IF F stat THEN
THEN
BEGIN
BEGIN
sBox := feld;
IF IF I IF F punkt.h < xm THEN THEN sBox.right := xm
ELSE ELSE sBox.left := xm;
insetRect(sBox, 1, 1);
IF I IF F punkt.v < y1 THEN THEN statistik(sBox, 1)
ELSE ELSE IF I IF F punkt.v > y2 THEN THEN statistik(sBox, 3)
ELSE ELSE statistik(sBox, 2);
warten_bis_klick_in(ziel, ccc, ppp);
END E END N D;{ IF stat }
IF I IF F wahl THEN THEN
THEN
BEGIN BEGIN
BEGIN
ccc := chr((punkt.h - links) DIV DIV DDIV DIV I V breit + 65);
WITH WITH ziel DO
DO
setPt(ppp, links + breit * (ord(ccc)-65), 8 + (bottom + top) DIV DIV DIV 2)
END E END N D; { IF wahl }
END END E END N D; { IF NOT halt }
END E END N D; { warten_bis_klick_in }
45