Create your own datatype in StarBasic

I felt like posting an example in OOo Basic (StarBasic) so I decided to create my own data type.

  1. Type PersonType
  2.   FirstName As String
  3.   LastName As String
  4. End Type
  5.  
  6. Sub ExampleCreateNewType
  7.   Dim Person(100) As PersonType
  8.   Person(0).FirstName = "Andrew"
  9.   Person(0).LastName  = "Pitonyak"
  10.   PrintPerson(Person(0)) 
  11. End Sub
  12.  
  13. Sub PrintPerson(x)
  14.   Print "Person = " & x.FirstName & " " & x.LastName
  15. End Sub