Slider Menu Hide/Unhide when the mouse is close to a side

Slider Menu Hide/Unhide when the mouse is close to a side, include explanations.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem make a background active
backdrop on

rem variable of slider, actual hide
slider#=-100


rem Main Loop
do

rem if mouse is close to the left side of the window then slider grow else decrease
if mousex() < 40
slider#=slider#+1
else
slider#=slider#-1
endif

rem max and minimum value of the slider
if slider# > 80 then slider#=80
if slider# < -100 then slider#=-100

rem make a box menu with X value from slider variable, you can use a bitmap, etc...
box 0,0,slider#,480,rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0)
loop