Data commit

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

@@ -0,0 +1,10 @@
+' 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

Task/Include-a-file/FreeBASIC/include-a-file-2.basic

@@ -0,0 +1,12 @@
+' FB 1.05.0 Win 64
+
+' main.bas file
+#include "person.bi"
+
+Dim person1 As Person
+person1.name = "Methuselah"
+person1.age = 969
+Print person1
+Print
+Print "Press any key to quit"
+Sleep