1 files changed, 25 insertions, 0 deletions
diff --git a/day1/part1.bas b/day1/part1.bas
new file mode 100644
index 0000000..353eea5
--- /dev/null
+++ b/day1/part1.bas
@@ -0,0 +1,25 @@
+REM Advent of Code 2022: Day 1, part 1
+REM Written in Applesoft BASIC
+
+ 10  ONERR  GOTO 900
+ 20 MOST = 0:CURR = 0
+ 30  PRINT  CHR$ (4),"OPEN INPUT"
+ 40  PRINT  CHR$ (4),"READ INPUT"
+ 100 S$ = ""
+ 110  GET C$
+ 120  IF  ASC (C$) = 13 GOTO 200
+ 130 S$ = S$ + C$
+ 135  GET D$
+ 140  GOTO 110
+ 200 V =  VAL (S$)
+ 205  GET D$
+ 210  IF V = 0 GOTO 300
+ 220 CURR = CURR + V
+ 230  GOTO 100
+ 300  IF MOST < CURR THEN MOST = CURR
+ 310 CURR = 0
+ 320  PRINT MOST
+ 330  GOTO 100
+ 900  PRINT  CHR$ (4),"CLOSE"
+ 910  END 
+