Line 1 disappears

[BDS107]

Here's another and better example.
When $RESIZE:SMOOTH is used, the first 2 lines disappear during maximization. Resize Window is then OK.
With $RESIZE:ON maximizing and resize doesn't work for me.

Code: (Select All)

$RESIZE:ON
SCREEN 0, 1, 0, 0: COLOR 15, 1: CLS
DEFINT A-Z
LOCATE 1, 1: PRINT CHR$(219); CHR$(223); CHR$(221); "......"; CHR$(222); STRING$(69, 223); CHR$(219);
FOR a = 2 TO 24: LOCATE a, 1: PRINT CHR$(219); SPACE$(78); CHR$(219);: NEXT
LOCATE 25, 1: PRINT CHR$(219); STRING$(25, 220); CHR$(221); "......."; CHR$(222); STRING$(44, 220); CHR$(219);
COLOR 14
FOR a = 1 TO 25
  LOCATE a, a + 3: PRINT "Line"; STR$(a);
NEXT
COLOR 7: LOCATE 7, 25: PRINT "Now maximize or resize this Window";
LOCATE 8, 25: PRINT "Change the first line in the code from";
LOCATE 9, 25: PRINT "'$RESIZE:ON' to '$RESIZE:SMOOTH'"
LOCATE 11, 25: PRINT "Press ANY key to end";
DO: LOOP UNTIL INKEY$ <> ""
SYSTEM

Here the result: