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.
72 lines
1.4 KiB
QBasic
72 lines
1.4 KiB
QBasic
REM Advent of Code 2022: Day 9, part 1
|
|
REM Written in Applesoft BASIC
|
|
|
|
10 GR
|
|
20 CX = 0
|
|
22 CY = 14
|
|
24 AD = 0
|
|
26 X = 1
|
|
28 CC = 1
|
|
38 ST = 0
|
|
40 D = 0
|
|
42 SC = 1
|
|
44 SM = 20
|
|
50 PRINT CHR$ (4),"OPEN INPUT"
|
|
60 PRINT CHR$ (4),"READ INPUT"
|
|
70 ONERR GOTO 1000
|
|
|
|
REM Read the next input line into S$.
|
|
|
|
100 S$ = ""
|
|
110 GET C$
|
|
120 IF C$ < " " GOTO 200
|
|
130 S$ = S$ + C$
|
|
140 GOTO 110
|
|
|
|
REM Parse into instruction letter ("a" or "n") and addx parameter N.
|
|
|
|
200 L = LEN (S$)
|
|
205 IF L = 0 GOTO 1000
|
|
208 PRINT "> ";S$
|
|
210 II$ = LEFT$ (S$,1)
|
|
220 IF L < 6 THEN N = 0
|
|
230 IF L > 5 THEN N = VAL ( RIGHT$ (S$,L - 5))
|
|
240 D = 0
|
|
250 AD = 0
|
|
|
|
REM Update the "CRT" based on X-position and X-register.
|
|
|
|
300 COLOR= 0
|
|
310 IF ABS (X - CX) < 2 THEN COLOR= CX / 5 + 1
|
|
320 PLOT CX,CY
|
|
330 CX = CX + 1
|
|
340 IF CX > 39 THEN CX = 0:CY = CY + 1
|
|
|
|
REM Run the next cycle. AD != 0 on 2nd cycle of addx.
|
|
|
|
400 CC = CC + 1
|
|
410 IF AD = 0 GOTO 450
|
|
420 X = X + AD
|
|
430 AD = 0
|
|
440 D = 1
|
|
445 GOTO 500
|
|
450 IF II$ = "a" THEN AD = N
|
|
460 IF II$ = "n" THEN D = 1
|
|
|
|
REM Update strength counter, and strength total if necessary.
|
|
REM Otherwise, GOTO 100 for next instruction or 300 for next addx cycle.
|
|
|
|
500 SC = SC + 1
|
|
510 IF SC < SM GOTO 530
|
|
515 SM = SM + 40
|
|
520 ST = ST + CC * X
|
|
530 IF D = 1 GOTO 100
|
|
550 GOTO 300
|
|
|
|
REM End of input: print strength and exit.
|
|
|
|
1000 PRINT "STRENGTH: ";ST
|
|
1010 PRINT CHR$ (4),"CLOSE"
|
|
1020 END
|
|
|