In addition to using images instead of bitmaps,
there are structure problems in your program.
Remove the functions out of any Do -- Loop structures.
Rem ******* MAIN
DO
GUI()
LOOP
End
Rem ******** FUNCTIONS
FUNCTION FilMen()
COPY BITMAP 0,0,25,183,160,12,0,25,183,160
COPY BITMAP 1,0,0,183,160,0,0,25,183,185
buffer = 0
mx = mousex()
my = mousey()
mc = mouseclick()
IF mx > 183 OR my > 185 THEN COPY BITMAP 12,0,0,183,160,0,0,25,183,160
IF my < 25 AND mc = 1 THEN COPY BITMAP 12,0,0,183,160,0,0,25,183,160
ENDFUNCTION
FUNCTION GUI()
LOAD BITMAP "MenusImages1.bmp",1
LOAD BITMAP "MenusImages2.bmp",2
LOAD BITMAP "MenusImages3.bmp",3
LOAD BITMAP "MenusImages4.bmp",4
LOAD BITMAP "MenusImages5.bmp",5
LOAD BITMAP "MenusImages6.bmp",6
LOAD BITMAP "MenusImages7.bmp",7
LOAD BITMAP "MenusImages8.bmp",8
LOAD BITMAP "MenusImagesmain.bmp",9
LOAD BITMAP "MenusImagesfbh.bmp",10
LOAD BITMAP "MenusImagesfb.bmp",11
CREATE BITMAP 12,1024,768
COPY BITMAP 9,0,0,223,25,0,0,0,223,24
Cont()
ENDFUNCTION
FUNCTION Cont()
DO
control:
buf = 0
mx = mousex()
my = mousey()
mc = mouseclick()
IF my < 25 AND mx < 31
COPY BITMAP 10,0,0,31,24,0,0,0,31,24
WHILE my < 25 AND mx < 31
buf = 1
mx = mousex()
my = mousey()
mc = mouseclick()
IF mc = 1 THEN FilMen()
ENDWHILE
ENDIF
If buf = 1 THEN COPY BITMAP 11,0,0,31,24,0,0,0,31,24
LOOP
ENDFUNCTION
The more you see, the more you know.
The more you know, the more you see.