SPLIT "1,2,3" BY "," TO a,b,cSPLITA "1,2,3" BY "," TO aeval_str = "This is an example string that will be searched by the LIKE function."
IF eval_str LIKE "*example * *" THEN
PRINT JOKER(2),"\n"
END IF
a = 1
IF a = 1 THEN
PRINT "a = 1\n"
ELSE IF a = 2 THEN
PRINT "a = 2\n"
ELSE
PRINT "a not in range\n"
END IF
' This is a single line comment.
'"""
This is a
multi-line comment
"""
PRINT "Hello, World!","\n"
10 LET A$="Hello World!"
20 PRINT A$,"\n"
30 END
' COM/OLE Automation Extension Module Import
GLOBAL CONST :CALL = 1
GLOBAL CONST :GET = 2
GLOBAL CONST :LET = 4
GLOBAL CONST :SET = 8
MODULE COM
DECLARE SUB ::CREATE ALIAS "CreateObject" LIB "com"
DECLARE SUB ::CBN ALIAS "CallByName" LIB "com"
DECLARE SUB ::RELEASE ALIAS "ReleaseObject" LIB "com"
DECLARE SUB ::GHO ALIAS "GetHostObject" LIB "com"
DECLARE SUB ::GHS ALIAS "GetHostString" LIB "com"
DECLARE SUB ::SVT ALIAS "ShowVariantType" LIB "com"
DECLARE SUB ::TN ALIAS "TypeName" LIB "com"
DECLARE SUB ::DI ALIAS "DescribeInterface" LIB "com"
DECLARE SUB ::CB ALIAS "SBCallBack" LIB "com"
END MODULE
a = 1
b = 2
c = "3"
d = "4"
PRINT a + b
PRINT a & b
PRINT c + d
PRINT c & d
a[0] = "Hello"
a[1] = 123.45a[100] = 100
PRINT LBOUND(a)
PRINT UBOUND(a)
a[50] = 50
PRINT LBOUND(a)
PRINT UBOUND(a)


