Sorry your browser is not supported!

MAKE XML 1

ADD XML NODE 1, "StringVal"
ADD XML NODE 1, "FloatVal"
ADD XML NODE 1, "IntVal"

XML NODE TO NAME 1, "StringVal"
XML NODE VALUE 1, "A String Value"

XML NODE TO NAME 1, "FloatVal"
XML NODE VALUE 1, 1.25

XML NODE TO NAME 1, "IntVal"
XML NODE VALUE 1, 5657

XML NODE TO PARENT 1

OPEN NEW XML NODE 1, "AParent"
XML NODE VALUE 1, "On the fly & Stuff"
XML NODE ATTRIB 1, "Attribute", "Value"
OPEN NEW XML NODE 1, "AChild"
CLOSE XML NODE 1
CLOSE XML NODE 1


SAVE XML 1, "XML.txt"

<?xml version="1.0"?>
<StringVal>A String Value</StringVal>
<FloatVal>1.25</FloatVal>
<IntVal>5657</IntVal>
<AParent Attribute="Value">
  <AChild></AChild>
</AParent>

DRAW SPRITES FIRST
BACKDROP OFF
AUTOCAM OFF
SYNC ON: SYNC

SET WINDOW LAYOUT 0, 0, 0
LOAD IMAGE "shape.bmp", 1, 1
LOAD IMAGE "texture.bmp", 2, 1

SHAPE WINDOW "shape.bmp", 0, 1


POSITION CAMERA 0,0,-4
POINT CAMERA 0,0,0
MAKE OBJECT CUBE 1, 1
POSITION OBJECT 1, -1, 0, 0
TEXTURE OBJECT 1, 2
INK RGB(155,155,255), 0

SET TEXT FONT "Verdana"
SET TEXT SIZE 22
SET TEXT TO BOLD

DO
   TEXT 50, 50, "A spinning cube"
   SPRITE 1, 0, 0, 1
   a = WRAPVALUE(a+1)
   XROTATE OBJECT 1, a
   SYNC
LOOP

Public Function AddFloats(Val1 As Single, Val2 As Single) As Single
    AddFloats = Val1 + Val2
End Function

rem Create an object of the class (in this case "TestClass")
MAKE AX OBJECT "AxDemo.TestClass", 1  

rem Call the function AddFloats
r# = CALL AX FUNC(1, "AddFloats", "F", "FF", 4.2, 1.3)

rem print the result
PRINT r#

WAIT KEY

PERFORM CHECKLIST FOR MIDI OUT DEVICES
OPEN MIDI OUT [Device Name, Midi Out Number] [Device ID, Midi Out Number]
CLOSE MIDI OUT Midi Out Number
MIDI OUT NOTE OFF Midi Out Number, Channel, Note, Velocity [, ZeroVel Note On]
MIDI OUT NOTE ON Midi Out Number, Channel, Note, Velocity
MIDI OUT SEND MSG Midi Out Number, Midi Byte 1, Midi Byte 2, Midi Byte 3
MIDI OUT SET PATCH Midi Out Number, Channel, Patch Number
MIDI OUT SEND SHORT MSG Midi Out Number, Midi Message

WordApp = 1
WordDocs = 2
WordSel = 3
CurrentDoc = 4

rem create Word.Application object
MAKE AX "Word.Application", WordApp

rem show Word
SET AX INTEGER WordApp, "Visible", 1

rem get Word Documents object
DocDisp = GET AX DISPATCH(WordApp, "Documents")

rem create Word Documents object
MAKE AX DocDisp, WordDocs

rem add a new document to word
CALL AX FUNC WordDocs, "D", "V", "Add"

rem get Word Selection object
SelDisp = GET AX DISPATCH(WordApp, "Selection")

rem create Word Selection object
MAKE AX SelDisp, WordSel

rem write some text to the word document
CALL AX FUNC WordSel, "V", "S", "TypeText", "Hello, Wor[l]d!!!"

PRINT "Press a key to quit."

WAIT KEY

REGISTER DLL Dll Name
UNREGISTER DLL Dll Name
MAKE AX Object Name, AX Number
MAKE AX Object Pointer, AX Number
DELETE AX Ax Number
Return Integer = AX MEMBER EXIST(Ax Number, Member Name)
SET AX INT Ax Number, Variable Name, Value
SET AX FLOAT Ax Number, Variable Name, Value
SET AX POINTER Ax Number, Variable Name, Value
SET AX DISPATCH Ax Number, Variable Name, Value
SET AX UNKNOWN Ax Number, Variable Name, Value
SET AX STRING Ax Number, Variable Name, Value
Return String = GET AX STRING(Ax Number, Variable Name)
Return Float = GET AX FLOAT(Ax Number, Variable Name)
Return Integer = GET AX INT(Ax Number, Variable Name)
Return Integer = GET AX POINTER(Ax Number, Variable Name)
Return Integer = GET AX DISPATCH(Ax Number, Variable Name)
Return Integer = GET AX UNKNOWN(Ax Number, Variable Name)
CALL AX FUNC Ax Number, Function Name [, Type Format String, Args...]
Return = String / Integer / Float = CALL AX FUNC(Ax Number, Function Name [, Type Format String, Args...])
Return Integer = AX EXIST(Ax Number)
Return Integer = AX AVAILABLE(Ax Number)

LOAD FLASH Movie Name, Flash Number
FLASH COLOR Flash Number, Color
POSITION FLASH Flash Number, X Positon, Y Position
DELETE FLASH Flash Number
SET FLASH VAR Flash Number, Variable Name, Value$
Return String = GET FLASH VAR(Flash Number, Variable Name)
SET FLASH PROPERTY Flash Number, Target Name, Property Index, Value$
Return = GET FLASH PROPERTY(Flash Number, Target Name, Property Index)
PLAY FLASH Flash Number
STOP FLASH Flash Number
REWIND FLASH Flash Number
FORWARD FLASH Flash Number
Return Integer = IS FLASH PLAYING(Flash Number)
FLASH LOOP MODE Flash Number, Loop Mode
FLASH DRAW MODE Flash Number, Draw Mode
RESIZE FLASH Flash Number, Width, Height
FLASH MOVIE Flash Number, Movie Name
Return Integer = GET FLASH WIDTH(Flash Number)
Return Integer = GET FLASH HEIGHT(Flash Number)
FLASH WIDTH Flash Number, Width
FLASH HEIGHT Flash Number, Height
Return Integer = FLASH FRAME COUNT(Flash Number)
SET FLASH FRAME Flash Number, Frame Number
Return Integer = GET FLASH FRAME(Flash Number)
SHOW FLASH Flash Number
HIDE FLASH Flash Number
Return Integer = FLASH EXIST(Flash Number)

SHAPE WINDOW Bitmap File [, Mask Colour]
UNSHAPE WINDOW
SHAPE DRAG MODE Drag Mode
SHAPE DRAG MODE Mask Bitmap File [, Mask Colour]

SCAN MIDI OUT DEVICES
Return String = MIDI OUT DEVICE NAME(DeviceId)
Return Integer = MIDI OUT DEVICE TYPE(DeviceId)
Return Integer = MIDI OUT DEVICE VOICES(DeviceId)
Return Integer = MIDI OUT DEVICE CHANNELMASK(DeviceId)
Return Integer = MIDI OUT DEVICE NOTES(DeviceId)
Return Integer = MIDI OUT DEVICE SUPPORT(DeviceId)
CLOSE MIDI OUT Midi Out Number
SEND MIDI NOTE ON Midi Out Number, Channel, Note, Velocity
SEND MIDI NOTE OFF Midi Out Number, Channel, Note, Velocity [, Note On Flag]
SET MIDI PATCH Midi Out Number, Channel, Patch
SEND MIDI SHORT MSG Midi Out Number, Message
SEND MIDI MSG Midi Out Number, Byte 1, Byte 2, Byte 3
Return Integer = MIDI OUT EXIST(Midi Out Number)
OPEN MIDI OUT DeviceId, Midi Out Number
OPEN MIDI OUT Device Name, Midi Out Number

SHOW MESSAGE String Value
SHOW MESSAGE Integer Value
SHOW MESSAGE Float Value 
Return Integer = MESSAGE BOX(Message, Caption, Type, Buttons [, Default Button])
Return Integer = MSG DIALOG(Message, Caption, Type, Buttons [, Default Button [, CheckBox]])
MSG BUTTON TEXT Index, Caption
MSG CHECKBOX TEXT Text
OPEN DIALOG OPTIONS Options
SAVE DIALOG OPTIONS Options
Return String = EXECUTE OPEN DIALOG(Title, Dir, Filter, Filename [, Index])
Return String = EXECUTE SAVE DIALOG(Title, Dir, Filter, Filename [, Index])

MAKE XML Xml Number
LOAD XML File Name, Xml Number
SAVE XML Xml Number, File Name
DELETE XML Xml Number
ADD XML NODE Xml Number, Node Name
OPEN NEW XML NODE Xml Number, Node Name
CLOSE XML NODE Xml Number
XML NODE TO ROOT Xml Number
Return Integer = XML ROOT NODE COUNT(Xml Number)
CURRENT XML NODE Xml Number, Node Index
CURRENT XML NODE Xml Number, Node Name
Return Integer = XML CHILD NODE COUNT(Xml Number)
XML NODE TO CHILD Xml Number, Child Node Index 
XML NODE TO CHIKE Xml Number, Child Node Name
XML NODE TO PARENT Xml Number
Return Integer = GET XML NODE LEVEL(Xml Number)
Return String = GET XML NODE NAME(Xml Number)
Return String = GET XML NODE VALUE$(Xml Number)
Return Float = GET XML NODE VALUE#(Xml Number)
Return Integer = GET XML NODE VALUE(Xml Number)
XML NODE VALUE Xml Number, Value
XML NODE ATTRIB Xml Number, Attribute Name, Value$
Return String = GET XML NODE ATTRIB(Xml Number)
Return String = GET XML NODE ATTRIB NAME(Xml Number)
DELETE XML NODE Xml Number
RENAME XML NODE Xml Number, New Node Name
Return Integer = XML EXIST(Xml Number)
Return Integer = NEXT XML NODE(Xml Number)
Return Integer = PREV XML NODE(Xml Number)

OPEN INI File Name, Ini Number
DELETE INI = Ini Number
ERASE INI SECTION Ini Number, Section Name
Return Integer = INI KEY COUNT(Ini Number, Section Name)
Return Integer = INI SECTION COUNT(Ini Number)
Return String = GET INI KEY NAME(Ini Number, Section Name, Index)
Return String = GET INI SECTION NAME(Ini Number, Index)
Return String = GET INI VALUE BY INDEX(Ini Number, Section Name, Index)
Return String = GET INI VALUE$(Ini Number, Section Name, Key Name, Default Value)
Return Float = GET INI VALUE#(Ini Number, Section Name, Key Name, Default Value)
Return Integer = GET INI VALUE(Ini Number, Section Name, Key Name, Default Value)
SET INI VALUE Ini Number, Section Name, Key Name, Value
Return Integer = INI SECTION EXIST(Ini Number, Section Name)
Return Integer = INI KEY EXIST(Ini Number, Section Name, Key Name)
Return Integer = INI EXIST(Ini Number)

Return String = FLOAT TO STR(Float Value, Precision [, Width])
Return String = INT TO STR(Integer Value, ZeroPad [,Width])
Return Integer = INSTRING(Search String, Find String [, Case Sensitive])
Return String = MIDDLE$(String, Position, Length)
Return String = MAKE$(String, Count)
Return String = REPLACE$(Source String, Find String, Replace String [, Case Sensitive])
Return String = INSERT$(String, Insert String, Position)
Return String = TRIM LEFT$(Source String, Trim Character)
Return String = TRIM RIGHT$(Source String, Trim Character)
Return String = TRIM$(Source String, Trim Character)

Return Integer = IS SINGLE INSTANCE(Instance Name)
BRING WINDOW TO FRONT [Window Handel]
SEND WINDOW TO BACK [Window Handel]
Return Integer = FIND WINDOW(Class Name, Window Name)
Return Integer = FIND DBPRO WINDOW(Window Name)
Return Integer = WINDOW HANDLE()
Return Integer = INSTANCE HANDLE()
MESSAGE BEEP Sound Type
FLASH WINDOW Window Handle, Invert Flag