+ C:=#0;
+ IF KEYPRESSED THEN BEGIN
+ WHILE KEYPRESSED DO C:=READKEY;
+ IF C='1'THEN BEGIN
+ I4:=L[II].SPRSIZE; IF I4=0THEN I4:=B.SPRSIZE; DEC(I4);
+ FOR TX:=2TO L[II].FIELDX-4 DO FOR TY:=2TO L[II].FIELDY-4 DO BEGIN
+ TZ:=TRUE;
+ FOR TXX:=TX TO TX+I4 DO FOR TYY:=TY TO TY+I4 DO
+ IF GETPIXEL(TXX,TYY,VGA)>17THEN TZ:=FALSE;
+ IF TZ THEN PUTPIXEL(TX,TY,29,PTR(VGA,0));
+ END; {TEST_FIELD}
+ END; {DRAW_TEST_PEA_AREA}
+ END; {KEYPRESSED}
+ UNTIL(C=#27)OR(C=' ')OR(C=#13)OR(C='+')OR(C='0'); MAINTITLE;