RosettaCodeData/Task/Include-a-file/FreeBASIC/include-a-file-1.basic

11 lines
210 B
Plaintext

' person.bi file
Type Person
name As String
age As UInteger
Declare Operator Cast() As String
End Type
Operator Person.Cast() As String
Return "[" + This.name + ", " + Str(This.age) + "]"
End Operator