Sub Example
Dim SlashedZero As Boolean 'Whatever that does?
Dim Commands As List
Commands.Initialize
Dim initCommand() As Byte = Array As Byte(0x1b,0x40)
AddRange(Commands,initCommand)
Dim slashedZeroCommand() As Byte = Array As Byte(0x1b,0x2f,0x00)
If SlashedZero Then
slashedZeroCommand(2) = 49
Else
slashedZeroCommand(2) = 48
End If
AddRange(Commands,slashedZeroCommand)
'Just output the result
For i = 0 To Commands.Size - 1
Log(Commands.Get(i))
Next
End Sub
Sub AddRange(A As List,newData() As Byte)
For i = 0 To newData.Length -1
A.Add(newData(i))
Next
End Sub