wormedit 0.51

diff --git a/wormedit.pas b/wormedit.pas
index d56ea6b94e003bc40d64848336e0c7c14cf15c95..35e496a23c7cfa824724c240a5158bd7c83a9819 100644 (file)
--- a/wormedit.pas
+++ b/wormedit.pas
@@ -1,5 +1,5 @@
-{WORMEDIT 0.5 OR SOMETHING... BY SHIAR
- ---------------------------------w00t}
+{WORMEDIT 0.51 OR SOMETHING... BY SHIAR
+ ----------------------------------w00t}

 
 {PASCAL.... BECAUSE I'VE GOT A LOT OF EXPERIENCE USING IT, AND I JUST NEEDED A
  QUICK SUCKY EDITOR. IF YOU'RE WILLING TO WRITE SOMETHING BETTER, JUST MAIL ME}
 
 {PASCAL.... BECAUSE I'VE GOT A LOT OF EXPERIENCE USING IT, AND I JUST NEEDED A
  QUICK SUCKY EDITOR. IF YOU'RE WILLING TO WRITE SOMETHING BETTER, JUST MAIL ME}


@@ -50,10 +50,12 @@ CONST GAMETYPE:ARRAY[1..9]OF STRING[12] =
 
       HEAD86S:STRING[53] =
        ('**TI86**'+#$1A+#$A+#0+ {HEADER}
 
       HEAD86S:STRING[53] =
        ('**TI86**'+#$1A+#$A+#0+ {HEADER}

-        'Wormy�95 Levelfile made using WormEdit 0.5'); {COMMENT}
+        'Wormy.97 Levelfile made using WormEdit0.51'); {COMMENT}

 
       HEADEDIT = ('WormEdit�95'+#0+'LVL');
       HEADVERSION = 95;
 
       HEADEDIT = ('WormEdit�95'+#0+'LVL');
       HEADVERSION = 95;

+      HEADOUTVERSION = 97;
+      PC = $F080; {F400}

 
       B:RECORD
        HEAD:ARRAY[1..15]OF CHAR;
 
       B:RECORD
        HEAD:ARRAY[1..15]OF CHAR;


@@ -90,6 +92,7 @@ CONST GAMETYPE:ARRAY[1..9]OF STRING[12] =
 
       LVLPOS:BYTE = 1;
       OBJPOS:BYTE = 1;
 
       LVLPOS:BYTE = 1;
       OBJPOS:BYTE = 1;

+      BBPOS :BYTE = 1;

 
        C_BAR   = 15;
        CB_BAR  =  1;
 
        C_BAR   = 15;
        CB_BAR  =  1;


@@ -127,7 +130,7 @@ BEGIN
   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;
   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(75,1); TEXTCOLOR(0); WRITE('v0.5�'); TEXTBACKGROUND(CB_TEXT);
+  GOTOXY(74,1); TEXTCOLOR(0); WRITE('v0.51�'); TEXTBACKGROUND(CB_TEXT);

 END; {MAINTITLE}
 
 PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER);
 END; {MAINTITLE}
 
 PROCEDURE PUTPIXEL(X,Y:INTEGER;COL:BYTE;WHERE:POINTER);


@@ -402,7 +405,7 @@ BEGIN
 END; {DISP1MAP}
 
 PROCEDURE MAPOBJ(OBJ,OBJSUB:INTEGER);
 END; {DISP1MAP}
 
 PROCEDURE MAPOBJ(OBJ,OBJSUB:INTEGER);

-VAR M1,M2:BOOLEAN;
+VAR M1,M2,M3:BOOLEAN;

     MXX,MYY:WORD;
     XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER;
 BEGIN
     MXX,MYY:WORD;
     XMIN,XDEF,XMAX,YMIN,YDEF,YMAX:INTEGER;
 BEGIN


@@ -418,8 +421,9 @@ BEGIN
     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;
     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 YMAX:=L[II].OBJ[OBJ].Y1+L[II].OBJ[OBJ].Y2-1
-      ELSE YMIN:=L[II].OBJ[OBJ].Y1+1;
+      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
     END; {BOX}
     4:BEGIN XMIN:=0;
       IF OBJSUB=0THEN BEGIN


@@ -436,23 +440,21 @@ BEGIN
   REPEAT
     PPDISPOBJ(OBJ,0);
     IF USEMOUSE THEN BEGIN
   REPEAT
     PPDISPOBJ(OBJ,0);
     IF USEMOUSE THEN BEGIN

-      REPEAT GETMOUSEPOS(MX,MY,M1,M2);
-      UNTIL(MX<>MXX)OR(MY<>MYY)OR(M1)OR(M2)OR(KEYPRESSED);
+      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;
       MXX:=MX; MYY:=MY; MX:=MX SHR 1;

-      IF KEYPRESSED THEN BEGIN C:=READKEY;
-       IF(C=#13)OR(C=' ')THEN M1:=TRUE; IF(C=#27)OR(C='+')THEN M2:=TRUE;
-      END; {KEYS}
-    END {MOUSE} ELSE BEGIN
-      REPEAT UNTIL KEYPRESSED; C:=READKEY;
+    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=#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=#0THEN 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}
+      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; {EXTENDED}

-    END; {KEYB}
+    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 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;


@@ -502,8 +504,9 @@ BEGIN
     2:WRITE('YOU UNDERSTAND EVERYTHING');
     3:WRITE('THIS AIN''T A BUG, IT A FEATURE!');
     4:WRITE('ALL YOUR WORMS ARE BELONG TO US!');
     2:WRITE('YOU UNDERSTAND EVERYTHING');
     3:WRITE('THIS AIN''T A BUG, IT A FEATURE!');
     4:WRITE('ALL YOUR WORMS ARE BELONG TO US!');

-    5:WRITE('PRESS UP AND DOWN TO VIEW ALL LEVELS');
-    6:WRITE('PRESS UP AND DOWN TO VIEW ALL OBJECTS');
+    5:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL LEVELS');
+    6:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL OBJECTS');
+    8:WRITE('PRESS LEFT AND RIGHT TO VIEW ALL BOUNCIES');

   END; {TEXT TO DISPLAY}
 END; {HELPBAR}
 
   END; {TEXT TO DISPLAY}
 END; {HELPBAR}
 


@@ -519,6 +522,7 @@ BEGIN
       IF II>=B.LFROM[1]THEN TEXTCOLOR(C_VALUE);
       WRITELN(': '+L[II].ID); TEXTCOLOR(C_TEXT);
     END; {DISP LEVELS}
       IF II>=B.LFROM[1]THEN TEXTCOLOR(C_VALUE);
       WRITELN(': '+L[II].ID); TEXTCOLOR(C_TEXT);
     END; {DISP LEVELS}

+  WINDOW(2,3,3,20);

 END; {DISPLEVELS}
 
 PROCEDURE DISPOBJECTS;
 END; {DISPLEVELS}
 
 PROCEDURE DISPOBJECTS;


@@ -537,8 +541,21 @@ BEGIN
       END; {TYPE}
     END {ENABLED} ELSE WRITELN(': DISABLED'); TEXTCOLOR(C_TEXT);
   END; {DISP OBJS}
       END; {TYPE}
     END {ENABLED} ELSE WRITELN(': DISABLED'); TEXTCOLOR(C_TEXT);
   END; {DISP OBJS}

+  WINDOW(2,3,3,20);

 END; {DISPOBJECTS}
 
 END; {DISPOBJECTS}
 

+PROCEDURE DISPBOUNCIES;
+BEGIN
+  WINDOW(42,3,80,13); TEXTCOLOR(C_TEXT); TEXTBACKGROUND(CB_TEXT); CLRSCR;
+  IF L[II].NRBALLS<1THEN WRITELN('NONE')
+  ELSE FOR I4:=BBPOS TO MIN(L[II].NRBALLS,BBPOS+9)DO BEGIN
+    WRITE(I4); TEXTCOLOR(C_VALUE);
+    WRITE(': (',L[II].BALLS[I4].X,',',L[II].BALLS[I4].Y,'),',L[II].BALLS[I4].D);
+    TEXTCOLOR(C_TEXT);
+  END; {DISP OBJS}
+  WINDOW(2,3,3,20);
+END; {DISPLEVELS}
+

 FUNCTION EDITMENU(EDITMENUMAX,HELPPAGE:BYTE):SHORTINT;
 VAR EDITOK,MENUPOS:SHORTINT;
 BEGIN
 FUNCTION EDITMENU(EDITMENUMAX,HELPPAGE:BYTE):SHORTINT;
 VAR EDITOK,MENUPOS:SHORTINT;
 BEGIN


@@ -568,32 +585,30 @@ BEGIN
       END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
         IF(C=#77)AND(OBJPOS<L[II].NROBJ-9)THEN BEGIN INC(OBJPOS); DISPOBJECTS; END {R} ELSE
         IF(C=#75)AND(OBJPOS>1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {L} ELSE
       END {LEVELS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
         IF(C=#77)AND(OBJPOS<L[II].NROBJ-9)THEN BEGIN INC(OBJPOS); DISPOBJECTS; END {R} ELSE
         IF(C=#75)AND(OBJPOS>1)THEN BEGIN DEC(OBJPOS); DISPOBJECTS; END {L} ELSE

-      END; {OBJS DISPED}
+      END {OBJS DISPED} ELSE IF HELPPAGE=6THEN BEGIN
+        IF(C=#77)AND(BBPOS<L[II].NRBALLS-9)THEN BEGIN INC(BBPOS); DISPBOUNCIES; END {R} ELSE
+        IF(C=#75)AND(BBPOS>1)THEN BEGIN DEC(BBPOS); DISPBOUNCIES; END {L} ELSE
+      END; {BOUNCIES DISPED}

       IF C=#59THEN HELPBAR(HELPPAGE);
     END; {EXTENDED}
   UNTIL EDITOK<>0; EDITMENU:=EDITOK; TEXTCOLOR(C_TEXT);
 END; {EDITMENU}
 
 FUNCTION COMPSIZE:WORD;
       IF C=#59THEN HELPBAR(HELPPAGE);
     END; {EXTENDED}
   UNTIL EDITOK<>0; EDITMENU:=EDITOK; TEXTCOLOR(C_TEXT);
 END; {EDITMENU}
 
 FUNCTION COMPSIZE:WORD;

-PROCEDURE COMPLEVEL;
-BEGIN
-  INC(I,L[II].SIZE);
-  FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(I,5);
-END; {SIZE OF LEVEL II}

 BEGIN
   I:=B.SPRSIZE+1;
 BEGIN
   I:=B.SPRSIZE+1;

-  IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO COMPLEVEL; {SP}
-  IF B.LMULTI>0THEN FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO COMPLEVEL; {MP}
+  IF B.LFROM[1]>0THEN FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE); {SP}
+  IF B.LMULTI>0THEN FOR II:=B.LSINGLE+1TO B.LSINGLE+B.LMULTI DO INC(I,L[II].SIZE); {MP}

   IF B.LFROM[8]>0THEN
   IF B.LFROM[8]>0THEN

-   FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]DO COMPLEVEL; {RACE}
+   FOR II:=B.LSINGLE+B.LMULTI+B.LFROM[8]TO B.LSINGLE+B.LMULTI+B.LTO[8]DO INC(I,L[II].SIZE); {RACE}

   IF B.LFROM[9]>0THEN
   IF B.LFROM[9]>0THEN

-   FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[9]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[9]DO COMPLEVEL; {CTF}
+   FOR II:=B.LSINGLE+B.LMULTI+B.LRACE+B.LFROM[9]TO B.LSINGLE+B.LMULTI+B.LRACE+B.LTO[9]DO INC(I,L[II].SIZE); {CTF}

 
 {MAKE SP_END CODE}
   CASE B.ENDTYPE OF
 
 {MAKE SP_END CODE}
   CASE B.ENDTYPE OF

-    1:B.ENDDATA:=#$21+CHR(LO($F40A+I))+CHR(HI($F40A+I))+#$CD+#$37+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
+    1:B.ENDDATA:=#$21+CHR(LO(PC+10+I))+CHR(HI(PC+10+I))+#$CD+#$37+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;

       {LD HL,MSG\CALL _PUTS\JP _GETKEY\.DB MSG}
       {LD HL,MSG\CALL _PUTS\JP _GETKEY\.DB MSG}

-    2:B.ENDDATA:=#$21+#0+#$1C+#$22+#$7C+#$C3+#$21+CHR(LO($F410+I))+CHR(HI($F410+I))
+    2:B.ENDDATA:=#$21+#0+#$1C+#$22+#$7C+#$C3+#$21+CHR(LO(PC+16+I))+CHR(HI(PC+16+I))

       +#$CD+#$A5+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
       {LD HL,X\LD (_PENCOL),HL\LD HL,MSG\CALL _VPUTS\JP _GETKEY\.DB MSG}
     ELSE B.ENDDATA:=#$C9; {RET}
       +#$CD+#$A5+#$4A+#$C3+#$AA+#$55+B.ENDSTR+#0;
       {LD HL,X\LD (_PENCOL),HL\LD HL,MSG\CALL _VPUTS\JP _GETKEY\.DB MSG}
     ELSE B.ENDDATA:=#$C9; {RET}


@@ -877,7 +892,10 @@ BEGIN
        S:=''; FOR I4:=0TO 4DO S:=S+NR(I4)+': '+OBJTYPE[I4]+CC(' ',37-ORD(OBJTYPE[I4,0]));
        L[II].OBJ[I].TYP:=INPUTINT('ENTER OBJECT TYPE',S,0,0,4);
        L[II].OBJ[I].X1:=0; L[II].OBJ[I].Y1:=0; L[II].OBJ[I].X2:=0;
        S:=''; FOR I4:=0TO 4DO S:=S+NR(I4)+': '+OBJTYPE[I4]+CC(' ',37-ORD(OBJTYPE[I4,0]));
        L[II].OBJ[I].TYP:=INPUTINT('ENTER OBJECT TYPE',S,0,0,4);
        L[II].OBJ[I].X1:=0; L[II].OBJ[I].Y1:=0; L[II].OBJ[I].X2:=0;

-       L[II].OBJ[I].Y2:=0; MAPOBJ(I,0); MAPOBJ(I,1);
+       L[II].OBJ[I].Y2:=0; MAPOBJ(I,0);
+       IF L[II].OBJ[I].TYP=3THEN BEGIN
+         L[II].OBJ[I].X2:=L[II].OBJ[I].X1; L[II].OBJ[I].Y2:=1;
+       END; {BOX} MAPOBJ(I,1);

       END; {CREATE}
       5:BEGIN
        I4:=INPUTINT('ENTER OBJECT TO HIGHLIGHT','0 FOR NONE',0,0,L[II].NROBJ);
       END; {CREATE}
       5:BEGIN
        I4:=INPUTINT('ENTER OBJECT TO HIGHLIGHT','0 FOR NONE',0,0,L[II].NROBJ);


@@ -950,7 +968,7 @@ END; {EDITSPR}
 PROCEDURE EDITBOUNCIES;
 BEGIN
   REPEAT
 PROCEDURE EDITBOUNCIES;
 BEGIN
   REPEAT

-    TITLEBAR(0,'EDIT BALLS IN LEVEL #'+NR(II));
+    TITLEBAR(8,'EDIT BALLS IN LEVEL #'+NR(II));

     TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE BALL');
     TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE BALL');
     FOR III:=1TO L[II].NRBALLS DO BEGIN
     TEXTCOLOR(C_MENU); WRITE('1'); TEXTCOLOR(C_TEXT); WRITELN(': CREATE BALL');
     TEXTCOLOR(C_MENU); WRITE('2'); TEXTCOLOR(C_TEXT); WRITELN(': DELETE BALL');
     FOR III:=1TO L[II].NRBALLS DO BEGIN


@@ -1064,6 +1082,7 @@ PROCEDURE EDITLEVEL;
 BEGIN
   REPEAT
     L[II].SIZE:=12+L[II].NRBALLS*3+L[II].SPRSIZE+L[II].NROBJ*5;
 BEGIN
   REPEAT
     L[II].SIZE:=12+L[II].NRBALLS*3+L[II].SPRSIZE+L[II].NROBJ*5;

+    FOR I4:=1TO L[II].NROBJ DO IF L[II].OBJ[I4].TYP<=0THEN DEC(L[II].SIZE,5);

     IF II<=B.LSINGLE THEN L[II].NAME:=ZERO(II,2);
     IF II>B.LSINGLE THEN INC(L[II].SIZE,10+LENGTH(L[II].NAME));
     IF II>B.LSINGLE+B.LMULTI THEN INC(L[II].SIZE,2);
     IF II<=B.LSINGLE THEN L[II].NAME:=ZERO(II,2);
     IF II>B.LSINGLE THEN INC(L[II].SIZE,10+LENGTH(L[II].NAME));
     IF II>B.LSINGLE+B.LMULTI THEN INC(L[II].SIZE,2);


@@ -1115,7 +1134,7 @@ BEGIN
        L[II].FIELDY:=INPUTINT('ENTER FIELD HEIGHT','57=ONE SCREEN; MORE WILL SCROLL THE     SCREEN',5,L[II].FIELDY,255);
        IF L[II].FIELDY<57THEN BEGIN
          INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=2;
        L[II].FIELDY:=INPUTINT('ENTER FIELD HEIGHT','57=ONE SCREEN; MORE WILL SCROLL THE     SCREEN',5,L[II].FIELDY,255);
        IF L[II].FIELDY<57THEN BEGIN
          INC(L[II].NROBJ); L[II].OBJ[L[II].NROBJ].X1:=2;

-         L[II].OBJ[L[II].NROBJ].Y2:=255-L[II].FIELDY;
+         L[II].OBJ[L[II].NROBJ].Y2:=257-L[II].FIELDY;

          L[II].OBJ[L[II].NROBJ].X2:=L[II].FIELDX-1; L[II].OBJ[L[II].NROBJ].TYP:=3;
          L[II].OBJ[L[II].NROBJ].Y1:=L[II].FIELDY;
        END; {PUT BAR}
          L[II].OBJ[L[II].NROBJ].X2:=L[II].FIELDX-1; L[II].OBJ[L[II].NROBJ].TYP:=3;
          L[II].OBJ[L[II].NROBJ].Y1:=L[II].FIELDY;
        END; {PUT BAR}


@@ -1422,7 +1441,7 @@ BEGIN
   DEC(ISTACK,2); BLOCKWRITE(FF,ISTACK,2); {PROG LENGTH (x)}
 
   C:='w'; BLOCKWRITE(FF,C,1); {WORM ID}
   DEC(ISTACK,2); BLOCKWRITE(FF,ISTACK,2); {PROG LENGTH (x)}
 
   C:='w'; BLOCKWRITE(FF,C,1); {WORM ID}

-  I:=HEADVERSION; BLOCKWRITE(FF,I,1); {VERSION}
+  I:=HEADOUTVERSION; BLOCKWRITE(FF,I,1); {VERSION}

   I:=0; BLOCKWRITE(FF,B.NAME[1],ORD(B.NAME[0])); {TITLE}
   BLOCKWRITE(FF,I,1); {STRING TERMINATOR #0}
   BLOCKWRITE(FF,B.DESC[1],ORD(B.DESC[0])); {DESCRIPTION} BLOCKWRITE(FF,I,1);
   I:=0; BLOCKWRITE(FF,B.NAME[1],ORD(B.NAME[0])); {TITLE}
   BLOCKWRITE(FF,I,1); {STRING TERMINATOR #0}
   BLOCKWRITE(FF,B.DESC[1],ORD(B.DESC[0])); {DESCRIPTION} BLOCKWRITE(FF,I,1);


@@ -1436,7 +1455,7 @@ BEGIN
      DO I:=I+L[II].SIZE;
   BLOCKWRITE(FF,I,2); {SIZE}
 
      DO I:=I+L[II].SIZE;
   BLOCKWRITE(FF,I,2); {SIZE}
 

-  I2:=0; I:=$F401+B.SPRSIZE;
+  I2:=0; I:=PC+1+B.SPRSIZE;

   IF B.LSINGLE=0THEN BLOCKWRITE(FF,I2,2)ELSE BEGIN
     BLOCKWRITE(FF,I,2); FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE);
   END; {SINGLLVLS} INC(I,1+ORD(B.ENDDATA[0]));
   IF B.LSINGLE=0THEN BLOCKWRITE(FF,I2,2)ELSE BEGIN
     BLOCKWRITE(FF,I,2); FOR II:=B.LFROM[1]TO B.LSINGLE DO INC(I,L[II].SIZE);
   END; {SINGLLVLS} INC(I,1+ORD(B.ENDDATA[0]));


@@ -1569,6 +1588,6 @@ BEGIN
   TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SEARCHING FOR LEVELS');
   EDITFILE(TRUE); REPEAT EDITMAIN; EDITQUIT; UNTIL QUITOK=TRUE;
   WINDOW(1,1,80,25); TEXTCOLOR(7); TEXTBACKGROUND(0); CLRSCR;
   TEXTCOLOR(C_MENU); WRITE('3'); TEXTCOLOR(C_TEXT); WRITELN(': SEARCHING FOR LEVELS');
   EDITFILE(TRUE); REPEAT EDITMAIN; EDITQUIT; UNTIL QUITOK=TRUE;
   WINDOW(1,1,80,25); TEXTCOLOR(7); TEXTBACKGROUND(0); CLRSCR;

-  WRITE('EXITING '); TEXTCOLOR(15); WRITE('WORMEDIT 0.5 BY SHIAR');
+  WRITE('EXITING '); TEXTCOLOR(15); WRITE('WORMEDIT 0.51 BY SHIAR');

   TEXTCOLOR(7); WRITELN('.'); WRITELN('BYEBYE..'); WRITELN;
 END.
\ No newline at end of file
   TEXTCOLOR(7); WRITELN('.'); WRITELN('BYEBYE..'); WRITELN;
 END.
\ No newline at end of file