A nice shutter effect

A nice shutter effect
to clear the screen in a different way
with the colors you want

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Sync On : Sync Rate 60
Rem *****************************
Rem *wd=screen width            *
Rem *hd=screen height           *
Rem *lines=number lines effect  *
Rem *C1-C2-C3=Color lines       *
Rem * e-mail:me52@libero.it     *
Rem * Author: Ermanno (ITALY)   *
Rem *****************************

Rem Load Bitmap "Image.jpg",0
Sleep 1000
Middle(640,480,10,255,204,64)
End
Function Middle(wd,hd,lines,C1,C2,C3)
  Ink Rgb(C1,C2,C3),0
  For B=wd/lines To 0 Step -1
     For A=lines To 0 Step -1
        Box wd/lines*A+B,0,wd/lines*A+B+1,hd
     Next A
     Sync
    Next B
EndFunction