blob: 9f8b768a744b8222be5e5b2bcb4db29597a3491e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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
|
