Sorry your browser is not supported!

function button(x as integer,y as integer,id as float,s$ as string)

rem Make the button
colorBox(x-2,y-2,x+text width(s$)+2,y+text height(s$)+2,rgb(155,155,155))

rem Detect if teh mouse is over it
if mousex()>x-2 and mousex()<x+text width(s$)+2
  if mousey()>y-2 and mousey()<y+text height(s$)+2
    rem If so, \'highlight\' the button
    colorBox(x-1,y-1,x+text width(s$)+1,y+text height(s$)+1,rgb(255,255,100))
    detect=1
    rem Detect press
    if mouseclick()=1
      colorBox(x-1,y-1,x+text width(s$)+1,y+text height(s$)+1,rgb(255,155,50))
      detectPress=id
    endif
  endif
else
  detect=0
endif

rem The text
ink rgb(0,0,0),0 : text x,y,s$ : ink rgb(255,255,255),0

endfunction detectPress

Do
if mouseclick()=1 then gosub zonecheck
Loop

ZoneCheck:
REM area 0
`Width Height of button 1
if zoneclicked(44,18,164,78)=1
`Do Whatever
Endif

`Do this for all buttons.... 
REM area 1
if zoneclicked(15,95,168,146)=1
`Do Whatever
endif
 
REM area 2
if zoneclicked(16,176,168,226)=1
`Do Whatever
endif
 
REM area 3
if zoneclicked(14,255,167,307)=1
`Do Whatever
endif

function ZoneClicked(X1,Y1,X2,Y2)
J=0:X=mousex():Y=mousey()
if X>=X1 and X<=X2 and Y>=Y1 and Y<=Y2 then J=1
endfunction J 

rem The buttons
if button(20+text width("File"),10,2,"Help")=2 then helpFiles()
if button(10,10,1,"File")=1 then menu=1

function  helpFiles()

do

rem Clear the screen
cls

box 0,0,screen height(),screen width()*2
colorbox(0,0,20+text width("How to load an image     "),screen height(),rgb(100,100,100))

rem Create the menu
if button(10,37,80,"How to load an image     ")=85 then HowToLoad()
button(10,66,81,"How to transform an image")
button(10,95,82,"How to use the inderface ")
button(10,124,83,"How to deselect an image ")
if button(10,screen height()-text height("B")-12,84,"Back                     ")=0 then exit

sync

loop

endfunction