10 '¶ÚÝÀÞ° (89/03/30)
20 DIM A(12),C(12)
30 FOR I=2 TO 12:READ A(I):NEXT I
40 FOR I=1 TO 12:READ C(I):NEXT I
50 INPUT "ÈÝ,·=",Y,M
60 IF Y<1 OR Y>9999 OR M<1 OR M>12 THEN BEEP:GOTO 50
70 IF (Y MOD 4=0 AND Y MOD 100>0) OR Y MOD 400=0 THEN C(2)=29
80 B=Y*365+A(M)
90 IF M<3 THEN Y=Y-1
100 B=B+INT(Y/4)-INT(Y/100)+INT(Y/400)
110 X=(B-INT(B/7)*7)*4:Y=3
120 CLS:PRINT :PRINT "SUN MON TUE WED THU FRI SAT"
130 FOR I=1 TO C(M)
140 LOCATE X,Y:PRINT USING "##";I
150 X=X+4:IF X>24 THEN X=0:Y=Y+1
160 NEXT I
170 DATA 31,59,90,120,151,181,212,243,273,304,334
180 DATA 31,28,31,30,31,30,31,31,30,31,30,31
=0 THEN 600
570 IF Y MOD 4>