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.

28 lines
628 B
QBasic

REM Advent of Code 2022: Day 4, part 2
REM Written in Applesoft BASIC
10 ONERR GOTO 900
20 PRINT CHR$ (4),"OPEN INPUT"
30 PRINT CHR$ (4),"READ INPUT"
40 DIM GP(4)
50 DU = 0
100 FOR I = 0 TO 3:GP(I) = 0: NEXT I
110 I = 0
200 GET C$: GET Z$
210 CV = ASC (C$)
220 IF CV < 48 GOTO 300
230 IF CV > 57 GOTO 300
240 CV = CV - 48
250 GP(I) = GP(I) * 10 + CV
260 GOTO 200
300 I = I + 1
310 IF I < 4 GOTO 200
400 IF GP(3) > = GP(0) AND GP(1) > = GP(2) GOTO 500
430 GOTO 100
500 DU = DU + 1
510 PRINT "EXTRA CLEANING DONE BY ";DU;" ELVES..."
520 GOTO 100
900 PRINT CHR$ (4),"CLOSE"
910 END