Sorry your browser is not supported!

Load Image "Menu/File.bmp",1
Load Image "Menu/Save.bmp",2
Load Image "Menu/Save As.bmp",3
Load Image "Menu/Exit.bmp",4
Load Image "Menu/Edit.bmp",5
Load Image "Menu/Undo.bmp",6
Load Image "Menu/Replace.bmp",7
Load Image "Menu/Go to.bmp",8
Load Image "Menu/Help.bmp",9
Load Image "Menu/About.bmp",10
Load Image "Menu/Background.bmp",11

sprite 1,1,1,1
sprite 2,1,27,2
sprite 3,1,54,3
sprite 4,1,81,4
sprite 5,80,1,5
sprite 6,80,27,6
sprite 7,80,54,7
sprite 8,80,81,8
sprite 9,160,1,9
sprite 10,160,27,10
sprite 11,0,0,11

Start:
hide sprite 2:hide sprite 3:hide sprite 4:hide sprite 6
hide sprite 7:hide sprite 8:hide sprite 10
show sprite 1:show sprite 5:show sprite 9:show sprite 11
wait 100
DO
Sync
File(2,72,2,20)
Edit(81,151,2,20)
Help(161,231,2,20)
LOOP

F:
show sprite 2:show sprite 3:show sprite 4
hide sprite 6:hide sprite 7:hide sprite 8
hide sprite 10
wait 100
DO
Sync
File2(2,72,2,20)
Edit(81,151,2,20)
Help(161,231,2,20)
Exit(2,72,81,100)
LOOP

E:
hide sprite 2:hide sprite 3:hide sprite 4
show sprite 6:show sprite 7:show sprite 8
hide sprite 10
wait 100
DO
Sync
File(2,72,2,20)
Edit2(81,151,2,20)
Help(161,231,2,20)
LOOP

H:
hide sprite 2:hide sprite 3:hide sprite 4
hide sprite 6:hide sprite 7:hide sprite 8
show sprite 10
wait 100
DO
Sync
File(2,72,2,20)
Edit(81,151,2,20)
Help2(161,231,2,20)
LOOP

function File(x1,x2,y1,y2)
   if mousex() > x1 and mousex() < x2
      if mousey() > y1 and mousey() < y2
         if mouseclick()=1
            gosub F
            click=1
         else
            click=0
         endif
      endif
   endif
endfunction
function File2(x1,x2,y1,y2)
   if mousex() > x1 and mousex() < x2
      if mousey() > y1 and mousey() < y2
         if mouseclick()=1
            gosub start
            click=1
         else
            click=0
         endif
      endif
   endif
endfunction
function Edit(x1,x2,y1,y2)
   if mousex() > x1 and mousex() < x2
      if mousey() > y1 and mousey() < y2
         if mouseclick()=1
            gosub e
            click=1
         else
            click=0
         endif
      endif
   endif
endfunction
function Edit2(x1,x2,y1,y2)
   if mousex() > x1 and mousex() < x2
      if mousey() > y1 and mousey() < y2
         if mouseclick()=1
            gosub start
            click=1
         else
            click=0
         endif
      endif
   endif
endfunction
function Help(x1,x2,y1,y2)
   if mousex() > x1 and mousex() < x2
      if mousey() > y1 and mousey() < y2
         if mouseclick()=1
            gosub H
            click=1
         else
            click=0
         endif
      endif
   endif
endfunction
function Help2(x1,x2,y1,y2)
   if mousex() > x1 and mousex() < x2
      if mousey() > y1 and mousey() < y2
         if mouseclick()=1
            gosub start
            click=1
         else
            click=0
         endif
      endif
   endif
endfunction
function Exit(x1,x2,y1,y2)
   if mousex() > x1 and mousex() < x2
      if mousey() > y1 and mousey() < y2
         if mouseclick()=1
            END
            click=1
         else
            click=0
         endif
      endif
   endif
endfunction