Sub AppStart (Args() As String)
Log(AddSp("Arkansas", 12) & AddSp("Arizona", 30) & "Alaska")
StartMessageLoop
End Sub
Sub AddSp (s1 As String, n1 As Int) As String
s1 = s1 & " " 'Add a fixed number of spaces
s1 = s1.SubString2 (0, n1) 'Trim the string back to the required length as set by n1
Return (s1) ' return the result.
End Sub