' *** LUXAFLEX.LST *** 2nd GFA-Manual, page 20-28 > PROCEDURE screen_cls_luxaflex ' ' *** Clear screen with luxaflex-effect ' ' *** Standard: x.max& y.max& ' LOCAL i,j COLOR 1 DEFLINE 1,1 FOR j=0 TO 9 FOR i=j TO SUCC(y.max) STEP 10 LINE 0,i,x.max,i NEXT i PAUSE 1 NEXT j COLOR 0 FOR j=9 DOWNTO 0 FOR i=j TO SUCC(y.max) STEP 10 LINE 0,i,x.max,i NEXT i PAUSE 1 NEXT j COLOR 1 RETURN ' ********* '