' *** SHRINK.LST *** 2nd GFA-Manual, page 20-29 > PROCEDURE screen_cls_shrink ' ' *** Clear screen with shrinking black rectangle ' ' *** Standard: x.max& y.max& ' LOCAL i COLOR 1 DEFLINE 1,1 FOR i=0 TO DIV(y.max,2) BOX i,i,SUB(x.max,i),SUB(y.max,i) NEXT i COLOR 0 FOR i=DIV(y.max,2) DOWNTO 0 BOX i,i,SUB(x.max,i),SUB(y.max,i) NEXT i COLOR 1 RETURN ' ********* '