10 dim c(12), a$(6)   

    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 = 2: l2 = 38: gosub 610   

    270 print tab(39); c(0);   

    280 l1 = 45: l2 = 79: gosub 610   

    290 gosub 640: gosub 650   

    300 for j = 0 to 3   

    310 gosub 640   

    320 for i = 0 to 2   

    330 print tab(15 + i * 25); “(”; j * 3 + i + 1; “)”;   

    340 next   

    350 gosub 650: gosub 640: gosub 650: gosub 640   

    360 gosub 660: gosub 650: gosub 640: gosub 650   

    370 gosub 400   

    380 next j   

    390 l1 = 2: l2 = 79: gosub 610: print : restore 700: