diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2022-12-04 19:34:59 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2022-12-04 19:34:59 -0500 |
| commit | ad6eddeeb7ec5145d3cf38ecd21dfb1f71fd4bf2 (patch) | |
| tree | 2602af0889339037a23a7e052ee0e499852167b1 /day4/part2.bas | |
| parent | 23effc48309276caead656b366a8bd915196fef5 (diff) | |
days 2 and 4 in apple basic
Diffstat (limited to 'day4/part2.bas')
| -rw-r--r-- | day4/part2.bas | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/day4/part2.bas b/day4/part2.bas new file mode 100644 index 0000000..1c53d60 --- /dev/null +++ b/day4/part2.bas @@ -0,0 +1,27 @@ +REM Advent of Code 2022: Day 4, part 2 +REM Written in Applesoft BASIC + + 10 ONERR GOTO 900 + 20 PRINT CHR$ (4),"OPEN INPUT" + 30 PRINT CHR$ (4),"READ INPUT" + 40 DIM GP(4) + 50 DU = 0 + 100 FOR I = 0 TO 3:GP(I) = 0: NEXT I + 110 I = 0 + 200 GET C$: GET Z$ + 210 CV = ASC (C$) + 220 IF CV < 48 GOTO 300 + 230 IF CV > 57 GOTO 300 + 240 CV = CV - 48 + 250 GP(I) = GP(I) * 10 + CV + 260 GOTO 200 + 300 I = I + 1 + 310 IF I < 4 GOTO 200 + 400 IF GP(3) > = GP(0) AND GP(1) > = GP(2) GOTO 500 + 430 GOTO 100 + 500 DU = DU + 1 + 510 PRINT "EXTRA CLEANING DONE BY ";DU;" ELVES..." + 520 GOTO 100 + 900 PRINT CHR$ (4),"CLOSE" + 910 END + |