Code: Select all
// Strings...
Include "string.bas"
Dim message As String = "hello" + " " + "world"
Dim strLen As Byte = Length("12345")
// Arrays...
dim myArray() as byte = (1,2,3,4,5)
// Other Variables...
Const
a = 10,
b = 20,
c = 30
Dim value As Word = a * (b + c) - 10
Code: Select all
Function multiply(a,b As Byte) As Word
result = a * b
End Function
Dim value As Word = multiply(2,6)
Code: Select all
dim index as byte = 0
dim loopRange as byte = 100