If you're still pondering about it RisTar try the below code.
`Create some variables
FADE = 100
CHANGE = -1
`Initalize program
HIDE MOUSE
SYNC ON
`Load the source bitmap and create the scratch bitmap
LOAD BITMAP "tippy.bmp", 1
CREATE BITMAP 2, BITMAP WIDTH(1), BITMAP HEIGHT(1)
SET CURRENT BITMAP 0
REPEAT
`Change the fade value
FADE = FADE + CHANGE
`Bounce fade value off the extremes
IF FADE < 1
FADE = 1
CHANGE = 1
ENDIF
IF FADE > 100
FADE = 100
CHANGE = -1
ENDIF
`Draw the faded bitmap
CLS
COPY BITMAP 1, 2
FADE BITMAP 2, FADE
COPY BITMAP 2, 0
`Display fade value on the screen
TEXT 460, 10, "FADE VALUE: " + STR$(FADE)
`Update the screen
SYNC
`Wait for ESC key or mouse click
UNTIL ESCAPEKEY()=1 OR MOUSECLICK()=1
END
I hear and I forget. I see and I remember. I do and I understand.