You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
727 B
QBasic
25 lines
727 B
QBasic
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
|
|
|
|
|