<?xml version="1.0" encoding="UTF-8" ?>
<rss version='2.0'>
<channel>
<title>十進BASIC 第3掲示板</title>
<description>新着投稿一覧</description>
<link>http://deimal-basic.bbs.fc2.com/</link>
<ttl>60</ttl>
<copyright>FC2, inc</copyright>
<item>
<title>Re: 月齢カレンダーの修正　七十二候実験中と9月の振替休日の論理の訂正を加筆 17/17</title>
<author>gnuutera2012or文句うさぴょん</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8961853</link>
<description><![CDATA[
EXTERNAL SUB MOON(X,Y,R,H,N)
DIM XX(73),YY(73)
SET COLOR &amp;quot;GRAY&amp;quot;
DRAW DISK WITH SCALE(R)*SHIFT(X,Y)
SET AREA COLOR &amp;quot;YELLOW&amp;quot;
IF H&amp;gt;15 THEN LET SW=-1 ELSE LET SW=1
LET RR=2*(N-.5)
IF RR&amp;gt;0 THEN
   FOR T=0 TO 360 STEP 5
      LET B=R
      IF T&amp;gt;=90 AND T&amp;lt;=270 THEN LET B=R*RR
      LET I=I+1
      LET YY(I)=R*SIN(RAD(T))+Y
      LET XX(I)=SW*B*COS(RAD(T))+X
   NEXT T
ELSE
   FOR T=-90 TO 90 STEP 5
      LET I=I+1
      LET YY(I)=R*SIN(RAD(T))+Y
      LET XX(I)=SW*R*COS(RAD(T))+X
   NEXT T
   LET B=R*ABS(RR)
   FOR T=85 TO -90 STEP -5
      LET I=I+1
      LET YY(I)=R*SIN(RAD(T))+Y
      LET XX(I)=SW*B*COS(RAD(T))+X
   NEXT T
END IF
IF RR&amp;gt;-1 THEN MAT PLOT AREA :XX,YY
END SUB

!'これより以下は、「旧暦 for VB」から「旧暦.bas」を(仮称)十進BASICに移植したものです。
!' ]]></description>
<pubDate>Fri, 04 Sep 2026 14:22:46 +0900</pubDate>
</item>
<item>
<title>Re: 月齢カレンダーの修正　七十二候実験中と9月の振替休日の論理の訂正を加筆 16/17</title>
<author>gnuutera2012or文句うさぴょん</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8961852</link>
<description><![CDATA[EXTERNAL FUNCTION QSEI$(TM)
DIM A$(9)
MAT READ A$
LET QSEI$=A$(MOD(TM-1,9)+1)
!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
!' DATA 九紫火星
!' DATA 八白土星
!' DATA 七赤金星
!' DATA 六白金星
!' DATA 五黄土星
!' DATA 四緑木星
!' DATA 三碧木星
!' DATA 二黒土星
!' DATA 一白水星
DATA &amp;quot; &amp;quot;
DATA &amp;quot; &amp;quot;
DATA &amp;quot; &amp;quot;
DATA &amp;quot; &amp;quot;
DATA &amp;quot; &amp;quot;
DATA &amp;quot; &amp;quot;
DATA &amp;quot; &amp;quot;
DATA &amp;quot; &amp;quot;
DATA &amp;quot; &amp;quot;
END FUNCTION
!' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲▲▲▲▲▲▲

!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
EXTERNAL FUNCTION CALC_ETO60$(ALLYEAR)
DIM A$(10),B$(12)
MAT ]]></description>
<pubDate>Fri, 04 Sep 2026 14:21:12 +0900</pubDate>
</item>
<item>
<title>Re: 月齢カレンダーの修正　七十二候実験中と9月の振替休日の論理の訂正を加筆 15/17</title>
<author>gnuutera2012or文句うさぴょん</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8961852</link>
<description><![CDATA[IF Y=YEAR AND M=MONTHOF270 AND N=DAYOF270 THEN LET KOU$(Y,M,N)=&amp;quot;魚厥魚群&amp;quot;
LET XX=0
LET XX=YMDT2JD(Y, MONTHOF270, DAYOF270, 0, 0, 0)
LET HIDUKE$=&amp;quot;&amp;quot;
FOR I=1 TO INT((JDOF275-1)-JDOF270)
   LET HIDUKE$=JD2YMDT$(XX+I)
   IF Y=VAL(HIDUKE$(1:4)) AND M=VAL(HIDUKE$(6:6))*10+VAL(HIDUKE$(7:7)) AND N=VAL(HIDUKE$(9:9))*10+VAL(HIDUKE$(10:10)) THEN
      LET KOU$(Y,M,N)=&amp;quot;魚厥魚群&amp;quot;
   END IF
NEXT I

IF Y=YEAR AND M=MONTHOF275 AND N=DAYOF275 THEN LET KOU$(Y,M,N)=&amp;quot;乃東生&amp;quot;
LET XX=0
LET XX=YMDT2JD(Y, MONTHOF275, D]]></description>
<pubDate>Fri, 04 Sep 2026 14:15:50 +0900</pubDate>
</item>
<item>
<title>Re: 月齢カレンダーの修正　七十二候実験中と9月の振替休日の論理の訂正を加筆 14/17</title>
<author>gnuutera2012or文句うさぴょん</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8961851</link>
<description><![CDATA[IF Y=YEAR AND M=MONTHOF180 AND N=DAYOF180 THEN LET KOU$(Y,M,N)=&amp;quot;玄鳥去&amp;quot;
LET XX=0
LET XX=YMDT2JD(Y, MONTHOF180, DAYOF180, 0, 0, 0)
LET HIDUKE$=&amp;quot;&amp;quot;
FOR I=1 TO INT((JDOF185-1)-JDOF180)
   LET HIDUKE$=JD2YMDT$(XX+I)
   IF Y=VAL(HIDUKE$(1:4)) AND M=VAL(HIDUKE$(6:6))*10+VAL(HIDUKE$(7:7)) AND N=VAL(HIDUKE$(9:9))*10+VAL(HIDUKE$(10:10)) THEN
      LET KOU$(Y,M,N)=&amp;quot;玄鳥去&amp;quot;
   END IF
NEXT I

IF Y=YEAR AND M=MONTHOF185 AND N=DAYOF185 THEN LET KOU$(Y,M,N)=&amp;quot;雷乃収声&amp;quot;
LET XX=0
LET XX=YMDT2JD(Y, MONTHOF185, DAY]]></description>
<pubDate>Fri, 04 Sep 2026 14:13:30 +0900</pubDate>
</item>
<item>
<title>Re: 月齢カレンダーの修正　七十二候実験中と9月の振替休日の論理の訂正を加筆 13/17</title>
<author>gnuutera2012or文句うさぴょん</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8961851</link>
<description><![CDATA[IF Y=YEAR AND M=MONTHOF90 AND N=DAYOF90 THEN LET KOU$(Y,M,N)=&amp;quot;乃東枯&amp;quot;
LET XX=0
LET XX=YMDT2JD(Y, MONTHOF90, DAYOF90, 0, 0, 0)
LET HIDUKE$=&amp;quot;&amp;quot;
FOR I=1 TO INT((JDOF95-1)-JDOF90)
   LET HIDUKE$=JD2YMDT$(XX+I)
   IF Y=VAL(HIDUKE$(1:4)) AND M=VAL(HIDUKE$(6:6))*10+VAL(HIDUKE$(7:7)) AND N=VAL(HIDUKE$(9:9))*10+VAL(HIDUKE$(10:10)) THEN
      LET KOU$(Y,M,N)=&amp;quot;乃東枯&amp;quot;
   END IF
NEXT I

IF Y=YEAR AND M=MONTHOF95 AND N=DAYOF95 THEN LET KOU$(Y,M,N)=&amp;quot;乃東枯&amp;quot;
LET XX=0
LET XX=YMDT2JD(Y, MONTHOF95, DAYOF95, 0, 0,]]></description>
<pubDate>Fri, 04 Sep 2026 14:11:12 +0900</pubDate>
</item>
<item>
<title>Re: 月齢カレンダーの修正　七十二候実験中と9月の振替休日の論理の訂正を加筆 12/17</title>
<author>gnuutera2012or文句うさぴょん</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8961849</link>
<description><![CDATA[!' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼工事中
DIM KOU$(1 TO 9999,1 TO 12,1 TO 31)
IF Y=YEAR AND M=MONTHOF360 AND N=DAYOF360 THEN LET KOU$(Y,M,N)=&amp;quot;雀始巣&amp;quot;
LET XX=0
LET XX=YMDT2JD(Y, MONTHOF360, DAYOF360, 0, 0, 0)
LET HIDUKE$=&amp;quot;&amp;quot;
FOR I=1 TO INT((JDOF5-1)-JDOF360)
   LET HIDUKE$=JD2YMDT$(XX+I)
   IF Y=VAL(HIDUKE$(1:4)) AND M=VAL(HIDUKE$(6:6))*10+VAL(HIDUKE$(7:7)) AND N=VAL(HIDUKE$(9:9))*10+VAL(HIDUKE$(10:10)) THEN
      LET KOU$(Y,M,N)=&amp;quot;雀始巣&amp;quot;
   END IF
NEXT I

IF Y=YEAR AND M=MONTHOF5 AND N=DAYOF5 THEN L]]></description>
<pubDate>Fri, 04 Sep 2026 14:06:26 +0900</pubDate>
</item>
<item>
<title>Re: 月齢カレンダーの修正　七十二候実験中と9月の振替休日の論理の訂正を加筆 11/17</title>
<author>gnuutera2012or文句うさぴょん</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8961849</link>
<description><![CDATA[EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,YSIZE-1,0
SET POINT STYLE 1
SET COLOR MODE &amp;quot;REGULAR&amp;quot;
CLEAR
END SUB

EXTERNAL SUB SYMBOL(X,Y,COL$,A$)
SET TEXT COLOR COL$
PLOT TEXT,AT X,Y:A$
END SUB

EXTERNAL FUNCTION DAYCOLOR$(Y,M,N,R)
LET DAYCOLOR$=&amp;quot;BLACK&amp;quot;
LET Z$=&amp;quot;&amp;quot;
IF MOD(N+R,7)=1 THEN LET DAYCOLOR$=&amp;quot;RED&amp;quot;
IF MOD(N+R,7)=0 THEN LET DAYCOLOR$=&amp;quot;BLUE&amp;quot;
IF M=1 AND N=1 THEN
   LET DAYCOLOR$=&amp;quot;RED&amp;quot;
   LET Z$=&amp;quot;元日&amp;quot;
END IF
IF Y&amp;gt;=1973 AND M=1 AND N=2 AND MOD(N+R-1]]></description>
<pubDate>Fri, 04 Sep 2026 14:02:58 +0900</pubDate>
</item>
<item>
<title>Re: 月齢カレンダーの修正　七十二候実験中と9月の振替休日の論理の訂正を加筆 10/17</title>
<author>gnuutera2012or文句うさぴょん</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8961848</link>
<description><![CDATA[   IF QMPHASE=14 THEN
      LET S$=&amp;quot;満月&amp;quot;
   ELSEIF QMPHASE=0 THEN
      LET S$=&amp;quot;新月&amp;quot;
   ELSE
   !'LET S$=USING$(&amp;quot;##.#&amp;quot;,QILLUMI)&amp;amp;&amp;quot;%&amp;quot;
      LET S$=&amp;quot;&amp;quot;
   END IF
   !' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
   IF S$&amp;lt;&amp;gt;&amp;quot;&amp;quot; THEN
      IF Z$=&amp;quot;&amp;quot; AND FL&amp;lt;&amp;gt;2 THEN
         CALL SYMBOL(XS+XX,YS+YY+HEIGHT*1.6,&amp;quot;BLUE&amp;quot;,S$)
      ELSEIF FL&amp;lt;&amp;gt;1 THEN
         CALL SYMBOL(XS+XX,YS+YY+HEIGHT*1.8,&amp;quot;BLUE&amp;quot;,S$)
      ELSE
         CALL SYMBOL(XS+XX,YS+YY+HEIGHT*2.0,&amp;quot;BLUE&amp;quot;,S$)
      END IF
   END IF
   !' ▲▲▲▲▲▲▲▲▲▲ここまで▲▲▲▲]]></description>
<pubDate>Fri, 04 Sep 2026 13:59:32 +0900</pubDate>
</item>
<item>
<title>Re: 月齢カレンダーの修正　七十二候実験中と9月の振替休日の論理の訂正を加筆 9/17</title>
<author>gnuutera2012or文句うさぴょん</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8961848</link>
<description><![CDATA[! 投稿時の英数字のみの対策
    
   !' ▼▼▼▼▼▼▼▼▼▼ここから▼▼▼▼▼▼▼▼▼▼
   SET TEXT HEIGHT HEIGHT*.2
   CALL MOON(XS+XX+HEIGHT*.6,YS+YY+HEIGHT*.5,HEIGHT*.5,QMAGENOON-.5,QILLUMI/100)
   CALL SYMBOL(XS+XX,YS+YY+HEIGHT*.25,COL$,QROKUYOU$&amp;amp;&amp;quot; &amp;quot;&amp;amp;N$&amp;amp;STR$(QMONTH)&amp;amp;&amp;quot;/&amp;quot;&amp;amp;STR$(QDAY))
   CALL SYMBOL(XS+XX,YS+YY+HEIGHT*.5,COL$,A$)
   CALL SYMBOL(XS+XX,YS+YY+HEIGHT*.75,COL$,B$)
   CALL SYMBOL(XS+XX,YS+YY+HEIGHT*1.0,COL$,TYOKUOF12$(I))
   CALL SYMBOL(XS+XX,YS+YY+HEIGHT*1.25,COL$,SHUKU28$(NIJYUUHASSHUKU))
   IF Z$&amp;lt;&amp;gt;&amp;quot;&amp;quot; TH]]></description>
<pubDate>Fri, 04 Sep 2026 13:57:03 +0900</pubDate>
</item>
<item>
<title>Re: 月齢カレンダーの修正　七十二候実験中と9月の振替休日の論理の訂正を加筆 8/17</title>
<author>gnuutera2012or文句うさぴょん</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8961846</link>
<description><![CDATA[! 投稿時の英数字のみの対策
   LET X=YMDT2JD(YEAR, VAL(SEKKI24$(19, 0)(6:7)), VAL(SEKKI24$(19, 0)(9:10))+0, 0, 0, 0)
   LET DATEOF205$=JD2YMDT$(CALC_CHU(X, 5))
   LET MONTHOF205=VAL(DATEOF205$(6:6))*10+VAL(DATEOF205$(7:7))
   LET DAYOOF205=VAL(DATEOF205$(9:9))*10+VAL(DATEOF205$(10:10))
   LET JDOF205=YMDT2JD(YEAR, MONTHOF205, DAYOF205, 0, 0, 0)
    
   LET X=YMDT2JD(YEAR, VAL(SEKKI24$(19, 0)(6:7)), VAL(SEKKI24$(19, 0)(9:10))+5, 0, 0, 0)
   LET DATEOF210$=JD2YMDT$(CALC_CHU(X, 5))
   LET MONTHOF210=VA]]></description>
<pubDate>Fri, 04 Sep 2026 13:53:41 +0900</pubDate>
</item>
</channel>
</rss>
