20 INPUT “YEAR”; Y
30 X = Y: V = 28
40 IF Y < 0 THEN 20
50 IF Y = 0 THEN END
60 S = X - 1 + INT((X - 1) / 4) - INT((X - 1) / 100) + INT((X - 1) / 400)
70 C(0) = X
80 S = S + 1
90 FOR I = 1 TO 12
100 READ K
110 IF I <> 3 THEN 190
120 IF X MOD 4 = 0 THEN 140
130 GOTO 190
140 IF X MOD 100 = 0 THEN 160
150 GOTO 180
160 IF X MOD 400 = 0 THEN 180
170 GOTO 190
180 K = K + 1: V = 29
190 S = S + K
200 M = S MOD 7
210 IF M = 0 THEN C(I) = 6 ELSE C(I) = M - 1
220 NEXT
230 FOR I = 0 TO 6
240 READ a$(I)
250 NEXT
260 L1
