Data commit

Task/Subleq/FreeBASIC/subleq.basic

@@ -0,0 +1,31 @@
+Dim As Integer memoria(255), contador = 0
+Dim As String codigo, caracter
+
+Input "SUBLEQ> ", codigo
+
+While Instr(codigo, " ")
+    memoria(contador) = Val(Left(codigo, Instr(codigo, " ") - 1))
+    codigo = Mid(codigo, Instr(codigo, " ") + 1)
+    contador += 1
+Wend
+
+memoria(contador) = Val(codigo)
+contador = 0
+Do
+    Dim As Integer a = memoria(contador)
+    Dim As Integer b = memoria(contador + 1)
+    Dim As Integer c = memoria(contador + 2)
+    contador += 3
+    If a = -1 Then
+        Input "SUBLEQ> ", caracter
+        memoria(b) = Asc(caracter)
+    Else
+        If b = -1 Then
+            Print Chr(memoria(a));
+        Else
+            memoria(b) -= memoria(a)
+            If memoria(b) <= 0 Then contador = c
+        End If
+    End If
+Loop Until contador < 0
+Sleep