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.
26 lines
720 B
QBasic
26 lines
720 B
QBasic
2 years ago
|
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
|
||
|
|
|