' *** RANDOM.LST *** 2nd GFA-Manual, page 20-29 > PROCEDURE scroll_random ' ' *** Scroll-screen appears on physical screen as random lines ' *** High resolution only ' ' *** Standard: physbase% logbase% ' *** Global: scroll.screen% ' LOCAL i,j,z DIM ran.scroll(399) FOR i=0 TO 399 ran.scroll(i)=i NEXT i FOR i=399 DOWNTO 0 ! shuffle array j=RAND(SUCC(i)) ! 0-i SWAP ran.scroll(i),ran.scroll(j) NEXT i FOR i=0 TO 399 z=MUL(ran.scroll(i),80) BMOVE ADD(scroll.screen%,z),ADD(physbase%,z),80 NEXT i ERASE ran.scroll() ~XBIOS(5,L:logbase%,L:-1,-1) ! restore logical screen RETURN ' ********* '