Copy any Bitmap to Bitmap 0 with a nice effect

Copy any Bitmap to Bitmap 0 with a nice effect
Works with DarkBasic V1.0
Works with DarkBasicPro (but it too fast...)

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem *****************************************
Rem *                                       *
Rem *           Bitmap-Effects              *
Rem *                                       *
Rem *          Using DarkBasic              *
Rem *                                       *
Rem *                                       *
Rem *         Author E. Manzoni             *
Rem *                                       *
Rem *              ITALY                    *
Rem *                                       *
Rem *      e-mail:me52@libero.it                                 *
Rem *****************************************
Rem
Presentazione()
End
Function Presentazione

Hide Mouse
Rem Create Bitmap 1
Rem Load Bitmap "Filename.bmp",1
Create Bitmap 1,640,480
Rem Draw some color boxes (Delete this code if U load bitmap)
For i=1 to 100
Ink Rgb(255,255,255),0
X=Rnd(600) : Y=Rnd(400):Max=Rnd(150)
Box X,Y,X+Max,Y+Max
Ink Rgb(Rnd(255),Rnd(255),Rnd(255)),0
Box X+2,Y+2,X+(Max-2),Y+(Max-2)
Next i

Y1=0
Y2=2
Do
  Rem 40 is speed
  Copy Bitmap 1,0,Y1,639,Y2,0,0,Y3,639,Y3+40
  Inc Y3
  Inc Y1
  Inc Y2
  Rem Must be (479-speed)
  If Y3>439 Then Exit
  Sync
Loop

Copy Bitmap 1,0

Repeat
  Sync
Until MouseClick()=1
Rem End routine
Delete Bitmap 1
Set Current Bitmap 0
EndFunction