Initial data commit

Task/Classes/FreeBASIC/classes.basic

@@ -0,0 +1,27 @@
+' FB 1.05.0 Win64
+
+Type MyClass
+  Private:
+    myInt_ As Integer
+  Public:
+    Declare Constructor(myInt_ As Integer)
+    Declare Property MyInt() As Integer
+    Declare Function Treble() As Integer
+End Type
+
+Constructor MyClass(myInt_ As Integer)
+   This.myInt_ = myInt_
+End Constructor
+
+Property MyClass.MyInt() As Integer
+  Return myInt_
+End Property
+
+Function MyClass.Treble() As Integer
+  Return 3 * myInt_
+End Function
+
+Dim mc As MyClass = MyClass(24)
+Print mc.MyInt, mc.Treble()
+Print "Press any key to quit the program"
+Sleep