' *** DOWN.LST *** 2nd GFA-Manual, page 20-28 > PROCEDURE screen_cls_down(scroll.lines,scroll.color) ' ' *** Clear screen with downwards scrolling lines (with colour scroll.color&) ' *** Use 2 or 3 lines for a smooth scroll ' *** Use 8 (Low resolution) or 16 (Medium or High) lines for fast scrolling ' ' *** Standard: high.res! physbase% x.max& y.max& ' LOCAL i,bytes,move.bytes,dest% IF high.res! LET bytes=80*scroll.lines ELSE LET bytes=160*scroll.lines ENDIF move.bytes=32000-bytes dest%=physbase%+bytes VSYNC BMOVE physbase%,dest%,move.bytes ! first scroll DEFFILL scroll.color,1 PBOX 0,0,x.max,scroll.lines-1 ! clear lower part of screen FOR i=1 TO DIV(y.max,scroll.lines) ! continue... VSYNC BMOVE physbase%,dest%,move.bytes NEXT i RETURN ' ********* '