diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2022-12-01 07:59:42 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2022-12-01 07:59:42 -0500 |
| commit | d1df588459c25bf68122fb703914abafbe3bb27f (patch) | |
| tree | 73a943a30f7878345441da8789db73ad4fdbb207 /day1/part1.bas | |
| parent | 8d43e37df99f280377bed90284d6ac2428334804 (diff) | |
add day 1
Diffstat (limited to 'day1/part1.bas')
| -rw-r--r-- | day1/part1.bas | 25 |
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 + |