Sorry your browser is not supported!

ma as byte
na as integer
pa as integer

c = 130
ma = mid ascii(chr$(c), 1)
na = mid ascii(chr$(c), 1)
pa = ma
print "ma = ", ma, "  na = ", na, "  pa = ", pa
wait key

a$=chr$(128)
if asc(a$)=128 then print "normal asc works"
if mid ascii(a$,1)=128 then print "mid ascii works"  `Dosen't work
wait key
end

function mid_ascii(s as string, pos as integer)
   local b as byte
   b = mid ascii(s, pos)
endfunction b

e=Find Free Object()
Print e
Wait key

a = find free image()
b = find free image()
load image filename1, a
load image filename2, b

a = find free image()
load image filename, a
b = find free image()
load image filename2, b

fin$ = "Finished!"

MAKE BANK FROM FILE 1, "test.txt"

MAKE FILE FROM BANK "testout.txt", 1

Print fin$

NICE WAIT KEY

END

PRINT "HELLO WORLD!"

NICE WAIT KEY

END

if open datafile to read(1, "no_such_file") = 1
   ` do something with the file
   close datafile 1
else
   report error "Failed to open no_such_file"
endif

sync on
sync rate 0

SET CAMERA TO IMAGE 0,1,640,480
LOAD EFFECT "quad.fx",1,0
SET SCREEN EFFECT 1
TEXTURE SCREEN 1

do
   draw to image 1
   box 0, 0, draw target width(), draw target height(), css3 colour("white")
   box 10, 10, draw target width()-10, draw target height()-10, css3 colour("red"), css3 colour("green"), css3 colour("blue"), css3 colour("yellow")
   draw to bitmap 0

   sync
loop

#constant try if push_ex()
#constant catch pop_ex : else : get_ex
#constant endcatch endif

try
    ` Some code
    throw "Oh noes, a problem occured!"
catch ex$
    ` Exception handling code
    print ex$
endcatch

try
   x$ = "goodbye"
   throw "Oops"
catch e$
   print e$
endcatch

Created with previous version dll
41 72 72 61 79 44 61 74 61 00 01 00 00 00 00 00 00 00 65 00 00 00 64 00 00 00 FF FF FF
FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF


Created with latest matrix1 29 dll 
41 72 72 61 79 44 61 74 61 00 01 00 00 00 00 00 00 00 65 00 00 00 65 00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

dim temp(100)
open datafile to write 1,"c:\temp.arr"
 save array to datafile temp(),1
close datafile 1

open datafile to read 1,"c:\temp.arr"
  load array from datafile temp(),1
close datafile 1

print "done"
wait key

sync on

Global m_numberOfMenus as integer        : m_numberOfMenus = 0
Global m_numberOfMenuItems as integer    : m_numberOfMenuItems = 0
Global m_activeDropDownMenu as integer   : m_activeDropDownMenu = 0
Global m_mouse_flag as integer           : m_mouse_flag = 0

Global MENUCOLOR as dword
MENUCOLOR = rgb(180,180,180)
Global TEXTCOLOR as dword
TEXTCOLOR = rgb(0,0,0)

type dropDownMenuItemObject
   menuNumber as integer
   priority as integer
   title as string
   x1 as integer
   y1 as integer
   x2 as integer
   y2 as integer
endtype

type dropDownMenuObject
   number as integer
   title as string
   numberOfItems as integer
   `dim item(0) as string
   x1 as integer
   y1 as integer
   x2 as integer
   y2 as integer
   hide as boolean
   width as integer
endtype

Global dim dropDownMenu(0) as dropDownMenuObject
Global dim dropDownMenuItem(0) as dropDownMenuItemObject

makeDropDownMenu(1, "File")   : positionDropDownMenu(1, 100, 100)
makeDropDownMenu(2, "Edit")   : positionDropDownMenu(2, 135, 200)
makeDropDownMenu(3, "Search") : positionDropDownMenu(3, 135, 250)
makeDropDownMenu(4, "View")   : positionDropDownMenu(4, 35, 200)
makeDropDownMenu(5, "Compile"): positionDropDownMenu(5, 15, 250)
makeDropDownMenu(6, "Tools")  :

rem ignores the positionDropDownMenu() and aligns all menus at
rem the top of the screen as any application would do
alignDropDownMenus(1,1)

`setDropDownMenuColor(1, rgb(155,0,0))
`setDropDownMenuColor(2, rgb(0,0,200))
`setDropDownMenuTextColor(2, rgb(255,255,255))

`hideDropDownMenu(5)
`showDropDownMenu(5)

addDropDownMenuItem(1, "New Project" , 1)
addDropDownMenuItem(1, "Open Project" , 2)
addDropDownMenuItem(1, "Open Source" , 3)
addDropDownMenuItem(1, "Reopen           >" , 4)
addDropDownMenuItem(1, "Save Project" , 5)
addDropDownMenuItem(1, "Save Project As..." , 6)
addDropDownMenuItem(1, "Save Source" , 7)
addDropDownMenuItem(1, "Save Source As..." , 8)
addDropDownMenuItem(1, "Save all" , 9)
addDropDownMenuItem(1, "Close", 10)
addDropDownMenuItem(1, "Close All" , 11)
addDropDownMenuItem(1, "Print..." , 12)
addDropDownMenuItem(1, "Exit" , 13)

addDropDownMenuItem(2, "Undo " , 1)
addDropDownMenuItem(2, "Redo" , 2)
addDropDownMenuItem(2, "Cut" , 3)
addDropDownMenuItem(2, "Copy" , 4)
addDropDownMenuItem(2, "Paste" , 5)
addDropDownMenuItem(2, "Delete Block" , 6)
addDropDownMenuItem(2, "Select All" , 7)
addDropDownMenuItem(2, "Toggle Breakpoint" , 8)
addDropDownMenuItem(2, "Set Bookmark     >" , 9)







thing$ = "Click a menu"

do
   cls
   `drawDropDownMenu(1)
   `drawDropDownMenu(2)
   `drawDropDownMenu(3)
   `drawDropDownMenu(4)
   `drawDropDownMenu(5)
   drawDropDownMenus()



   `if dropDownMenuListener() = 1 then thing$ = "File"
   `if dropDownMenuListener() = 2 then thing$ = "Edit"

   menuItem$ = dropDownMenuListener()

   if menuItem$ <> ""  then result$ = menuItem$



   set cursor 0,420
   ink rgb(255,255,255),0
   print result$
   print m_activeDropDownMenu
   sync
loop



REM public function
REM Creates a new drop-down menu object
function makeDropdownMenu(menu_number as integer, menu_title$ as string)
   array insert at bottom dropDownMenu(0)
   inc m_numberOfMenus
   dropDownMenu(m_numberOfMenus).title = menu_title$
   dropDownMenu(m_numberOfMenus).number = menu_number
endfunction


REM public function
REM Adds an item to a drop-down menu
function addDropDownMenuItem(menu_number as integer, item_name$ as string, priority as integer)
   inc m_numberOfMenuItems
   index = getArrayElement(menu_number)
   dropDownMenu(index).numberOfItems = dropDownMenu(index).numberOfItems + 1

   array insert at bottom dropDownMenuItem(0)
   dropDownMenuItem(m_numberOfMenuItems).menuNumber = menu_number
   dropDownMenuItem(m_numberOfMenuItems).title = item_name$
   dropDownMenuItem(m_numberOfMenuItems).priority = priority
   dropDownMenuItem(m_numberOfMenuItems).x1 = dropDownMenu(index).x1
   dropDownMenuItem(m_numberOfMenuItems).y1 = dropDownMenu(index).y1 + 14 * priority
   dropDownMenuItem(m_numberOfMenuItems).x2 = dropDownMenu(index).x1 + (len(item_name$) * 8 + 3)
   dropDownMenuItem(m_numberOfMenuItems).y2 = dropDownMenu(index).y2 + 14 * priority

   if (dropDownMenuItem(m_numberOfMenuItems).x2 - dropDownMenuItem(m_numberOfMenuItems).x1) > dropDownMenu(index).width
      dropDownMenu(index).width = dropDownMenuItem(m_numberOfMenuItems).x2 - dropDownMenuItem(m_numberOfMenuItems).x1
   endif

endfunction


REM public function
REM Defines location of a drop-down menu
function positionDropDownMenu(menu_number as integer, x as integer, y as integer)
   index = getArrayElement(menu_number)
   dropDownMenu(index).x1 = x
   dropDownMenu(index).y1 = y
   dropDownMenu(index).x2 = x + (len(dropDownMenu(index).title) * 8 + 3)
   dropDownMenu(index).y2 = y+14
endfunction


REM public function
REM Returns clicked menu item title
function dropDownMenuListener()
   if mouseclick() = 0 then m_mouse_flag = 0
   if m_activeDropDownMenu = 0 and m_mouse_flag = 0
      index = 0
      clickedItem$ = ""
      while (index <= m_numberOfMenus)
         inc index
         if dropDownMenu(index).hide = 0
            x1 = dropDownMenu(index).x1
            y1 = dropDownMenu(index).y1
            x2 = dropDownMenu(index).x2
            y2 = dropDownMenu(index).y2

            if mouseWithIn(x1, y1, x2, y2)
               drawOutlineBox(x1, y1, x2, y2)
               `setDropDownMenuColor(dropDownMenu(index).number, rgb(0,0,155))
               if mouseclick() = 1 and dropDownMenu(index).numberOfItems > 0
                  m_activeDropDownMenu = dropDownMenu(index).number
                  m_mouse_flag = 1
                  `m_dropDownMenuActive = 1
                  exit
               endif
            else
               `setDropDownMenuColor(dropDownMenu(index).number, rgb(200,200,200))
            endif
         endif
      endwhile
   else
      clickedItem$ = ActiveDropDownMenuListener()
   endif
endfunction clickedItem$


REM private function
REM handles active drop-down menu item list
REM Returns title of clicked menu item
function ActiveDropDownMenuListener()
   if mouseclick() = 0 then m_mouse_flag = 0
   if m_activeDropDownMenu > 0
      index = 0
      while (index <= m_numberOfMenus)
         inc index
         if dropDownMenu(index).hide = 0
            x1 = dropDownMenu(index).x1
            y1 = dropDownMenu(index).y1
            x2 = dropDownMenu(index).x2
            y2 = dropDownMenu(index).y2

            if mouseWithIn(x1, y1, x2, y2)
               if dropDownMenu(index).numberOfItems > 0
                  m_activeDropDownMenu = dropDownMenu(index).number
               else
                  m_activeDropDownMenu = 0
               endif
            endif
            if dropDownMenu(index).number = m_activeDropDownMenu then drawIndentedOutlineBox(x1, y1, x2, y2)
         endif
      endwhile

      if m_activeDropDownMenu > 0
         index = 0
         while (index <= m_numberOfMenuItems)
            inc index
            if dropDownMenuitem(index).menuNumber = m_activeDropDownMenu
               x1 = dropDownMenuItem(index).x1
               y1 = dropDownMenuItem(index).y1
               x2 = dropDownMenuItem(index).x2
               y2 = dropDownMenuItem(index).y2
               drawDropDownMenuItem(index)

               if mouseWithIn(x1, y1, x2, y2)
                  drawIndentedOutlineBox(x1, y1, x2, y2)
                  if mouseclick()=1 and m_mouse_flag = 0
                     m_mouse_flag = 1
                     m_activeDropDownMenu = 0
                     exitfunction dropDownMenuitem(index).title
                  endif
               endif
            endif
         endwhile
      endif

      if mouseclick()=1 and m_mouse_flag = 0
         m_mouse_flag = 1
         m_activeDropDownMenu = 0
      endif
   endif
endfunction ""


`MESSAGE HERE EXITFUNCTION and ENDFUNCTION must return the same data type at line 244.


REM public function
REM Draws all unhidden menus
function drawDropDownMenus()
   index = 0
   while (index <= m_numberOfMenus)
      inc index
      if dropDownMenu(index).hide = 0
         drawDropDownMenu(dropDownMenu(index).number)
         if dropDownMenu(index).number = m_activeDropDownMenu
            rem draw menu item list
         endif
      endif
   endwhile
endfunction


REM public function
REM Hides the drop-down menu from drawing procedures and actions
function hideDropDownMenu(menu_number as integer)
   index = getArrayElement(menu_number)
   dropDownMenu(index).hide = 1
endfunction


REM public function
REM Shows the drop-down menu for drawing procedures and actions
function showDropDownMenu(menu_number as integer)
   index = getArrayElement(menu_number)
   dropDownMenu(index).hide = 0
endfunction


REM public function
REM Sets the background color of the menu
function setDropDownMenuColor(menu_number as integer, color as dword)
   index = getArrayElement(menu_number)
   `dropDownMenu(index).backColor = color
endfunction


REM public function
REM Sets the text color of the menu
function setDropDownMenuTextColor(menu_number as integer, color as dword)
   index = getArrayElement(menu_number)
   `dropDownMenu(index).textColor = color
endfunction


REM public function
REM Aligns all drop-down menus on the given y-coordinate, and starting
REM at the given x-coordinate placing them one after another to the right
function alignDropDownMenus(x as integer, y as integer)
   index = 0
   y2 = y + 14
   while (index <= m_numberOfMenus)
      inc index
      dropDownMenu(index).x1 = x
      dropDownMenu(index).y1 = y
      x = x + (len(dropDownMenu(index).title) * 8 + 3)
      dropDownMenu(index).x2 = x
      dropDownMenu(index).y2 = y2
      inc x
   endwhile
endfunction


REM public function
REM Same thing as alignDropDownMenus(), but centers the row of menus at the
REM x-coordinate given
function centerDropDownMenus(x as integer, y as integer)

endfunction


REM public function
REM Returns the given menu number's title as a string
function getDropDownMenuName(menu_number as integer)
   index = getArrayElement(menu_number)
   name$ = dropDownMenu(index).title
endfunction name$


REM private function
REM Returns the proper index number associated with the given menu number
function getArrayElement(menu_number as integer)
   i = 0
   menu_index = 0
   while (i <= m_numberOfMenus)
      if dropDownMenu(i).number = menu_number
         menu_index = i
         i = m_numberOfMenus+1
      else
         inc i
      endif
   endwhile
endfunction menu_index


REM private function
REM Draws a drop-down menu item
function drawDropDownMenuItem(iIndex as integer)
   index = getArrayElement(dropDownMenuItem(iIndex).menuNumber)
   x1 = dropDownMenuItem(iIndex).x1
   y1 = dropDownMenuItem(iIndex).y1
   x2 = dropDownMenuItem(iIndex).x2
   y2 = dropDownMenuItem(iIndex).y2
   ink MENUCOLOR, 0
   box x1, y1, x1+dropDownMenu(index).width, y2
   ink TEXTCOLOR, 0
   text x1+1, y1, dropDownMenuItem(iIndex).title
endfunction


REM private function
REM Draws a drop-down menu object
function drawDropDownMenu(menu_number as integer)
   index = getArrayElement(menu_number)
   x1 = dropDownMenu(index).x1
   y1 = dropDownMenu(index).y1
   x2 = dropDownMenu(index).x2
   y2 = dropDownMenu(index).y2
   ink MENUCOLOR, 0
   box x1, y1, x2, y2
   ink TEXTCOLOR, 0
   text x1+1, y1, dropDownMenu(index).title
endfunction


REM private function
REM Returns true if mouse is within the defined area
function mouseWithIn(x1 as integer, y1 as integer,x2 as integer, y2 as integer)
   if mousex() > x1 and mousex() < x2 and mousey() > y1 and mousey() < y2 then exitfunction 1
endfunction 0


REM private function
REM draws a box outline
function drawOutlineBox(x1 as integer, y1 as integer, x2 as integer, y2 as integer)
   ink rgb(255,255,255), 0
   line x1,y1,x2,y1
   line x1,y1,x1,y2
   ink rgb(0,0,0), 0
   line x1,y2-1,x2,y2-1
   line x2-1,y1,x2-1,y2
endfunction


REM private function
REM draws an indented box outline
function drawIndentedOutlineBox(x1 as integer, y1 as integer, x2 as integer, y2 as integer)
   ink rgb(0,0,0), 0
   line x1,y1,x2,y1
   line x1,y1,x1,y2
   ink rgb(255,255,255), 0
   line x1,y2-1,x2,y2-1
   line x2-1,y1,x2-1,y2
endfunction

exitfunction dropDownMenuitem(index).title + ""

SET WINDOW OFF
SET DISPLAY MODE 640,480,32

REPEAT
CLS
CIRCLE 320,200,190
FILL 320,200,RGB(255,0,0)

x=MOUSEX()
y=MOUSEY()
col=POINT(x,y)

SET CURSOR 0,0
PRINT "red= "; RGBR(col)  
PRINT "green= "; RGBG(col)
PRINT "blue= "; RGBB(col)

UNTIL SCANCODE()<>0

END

push integer 3
push string "Hello"
call function ptr functionPtr