ｸｲｽﾞ大陸

解答です。これ荒らしみたいに思われたらいやだな。
プログラム
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
REM 十進BASICにて開くと吉。
REM 今日は2012/01/20→20120120と8桁で表せます。
PRINT "1000年01月01日から9999年12月31日までの日付のうち、"
PRINT "ABCABCABのタイプになる日付を求めてください。"
1000 LET I=0
1100 FOR Z=100 TO 999
1200 LET X=Z*10^5+Z*10^2+INT(Z/10)
1300 LET Y=INT(X/10^4)
1400 LET M=INT(X/10^2-Y*10^2)
1500 LET D=INT(X-Y*10^4-M*10^2)
1550 IF M=0 THEN GOTO 2200
1551 IF M=1 OR M=3 OR M=5 OR M=7 OR M=8 OR M=10 OR M=12 THEN GOTO 1800
1552 IF M=2 THEN GOTO 1740
1553 IF M=4 OR M=6 OR M=9 OR M=11 THEN GOTO 1760
1700 IF M>12 THEN GOTO 2200
1740 IF INT(Y/4)=0 THEN GOTO 1743
1741 IF INT(Y/4)><0 THEN GOTO 1742
1742 IF D>0 AND D<29 THEN GOTO 2000
1743 IF D>0 AND D<30 THEN GOTO 2000
1744 IF D>29 THEN GOTO 2200
1745 IF D>30 THEN GOTO 2200
1750 IF D=0 THEN GOTO 2200
1760 IF D>0 AND D<31 THEN GOTO 2000
1770 IF D>30 THEN GOTO 2200
1800 IF D>0 AND D<32 THEN GOTO 2000
1900 IF D>31 THEN GOTO 2200
2000 LET I=I+1
2100 PRINT X;I
2200 NEXT Z
2300 END
▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
実行結果
▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
1000年01月01日から9999年12月31日までの日付のうち、
ABCABCABのタイプになる日付を求めてください。
10110110 1
10210210 2
10310310 3
10410410 4
10510510 5
10610610 6
10710710 7
10810810 8
10910910 9
11011011 10
11111111 11
11211211 12
20120120 13
20220220 14
20320320 15
20420420 16
20520520 17
20620620 18
20720720 19
20820820 20
20920920 21
21021021 22
21121121 23
21221221 24
30130130 25
30330330 26
30430430 27
30530530 28
30630630 29
30730730 30
30830830 31
30930930 32
31031031 33
31231231 34
▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲