Sorry your browser is not supported!

<menubar style="xp-style">
    <menu id="file">
        <menuitem id="New"></menuitem>
        <menuitem id="Open"></menuitem>
        <menuitem id="Save"></menuitem>
    <menu>
    <menu id="Edit">
        <menuitem id="Undo"></menuitem>
        <menuitem id="Cut"></menuitem>
    <menu>
</menubar>

`Buttonset Editor
`2008 Joep Peters

set display mode 640,480,32

sync on
sync rate 0
create bitmap 1,640,480
`set text to italic

dim MenuButtonX(64)
dim MenuButtonY(64)
dim MenuButtonText$(64)
dim MenuButtonCount(1)

MenuButtonCount(1) = 1

MenuButtonX(1)=50
MenuButtonY(1)=20
MenuButtonText$(1)= "JustAButton"


InterfaceX = 400
InterfaceY = 200
do
     cls rgb(50,50,50)

     InterfaceInput$ = Interface(InterfaceX,InterfaceY)
     if InterfaceInput$ = "ADD"
         repeat
         until mouseclick()=0

         MenuButtonCount(1) = MenuButtonCount(1) + 1
         MenuButtonX(MenuButtonCount(1))=MenuButtonX(MenuButtonCount(1)-1) +  ( len(MenuButtonText$( MenuButtonCount(1)-1)) * 8 )+8
         MenuButtonY(MenuButtonCount(1))=MenuButtonY(MenuButtonCount(1)-1)
         MenuButtonText$(MenuButtonCount(1))= "Created "+str$(MenuButtonCount(1))

     endif
     if InterfaceInput$ = "QUIT" then end
     if InterfaceInput$ = "SAVE"

        while returnkey()=0
          cls rgb(50,50,50)

         ink rgb(128,128,128),0
         box 250,200,250+220,200+150
         ink rgb(0,0,150),0
         box 250,200,250+220,200+15
         ink rgb(255,255,255),0
         text 250+4,200,"Type a filename"

         ink 0,0
         DrawOutline(250,200,220,150)
         line 250,200+16,250+220,200+16

         ink rgb(255,255,255),0
         box 280,240,400,255
         ink 0,0
         DrawOutline(280,240,120,15)


          filename$ =  Typing( filename$,0,0)
           text 280,240,filename$



          text 280 + (len(filename$)*6),240,Blinker()
          copy bitmap 1,0
          sync
        endwhile
        SaveButtonSet(filename$)
       endif
     if InterfaceInput$ = "LOAD"

        while returnkey()=0
          cls rgb(50,50,50)

         ink rgb(128,128,128),0
         box 250,200,250+220,200+150
         ink rgb(0,0,150),0
         box 250,200,250+220,200+15
         ink rgb(255,255,255),0
         text 250+4,200,"Type a filename"

         ink 0,0
         DrawOutline(250,200,220,150)
         line 250,200+16,250+220,200+16

         ink rgb(255,255,255),0
         box 280,240,400,255
         ink 0,0
         DrawOutline(280,240,120,15)


          filename$ =  Typing( filename$,0,0)
           text 280,240,filename$



          text 280 + (len(filename$)*6),240,Blinker()
          copy bitmap 1,0
          sync
        endwhile
        LoadButtonSet(filename$)
     endif
     if InterfaceInput$ = "NEW" then MenuButtonCount(1)=0
     if InterfaceInput$ = "MOVEINTERFACE" then MoveInterface=1
     if InterfaceInput$ = "SNAP" then Snapping=1
     if InterfaceInput$ = "NOSNAP" then Snapping=0


     if MoveInterface=1

         if mouseclick()=0 then MoveInterface=0

         InterfaceX = InterfaceX + mousemovex()
         InterfaceY = InterfaceY + mousemovey()
     else




     TRD_Return$ = TRD_Menu()


     If MoveButton=0 and typing = 0

         ClickedButtonIndex = TRD_IndexMenu()

     endif

     if left$(TRD_Return$,5) = "RIGHT"
         typing=1
         mx = mousex()
         my = mousey()
         hide mouse
     endif

     if ClickedButtonIndex <> 0 and typing = 0 then MoveButton=1

     if MoveButton=1

         if mouseclick()=0 then MoveButton=0

         if Snapping=0
             MenuButtonX(ClickedButtonIndex)= MenuButtonX(ClickedButtonIndex) + mousemovex()
             MenuButtonY(ClickedButtonIndex)= MenuButtonY(ClickedButtonIndex) + mousemovey()
         endif

         if Snapping=1
             tempx = mousex()/10
             tempy = mousey()/10

             MenuButtonX(ClickedButtonIndex) = tempx*10
             MenuButtonY(ClickedButtonIndex) = tempy*10

             `position mouse tempx*10,tempy*10

         endif

     endif


      if typing = 1
          MenuButtonText$(ClickedButtonIndex) =  Typing( MenuButtonText$(ClickedButtonIndex),0,0)
          position mouse mx,my
          text MenuButtonX(ClickedButtonIndex)+ (len(MenuButtonText$(ClickedButtonIndex))*8),MenuButtonY(ClickedButtonIndex),Blinker()
          if returnkey()=1
              typing=0
              show mouse
          endif
      endif





     endif

     ink rgb(0,255,0),0
     if TRD_Return$ <> "" then print TRD_Return$ + " is pressed!"
     if InterfaceInput$ = "DELETE" then print "This feature is not yet finished!"
     copy bitmap 1,0
     sync
loop

Function LoadButtonSet(filename$)

    if file exist(filename$)=1
        open to read 1,filename$
        read string 1,ButtonCountTemp$
        MenuButtonCount(1) = val(ButtonCountTemp$)

        for index = 1 to MenuButtonCount(1)
            read string 1,ButtonTempX$
            read string 1,ButtonTempY$
            read string 1,ButtonTempText$

            MenuButtonX(index) = val(ButtonTempX$)
            MenuButtonY(index) = val(ButtonTempY$)
            MenuButtonText$(index) = ButtonTempText$

        next index
        close file 1

    endif


EndFunction

Function SaveButtonSet(filename$)
    if file exist(filename$) = 1 then delete file filename$
        open to write 1,filename$

        write string 1,str$(MenuButtonCount(1))

        for index = 1 to MenuButtonCount(1)

            write string 1,str$(MenuButtonX(index))
            write string 1,str$(MenuButtonY(index))
            write string 1,MenuButtonText$(index)





        next index
        close file 1
EndFunction


Function TRD_IndexMenu()


    Number=0
    for index = 1 to MenuButtonCount(1)

        if Button(MenuButtonX(index),MenuButtonY(index),MenuButtonText$(index)) = 1 or Button(MenuButtonX(index),MenuButtonY(index),MenuButtonText$(index)) = 2
            Number=index
        endif

    next Button

EndFunction Number


Function TRD_Menu()
    Button$ = ""
    for index = 1 to MenuButtonCount(1)

        if Button(MenuButtonX(index),MenuButtonY(index),MenuButtonText$(index)) = 1
            Button$ =  MenuButtonText$(index)
        endif

        if Button(MenuButtonX(index),MenuButtonY(index),MenuButtonText$(index)) = 2
            Button$ =  "RIGHT " + MenuButtonText$(index)
        endif

    next Button

EndFunction Button$

Function Blinker()
   Blink = Blink + 1
   if Blink > 3
      Blink = 0
      if Blinker$ = "" then Blinker$ = "|" else Blinker$ = ""
   endif
EndFunction Blinker$

Function Typing(TypingMod$,TypingL,TypingMode)
   REM Inputs Keys from Keyboard to modify String$
      REM Typing Limit, Zero will make it unlimited suposively.
         REM TypingMode0 = all Letters, Typingmode1= only Numbers
   if TypingL = 0 Then TypingL = 1000
      REM Typing Input.
   TypingI$ = inkey$()
      REM Reset TypingG$ if there's no input.
   if TypingI$ = "" then TypingG$ = ""
      REM Reset keyTyping if BackSpace is not pressed.
   if asc(TypingI$) <> 8 then KeyTyping = 0
      REM BackSpace is Pressed. Erase one off of TypingMod$.
   if asc(TypingI$) = 8
         REM If first time pressing BackSpace
      if KeyTyping = 0
            REM Resets the TypingCounter used to time the key repeat.
         TypingC = 0
            REM Checks if String$ has anything.
         if len(TypingMod$) > 0
               REM Erase the last letter in TypingMod$.
            TypingMod$ = left$(TypingMod$,len(TypingMod$)-1)
         endif
      endif
         REM Flag this variable to not alow TypingMod$ erase.
      KeyTyping = 1
         REM Clear the input so it's not added to TypingG$
      TypingI$=""
         REM Handle the repeat of BackSpace
      inc TypingC,1
      if TypingC > 6 then KeyTyping = 0
   endif
   REM Setting up variable for checks.
   z = asc(TypingI$)
      REM Only numbers can pass
   if TypingMode = 1 & z > 57 or TypingMode = 1 & z < 48 then TypingI$=""
      REM Only letters can pass
   if TypingMode = 0 & z > 127 or TypingMode = 0 & z < 32 then TypingI$=""
      REM Checks if new/old Input are different and TypingMod$ is in Limit.
   if TypingG$ <> TypingI$ & len(TypingMod$) < TypingL then TypingMod$=TypingMod$+TypingI$
      REM Stores the last Input. Used for checking key repeat.
   TypingG$ = TypingI$
EndFunction   TypingMod$

Function Interface(x,y)
    Choice$=""
    ink rgb(128,128,128),0
    box x,y,x+120,y+150
    ink rgb(0,0,150),0
    box x,y,x+120,y+15
    ink rgb(255,255,255),0
    text x+4,y,"Button Designer"

    ink 0,0
    DrawOutline(x,y,120,150)
    line x,y+16,x+120,y+16

    if Button(x+10,y+20,"Add ") = 1 then Choice$ = "ADD"
    if Button(x+50,y+20,"Delete") = 1 then Choice$ = "DELETE"
    if Button(x+10,y+50,"  Snap ") = 1 then Choice$ = "SNAP"
    if Button(x+10,y+70,"No Snap") = 1 then Choice$ = "NOSNAP"
    if Button(x+10,y+110,"New ") = 1 then Choice$ = "NEW"
    if Button(x+50,y+110,"Save") = 1 then Choice$ = "SAVE"
    if Button(x+50,y+130,"Load") = 1 then Choice$ = "LOAD"
    if Button(x+10,y+130,"Quit") = 1 then Choice$ = "QUIT"

    MouseX = mousex()
    MouseY = mousey()

    if MouseX > x
        if MouseX < x+120
            if MouseY > y
                if MouseY < y + 15

                    if mouseclick()=1
                        Choice$= "MOVEINTERFACE"
                    endif
                endif
            endif
        endif
    endif

EndFunction Choice$


Function Button(x,y,Caption$)

    Click = 0
    width = ( len(Caption$)*8 ) + 4
    ink rgb(128,128,140),0
    box x,y,x+width,y+15
    ink rgb(0,0,0),0
    center text x+ (width/2),y,Caption$


    MouseX = mousex()
    MouseY = mousey()

    ink 0,0

    if MouseX > x
        if MouseX < x+width
            if MouseY > y
                if MouseY < y + 15
                    ink rgb(255,255,255),0
                    if mouseclick()=1
                        Click=1
                        ink rgb(255,0,0),0
                    else
                        Click=0
                    endif
                    if mouseclick()=2
                        ink rgb(255,0,0),0
                        Click=2
                    endif
                endif
            endif
        endif
    endif

    DrawOutline(x,y,width,15)

EndFunction Click


Function DrawOutline(x,y,width,height)

    line x,y,x + width,y
    line x,y,x,y + height
    line x,y + height,x + width,y + height
    line x + width,y,x+ width,y+ height

EndFunction

set display mode 640,480,32

sync on
sync rate 0
create bitmap 1,640,480
`` you need this bit -->
dim MenuButtonX(64)
dim MenuButtonY(64)
dim MenuButtonText$(64)
dim MenuButtonCount(1)
TRD_PrepareButtonSet("buttonset.txt")
``<--

do
    cls rgb(50,50,50)
    ``required command to draw the buttons etc
    ClickedButton$ = TRD_ButtonReturn()

    if ClickedButton$ = "JustAButton" then print "Button Clicked!"
    `` You can just add your other buttons here...  :)

    copy bitmap 1,0
    sync
loop



`` the function list you need to include from here --->
Function TRD_ButtonReturn()
    Button$ = ""
    for index = 1 to MenuButtonCount(1)

        if Button(MenuButtonX(index),MenuButtonY(index),MenuButtonText$(index)) = 1
            Button$ =  MenuButtonText$(index)
        endif

        if Button(MenuButtonX(index),MenuButtonY(index),MenuButtonText$(index)) = 2
            Button$ =  "RIGHT " + MenuButtonText$(index)
        endif

    next Button

EndFunction Button$

Function TRD_PrepareButtonSet(filename$)


    if file exist(filename$)=1
        open to read 1,filename$
        read string 1,ButtonCountTemp$
        MenuButtonCount(1) = val(ButtonCountTemp$)

        for index = 1 to MenuButtonCount(1)
            read string 1,ButtonTempX$
            read string 1,ButtonTempY$
            read string 1,ButtonTempText$

            MenuButtonX(index) = val(ButtonTempX$)
            MenuButtonY(index) = val(ButtonTempY$)
            MenuButtonText$(index) = ButtonTempText$

        next index
        close file 1

    endif
EndFunction

Function Button(x,y,Caption$)

    Click = 0
    width = ( len(Caption$)*8 ) + 4
    ink rgb(128,128,140),0
    box x,y,x+width,y+15
    ink rgb(0,0,0),0
    center text x+ (width/2),y,Caption$


    MouseX = mousex()
    MouseY = mousey()

    ink 0,0

    if MouseX > x
        if MouseX < x+width
            if MouseY > y
                if MouseY < y + 15
                    ink rgb(255,255,255),0
                    if mouseclick()=1
                        Click=1
                        ink rgb(255,0,0),0
                    else
                        Click=0
                    endif
                    if mouseclick()=2
                        ink rgb(255,0,0),0
                        Click=2
                    endif
                endif
            endif
        endif
    endif

    DrawOutline(x,y,width,15)

EndFunction Click


Function DrawOutline(x,y,width,height)

    line x,y,x + width,y
    line x,y,x,y + height
    line x,y + height,x + width,y + height
    line x + width,y,x+ width,y+ height

EndFunction

```` < --- to here

`Buttonset Editor
`2008 Joep Peters

set display mode 800,600,16
`set window on
sync on
sync rate 0
create bitmap 1,800,600


dim MenuButtonX(16,64)
dim MenuButtonY(16,64)
dim MenuButtonText$(16,64)
dim MenuButtonCount(16,1)

dim MenuFormText$(16)
dim MenuFormX(16)
dim MenuFormY(16)
dim MenuFormWidth(16)
dim MenuFormHeight(16)
dim MenuFormCount(1)






InterfaceX = 400
InterfaceY = 200


do
     cls rgb(50,50,50)

     InterfaceInput$ = Interface(InterfaceX,InterfaceY)

     if InterfaceInput$ = "QUIT" then end
     if InterfaceInput$ = "SAVE"

        while returnkey()=0
          cls rgb(50,50,50)

         ink rgb(128,128,128),0
         box 250,200,250+220,200+150
         ink rgb(0,0,150),0
         box 250,200,250+220,200+15
         ink rgb(255,255,255),0
         set text to italic
         text 250+4,200,"Type a filename"
         set text to normal

         ink 0,0
         DrawOutline(250,200,220,150)
         line 250,200+16,250+220,200+16

         ink rgb(255,255,255),0
         box 280,240,400,255
         ink 0,0
         DrawOutline(280,240,120,15)


          filename$ =  Typing( filename$,0,0)
           text 280,240,filename$



          text 280 + text width(filename$),240,Blinker()
          copy bitmap 1,0
          sync
        endwhile
        SaveButtonSet(filename$)
       endif
     if InterfaceInput$ = "LOAD"

        while returnkey()=0
          cls rgb(50,50,50)

         ink rgb(128,128,128),0
         box 250,200,250+220,200+150
         ink rgb(0,0,150),0
         box 250,200,250+220,200+15
         ink rgb(255,255,255),0
         set text to italic
         text 250+4,200,"Type a filename"
         set text to normal
         ink 0,0
         DrawOutline(250,200,220,150)
         line 250,200+16,250+220,200+16

         ink rgb(255,255,255),0
         box 280,240,400,255
         ink 0,0
         DrawOutline(280,240,120,15)


          filename$ =  Typing( filename$,0,0)
           text 280,240,filename$



          text 280 + text width(filename$),240,Blinker()
          copy bitmap 1,0
          sync
        endwhile
        LoadButtonSet(filename$)
     endif
     if InterfaceInput$ = "NEW"
         for form = 1 to MenuFormCount(1)

             MenuFormText$(form) = ""
             MenuFormCount(1) = 0

             for button = 1 to MenuButtonCount(form,1)
                MenuButtonText$(form,button) = ""
                MenuButtonCount(form,1) = 0
             next button

         next form
        ` MenuButtonCount(1)=0
     endif
     if InterfaceInput$ = "MOVEINTERFACE" then MoveInterface=1
     if InterfaceInput$ = "SNAP" then Snapping=1
     if InterfaceInput$ = "NOSNAP" then Snapping=0


     if MoveInterface=1

         if mouseclick()=0 then MoveInterface=0

         InterfaceX = InterfaceX + mousemovex()
         InterfaceY = InterfaceY + mousemovey()

     endif

     SelectedForm = TRD_SelectedForm()
     TRD_DrawOtherButtons(SelectedForm)
     SelectedButton = TRD_SelectedButton(SelectedForm)

     print selectedbutton

     if SelectedForm <> 0
        ink rgb(255,255,255),0
        DrawOutline(MenuFormX(SelectedForm),MenuFormY(SelectedForm),MenuFormWidth(SelectedForm),MenuFormHeight(SelectedForm))
     endif


     if InterfaceInput$ = "ADD"
         repeat
         until mouseclick()=0

         repeat

               cls rgb(50,50,50)
               DrawOtherForms(0)
               TRD_DrawOtherButtons(0)

               ink rgb(128,128,140),0
               box mousex()-30,mousey()-15,mousex()+30,mousey()
               ink 0,0
               DrawOutline(mousex()-30,mousey()-15,60,15)

              copy bitmap 1,0
              sync

         until mouseclick()=1

         mx = mousex()
         my = mousey()
         SelectedForm = TRD_SelectedForm()

         if SelectedForm <> 0

            if MenuButtonCount(SelectedForm,1) < 64
             MenuButtonCount(SelectedForm,1) = MenuButtonCount(SelectedForm,1) + 1

             MenuButtonText$(SelectedForm,MenuButtonCount(SelectedForm,1)) = "Button"+ str$(MenuButtonCount(SelectedForm,1))
             MenuButtonX(SelectedForm,MenuButtonCount(SelectedForm,1)) = mx - MenuFormX(SelectedForm) - 30
             MenuButtonY(SelectedForm,MenuButtonCount(SelectedForm,1)) = my - MenuFormY(SelectedForm) - 15
            endif
         endif
     endif

     if InterfaceInput$ = "ADDFORM"
         repeat
         until mouseclick()=0

         repeat

               cls rgb(50,50,50)
               DrawOtherForms(0)
               TRD_DrawOtherButtons(0)

               ink rgb(128,128,140),0
               box mousex()-50,mousey()-100,mousex()+50,mousey()
               ink rgb(0,0,150),0
               box mousex()-50,mousey()-100,mousex()+50,mousey()-85
               ink 0,0


              copy bitmap 1,0
              sync

         until mouseclick()=1

         if MenuFormCount(1) < 16
             MenuFormCount(1) = MenuFormCount(1) + 1
             MenuFormText$(MenuFormCount(1)) = "Form" + str$(MenuFormCount(1))
             MenuFormX(MenuFormCount(1)) = mousex()-50
             MenuFormY(MenuFormCount(1)) = mousey()-100
             MenuFormWidth(MenuFormCount(1)) = 100
             MenuFormHeight(MenuFormCount(1)) = 100
         endif
     endif



     if SelectedButton <> 0
       if SelectedButton > 0

           if mouseclick() = 1
               print "Button " + MenuButtonText$(SelectedForm,SelectedButton) + " in form " + MenuFormText$(SelectedForm) + " has been pressed"
           else
               print "Button " + MenuButtonText$(SelectedForm,SelectedButton) + " in form " + MenuFormText$(SelectedForm) + " has been RIGHT CLICKED!!"
              repeat
              until mouseclick()=0
              hide mouse
              repeat
                  cls rgb(50,50,50)
                  DrawOtherForms(0)
                  TRD_DrawOtherButtons(0)

                  MenuButtonText$(SelectedForm,SelectedButton) =  Typing(  MenuButtonText$(SelectedForm,SelectedButton),0,0)
                  text MenuFormX(SelectedForm)+ MenuButtonX(SelectedForm,SelectedButton)+ text width(MenuButtonText$(SelectedForm,SelectedButton)),MenuFormY(SelectedForm)+MenuButtonY(SelectedForm,SelectedButton),Blinker()
                 copy bitmap 1,0
                 sync
              until returnkey()=1
              show mouse

           endif

         if Snapping=0
             MenuButtonX(SelectedForm,SelectedButton)= MenuButtonX(SelectedForm,SelectedButton) + mousemovex()
             MenuButtonY(SelectedForm,SelectedButton)= MenuButtonY(SelectedForm,SelectedButton) + mousemovey()
         endif

         if Snapping=1
          `   tempx =  ( (mousex() - MenuFormX(SelectedForm)) - ( (mousex() - MenuFormX(SelectedForm))- MenuButtonX(SelectedForm,SelectedButton))) /5
`             tempy =  ((mousey() - MenuFormY(SelectedForm)) - ( MenuButtonY(SelectedForm,SelectedButton)) /5

            ` MenuButtonX(SelectedForm,SelectedButton) = tempx*5
           `  MenuButtonY(SelectedForm,SelectedButton) = tempy*5

             `position mouse tempx*10,tempy*10

         endif
       endif
       if SelectedButton = -3
           repeat
               cls rgb(50,50,50)
               DrawOtherForms(0)
               TRD_DrawOtherButtons(0)

               MenuFormWidth(SelectedForm) = MenuFormWidth(SelectedForm)+mousemovex()
               MenuFormHeight(SelectedForm) = MenuFormHeight(SelectedForm)+mousemovey()
              copy bitmap 1,0
              sync

           until mouseclick()=0

       endif
       if SelectedButton = -2
           repeat
           until mouseclick()=0
           hide mouse
           repeat
               cls rgb(50,50,50)
               DrawOtherForms(0)
               TRD_DrawOtherButtons(0)

              MenuFormText$(SelectedForm) =  Typing(  MenuFormText$(SelectedForm),0,0)

               text MenuFormX(SelectedForm)+ text width(MenuFormText$(SelectedForm)),MenuFormY(SelectedForm),Blinker()

              copy bitmap 1,0
              sync
           until returnkey()=1
           show mouse
       endif
       if SelectedButton = -1
           print "Title bar from " + MenuFormText$(SelectedForm) + " is clicked!"

           repeat
              cls rgb(50,50,50)


               DrawOtherForms(SelectedForm)
               FormWindow(SelectedForm)

               MenuFormX(SelectedForm) = MenuFormX(SelectedForm) + mousemovex()
               MenuFormY(SelectedForm) = MenuFormY(SelectedForm) + mousemovey()
              copy bitmap 1,0
              sync
           until mouseclick()=0
       endif
     endif

     if InterfaceInput$ = "DELETEFORM"
         repeat
             sync
         until mouseclick()=0

         repeat
            cls rgb(50,50,50)
               DrawOtherForms(0)
               TRD_DrawOtherButtons(0)
               FormToDelete = TRD_SelectedForm()

               if FormToDelete > 0
                   ink rgb(255,255,255),0
                   DrawOutline(MenuFormX(FormToDelete),MenuFormY(FormToDelete),MenuFormWidth(FormToDelete),MenuFormHeight(FormToDelete))

               endif
            copy bitmap 1,0
            sync
         until mouseclick() > 0

         if mouseclick()=1 and FormToDelete > 0

            MenuFormText$(FormToDelete) = ""
            for button = 1 to 64
                MenuButtonText$(FormToDelete,button) = ""
            next button
            SortFormArrays()
            SortButtonArrays()
            if MenuFormCount(1) > 0 then MenuFormCount(1) = MenuFormCount(1) - 1
         endif
         repeat
            sync
         until mouseclick()=0
     endif

     if InterfaceInput$ = "DELETE"
         repeat
         until mouseclick()=0

         repeat

               cls rgb(50,50,50)
                 SelectedForm = TRD_SelectedForm()
                 TRD_DrawOtherButtons(SelectedForm)
                 SelectedButton = TRD_SelectedButton(SelectedForm)
               print SelectedButton
               print SelectedForm


              copy bitmap 1,0
              sync

         until mouseclick()=1

         repeat
         sync
         until mouseclick()=0
             SelectedForm = TRD_SelectedForm()
             MenuButtonText$(SelectedForm,SelectedButton) = ""
             SortButtonArrays()
             if MenuButtonCount(SelectedForm,1) > 0 then MenuButtonCount(SelectedForm,1) = MenuButtonCount(SelectedForm,1) - 1
         sync
     endif


     copy bitmap 1,0
     sync
loop

Function LoadButtonSet(filename$)

    if file exist(filename$)=1
        open to read 1,filename$

        read string 1,FormCountTemp$
        MenuFormCount(1) = val(FormCountTemp$)

        for form = 1 to MenuFormCount(1)

            read string 1,FormTempX$
            read string 1,FormTempY$
            read string 1,FormTempWidth$
            read string 1,FormTempHeight$
            read string 1,FormTempText$

            MenuFormText$(form) = FormTempText$
            MenuFormX(form) = val(FormTempX$)
            MenuFormY(form) = val(FormTempY$)
            MenuFormWidth(form) = val(FormTempWidth$)
            MenuFormHeight(form) = val(FormTempHeight$)

            read string 1,ButtonCountTemp$

            MenuButtonCount(form,1) = val(ButtonCountTemp$)

            for button = 1 to MenuButtonCount(form,1)

                read string 1,ButtonTempX$
                read string 1,ButtonTempY$
                read string 1,ButtonTempText$

                MenuButtonX(form,button) = val(ButtonTempX$)
                MenuButtonY(form,button) = val(ButtonTempY$)
                MenuButtonText$(form,button) = ButtonTempText$


            next button
        next form
        close file 1

    endif


EndFunction

Function SaveButtonSet(filename$)
    if file exist(filename$) = 1 then delete file filename$
        open to write 1,filename$

        write string 1,str$(MenuFormCount(1))

        for form = 1 to MenuFormCount(1)

            write string 1,str$(MenuFormX(form))
            write string 1,str$(MenuFormY(form))
            write string 1,str$(MenuFormWidth(form))
            write string 1,str$(MenuFormHeight(form))
            write string 1,MenuFormText$(form)

            write string 1,str$(MenuButtonCount(form,1))

            for button = 1 to MenuButtonCount(form,1)
               write string 1,str$(MenuButtonX(form,button))
               write string 1,str$(MenuButtonY(form,button))
               write string 1,MenuButtonText$(form,button)
            next button

        next form
        close file 1
EndFunction


Function TRD_SelectedForm()
   SelectedForm=0

   for index = 1 to MenuFormCount(1)
       if FormWindow(index)=1
           SelectedForm=index
       endif
   next index

EndFunction SelectedForm

Function TRD_DrawOtherButtons(IgnoreForm)
    for index = 1 to MenuFormCount(1)
        if index <> IgnoreForm
            for button = 1 to MenuButtonCount(index,1)
                Button(MenuButtonX(index,button)+MenuFormX(index),MenuButtonY(index,button)+MenuFormY(index),MenuButtonText$(index,button))
            next button
        endif
    next index

EndFunction

Function TRD_SelectedButton(FormIndex)

    Number=0
    for index = 1 to MenuButtonCount(FormIndex,1)

        if Button(MenuButtonX(FormIndex,index)+MenuFormX(FormIndex),MenuButtonY(FormIndex,index)+MenuFormY(FormIndex),MenuButtonText$(FormIndex,index)) > 0
            Number=index
        endif

    next index

       mx = mousex()
       my = mousey()

       if mx > MenuFormX(FormIndex)
           if mx < MenuFormX(FormIndex)+MenuFormWidth(FormIndex)
               if my > MenuFormY(FormIndex)
                   if my < MenuFormY(FormIndex) +15
                       if mouseclick()=1
                           Number=-1
                       endif
                       if mouseclick()=2
                          Number=-2
                       endif

                   endif
               endif
           endif
       endif

       if mx > MenuFormX(FormIndex) + MenuFormWidth(FormIndex) - 10
           if mx < MenuFormX(FormIndex)+MenuFormWidth(FormIndex)
               if my > MenuFormY(FormIndex)+ MenuFormHeight(FormIndex)-10
                   if my < MenuFormY(FormIndex) + MenuFormHeight(FormIndex)
                       if mouseclick()=1
                           Number=-3
                       endif
                   endif
               endif
           endif
       endif

EndFunction Number

Function DrawOtherForms(IgnoreForm)

    for index = 1 to MenuFormCount(1)
       if index <> IgnoreForm
          ink rgb(128,128,128),0
          box MenuFormX(index),MenuFormY(index),MenuFormX(index)+MenuFormWidth(index),MenuFormY(index)+MenuFormHeight(index)
          ink rgb(0,0,150),0
          box MenuFormX(index),MenuFormY(index),MenuFormX(index)+MenuFormWidth(index),MenuFormY(index)+15
          ink rgb(100,100,150),0
          line MenuFormX(index)+1,MenuFormY(index)+1,MenuFormX(index)+MenuFormWidth(index)-1,MenuFormY(index)+1
          ink rgb(255,255,255),0
          set text to italic
          text MenuFormX(index)+4,MenuFormY(index),MenuFormText$(index)
          set text to normal

          ink 0,0
          DrawOutline(MenuFormX(index),MenuFormY(index),MenuFormWidth(index),MenuFormHeight(index))
          line MenuFormX(index),MenuFormY(index)+16,MenuFormX(index)+MenuFormWidth(index),MenuFormY(index)+16
       endif
    next index

EndFunction

Function FormWindow(index)

    Selected=0
    ink rgb(128,128,128),0
    box MenuFormX(index),MenuFormY(index),MenuFormX(index)+MenuFormWidth(index),MenuFormY(index)+MenuFormHeight(index)
    ink rgb(0,0,150),0
    box MenuFormX(index),MenuFormY(index),MenuFormX(index)+MenuFormWidth(index),MenuFormY(index)+15

    ink rgb(100,100,150),0
    line MenuFormX(index)+1,MenuFormY(index)+1,MenuFormX(index)+MenuFormWidth(index)-1,MenuFormY(index)+1

    ink rgb(255,255,255),0
    set text to italic
    text MenuFormX(index)+4,MenuFormY(index),MenuFormText$(index)
    set text to normal

    ink 0,0
    DrawOutline(MenuFormX(index),MenuFormY(index),MenuFormWidth(index),MenuFormHeight(index))
    line MenuFormX(index),MenuFormY(index)+16,MenuFormX(index)+MenuFormWidth(index),MenuFormY(index)+16

    DrawOutline( MenuFormX(index) + MenuFormWidth(index)-10,MenuFormY(index)+MenuFormHeight(index)-10,10,10)


    mx = mousex()
    my = mousey()

    if mx > MenuFormX(index)
        if mx < MenuFormX(index)+MenuFormWidth(index)
            if my > MenuFormY(index)
                if my < MenuFormY(index) + MenuFormHeight(index)
                    Selected = 1

                endif
            endif
        endif
    endif

EndFunction Selected


Function TRD_IndexForm()


    Number=0
    for index = 1 to MenuButtonCount(1)

        if Button(MenuButtonX(index),MenuButtonY(index),MenuButtonText$(index)) = 1 or Button(MenuButtonX(index),MenuButtonY(index),MenuButtonText$(index)) = 2
            Number=index
        endif

    next Button

EndFunction Number


Function TRD_Menu()
    Button$ = ""
    for index = 1 to MenuButtonCount(1)

        if Button(MenuButtonX(index),MenuButtonY(index),MenuButtonText$(index)) = 1
            Button$ =  MenuButtonText$(index)
        endif

        if Button(MenuButtonX(index),MenuButtonY(index),MenuButtonText$(index)) = 2
            Button$ =  "RIGHT " + MenuButtonText$(index)
        endif

    next Button

EndFunction Button$

Function Blinker()
   Blink = Blink + 1
   if Blink > 3
      Blink = 0
      if Blinker$ = "" then Blinker$ = "|" else Blinker$ = ""
   endif
EndFunction Blinker$

Function Typing(TypingMod$,TypingL,TypingMode)
   REM Inputs Keys from Keyboard to modify String$
      REM Typing Limit, Zero will make it unlimited suposively.
         REM TypingMode0 = all Letters, Typingmode1= only Numbers
   if TypingL = 0 Then TypingL = 1000
      REM Typing Input.
   TypingI$ = inkey$()
      REM Reset TypingG$ if there's no input.
   if TypingI$ = "" then TypingG$ = ""
      REM Reset keyTyping if BackSpace is not pressed.
   if asc(TypingI$) <> 8 then KeyTyping = 0
      REM BackSpace is Pressed. Erase one off of TypingMod$.
   if asc(TypingI$) = 8
         REM If first time pressing BackSpace
      if KeyTyping = 0
            REM Resets the TypingCounter used to time the key repeat.
         TypingC = 0
            REM Checks if String$ has anything.
         if len(TypingMod$) > 0
               REM Erase the last letter in TypingMod$.
            TypingMod$ = left$(TypingMod$,len(TypingMod$)-1)
         endif
      endif
         REM Flag this variable to not alow TypingMod$ erase.
      KeyTyping = 1
         REM Clear the input so it's not added to TypingG$
      TypingI$=""
         REM Handle the repeat of BackSpace
      inc TypingC,1
      if TypingC > 2 then KeyTyping = 0
   endif
   REM Setting up variable for checks.
   z = asc(TypingI$)
      REM Only numbers can pass
   if TypingMode = 1 & z > 57 or TypingMode = 1 & z < 48 then TypingI$=""
      REM Only letters can pass
   if TypingMode = 0 & z > 127 or TypingMode = 0 & z < 32 then TypingI$=""
      REM Checks if new/old Input are different and TypingMod$ is in Limit.
   if TypingG$ <> TypingI$ & len(TypingMod$) < TypingL then TypingMod$=TypingMod$+TypingI$
      REM Stores the last Input. Used for checking key repeat.
   TypingG$ = TypingI$
EndFunction   TypingMod$

Function SortFormArrays()

    for form = 1 to MenuFormCount(1)-1
        if MenuFormText$(form) = ""

            MenuFormText$(form) = MenuFormText$(form+1)
            MenuFormX(form) = MenuFormX(form+1)
            MenuFormY(form) = MenuFormY(form+1)
            MenuFormWidth(form) = MenuFormWidth(form+1)
            MenuFormHeight(form) = MenuFormHeight(form+1)
            MenuButtonCount(form,1) = MenuButtonCount(form+1,1)

            MenuFormText$(form+1) = ""
            MenuFormX(form+1) = 0
            MenuFormY(form+1) = 0
            MenuFormWidth(form+1) = 0
            MenuFormHeight(form+1) = 0
            MenuButtonCount(form+1,1) = 0

            for button = 1 to 64
                MenuButtonText$(form,button) = MenuButtonText$(form+1,button)
                MenuButtonX(form,button) = MenuButtonX(form+1,button)
                MenuButtonY(form,button) = MenuButtonY(form+1,button)

                MenuButtonText$(form+1,button) = ""
                MenuButtonX(form+1,button) = 0
                MenuButtonY(form+1,button) = 0


            next button


        endif
    next form

EndFunction


Function SortButtonArrays()
  for form = 1 to MenuFormCount(1)
    for index = 1 to MenuButtonCount(form,1)-1
        if MenuButtonText$(form,index) = ""
            MenuButtonText$(form,index) = MenuButtonText$(form,index+1)
            MenuButtonX(form,index) = MenuButtonX(form,index+1)
            MenuButtonY(form,index) = MenuButtonY(form,index+1)

            MenuButtonText$(form,index+1) = ""
            MenuButtonX(form,index+1) = 0
            MenuButtonY(form,index+1) = 0
        endif
    next index
  next form

EndFunction

Function Interface(x,y)
    Choice$=""
    ink rgb(128,128,128),0
    box x,y,x+125,y+210
    ink rgb(0,0,150),0
    box x,y,x+125,y+15
    ink rgb(255,255,255),0
    set text to italic
    text x+4,y,"Toolbox"
    set text to normal

    ink 0,0
    DrawOutline(x,y,125,210)
    line x,y+16,x+125,y+16

    if Button(x+10,y+20,"Add  Button") = 1 then Choice$ = "ADD"
    if Button(x+10,y+40,"Del. Button") = 1 then Choice$ = "DELETE"
    if Button(x+10,y+70,"Add  Form") = 1 then Choice$ = "ADDFORM"
    if Button(x+10,y+90,"Del. Form") = 1 then Choice$ = "DELETEFORM"



   `` if Button(x+10,y+120,"Add  TXTBox") = 1 then Choice$ = "ADDTEXTBOX"
   `` if Button(x+10,y+140,"Del. TXTBox") = 1 then Choice$ = "DELETETEXTBOX"

    if Button(x+10,y+170,"New ") = 1 then Choice$ = "NEW"
    if Button(x+50,y+170,"Save") = 1 then Choice$ = "SAVE"
    if Button(x+50,y+190,"Load") = 1 then Choice$ = "LOAD"
    if Button(x+10,y+190,"Quit") = 1 then Choice$ = "QUIT"

    MouseX = mousex()
    MouseY = mousey()

    if MouseX > x
        if MouseX < x+125
            if MouseY > y
                if MouseY < y + 15

                    if mouseclick()=1
                        Choice$= "MOVEINTERFACE"
                    endif
                endif
            endif
        endif
    endif

EndFunction Choice$


Function Button(x,y,Caption$)

    Click = 0
    width = ( len(Caption$)*8 ) + 4
    ink rgb(128,128,140),0
    box x,y,x+width,y+15
    ink rgb(180,180,200),0
    line x+1,y+1,x+width-1,y+1
    ink rgb(0,0,0),0
    center text x+ (width/2),y,Caption$


    MouseX = mousex()
    MouseY = mousey()

    ink 0,0

    if MouseX > x
        if MouseX < x+width
            if MouseY > y
                if MouseY < y + 15
                    ink rgb(255,255,255),0
                    if mouseclick()=1
                        Click=1
                        ink rgb(255,0,0),0
                    else
                        Click=0
                    endif
                    if mouseclick()=2
                        ink rgb(255,0,0),0
                        Click=2
                    endif
                endif
            endif
        endif
    endif

    DrawOutline(x,y,width,15)

EndFunction Click


Function DrawOutline(x,y,width,height)

    line x,y,x + width,y
    line x,y,x,y + height
    line x,y + height,x + width,y + height
    line x + width,y,x+ width,y+ height

EndFunction

`` example program

set display mode 800,600,16
sync on
sync rate 60
create bitmap 1,800,600

dim MenuButtonX(16,64)
dim MenuButtonY(16,64)
dim MenuButtonText$(16,64)
dim MenuButtonCount(16,1)

dim MenuFormText$(16)
dim MenuFormX(16)
dim MenuFormY(16)
dim MenuFormWidth(16)
dim MenuFormHeight(16)
dim MenuFormCount(1)

`Load your interface
TRD_LoadInterface("Example.txt")

do
    cls rgb(50,50,50)

    `The command to draw it all
    TRD_DrawInterface()

    `Example button check list, not that hard is it :) ?
    if TRD_Button("Shape Drawer","Draw a box   ") = 1
        ink rgb(255,0,0),0
        box 200,200,300,300
    endif

    if TRD_Button("Shape Drawer","Draw a circle") = 1
        ink rgb(255,0,0),0
        circle 300,300,30
    endif

    if TRD_Button("Shape Drawer","Quit") = 1
        end
    endif

    copy bitmap 1,0
    sync
loop

Function TRD_Button(TargetForm$,TargetButton$)

    ReturnValue=0

    for form = 1 to MenuFormCount(1)
        if MenuFormText$(form) = TargetForm$
            for button = 1 to MenuButtonCount(form,1)
                if MenuButtonText$(form,button) = TargetButton$
                    if Button(MenuButtonX(form,button)+MenuFormX(form),MenuButtonY(form,button)+MenuFormY(form),MenuButtonText$(form,button)) = 1
                        ReturnValue = 1
                    endif
                endif
            next button
        endif
    next form

EndFunction ReturnValue

Function TRD_LoadInterface( filename$ )
    if file exist(filename$)=1
        open to read 1,filename$

        read string 1,FormCountTemp$
        MenuFormCount(1) = val(FormCountTemp$)

        for form = 1 to MenuFormCount(1)

            read string 1,FormTempX$
            read string 1,FormTempY$
            read string 1,FormTempWidth$
            read string 1,FormTempHeight$
            read string 1,FormTempText$

            MenuFormText$(form) = FormTempText$
            MenuFormX(form) = val(FormTempX$)
            MenuFormY(form) = val(FormTempY$)
            MenuFormWidth(form) = val(FormTempWidth$)
            MenuFormHeight(form) = val(FormTempHeight$)

            read string 1,ButtonCountTemp$

            MenuButtonCount(form,1) = val(ButtonCountTemp$)

            for button = 1 to MenuButtonCount(form,1)

                read string 1,ButtonTempX$
                read string 1,ButtonTempY$
                read string 1,ButtonTempText$

                MenuButtonX(form,button) = val(ButtonTempX$)
                MenuButtonY(form,button) = val(ButtonTempY$)
                MenuButtonText$(form,button) = ButtonTempText$
            next button
        next form
        close file 1
    endif
EndFunction

Function TRD_SaveInterface( Filename$ )
    if file exist(filename$) = 1 then delete file filename$
        open to write 1,filename$

        write string 1,str$(MenuFormCount(1))

        for form = 1 to MenuFormCount(1)

            write string 1,str$(MenuFormX(form))
            write string 1,str$(MenuFormY(form))
            write string 1,str$(MenuFormWidth(form))
            write string 1,str$(MenuFormHeight(form))
            write string 1,MenuFormText$(form)

            write string 1,str$(MenuButtonCount(form,1))

            for button = 1 to MenuButtonCount(form,1)
               write string 1,str$(MenuButtonX(form,button))
               write string 1,str$(MenuButtonY(form,button))
               write string 1,MenuButtonText$(form,button)
            next button

        next form
        close file 1

EndFunction


function TRD_DrawInterface()
    for form = 1 to MenuFormCount(1)
        Form(form)

        for button = 1 to MenuButtonCount(form,1)

            Button(MenuButtonX(form,button) + MenuFormX(form),MenuButtonY(form,button)+ MenuFormY(form),MenuButtonText$(form,button))

        next button
    next form
EndFunction

Function Form(index)


    ink rgb(128,128,128),0
    box MenuFormX(index),MenuFormY(index),MenuFormX(index)+MenuFormWidth(index),MenuFormY(index)+MenuFormHeight(index)
    ink rgb(0,0,150),0
    box MenuFormX(index),MenuFormY(index),MenuFormX(index)+MenuFormWidth(index),MenuFormY(index)+15

    ink rgb(100,100,150),0
    line MenuFormX(index)+1,MenuFormY(index)+1,MenuFormX(index)+MenuFormWidth(index)-1,MenuFormY(index)+1

    ink rgb(255,255,255),0
    set text to italic
    text MenuFormX(index)+4,MenuFormY(index),MenuFormText$(index)
    set text to normal

    ink 0,0
    DrawOutline(MenuFormX(index),MenuFormY(index),MenuFormWidth(index),MenuFormHeight(index))
    line MenuFormX(index),MenuFormY(index)+16,MenuFormX(index)+MenuFormWidth(index),MenuFormY(index)+16



EndFunction Selected

Function Button(x,y,Caption$)

    Click = 0
    width = ( len(Caption$)*8 ) + 4
    ink rgb(128,128,140),0
    box x,y,x+width,y+15
    ink rgb(180,180,200),0
    line x+1,y+1,x+width-1,y+1
    ink rgb(0,0,0),0
    center text x+ (width/2),y,Caption$


    MouseX = mousex()
    MouseY = mousey()

    ink 0,0

    if MouseX > x
        if MouseX < x+width
            if MouseY > y
                if MouseY < y + 15
                    ink rgb(255,255,255),0
                    if mouseclick()=1
                        Click=1
                        ink rgb(255,0,0),0
                    else
                        Click=0
                    endif
                    if mouseclick()=2
                        ink rgb(255,0,0),0
                        Click=2
                    endif
                endif
            endif
        endif
    endif

    DrawOutline(x,y,width,15)

EndFunction Click


Function DrawOutline(x,y,width,height)

    line x,y,x + width,y
    line x,y,x,y + height
    line x,y + height,x + width,y + height
    line x + width,y,x+ width,y+ height

EndFunction

set display mode 640,480,32
sync on
sync rate 0
create bitmap 1,640,480

Max = 100
	REM setup Button & Text colors.
dim color(2)

dim bColor$(Max)
dim tColor$(Max)
dim blink$(Max)

bColor$(0) = "155,155,155"
tColor$(0) = "000,000,255"

dim Buttons(Max,5)
dim Text$(Max)

	REM Current buttons on screen.
Button = -1
MenuX = 500
MenuY = 300
cX = 500
cY = 200


do
	cls rgb(40,80,120)
	if State = 0 then gosub State0
	if State = 1 then gosub State1
	copy bitmap 1,0
	sync
loop

State0:
	ink rgb(80,100,180),0 : box 0,0,639,32 : ink rgb(255,255,255),0
	if button = -1	
		center text 320,0,"- Start by clicking the 'Create Button'."
		center text 320,16,"- Reposition the Menu boxes by clicking and draging the blue tab."
		else
		center text 320,0,"- Resize button using BottomRight Cornor.  - Position button with Mouse or Arrow keys."
		center text 320,16,"- 'Delete Button' will erase the last button created.  - RightClick the button to modify the text."
	endif
	gosub UpdateMouse
	gosub ButtonsDraw
	gosub ButtonsCheck
	gosub MainMenuDraw
	gosub MainMenuCheck
	gosub ColorDraw
	gosub ColorCheck
return

State1:
	ink rgb(80,100,180),0
	box 0,0,639,32
	ink rgb(255,255,255),0
	center text 320,0,"- Position Text with LeftClick.  - Use the ColorBox to modify TextColor."
	center text 320,16,"- Press ReturnKey when done."
	gosub UpdateMouse
	gosub ButtonsDraw
	gosub MainMenuDraw
	ColorT = 1
	gosub ColorDraw
	gosub ColorCheck

	if mc = 1 & KeyM = 0
		KeyM = 1
		mx2 = mx-Buttons(cB,4)
		my2 = my-Buttons(cB,5)
	endif

	if KeyM = 1
		Buttons(cB,4) = mx-mx2
		Buttons(cB,5) = my-my2
	endif

	Blink$(cB) = Blinker()
	Text$(cB) = Typing(Text$(cB),0,0)

	if returnkey() = 1
		State = 0
		Blink$(cB) = ""
	endif
return

ColorDraw:
		REM Updates the menu position. Move menu with click & drag.
	Check = CheckArea(cX-3,cY-8,cX+82,cY-1,1)
	if Check = 1
		if KeyM = 0
			mx2 = mx-cX
			my2 = my-cY
			KeyM = 9
		endif
	endif
	if KeyM = 9
		cX = mx-mx2
		cY = my-my2
	endif
		REM Draws the Blue menu box.
	ink rgb(100,120,200),0
	box cX-3,cY-8,cX+103,cY+3*16-1
return

ColorCheck:
	if button > -1
		if ColorT = 0
			r = val(left$(bColor$(cB),3))
			g = val(right$(left$(bColor$(cB),7),3))
			b = val(right$(bColor$(cB),3))
		endif
		if ColorT = 1
			r = val(left$(tColor$(cB),3))
			g = val(right$(left$(tColor$(cB),7),3))
			b = val(right$(tColor$(cB),3))
		endif
		else
		r = 0
		g = 0
		b = 0
	endif

	Check = menu(cX,cY,30,16,"Red,Grn,Blu",1)
	Check = menu(cX+45,cY,20,16,str$(r)+","+str$(g)+","+str$(b),1)

	Check = menu(cX+31,cY,10,16,"<,<,<",1)
	if KeyM = 0 or KeyM = 22
		if check = 1 & r > 0 then r = r - 1: KeyM = 22
		if check = 2 & g > 0 then g = g - 1: KeyM = 22
		if check = 3 & b > 0 then b = b - 1: KeyM = 22
	endif

	Check = menu(cX+69,cY,10,16,">,>,>",1)
	if KeyM = 0 or KeyM = 22
		if check = 1 & r < 255 then r = r + 1: KeyM = 22
		if check = 2 & g < 255 then g = g + 1: KeyM = 22
		if check = 3 & b < 255 then b = b + 1: KeyM = 22
	endif
	
	ink rgb(255,255,255),0
	box cX+84,cY+10,cX+84+16,cY+10+16
	ink rgb(r,g,b),0
	box cX+85,cY+11,cX+84+15,cY+10+15

	if button > -1
		r$ = right$("00"+str$(r),3)+","
		g$ = right$("00"+str$(g),3)+","
		b$ = right$("00"+str$(b),3)
		if ColorT = 0 then bColor$(cB) = r$+g$+b$
		if ColorT = 1 then tColor$(cB) = r$+g$+b$
	endif
	ColorT = 0
return

ButtonsDraw:
		REM Draws the Buttons
	if Button > -1
		for z = 0 to Button
			x1 = Buttons(z,0)
			y1 = Buttons(z,1)
			x2 = Buttons(z,2)
			y2 = Buttons(z,3)
			r = val(left$(bColor$(z),3))
			g = val(right$(left$(bColor$(z),7),3))
			b = val(right$(bColor$(z),3))
			ink 0,0
			box x1-1,y1-1,x1+x2+1,y1+y2+1
			ink rgb(r,g,b),0
			box x1,y1,x1+x2,y1+y2

			lBox(x1+x2-3,y1+y2-3,x1+x2+1,y1+y2+1,0)

			tx = Buttons(z,4)
			ty = Buttons(z,5)
			r = val(left$(tColor$(z),3))
			g = val(right$(left$(tColor$(z),7),3))
			b = val(right$(tColor$(z),3))
			ink rgb(r,g,b),0
			text tx,ty,Text$(z)+Blink$(z)
		next z
	endif
return

ButtonsCheck:
	if Button > -1
		for z = 0 to Button
			x1 = Buttons(z,0)
			y1 = Buttons(z,1)
			x2 = Buttons(z,2)
			y2 = Buttons(z,3)
			tx = Buttons(z,4)
			ty = Buttons(z,5)

			Check = CheckArea(x1+x2-3,y1+y2-3,x1+x2+1,y1+y2+1,1)
			if Check = 1 & KeyM = 0
				mx2 = x1
				my2 = y1
				KeyM = 8
			endif	

			Check = CheckArea(x1-1,y1-1,x1+x2+2,y1+y2+2,0)
			if Check = 1 
				LBox(x1-2,y1-2,x1+x2+2,y1+y2+2,rgb(255,255,255))
				mc = mouseclick()
				if mc = 1 & KeyM = 0
					mx2 = mx-x1
					my2 = my-y1
					mx3 = mx-tx
					my3 = my-ty
					KeyM = 11
					Cb = z
				endif
				if mc = 2
					MenuX2 = mx + (rnd(6)-3)*10
					MenuY2 = my
					State = 1
					Cb = z
				endif
			endif
		next z
	endif
		REM Mouse reposition Text
	if KeyM = 8
		Buttons(cB,2) = mx-mx2
		Buttons(cB,3) = my-my2
	endif
		REM Mouse repostion Button
	if KeyM = 11
		Buttons(cB,0) = mx-mx2
		Buttons(cB,1) = my-my2
		Buttons(cB,4) = mx-mx3
		Buttons(cB,5) = my-my3
	endif
		REM Keys reposition Button
	KeyA = Keys(1)
	if KeyA = 1 then Buttons(cB,1) = Buttons(cB,1) - 1:Buttons(cB,5) = Buttons(cB,5) - 1
	if KeyA = 2 then Buttons(cB,0) = Buttons(cB,0) - 1:Buttons(cB,4) = Buttons(cB,4) - 1
	if KeyA = 3 then Buttons(cB,0) = Buttons(cB,0) + 1:Buttons(cB,4) = Buttons(cB,4) + 1
	if KeyA = 4 then Buttons(cB,1) = Buttons(cB,1) + 1:Buttons(cB,5) = Buttons(cB,5) + 1

return

MainMenuDraw:
		REM Updates the menu position. Move menu with click & drag.
	Check = CheckArea(MenuX-3,MenuY-8,MenuX+103,MenuY-1,1)
	if Check = 1 & KeyM = 0
		if KeyM = 0
			mx2 = mx-MenuX
			my2 = my-MenuY
			KeyM = 10
		endif
	endif
	if KeyM = 10
		MenuX = mx-mx2
		MenuY = my-my2
	endif
		REM Draws the Blue menu box.
	ink rgb(100,120,200),0
	box MenuX-3,MenuY-8,MenuX+103,MenuY+3*18-1
		REM Options
	Check = menu(MenuX,MenuY,100,18,"Create Button,Delete Button,Save & Exit",1)
return

MainMenuCheck:
		REM Create Button
	if Check = 1 & KeyM = 0
		KeyM = 1
		Button = Button + 1
		cB = Button
		Buttons(cB,0) = 320-25
		Buttons(cB,1) = 240-8
		Buttons(cB,2) = 75
		Buttons(cB,3) = 16
		Buttons(cB,4) = 320-23
		Buttons(cB,5) = 240-8
		bColor$(cB) = "155,155,155"
		tColor$(cB) = "100,100,255"
		Text$(cB) = "Button " + str$(cB+1)
	endif
		REM Delete Button
	if Check = 2 & KeyM = 0
		KeyM = 1
		if button > 0 then button = button - 1
	endif
		REM Save & Exit
	if Check = 3 & KeyM = 0
		KeyM = 1
		if button > -1 then gosub Save
	endif
return

UpdateMouse:
	mx = mousex()
	my = mousey()
	mc = mouseclick()
	if mc = 0 then KeyM = 0
return

Save:
	c$ = ","
	if file exist("Codes.dba") = 1 then delete file "Codes.dba"
	open to write 1,"Codes.dba"
		write string 1,"sync on"
		write string 1,"sync rate 0"
		write string 1,"create bitmap 1,640,480"
		write string 1,""
		write string 1,"do"
		write string 1,"   cls " + str$(rgb(40,80,120))
		write string 1,"   gosub Buttons"
		write string 1,"   copy bitmap 1,0"
		write string 1,"   sync"
		write string 1,"loop"
		write string 1,""
		write string 1,"Buttons:"

		for z = 0 to button
			x1 = Buttons(z,0)
			y1 = Buttons(z,1)
			x2 = Buttons(z,2)
			y2 = Buttons(z,3)
			tx = Buttons(z,4)
			ty = Buttons(z,5)
			br = val(left$(bColor$(z),3))
			bg = val(right$(left$(bColor$(z),7),3))
			bb = val(right$(bColor$(z),3))
			tr = val(left$(tColor$(z),3))
			tg = val(right$(left$(tColor$(z),7),3))
			tb = val(right$(tColor$(z),3))
			write string 1,"      REM Button "+str$(z)
			write string 1,"   ink 0,0"
			write string 1,"   box "+str$(x1-1)+c$+str$(y1-1)+c$+str$(x1+x2+1)+c$+str$(y1+y2+1)
			write string 1,"   ink rgb("+str$(br)+c$+str$(bg)+c$+str$(bb)+"),0"
			write string 1,"   box "+str$(x1)+c$+str$(y1)+c$+str$(x1+x2)+c$+str$(y1+y2)
			write string 1,"   ink rgb("+str$(tr)+c$+str$(tg)+c$+str$(tb)+"),0"
			write string 1,"   text "+str$(tx)+c$+str$(ty)+c$+chr$(34)+Text$(z)+chr$(34)
			write string 1,"   Check = CheckArea("+str$(x1-1)+c$+str$(y1-1)+c$+str$(x1+x2+2)+c$+str$(y1+y2+2)+",1)"
			write string 1,"   if Check = 1"
			write string 1,"      ink rgb(255,255,255),0"
			write string 1,"      center text 320,0,"+chr$(34)+"You Clicked "+Text$(z)+chr$(34)
			write string 1,"   endif"
		next z

		write string 1,"return"
		write string 1,""
		write string 1,"   REM Mode0=MouseOver, Mode1=LeftClick, Mode3=RightClick"
		write string 1,"Function CheckArea(x1,y1,x2,y2,mode)"
		write string 1,"   retval = 0"
		write string 1,"   mx = mousex()"
		write string 1,"   my = mousey()"
		write string 1,"   mc = mouseclick()"
		write string 1,"   if mx > x1-1 & mx < x2+1 & my > y1-1 & my < y2+1"
		write string 1,"      if mode = 0 then retval = 1"
		write string 1,"      if mode = 1 & mc = 1 then retval = 1"
		write string 1,"      if mode = 2 & mc = 2 then retval = 1"
		write string 1,"   endif"
		write string 1,"EndFunction retval"
	close file 1

	ink 0,0
	box 160,240-9,320+163,240+32
	ink rgb(255,255,255),0
	center text 320,240,"Saved to file: Codes.dba"
	copy bitmap 1,0
	sync
	end
return

REM ------------------------------------------------------------------------
REM Functions Section
	REM Draws a Line box
Function lBox(x,y,l,h,c)
	ink c,0
	box x,y,l,y
	box x,y,x,h
	box x,h,l,h
	box l,y,l,h
EndFunction

	REM Mode0 = Keys Only
	REM Mode1 = Mouse Only
Function Menu(x,y,l,h,Menu$,Mode)
	dim MenuList$(20)
	retval = 0
	count = 0
	rows = 0

	repeat	
		g$ = ""
		i$ = ""
		repeat
			count = count + 1
			g$ = mid$(Menu$,count)
			if g$ <> "," then i$ = i$ + g$
		until g$ = "," or count > len(Menu$)
		MenuList$(rows) = i$
		rows = rows + 1
	until count > len(Menu$)

	if mode = 0
		repeat
			keys = Keys(1)
			if keys = 1 then retval = retval - 1
			if keys = 4 then retval = retval + 1
			if retval < 0 then retval = rows-1
			if retval > rows-1 then retval = 0
			for lp = 0 to rows-1
				MenuBox(x,y+lp*h,l,h)
				ink rgb(0,0,0),0 : center text x+l/2,y+lp*h+7,MenuList$(lp)
			next lp
			pointer(x,y+retval*32)
			copy bitmap 1,0
			sync
		until returnkey() = 1
		retval = retval + 1
	endif

	if mode = 1
		for lp = 0 to rows-1
			MenuBox(x,y+lp*h,l,h)
			ink rgb(0,0,0),0 : center text x+l/2,y+lp*h,MenuList$(lp)
			check = CheckArea(x,y+lp*h,x+l+2,y+lp*h+h,1)
			if check = 1 then retval = lp+1
		next lp
	endif

EndFunction retval

	REM Draws a small Blue box.
Function Pointer(x,y)
	ink rgb(0,0,255),0
	box x,y,x+10,y+10
endFunction

	REM X,Y,Length,Height
Function MenuBox(x,y,l,h)
	ink rgb(10,10,10),0 : box x-2,y-2,x+l+2,y+h-2
	ink rgb(230,230,230),0 : box x-1,y-1,x+l+1,y+h-3
	ink rgb(180,180,180),0 : box x,y,x+l,y+h-4
EndFunction

	REM Mode0 = MouseOver
	REM Mode1 = LeftClick
	REM Mode2 = RightClick.
Function CheckArea(x1,y1,x2,y2,mode)
	retval = 0
	mx = mousex()
	my = mousey()
	mc = mouseclick()
	if mx > x1-1 & mx < x2+1 & my > y1-1 & my < y2+1
		if mode = 0 then retval = 1
		if mode = 1 & mc = 1 then retval = 1
		if mode = 2 & mc = 2 then retval = 1
	endif
EndFunction retval

	REM Mode0 = Continuous Return
	REM Mode1 = Single Return
Function Keys(mode)
	retval = 0
	if leftkey() = 1
		if mode = 0 then retval = 2
		if mode = 1 & KeyL = 0 then retval = 2
		KeyL = 1
		else 
		KeyL = 0
	endif
	if rightkey() = 1
		if mode = 0 then retval = 3
		if mode = 1 & KeyR = 0 then retval = 3
		KeyR = 1
		else 
		KeyR = 0
	endif	
	if upkey() = 1
		if mode = 0 then retval = 1
		if mode = 1 & KeyU = 0 then retval = 1
		KeyU = 1
		else 
		KeyU = 0
	endif	
	if downkey() = 1
		if mode = 0 then retval = 4
		if mode = 1 & KeyD = 0 then retval = 4
		KeyD = 1
		else 
		KeyD = 0
	endif
EndFunction retval

Function Typing(TypingMod$,TypingL,TypingMode)
		REM TypingLimit: zero will make it unlimited suposively.
		REM TypingMode0 = All Letters
		REM Typingmode1 = Numbers Only
	if TypingL = 0 Then TypingL = 1000
	TypingI$ = inkey$()
	if TypingI$ = "" then TypingG$ = ""
	if asc(TypingI$) <> 8 then KeyTyping = 0
	if asc(TypingI$) = 8
		if KeyTyping = 0
			TypingC = 0
			if len(TypingMod$) > 0
				TypingMod$ = left$(TypingMod$,len(TypingMod$)-1)		
			endif
		endif
		KeyTyping = 1
		TypingI$=""
		inc TypingC,1
		if TypingC > 6 then KeyTyping = 0
	endif
	z = asc(TypingI$)
	if TypingMode = 1 & z > 57 or TypingMode = 1 & z < 48 then TypingI$=""
	if TypingMode = 0 & z > 127 or TypingMode = 0 & z < 32 then TypingI$=""
	if TypingG$ <> TypingI$ & len(TypingMod$) < TypingL then TypingMod$=TypingMod$+TypingI$
	TypingG$ = TypingI$
EndFunction	TypingMod$

Function Blinker()
	Blink = Blink + 1
	if Blink > 3
		Blink = 0
		if Blinker$ = "" then Blinker$ = "|" else Blinker$ = ""
	endif
EndFunction Blinker$

Ashingda - Good File Saving, Turoids would have taken Runner up, but it didn't save, and as that was the most important aspect, I had to give it to Ashingda. Good interpretation of the concept Ashingda!

BN2 Version 1 - Great job. Version 2 took the cake, but with the enhanced commands and saving issues, it couldn't be counted.

remstart
   ==============================================================
   =  Title  : ai challenge
   =  Author : Latch Grapple
   =  Date   : 02/25/2008
   =  Update :
   =  Version:
   ==============================================================
   Comments
   ==============================================================
remend


rem =============================================================
rem = SET UP DISPLAY
rem =============================================================
   autocam off
   set display mode 800,600,32
   sync on
   sync rate 60
   hide mouse
   randomize timer()

rem =============================================================
rem = TEST DBC Version
rem =============================================================
   tversion:
   Print "Please Enter the version of DBC you are using"
   Print "1 = DBC 1.13 or less"
   Print "2 = DBC 1.20"
   Input "version  :  ";a
   if a < 1 or a > 2
      cls
      goto tversion
   endif
   if a=1 then version=113
   if a=2 then version=120
   cls

   create bitmap 1,258,258
   wait 0

`version=120
`version=113

rem =============================================================
rem = MAIN
rem =============================================================
_main:
   gosub _init
   `position camera 0,0,-50
   do
      gosub _move_main
      gosub _ai_follow

      sync
   loop

   end

rem =============================================================
rem = SUBROUTINES - PROCEDURES
rem =============================================================
   _init:
      gosub _ground
      gosub _characters
      gosub _lighting

      position object 1,5000,30,5000
      color backdrop RGB(128,128,255)
      set text font "system",1
      set text opaque
      ink rgb(255,0,0),0

      set current bitmap 0
   return
`----------------------------------------------------------------
   _ground:
      ink rgb(100,100,100),0
      box 0,0,100,100
      for n=1 to 10
         blur bitmap 1,3
      next n
      get image 3,0,0,112,112
      sync
      cls 0
      make matrix 1,10000,10000,25,25
      prepare matrix texture 1,3,1,1
      randomize matrix 1,2000
      calc_mat_normals(1,25,25,20.0,20.0)
      update matrix 1


   return
`----------------------------------------------------------------
   _characters:
      rem textures
      ink 255,0
      dot 0,0
      get image 1,0,0,1,2
      sync

      cls
      ink rgb(255,0,0),0
      dot 0,0
      get image 2,0,0,1,2

      rem main character
      make object sphere 1,25
      make mesh from object 1,1
      make object box 2,5,30,6
      offset limb 2,0,0,-15,0
      make mesh from object 2,2
      delete object 2
      add limb 1,1,2
      add limb 1,2,2
      add limb 1,3,1
      offset limb 1,1,-6,-6,0
      offset limb 1,2,6,-6,0
      texture object 1,1
      hide limb 1,0

      rem animate
      set object keyframe 1,0
      rotate limb 1,1,30,0,0
      rotate limb 1,2,330,0,0
      offset limb 1,3,0,-5,0
      set object keyframe 1,10
      rotate limb 1,1,0,0,0
      rotate limb 1,2,0,0,0
      offset limb 1,3,0,0,0
      set object keyframe 1,20
      rotate limb 1,1,330,0,0
      rotate limb 1,2,30,0,0
      offset limb 1,3,0,-5,0
      set object keyframe 1,30
      rotate limb 1,1,359,0,0
      rotate limb 1,2,1,0,0
      offset limb 1,3,0,-.5,0
      set object keyframe 1,38

      scale object 1,400,400,400

      set object speed 1,25

      loop object 1
      `hide object 1


      rem enemy
      make object sphere 2,25
      add limb 2,1,2
      add limb 2,2,2
      add limb 2,3,1
      delete mesh 1
      delete mesh 2
      offset limb 2,1,-6,-6,0
      offset limb 2,2,6,-6,0
      texture object 2,2
      hide limb 2,0
      `hide object 2

      rem animate
      set object keyframe 2,0
      rotate limb 2,1,60,0,0
      rotate limb 2,2,300,0,0
      offset limb 2,3,0,-5,0
      set object keyframe 2,10
      rotate limb 2,1,0,0,0
      rotate limb 2,2,0,0,0
      offset limb 2,3,0,0,0
      set object keyframe 2,20
      rotate limb 2,1,300,0,0
      rotate limb 2,2,60,0,0
      offset limb 2,3,0,-5,0
      set object keyframe 2,30
      rotate limb 2,1,359,0,0
      rotate limb 2,2,1,0,0
      offset limb 2,3,0,-.5,0
      set object keyframe 2,38

      scale object 2,400,400,400

      set object speed 2,35

      loop object 2

      rem collision
      set object collision on 1
      set object collision on 2
      set object collision to boxes 1
      set object collision to boxes 2

   return
`---------------------------------------------------------------------
   _move_main:
      objx#=object position x(1)
      objy#=object position y(1)
      objz#=object position z(1)

      if objx# > 10000 or objx# < 0 then objx#=5000 : objz#=5000
      if objz# > 10000 or objz# < 0 then objz#=5000 : objx#=5000

      oangy#=object angle y(1)
      y#=get ground height(1,objx#,objz#)
      position object 1,objx#,y#+140,objz#
      if y# <= 50
         move object 1,5
      else
         if y# >= oldy#
            rem get the side heights to figure out which way to turn
            rem left
            newx=newxvalue(objx#,wrapvalue(oangy#-90),13)
            newz=newzvalue(objz#,wrapvalue(oangy#-90),13)
            lht=get ground height(1,newx,newz)
            rem right
            newx=newxvalue(objx#,wrapvalue(oangy#+90),13)
            newz=newzvalue(objz#,wrapvalue(oangy#+90),13)
            rht=get ground height(1,newx,newz)
            if rht >= lht
               anginc=-2.2
            else
               anginc=2.7
            endif
            yrotate object 1,wrapvalue(object angle y(1)+anginc)
            move object 1,6
         endif
      endif

      oldy#=y#

      set camera to follow object position x(1),object position y(1),object position z(1),object angle y(1),500,objy#+100,100,0
      `position camera object position x(1),object position y(1)+300,object position z(1)
      `set camera to object orientation 1
      `move camera -300
      `point camera object position x(1),object position y(1),object position z(1)

   return
`---------------------------------------------------------------
   _ai_follow:
      rem make object two chase object 1
      objx#=object position x(1)
      `objy#=object position y(1)
      objz#=object position z(1)

      enx#=object position x(2)
      enz#=object position z(2)
      ht#=get ground height(1,enx#,enz#)
      position object 2,enx#,ht#+140,enz#
      eny#=object position y(2)

      dist#=sqrt((objx#-enx#)^2+(objz#-enz#)^2)
      if dist# < 5000 and dist# > 800 then center text screen width()/2,100,"HEY WAIT UP!!!"
      if dist# < 400 then center text screen width()/2,0,"HEY BLUE!!!!"
      if dist# < 300 then center text screen width()/2,20,"IT'S ME, RED!!"
      if dist# < 200
         center text screen width()/2,40,"WHERE YA GOING??"
         center text screen width()/2,60,"CAN I COME???"
         center text screen width()/2,80,"CAN I?  CAN I?"
      endif


      rem calculate a smooth angle to turn towards object 1
      enangy#=object angle y(2)
      point object 2,objx#,eny#,objz#
      newangy#=object angle y(2)
      yrotate object 2,enangy#
      attackang#=curveangle(newangy#,enangy#,30)
      yrotate object 2,attackang#

      move object 2,12

      bang=object hit(1,2)
      if bang=1
         inc count
         if count >= 5
            tim=timer()
            count=0
         endif
      endif
      if timer()-tim < 2000
         set object speed 1,60
         move object 1,15
         yrotate object 1,wrapvalue(object angle Y(1)+rnd(6)-3)
      else
         set object speed 1,25
      endif


   return
`---------------------------------------------------------------
   _lighting:
      if version=120
         set ambient light 30
         color ambient light 0
         `set directional light 0,1,-.5,1
         make light 1
         set directional light 1,1,-2,3
      else
         set ambient light 40
         color ambient light rgb(180,180,180)
         make light 1
         set directional light 1,1,-.5,1
      endif
   return
rem =============================================================
rem = FUNCTIONS
rem =============================================================
   Function calc_mat_normals(mat,tilex,tilez,sizex#,sizez#)
   Rem By Lee Bamber From DB Example - Adds shaded areas to matrix to give depth
   rem added tile and tile size factor for normal depth adjustment - latch
      for z=1 to tilez
         for x=1 to tilex

            rem Get matrix heights
            h8#=get matrix height(mat,x,z-1)
            h4#=get matrix height(mat,x-1,z)
            h#=get matrix height(mat,x-1,z-1)
            h2#=get matrix height(mat,x,z)

            rem Calculate projected angle X using heights
            x1#=(x-1)*sizex# : y1#=h#
            x2#=(x+0)*sizex# : y2#=h4#
            dx#=x2#-x1#
            dy#=y2#-y1#
            ax#=atanfull(dx#,dy#)
            ax#=wrapvalue(90-ax#)

            rem Calculate projected angle Z using heights
            z1#=(z-1)*sizez# : y1#=h2#
            z2#=(z+0)*sizez# : y2#=h8#
            dz#=z2#-z1#
            dy#=y2#-y1#
            az#=atanfull(dz#,dy#)
            az#=wrapvalue(90-az#)

            rem Make normal from projected angle
            nx#=sin(ax#)
            ny#=cos(ax#)
            nz#=sin(az#)

            rem Setting matrix normal for smoothness
            set matrix normal mat,x,z,nx#,ny#,nz#

         next x
      next z
      update matrix mat
   EndFunction
rem =============================================================
rem = DATA STATEMENTS
rem =============================================================

sync on
sync rate 0

`draw the 'arena'
ink rgb(0,255,0),1
box 0,0,639,479

`reset the colours
ink rgb(0,0,255),1

`make our blue guy
q=5
for v=1 to q
circle 10,10,v
next v
dot 10,10
get image 1,5,5,16,16

`set the colour to red annd make our red guy
ink rgb(255,0,0),1
for v=1 to q
circle 10,10,v
next v
dot 10,10
get image 2,5,5,16,16

`get rid of what's extra
cls

`position our sprites
sprite 1,rnd(639)+1,rnd(479)+1,1
sprite 2,rnd(639)+1,rnd(479)+1,2

`change our sync rate to something suitable
sync rate 70

`remake our 'arena', and set the colour to blue
ink rgb(0,255,0),1
box 0,0,639,479
ink rgb(0,0,255),1

x#=rnd(639) :`starting x coordinate
y#=rnd(479) :`starting y coordinate
a1=1 :`tell it to increase the x value of our blue guy
b1=1 :`tell it to decresee the y value of our blue guy

`=====================
`Main Loop
`=====================

do

`=====================
REM EVADER
`=====================
`increase blue guy's X value
if a1=1
	x#=x#+2
	if x#>=639
		a2=1
		a1=0
	endif
endif

`increase blue guy's Y value
if b1=1
	y#=y#+2
	if y#>=479
		b2=1
		b1=0
	endif
endif

`decrease blue guy's X value
if a2=1
	x#=x#-2
	if x#<=1
		a1=1
		a2=0
	endif
endif

`decrease blue guy's Y value
if b2=1
	y#=y#-2
	if y#<=1
		b1=1
		b2=0
	endif
endif

`position our blue guy
sprite 1,x#,y#,1

`=====================
REM CHASER
`=====================

c1#=sprite x(1) :`find blue's X
d1#=sprite y(1) :`find blue's Y
e1#=sprite x(2) :`find red's X
f1#=sprite y(2) :`find red's Y

if c1#>e1# then g1#=g1#+1.75 :`tell red to go up if blue is above 
if c1#<e1# then g1#=g1#-1.75 :`tell red to go down if blue is below
if d1#>f1# then h1#=h1#+1.75 :`tell red to go right if blue is to the right
if d1#<f1# then h1#=h1#-1.75 :`tell red to go left if blue is to the left

`position our red guy
sprite 2,g1#,h1#,2

`set the collision to the red guy
coll#=sprite collision(2,0)

if coll#=1
goto finish
endif

sync
loop

finish:
delete sprite 1
delete sprite 2
cls
print "AHH! RED CAUGHT UP!!"
repeat
sync
until mouseclick()=1
end