From dcebd44260fa67b04d217e778265982393ccc032 Mon Sep 17 00:00:00 2001
From: Andreas Grois <andi@grois.info>
Date: Wed, 17 Dec 2025 07:30:19 +0100
Subject: Day4: Comment programs and export text version.

---
 day4/parseln.TXT | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 day4/parseln.TXT

(limited to 'day4/parseln.TXT')

diff --git a/day4/parseln.TXT b/day4/parseln.TXT
new file mode 100644
index 0000000..10e6e3b
--- /dev/null
+++ b/day4/parseln.TXT
@@ -0,0 +1,20 @@
+\START92\
+\COMMENT=Converts an input line to a binary number
+\NAME=parseln
+\FILE=day4.parseln.92f
+(s)
+Func
+Local l,i,c,result
+0\->\result
+dim(s)\->\l
+For i,1,l
+ mid(s,l-i+1,1)\->\c
+ result*2\->\result
+ If c="@" Then
+  1+result\->\result
+ EndIf
+EndFor
+result
+EndFunc
+
+\STOP92\
-- 
cgit v1.2.3