blob: 4ea4835f9da3a8b93485ef8f222b328793c8eb3b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
REM Advent of Code 2022: Day 1, part 1
REM Written in Applesoft BASIC
10 ONERR GOTO 900
20 DIM CALS(200):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 FOR I = 0 TO 5
310 IF CURR = CALS(I) GOTO 360
320 IF CURR < CALS(I) THEN NEXT I
330 FOR J = 3 TO I STEP - 1:CALS(J + 1) = CALS(J): NEXT
340 CALS(I) = CURR
350 PRINT CALS(0),CALS(1),CALS(2)
360 CURR = 0
370 GOTO 100
900 PRINT CHR$ (4),"CLOSE"
910 PRINT CALS(0) + CALS(1) + CALS(2)
920 END
|
