きむきむ暦 by きむきむ
月単位のカレンダーを表示するミニユーティリティー。
操作は十字ボタン左右で月・LRボタンで年の移動だ。
このプログラムのポイントは、曜日を割り出す方法。「ツェラーの公式」がその秘密だが、くわしくはCHECK POiNTコーナーを見てみよう。
CHECK POiNT 
ガッデム！ リンク先を見たところでかけらも意味がわからねェぜ！
詳しい話はおいておくと、「『（年）＋（年÷４）−（年÷100）＋（年÷400）＋（（13×月＋８）÷５）＋（日）』を７で割ったときのあまり」が０なら日曜、１なら月曜、２なら火曜……で始まるという公式だよ。
48行以降でその公式をあてはめているんだね。
最後の「７で割ったときのあまり」を出すために、
Ｆ－ＦＬＯＯＲ（Ｆ／７）＊７という計算をしているのがポイントじゃな。それはそれで割り算のあまりを出すための方法ってことか？
ほかには「
％」を使う方法もあるね。Ａ＝Ｂ％３で、変数Ａに「Ｂを３で割った余り」が入るしくみだよ。BASICではあんまり見ない仕様なんだけど……ウォッホン！ うるう年の求め方は「『年÷４』で割り切れたならうるう年、しかし『年÷100』でも割り切れるならうるう年ではない、が『年÷400』でも割り切れればやっぱりうるう年」というグレゴリオ歴の法則にのっとっておる。ここでも
ＦＬＯＯＲが活躍しておるな。プログラムリスト
- ＶＩＳＩＢＬＥ １，１，０，０，０，０
- ＣＬＳ：ＣＬＥＡＲ：ＣＯＬＯＲ ０
- ＤＡＴＡ ”Ｓｕｎ”，”Ｍｏｎ”，”Ｔｕｅ”，”Ｗｅｄ”
- ＤＡＴＡ ”Ｔｈｕ”，”Ｆｒｉ”，”Ｓａｔ”
- ＤＩＭ Ｄ＄（５０）
- ＦＯＲ Ｉ＝０ ＴＯ ６：ＲＥＡＤ Ｄ＄（Ｉ）：ＮＥＸＴ
- ＦＯＲ Ｉ＝７ ＴＯ ４９：Ｄ＄（Ｉ）＝””：ＮＥＸＴ
- ＤＴＲＥＡＤ（ＤＡＴＥ＄），Ｙ，Ｍ，Ｄ
- Ｄ＝１：ＧＯＳＵＢ ＠ＺＥＲＲＥＲ
- ＧＯＳＵＢ ＠ＬＯＮＧ
- ＧＯＳＵＢ ＠ＤＩＳＰ
- ＠ＬＯＯＰ
- Ｐ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｐ＝＝４ ＴＨＥＮ Ｍ＝Ｍ－１：ＧＯＴＯ ＠Ｗ
- ＩＦ Ｐ＝＝８ ＴＨＥＮ Ｍ＝Ｍ＋１：ＧＯＴＯ ＠Ｗ
- ＩＦ Ｐ＝＝２５６ ＴＨＥＮ Ｙ＝Ｙ－１：ＧＯＴＯ ＠Ｗ
- ＩＦ Ｐ＝＝５１２ ＴＨＥＮ Ｙ＝Ｙ＋１：ＧＯＴＯ ＠Ｗ
- ＧＯＴＯ ＠ＬＯＯＰ
- ＠Ｗ
- ＣＯＬＯＲ ０
- ＩＦ Ｍ＜１ ＴＨＥＮ Ｍ＝１２：Ｙ＝Ｙ－１
- ＩＦ Ｍ＞１２ ＴＨＥＮ Ｍ＝１：Ｙ＝Ｙ＋１
- Ｄ＝１：ＧＯＳＵＢ ＠ＺＥＲＲＥＲ
- ＦＯＲ Ｉ＝７ ＴＯ ４９：Ｄ＄（Ｉ）＝””：ＮＥＸＴ
- ＶＳＹＮＣ １０
- ＧＯＳＵＢ ＠ＤＩＳＰ
- ＧＯＴＯ ＠ＬＯＯＰ
- ＠ＤＩＳＰ
- ＣＬＳ
- ？ ”キムキム コヨミ ”；Ｙ；” ”；Ｍ
- ＦＯＲ Ｉ＝１ ＴＯ Ｌ
- Ｄ＄（Ｉ＋Ｇ＋６）＝ＳＴＲ＄（Ｉ）：ＮＥＸＴ
- ＣＯＬＯＲ １３：ＦＯＲ Ｉ＝０ ＴＯ ６
- ＬＯＣＡＴＥ ０，３＋Ｉ＊２：？ Ｄ＄（Ｉ＊７）
- ＮＥＸＴ
- ＣＯＬＯＲ ０
- ＦＯＲ Ｊ＝１ ＴＯ ５
- ＦＯＲ Ｉ＝０ ＴＯ ６
- ＬＯＣＡＴＥ Ｊ＊４，３＋Ｉ＊２：？ Ｄ＄（Ｉ＊７＋Ｊ）
- ＮＥＸＴ
- ＮＥＸＴ
- ＣＯＬＯＲ ９：ＦＯＲ Ｉ＝０ ＴＯ ６
- ＬＯＣＡＴＥ ２４，３＋Ｉ＊２：？ Ｄ＄（Ｉ＊７＋６）
- ＮＥＸＴ
- ＲＥＴＵＲＮ
- ＠ＺＥＲＲＥＲ
- ’Ｇ＝０：ＳＵＮ，１：ＭＯＮ，２：ＴＵＥ．．７：ＳＡＴ
- Ａ＝Ｙ＋ＦＬＯＯＲ（Ｙ／４）
- Ｂ＝ＦＬＯＯＲ（Ｙ／１００）
- Ｃ＝ＦＬＯＯＲ（Ｙ／４００）
- Ｅ＝ＦＬＯＯＲ（（１３＊Ｍ＋８）／５）
- Ｆ＝Ａ－Ｂ＋Ｃ＋Ｅ＋Ｄ：Ｇ＝Ｆ－ＦＬＯＯＲ（Ｆ／７）＊７
- ＲＥＴＵＲＮ
- ＠ＬＯＮＧ
- Ｒ＝Ｍ－ＦＬＯＯＲ（Ｍ／２）＊２
- ＩＦ Ｍ＜８ ＴＨＥＮ Ｌ＝３０＋Ｒ
- ＩＦ Ｍ＞７ ＴＨＥＮ Ｌ＝３１－Ｒ
- ＩＦ Ｍ＝＝２ ＴＨＥＮ ＧＯＳＵＢ ＠ＵＲＵ
- ＲＥＴＵＲＮ
- ＠ＵＲＵ
- Ｌ＝２８：Ｒ＝Ｙ－ＦＬＯＯＲ（Ｙ／４）
- ＩＦ Ｒ＝＝０ ＴＨＥＮ Ｌ＝２９
- Ｒ＝Ｙ－ＦＬＯＯＲ（Ｙ／１００）
- ＩＦ Ｒ＝＝０ ＴＨＥＮ Ｌ＝２８
- Ｒ＝Ｙ－ＦＬＯＯＲ（Ｙ／４００）
- ＩＦ Ｒ＝＝０ ＴＨＥＮ Ｌ＝２９
- ＲＥＴＵＲＮ
