blob: c2a1b8d00c54be06321f58c01bffda3b0f64f7f8 (
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
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
|
