Initial data commit

Task/Tokenize-a-string-with-escaping/FreeBASIC/tokenize-a-string-with-escaping.basic

@@ -0,0 +1,29 @@
+Sub tokenize(cadena As String, separador As String, escape As String)
+    Dim As Integer campo = 1
+    Dim As Boolean escapando = false
+    Dim As String char
+    Print ""; campo; " ";
+
+    For i As Integer = 1 To Len(cadena)
+        char = Mid(cadena, i, 1)
+        If escapando  Then
+            Print char;
+            escapando = false
+        Else
+            Select Case char
+            Case separador
+                Print
+                campo += 1
+                Print ""; campo; " ";
+            Case escape
+                escapando = true
+            Case Else
+                Print char;
+            End Select
+        End If
+    Next i
+    Print
+End Sub
+
+tokenize("one^|uno||three^^^^|four^^^|^cuatro|", "|", "^")
+Sleep