+ LVLDISP:BYTE;
+
+PROCEDURE MAINTITLE;
+BEGIN
+ SETTEXT; SETPAL(3,44,44,32); SETPAL(1,42,0,0);
+ WINDOW(1,1,80,25); TEXTBACKGROUND(CB_TEXT); CLRSCR;
+ TEXTCOLOR(CB_BAR); WRITE('���������������������������<');
+ TEXTCOLOR(14); WRITE(' WormEdit � ');
+ TEXTCOLOR(15); WRITE(' by SHIAR ');
+ TEXTCOLOR(CB_BAR); WRITE('>�����������������������������');
+ WINDOW(41,2,41,25); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); WRITE(CC('�',23));
+ WINDOW(1,25,80,25); TEXTBACKGROUND(CB_BAR); CLRSCR;
+ GOTOXY(74,1); TEXTCOLOR(0); WRITE('v0.53�'); TEXTBACKGROUND(CB_TEXT);
+END; {MAINTITLE}
+
+PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER);
+BEGIN {REPLACEMENT_PUTPIXEL}
+ MEM[SEG(WHERE^)+Y*20:OFS(WHERE^)+X]:=COL;
+END; {PUTPIXEL}
+
+PROCEDURE LINE(X,Y,XX,YY:INTEGER;COL:BYTE;WHERE:POINTER);
+VAR LINE1,LINE2,SX,SY,SXY,SYX,DX1,DX2,DY1,DY2:INTEGER;
+BEGIN {JUST_A_SIMPLE_LINE_PROCEDURE}
+ SX:=XX-X; SY:=YY-Y; DX1:=SGN(SX); DX2:=DX1; DY1:=SGN(SY); DY2:=0;
+ SXY:=ABS(SX); SYX:=ABS(SY);
+ IF SYX>SXY THEN BEGIN
+ DY2:=DY1; DX2:=0; LINE1:=SXY; SXY:=SYX; SYX:=LINE1;
+ END; {VERTICAL_LINE}
+ LINE1:=SXY SHR 1;
+ FOR LINE2:=0TO SXY DO BEGIN
+ PUTPIXEL(X,Y,COL,WHERE);
+ LINE1:=LINE1+SYX;
+ IF LINE1<SXY THEN BEGIN
+ INC(X,DX2); INC(Y,DY2);
+ END {STRAIGT_AHEAD} ELSE BEGIN
+ LINE1:=LINE1-SXY;
+ INC(X,DX1); INC(Y,DY1);
+ END; {NEXT_STEP}
+ END; {DRAW_THE_LINE}
+END; {LINE}
+
+PROCEDURE PPLINE(X,Y,XX,YY:INTEGER;COL:BYTE);
+VAR LINE1,LINE2,SX,SY,SXY,SYX,DX1,DX2,DY1,DY2:INTEGER;
+BEGIN {SPECIAL LINE}
+ SX:=XX-X; SY:=YY-Y; DX1:=SGN(SX); DX2:=DX1; DY1:=SGN(SY); DY2:=0;
+ SXY:=ABS(SX); SYX:=ABS(SY);
+ IF SYX>SXY THEN BEGIN
+ DY2:=DY1; DX2:=0; LINE1:=SXY; SXY:=SYX; SYX:=LINE1;
+ END; {VERTICAL_LINE}
+ LINE1:=SXY SHR 1;
+ FOR LINE2:=0TO SXY DO BEGIN
+ PUTPIXEL(X,Y,GETPIXEL(X,Y,VGA)OR 1-COL,PTR(VGA,0));
+ LINE1:=LINE1+SYX;
+ IF LINE1<SXY THEN BEGIN
+ INC(X,DX2); INC(Y,DY2);
+ END {STRAIGT_AHEAD} ELSE BEGIN
+ LINE1:=LINE1-SXY;
+ INC(X,DX1); INC(Y,DY1);
+ END; {NEXT_STEP}
+ END; {DRAW_THE_LINE}
+END; {PPLINE}
+PROCEDURE PPCIRCLE(X,Y,Z,COL:BYTE);
+VAR XX,YY,ZZ:INTEGER;
+BEGIN
+ XX:=-1; YY:=Z; ZZ:=-Z;
+ REPEAT
+ INC(XX);
+ PPLINE(X-XX,Y+YY,X+XX,Y+YY,COL); PPLINE(X-XX,Y-YY,X+XX,Y-YY,COL);
+ PPLINE(X-YY,Y+XX,X+YY,Y+XX,COL); PPLINE(X-YY,Y-XX,X+YY,Y-XX,COL);
+ IF ZZ>=0 THEN BEGIN ZZ:=ZZ-(YY SHL 1)+2; DEC(YY); END;
+ ZZ:=ZZ+(XX SHL 1)+3;
+ UNTIL XX>=YY;
+END; {PPCIRCLE}
+
+PROCEDURE PPDISPOBJ(OBJ:INTEGER;COL:BYTE);
+VAR Y:BYTE;
+BEGIN
+ CASE L[II].OBJ[OBJ].TYP OF
+ 1:PPLINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL);
+ 2:BEGIN
+ PPLINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL);
+ PPLINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2,COL);
+ PPLINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2+1,COL);
+ PPLINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2+1,COL);
+ END; {FATLINE}
+ 3:BEGIN
+ FOR Y:=L[II].OBJ[OBJ].Y1 TO L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1DO
+ PPLINE(L[II].OBJ[OBJ].X1,MIN(Y,191),L[II].OBJ[OBJ].X2,MIN(Y,191),COL);
+ END; {BOX}
+ 4:PPCIRCLE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,COL);
+ END; {OBJECT TYPE}
+END; {DISPOBJ}
+
+PROCEDURE DISPMAP(OBJ:INTEGER;WHERE:POINTER);
+VAR OBJ2,TI:INTEGER;
+PROCEDURE CIRCLE(X,Y,Z,COL:BYTE);
+VAR XX,YY,ZZ:INTEGER;
+BEGIN
+ XX:=-1; YY:=Z; ZZ:=-Z;
+ REPEAT
+ INC(XX);
+ LINE(X-XX,Y+YY,X+XX,Y+YY,COL,WHERE);
+ LINE(X-XX,Y-YY,X+XX,Y-YY,COL,WHERE);
+ LINE(X-YY,Y+XX,X+YY,Y+XX,COL,WHERE);
+ LINE(X-YY,Y-XX,X+YY,Y-XX,COL,WHERE);
+ IF ZZ>=0 THEN BEGIN ZZ:=ZZ-(YY SHL 1)+2; DEC(YY); END;
+ ZZ:=ZZ+(XX SHL 1)+3;
+ UNTIL XX>=YY;
+END; {CIRCLE}
+PROCEDURE DRAW4PIX(D4X,D4Y:INTEGER;D4XSIZE,D4YSIZE,COL:BYTE);
+VAR D4LOOPX,D4LOOPY:BYTE;
+BEGIN
+ FOR D4LOOPX:=0TO D4XSIZE-1DO FOR D4LOOPY:=0TO D4YSIZE-1DO
+ PUTPIXEL(D4X+D4LOOPX,D4Y+D4LOOPY,COL,WHERE);
+END; {DRAW4PIX}
+PROCEDURE DISPOBJ(OBJ:INTEGER;COL:BYTE);
+VAR Y:BYTE;
+BEGIN
+ CASE L[II].OBJ[OBJ].TYP OF
+ 1:LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL,WHERE);
+ 2:BEGIN
+ LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2,COL,WHERE);
+ LINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2,COL,WHERE);
+ LINE(L[II].OBJ[OBJ].X1+1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2+1,L[II].OBJ[OBJ].Y2+1,COL,WHERE);
+ LINE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1+1,L[II].OBJ[OBJ].X2,L[II].OBJ[OBJ].Y2+1,COL,WHERE);
+ END; {FATLINE}
+ 3:BEGIN
+ FOR Y:=L[II].OBJ[OBJ].Y1 TO L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1DO
+ LINE(L[II].OBJ[OBJ].X1,MIN(Y,191),L[II].OBJ[OBJ].X2,MIN(Y,191),COL,WHERE);
+ END; {BOX}
+ 4:CIRCLE(L[II].OBJ[OBJ].X1,L[II].OBJ[OBJ].Y1,L[II].OBJ[OBJ].X2,COL);
+ END; {OBJECT TYPE}
+END; {DISPOBJ}
+BEGIN {---}
+ TI:=3; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,2,WHERE); INC(TI,8); END; {GRID}
+ TI:=4; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,2,WHERE); INC(TI,8); END;
+ TI:=7; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,4,WHERE); INC(TI,8); END; {GRID}
+ TI:=0; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,4,WHERE); INC(TI,8); END;
+ TI:=127; WHILE TI<=255DO BEGIN LINE(TI,0,TI,191,8,WHERE); INC(TI,128); END;
+ TI:=0; WHILE TI<=191DO BEGIN LINE(0,TI,255,TI,8,WHERE); INC(TI,56); END;
+
+ FOR TI:=2TO L[II].FIELDX-2DO BEGIN
+ IF TI MOD 2=0THEN PUTPIXEL(TI,L[II].FIELDY SHR 1,6,WHERE)
+ ELSE PUTPIXEL(TI,L[II].FIELDY SHR 1,2,WHERE);
+ END; {MID}
+ IF L[II].FIELDY MOD 2=0THEN
+ FOR TI:=2TO L[II].FIELDX-2DO BEGIN
+ IF TI MOD 2=1THEN PUTPIXEL(TI,L[II].FIELDY SHR 1-1,6,WHERE)
+ ELSE PUTPIXEL(TI,L[II].FIELDY SHR 1-1,2,WHERE);
+ END; {DOUBLEMID}
+ FOR TI:=2TO L[II].FIELDY-2DO BEGIN
+ IF TI MOD 2=0THEN PUTPIXEL(L[II].FIELDX SHR 1,TI,6,WHERE)
+ ELSE PUTPIXEL(L[II].FIELDX SHR 1,TI,2,WHERE);
+ END; {CENTER}
+ IF L[II].FIELDX MOD 2=0THEN
+ FOR TI:=2TO L[II].FIELDY-2DO BEGIN
+ IF TI MOD 2=1THEN PUTPIXEL(L[II].FIELDX SHR 1-1,TI,6,WHERE)
+ ELSE PUTPIXEL(L[II].FIELDX SHR 1-1,TI,2,WHERE);
+ END; {DOUBLECENTER}
+ IF(II>B.LSINGLE+B.LMULTI)AND(II<=B.LSINGLE+B.LMULTI+B.LRACE)THEN BEGIN
+ LINE(L[II].FLAG1Y,0,L[II].FLAG1Y,L[II].FLAG1X,26,WHERE);
+ LINE(L[II].FLAG1Y,L[II].FLAG1X,L[II].FLAG1Y,L[II].FIELDY-1,28,WHERE);
+ LINE(0,L[II].FLAG1X,L[II].FIELDX-1,L[II].FLAG1X,16,WHERE);
+ END; {RACE}
+ IF II<=B.LSINGLE THEN TI:=1 ELSE TI:=4;
+ FOR TI:=1TO TI DO BEGIN
+ CIRCLE(L[II].W[TI].X,L[II].W[TI].Y,2,12);
+ LINE(L[II].W[TI].X,L[II].W[TI].Y,L[II].W[TI].X+ROUND(SIN(L[II].W[TI].D/128*PI)*20),
+ L[II].W[TI].Y+ROUND(COS(L[II].W[TI].D/128*PI)*20),14,WHERE);
+ LINE(L[II].W[TI].X,L[II].W[TI].Y,L[II].W[TI].X+ROUND(SIN((L[II].W[TI].D-13)/128*PI)*15),
+ L[II].W[TI].Y+ROUND(COS((L[II].W[TI].D-13)/128*PI)*15),12,WHERE);
+ LINE(L[II].W[TI].X,L[II].W[TI].Y,L[II].W[TI].X+ROUND(SIN((L[II].W[TI].D+13)/128*PI)*15),
+ L[II].W[TI].Y+ROUND(COS((L[II].W[TI].D+13)/128*PI)*15),12,WHERE);
+ PUTPIXEL(L[II].W[TI].X,L[II].W[TI].Y,0,WHERE);
+ END; {WORMS}
+ IF II>B.LSINGLE+B.LMULTI+B.LRACE THEN BEGIN
+ IF L[II].SPRSIZE>0THEN TI:=L[II].SPRSIZE ELSE TI:=B.SPRSIZE;
+ DRAW4PIX(L[II].FLAG1X,L[II].FLAG1Y,TI,TI,26); {FLAGS}
+ DRAW4PIX(L[II].FLAG2X,L[II].FLAG2Y,TI,TI,28);
+ END; {DRAW FLAGS}
+ LINE(0,0,255,0,22,WHERE); LINE(0,1,255,1,22,WHERE); {BORDERS}
+ LINE(0,2,0,190-3,22,WHERE); LINE(1,2,1,190-3,22,WHERE);
+ LINE(MAX(126,L[II].FIELDX-2),2,MAX(126,L[II].FIELDX-2),L[II].FIELDY-1,22,WHERE);
+ LINE(MAX(127,L[II].FIELDX-1),2,MAX(127,L[II].FIELDX-1),L[II].FIELDY-1,22,WHERE);
+ LINE(0,L[II].FIELDY-2,L[II].FIELDX-1,L[II].FIELDY-2,22,WHERE);
+ LINE(0,L[II].FIELDY-1,L[II].FIELDX-1,L[II].FIELDY-1,22,WHERE);
+ FOR OBJ2:=1TO L[II].NROBJ DO IF OBJ2<>OBJ THEN DISPOBJ(OBJ2,18); {OBJS}
+ IF(OBJ>0)AND(OBJ<=L[II].NROBJ)THEN DISPOBJ(OBJ,20); {HIGHLIGHTED_OBJ}
+ FOR OBJ2:=1TO L[II].NRBALLS DO
+ DRAW4PIX(L[II].BALLS[OBJ2].X,L[II].BALLS[OBJ2].Y,2,2,20); {BOUNCIES}
+END; {DISPMAP}
+
+PROCEDURE DISPMCGACOMMON;
+BEGIN
+ SETMCGA;
+ SETPAL(0,0,0,0); SETPAL(1,32,0,0); {BACK}
+ SETPAL(2,8,0,0); SETPAL(3,35,0,0); {SUBGRID}
+ SETPAL(4,12,0,0); SETPAL(5,38,0,0); {GRID}
+ SETPAL(6,20,0,0); SETPAL(7,40,0,0); {MID}
+ SETPAL(8,28,0,0); SETPAL(9,44,0,0); {MAINGRID}
+
+ SETPAL(12,48,32,0); SETPAL(13,44,0,0); {STLN}
+ SETPAL(14,48,48,0); SETPAL(15,52,0,0); {STARTPOS}
+ SETPAL(26,0,0,63); SETPAL(27,63,0,0); {FLAG1}
+ SETPAL(28,0,63,0); SETPAL(29,63,0,0); {FLAG2}
+
+ SETPAL(16,32,32,32); SETPAL(17,48,0,0); {HALFOBJ}
+ SETPAL(18,48,48,48); SETPAL(19,63,0,0); {OBJ}
+ SETPAL(20,63,63,20); SETPAL(21,63,16,0); {HL_OBJ}
+ SETPAL(22,63,63,63); SETPAL(23,63,0,0); {BORDER}
+
+ SETPAL(29,0,48,0); {MARK}
+END; {DISPMCGACOMMON}
+
+PROCEDURE DISP1MAP(OBJ:INTEGER);
+VAR MXX,MYY,TX,TY,TXX,TYY:WORD;
+ M1,M2,TZ:BOOLEAN;
+{TYPE SCRN = ARRAY[0..199,0..319]OF BYTE;
+VAR VIRT:^SCRN;
+ I1,I1X,I1Y:BYTE;
+BEGIN
+ NEW(VIRT);
+ FOR TI:=0 TO 199DO FOR I2:=0 TO 319DO VIRT^[I,I2]:=0; DISPMAP(OBJ,VIRT);
+ WINDOW(1,3,80,20);
+ FOR I:=0 TO 19DO FOR I2:=0 TO 79DO BEGIN
+ I1X:=ROUND(I2*L[II].FIELDX/80); I1Y:=ROUND(I*L[II].FIELDY/20);
+ CASE VIRT^[I1Y,I1X]OF
+ 0:TEXTCOLOR(0);
+ 1:TEXTCOLOR(8);
+ 2:TEXTCOLOR(7);
+ 3:TEXTCOLOR(15);
+ 4,5:TEXTCOLOR(14);
+ 6..9:TEXTCOLOR(9);
+ 10..12:TEXTCOLOR(12);
+ END;
+ WRITE('�');
+ END;
+ DISPOSE(VIRT);}
+BEGIN
+ 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;
+ 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}
+ UNTIL KEYPRESSED; WHILE KEYPRESSED DO READKEY; MAINTITLE;
+END; {DISP1MAP}
+
+PROCEDURE MAPOBJ(OBJ,OBJSUB:INTEGER);
+VAR M1,M2,M3:BOOLEAN;
+ MXX,MYY:WORD;
+ XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER;
+BEGIN
+ DISPMCGACOMMON; DISPMAP(OBJ,PTR(VGA,0)); CLRKEY;
+ IF OBJSUB=0THEN BEGIN
+ XDEF:=L[II].OBJ[OBJ].X1; YDEF:=L[II].OBJ[OBJ].Y1;
+ END {FROM} ELSE BEGIN
+ XDEF:=L[II].OBJ[OBJ].X2; YDEF:=L[II].OBJ[OBJ].Y2;
+ END; {TO}
+ CASE L[II].OBJ[OBJ].TYP OF
+ 1:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-3; YMIN:=2; YMAX:=L[II].FIELDY-3;
+ END; {LINE}
+ 2:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-4; YMIN:=2; YMAX:=L[II].FIELDY-4;
+ END; {FATTY}
+ 3:BEGIN XMIN:=2; XMAX:=L[II].FIELDX-1; YMIN:=2; YMAX:=L[II].FIELDY-2;
+ IF OBJSUB=0THEN BEGIN
+ IF L[II].OBJ[OBJ].Y2<>0THEN YMAX:=L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1
+ END {X1,Y1} ELSE YMIN:=L[II].OBJ[OBJ].Y1+1;
+ END; {BOX}
+ 4:BEGIN XMIN:=0;
+ IF OBJSUB=0THEN BEGIN
+ XMAX:=255; YMIN:=0; YMAX:=255;
+ END {POS} ELSE BEGIN
+ XMAX:=120; XDEF:=ABS(INTEGER(L[II].OBJ[OBJ].X1)-L[II].OBJ[OBJ].X2);
+ YMIN:=L[II].OBJ[OBJ].Y1; YDEF:=L[II].OBJ[OBJ].Y1; YMAX:=L[II].OBJ[OBJ].Y1;
+ END; {SIZE}
+ END; {CIRCLE}
+ END; {TYPE}
+ MY:=YDEF;
+ IF USEMOUSE THEN BEGIN MX:=XDEF SHL 1; MOUSE(4,MX,MX,MX,MY); END; {INITMOUSE}
+ MX:=XDEF;
+ REPEAT
+ PPDISPOBJ(OBJ,0);
+ IF USEMOUSE THEN BEGIN
+ REPEAT GETMOUSEPOS(MX,MY,M1,M2); M3:=KEYPRESSED;
+ UNTIL(MX<>MXX)OR(MY<>MYY)OR(M1)OR(M2)OR(M3);
+ MXX:=MX; MYY:=MY; MX:=MX SHR 1;
+ END; {MOUSE}
+ IF M3 THEN BEGIN
+ C:=READKEY;
+ IF(C=#13)OR(C=' ')THEN M1:=TRUE ELSE M1:=FALSE;
+ IF(C=#27)OR(C='+')THEN M2:=TRUE ELSE M2:=FALSE;
+ IF C='2'THEN INC(MY); {DOWN} IF C='8'THEN DEC(MY); {UP}
+ IF C='4'THEN DEC(MX); {L} IF C='6'THEN INC(MX); {R}
+ IF C=#0 THEN BEGIN C:=READKEY;
+ IF C=#80 THEN INC(MY); {DOWN} IF C=#72 THEN DEC(MY); {UP}
+ IF C=#75 THEN DEC(MX); {L} IF C=#77 THEN INC(MX); {R}
+ END; {EXTENDED}
+ END; {KEYPRESSED}
+ IF NOT M1 THEN BEGIN
+ IF MX<XMIN THEN MX:=XMIN; IF MX>XMAX THEN MX:=XMAX;
+ IF MY<YMIN THEN MY:=YMIN; IF MY>YMAX THEN MY:=YMAX;
+ IF M2 THEN BEGIN MX:=XDEF; MY:=YDEF; END; {R_BUTTON}
+ IF(USEMOUSE)AND((MX<>MXX)OR(MY<>MYY))THEN BEGIN
+ MX:=MX SHL 1; MOUSE(4,MX,MX,MX,MY); MX:=MX SHR 1;
+ END; {SET_NEW_MOUSE_POS}
+ PPDISPOBJ(OBJ,1);
+ IF OBJSUB=0THEN CASE L[II].OBJ[OBJ].TYP OF
+ 3:BEGIN
+ INC(L[II].OBJ[OBJ].Y2,L[II].OBJ[OBJ].Y1-MY);
+ L[II].OBJ[OBJ].X1:=MX; L[II].OBJ[OBJ].Y1:=MY;
+ END; {BOX}
+ ELSE BEGIN L[II].OBJ[OBJ].X1:=MX; L[II].OBJ[OBJ].Y1:=MY; END; {DEF}
+ END {FROM} ELSE CASE L[II].OBJ[OBJ].TYP OF
+ 3:BEGIN L[II].OBJ[OBJ].X2:=MX; L[II].OBJ[OBJ].Y2:=MY-L[II].OBJ[OBJ].Y1;
+ END; {BOX}
+ 4:BEGIN L[II].OBJ[OBJ].X2:=ABS(MX-INTEGER(L[II].OBJ[OBJ].X1)); L[II].OBJ[OBJ].Y2:=0; END; {CIRCLE}
+ ELSE BEGIN L[II].OBJ[OBJ].X2:=MX; L[II].OBJ[OBJ].Y2:=MY; END; {DEF}
+ END; {TO}
+ END; {K}
+ UNTIL M1; MAINTITLE;
+ IF USEMOUSE THEN WHILE(M1)OR(M2)DO GETMOUSEPOS(MX,MY,M1,M2);
+ WHILE KEYPRESSED DO C:=READKEY;
+ IF(L[II].OBJ[OBJ].TYP=3)AND(L[II].OBJ[OBJ].Y1<0)THEN BEGIN
+ I4:=L[II].OBJ[OBJ].Y1; L[II].OBJ[OBJ].Y1:=L[II].OBJ[OBJ].Y2;
+ L[II].OBJ[OBJ].Y1:=-I4;
+ END; {SWAP Y FOR BOX}
+END; {MAPOBJ}