!' 【実験】
!' "建","除","満","平","定","執","破","危","成","納","開","閉"
!' 中国秦時代からある暦注で、出土した最古の元光元年暦に書かれている。建(たつ),除(のぞく),満(みつ),平(たいら)
!' ,定(さだん),執(とる),破(やぶる),危(あやぶ),成(なる),納(おさん),開(ひらく),閉(とづ)の12あり、納は古い具注暦
!' では収と書かれている。読みは「仮名暦」の記載である。選日法は
!' 立春後の最初の寅、啓蟄後の最初の卯、清明後の最初の辰、立夏後の最初の巳、芒種後の最初の午、小暑後の最初の未、
!' 立秋後の最初の申、白露後の最初の酉、寒露後の最初の戌、立冬後の最初の亥、大雪後の最初の子、小寒後の最初の丑の
!' 日を建として順番に配当する。【日本歴史大辞典】

DIM HATUJUUNISI(13)                                  !' 月初めの十二支の日
MAT READ HATUJUUNISI                                 !' データ読み取り
DATA 0,30,60,91,120,152,180,213,240,274,300,330,366  !' データ

FOR J=1 TO 12
   LET i=HATUJUUNISI(J)
   LET n=HATUJUUNISI(J+1)
   DO
      IF i>n THEN EXIT DO
      PRINT "建"
      LET i=i+1
      IF i>n THEN EXIT DO
      PRINT "除"
      LET i=i+1
      IF i>n THEN EXIT DO
      PRINT "満"
      LET i=i+1
      IF i>n THEN EXIT DO
      PRINT "平"
      LET i=i+1
      IF i>n THEN EXIT DO
      PRINT "定"
      LET i=i+1
      IF i>n THEN EXIT DO
      PRINT "執"
      LET i=i+1
      IF i>n THEN EXIT DO
      PRINT "破"
      LET i=i+1
      IF i>n THEN EXIT DO
      PRINT "危"
      LET i=i+1
      IF i>n THEN EXIT DO
      PRINT "成"
      LET i=i+1
      IF i>n THEN EXIT DO
      PRINT "納"
      LET i=i+1
      IF i>n THEN EXIT DO
      PRINT "開"
      LET i=i+1
      IF i>n THEN EXIT DO
      PRINT "閉"
      LET i=i+1
      LET REPEATS=REPEATS+1
   LOOP
   LET i=i-1
   PRINT STR$(J)&"月"
   PRINT STR$(i)&"日目"
   PRINT STR$(REPEATS)&"周目"
NEXT J
END