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
505 B
QBasic
26 lines
505 B
QBasic
2 years ago
|
REM Advent of Code 2022: Day 1, part 1
|
||
|
|
REM Written in Applesoft BASIC
|
||
|
|
|
||
|
|
10 ONERR GOTO 900
|
||
|
|
20 MOST = 0:CURR = 0
|
||
|
|
30 PRINT CHR$ (4),"OPEN INPUT"
|
||
|
|
40 PRINT CHR$ (4),"READ INPUT"
|
||
|
|
100 S$ = ""
|
||
|
|
110 GET C$
|
||
|
|
120 IF ASC (C$) = 13 GOTO 200
|
||
|
|
130 S$ = S$ + C$
|
||
|
|
135 GET D$
|
||
|
|
140 GOTO 110
|
||
|
|
200 V = VAL (S$)
|
||
|
|
205 GET D$
|
||
|
|
210 IF V = 0 GOTO 300
|
||
|
|
220 CURR = CURR + V
|
||
|
|
230 GOTO 100
|
||
|
|
300 IF MOST < CURR THEN MOST = CURR
|
||
|
|
310 CURR = 0
|
||
|
|
320 PRINT MOST
|
||
|
|
330 GOTO 100
|
||
|
|
900 PRINT CHR$ (4),"CLOSE"
|
||
|
|
910 END
|
||
|
|
|