' *** SCROLL.LST *** 2nd GFA-Manual, page 20-29 > PROCEDURE screen_cls_scroll ' ' *** Clear screen with upwards scrolling black rectangle ' ' *** Standard: x.max& y.max& ' LOCAL i COLOR 1 DEFLINE 1,1 FOR i=y.max DOWNTO 0 LINE 0,i,x.max,i NEXT i COLOR 0 PAUSE 10 FOR i=y.max DOWNTO 0 LINE 0,i,x.max,i NEXT i COLOR 1 RETURN ' ********* '