This is the source code of fading bitmap

It loads an image , darkening down and lightning up the light.
Please post your tools , or any packet upgrades.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: bitmap
Rem Created: 12/10/2004 2:55:26 μμ

Rem ***** Main Source File *****
`path$=get dir$()
`set dir path$
`sync on : sync rate 0 : hide mouse
`if check display mode(1024,768,16)=1 then set display mode 1024,768,16
`check display mode()
`wait key

file_name$="laetitia014.jpg"
fade_value = 100
fade_operation$ = "decrease"
set display mode 800, 600, 32 `1024,768,32
do
load bitmap file_name$ , file_number
fade bitmap bitmap_number , fade_value
if ( fade_operation$ = "decrease" ) then:fade_value= fade_value-5
if ( fade_operation$ = "increase" ) then:fade_value= fade_value+5
if ( fade_value = 0 ) then : fade_operation$ = "increase"
if ( fade_value = 100 ) then : fade_operation$ = "decrease"
fastsync
loop
end