Initial data commit

Task/Increment-a-numerical-string/FreeBASIC/increment-a-numerical-string.basic

@@ -0,0 +1,15 @@
+' FB 1.05.0 Win64
+
+Function Increment (num As String) As String
+  Dim d As Double = Val(num)
+  Return Str(d + 1.0)
+End Function
+
+Dim num(5) As String = {"1", "5", "81", "123.45", "777.77", "1000"}
+For i As Integer = 0 To 5
+  Print num(i); " + 1", " = "; Increment(num(i))
+Next
+
+Print
+Print "Press any key to exit"
+Sleep