' *** DROP.LST *** 2nd GFA-Manual, page 20-29 > PROCEDURE scroll_drop ' ' *** Scroll-screen appears as falling lines on physical screen ' *** High resolution only ' ' *** Standard: physbase% logbase% ' *** Global: scroll.screen% ' LOCAL b,step,bytes,blank$,blank%,i,j,adr2%,j.b% b=80 step=16 bytes=step*b blank$=STRING$(bytes,0) blank%=V:blank$ FOR i=y.max-step+1 TO 0 STEP -step adr2%=ADD(scroll.screen%,MUL(i,b)) FOR j=0 TO i STEP step j.b%=MUL(j,b) BMOVE adr2%,ADD(physbase%,j.b%),bytes VSYNC BMOVE blank%,ADD(physbase%,j.b%),bytes NEXT j BMOVE adr2%,ADD(physbase%,j.b%),bytes NEXT i ~XBIOS(5,L:logbase%,L:-1,-1) ! restore logical screen RETURN ' ********* '