+ DISPMCGACOMMON; DISPMAP(OBJ,PTR(VGA,0)); CLRKEY;
+ REPEAT
+ IF USEMOUSE THEN BEGIN
+ GETMOUSEPOS(MX,MY,M1,M2); MX:=MX SHR 1; {MY:=MY SHR 1;}
+ PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
+ DELAY(10);
+ PUTPIXEL(MX,MY,GETPIXEL(MX,MY,VGA)XOR 1,PTR(VGA,0));
+ IF M1 THEN PPLINE(MXX,MYY,MX,MY,0);
+ IF M2 THEN PPLINE(MXX,MYY,MX,MY,1);
+ MXX:=MX; MYY:=MY;
+ END; {MOUSE}
+ IF KEYPRESSED THEN BEGIN C:=#0;
+ 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;
+END; {DISP1MAP}
+
+PROCEDURE DISPMANYMAP(MAG:BYTE);
+TYPE SCRN = ARRAY[0..199,0..319]OF BYTE;
+VAR VIRT:^SCRN;
+PROCEDURE DISP1MANYMAP(OFFSETX,OFFSETY,MAG:BYTE);
+VAR I1,I1X,I1Y,I1XX,I1YY:BYTE;
+BEGIN
+ FOR I:=0 TO 199DO FOR I2:=0 TO 255DO VIRT^[I,I2]:=0; DISPMAP(0,VIRT);
+ FOR I:=0 TO 255 DIV MAG DO FOR I2:=0 TO 199 DIV MAG DO BEGIN
+ {I1X:=ROUND(I2*L[II].FIELDX/80); I1Y:=ROUND(I*L[II].FIELDY/20);}
+ I1:=0;
+ FOR I1XX:=I*MAG TO(I+1)*MAG-1 DO FOR I1YY:=I2*MAG TO(I2+1)*MAG-1DO
+ IF VIRT^[I1YY,I1XX]>I1 THEN I1:=VIRT^[I1YY,I1XX];
+ PUTPIXEL(OFFSETX+I,OFFSETY+I2,I1,PTR(VGA,0));
+ END;
+END; {DISP1MANYMAP}
+VAR MXX,MYY:WORD; M1,M2:BOOLEAN;
+BEGIN
+ DISPMCGACOMMON; NEW(VIRT);
+ MX:=255 DIV MAG+1; MY:=192 DIV MAG+1;
+ FOR II:=1TO MIN(B.LTOTAL,SQR(MAG))DO
+ DISP1MANYMAP(((II-1)MOD MAG)*MX,(II-1)DIV MAG*MY,MAG);
+ DISPOSE(VIRT); CLRKEY;