Basic (yuck)

basic/2015/1/problem.bas

@@ -0,0 +1,22 @@
+OPEN 1, "../data/2015/1/input.txt", "r"
+LINE INPUT #1 file$
+
+f=0
+for a=1 to len(file$)
+    c$ = mid$(file$, a, 1)
+    if (c$ == "(") f = f + 1
+    if (c$ == ")") f = f - 1
+next a
+
+print "Part 1: ", f
+
+f = 0
+steps = 0
+for a=1 to len(file$)
+    c$ = mid$(file$, a, 1)
+    if (c$ == "(") f = f + 1
+    if (c$ == ")") f = f - 1
+    steps = steps + 1
+    if (f < 0) break
+next a
+print "Part 2: ", steps

basic/bin/run

@@ -0,0 +1,6 @@
+#!/usr/bin/env bash
+
+year=$1
+day=$2
+
+time yabasic ./$year/$day/problem.bas