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 /day2 | |
| parent | 23effc48309276caead656b366a8bd915196fef5 (diff) | |
days 2 and 4 in apple basic
Diffstat (limited to 'day2')
| -rw-r--r-- | day2/part1.bas | 25 | ||||
| -rw-r--r-- | day2/part2.bas | 24 |
2 files changed, 49 insertions, 0 deletions
diff --git a/day2/part1.bas b/day2/part1.bas new file mode 100644 index 0000000..c2a1b8d --- /dev/null +++ b/day2/part1.bas @@ -0,0 +1,25 @@ +REM Advent of Code 2022: Day 2, part 1 +REM Written in Applesoft BASIC + + 10 ONERR GOTO 900 + 20 PRINT CHR$ (4),"OPEN INPUT" + 30 PRINT CHR$ (4),"READ INPUT" + 60 DIM RPC$(3):RPC$(0) = "ROCK":RPC$(1) = "PAPER":RPC$(2) = "SCISSORS" + 70 SC = 0 + 100 GET A$: GET Z$ + 110 GET Z$: GET Z$ + 120 GET B$: GET Z$ + 130 GET Z$: GET Z$ + 140 AV = ASC (A$) - 65 + 150 BV = ASC (B$) - 88 + 200 SC = SC + BV + 1 + 230 R = AV - BV + 240 IF AV = BV THEN SC = SC + 3: GOTO 300 + 250 IF AV = 0 AND BV = 1 THEN SC = SC + 6: GOTO 300 + 260 IF AV = 1 AND BV = 2 THEN SC = SC + 6: GOTO 300 + 270 IF AV = 2 AND BV = 0 THEN SC = SC + 6 + 300 PRINT RPC$(AV),"VS.",RPC$(BV),"SCORE = ";SC + 310 GOTO 100 + 900 PRINT CHR$ (4),"CLOSE" + 910 END + diff --git a/day2/part2.bas b/day2/part2.bas new file mode 100644 index 0000000..9f8b768 --- /dev/null +++ b/day2/part2.bas @@ -0,0 +1,24 @@ +REM Advent of Code 2022: Day 2, part 2 +REM Written in Applesoft BASIC + + 10 ONERR GOTO 900 + 20 PRINT CHR$ (4),"OPEN INPUT" + 30 PRINT CHR$ (4),"READ INPUT" + 60 DIM RPC$(3):RPC$(0) = "ROCK":RPC$(1) = "PAPER":RPC$(2) = "SCISSORS" + 70 SC = 0 + 80 DIM OC(9):OC(0) = 3:OC(1) = 4:OC(2) = 8:OC(3) = 1:OC(4) = 5:OC(5) = 9:OC(6) = 2:OC(7) = 6:OC(8) = 7 + 90 DIM MYC$(3):MYC$(0) = "LOSE":MYC$(1) = "DRAW":MYC$(2) = "WIN" + 100 GET A$: GET Z$ + 110 GET Z$: GET Z$ + 120 GET B$: GET Z$ + 130 GET Z$: GET Z$ + 140 AV = ASC (A$) - 65 + 150 BV = ASC (B$) - 88 + 160 OI = AV * 3 + BV + 170 SC = SC + OC(OI) + 180 PRINT "OPPONENT PLAYS ";RPC$(AV);",","I ";MYC$(BV);".","SCORE = ";SC + 190 GOTO 100 + 900 PRINT CHR$ (4),"CLOSE" + 910 END + + |