> 　時計とカレンダーは実は完全に別物で、時間だけファンクションコール（これを
> 呼ぶモジュール？）、カレンダーはテキストから読み込んで表示、これらを合体させて
> ファンクションキーで切り替える、とか想像したのですが。

時間は time$ というシステム変数を使います。00:00:00 ( 時:分:秒 ) 文字列の形で入っています。
カレンダーは計算だけで表示できます。祝日データをテキストから読み込んで表示します。
VZマクロのカレンダーと同じことをやっています。言語形式が違うだけです。

> 　（この合体と切り替えが難しそう、と思いました）

合体は私の得意技です。無駄な部分を無くし変数を統一して最適化するのは結構大変ですが。(^^;

> 　アナログ時計の秒針を進めるのとかは、既存モジュールあり？　ああいう（？）
> グラフィックなのは考えたことがない、、、。

オリジナルの例題には秒針はありませんでした。

200 Y!=PI!-T2*PI!/30		'分針
210 Z!=PI!-(T1*60+T2)*PI!/360	'時針

オリジナルの記述です。コメントは私がつけたものです。
これを参考にして、秒針を追加したのです。

10390 X9!=PI!-T3*PI!/30: '秒針
10400 X!=X9!:	'秒針

文字盤の文字も、拡大縮小するためにドットデータを自分で作ったみたいです。（覚えていない）(^^;
時計も万年カレンダーもソースは1ページ以内で出来ているので打ち込みは大した手間ではなかったです。
改造部分で何倍にも膨らんでしまって今では何をやっているのか調べるのも容易ではないです。(^^;

> 　俺の体（あるいは頭）、まだ大丈夫なのか？　とか思いながらも、
> のんびりのんびり、ぐてぐてぐてぐて、いきましょう！

マイペースで行くのが一番ですね。
プログラミングはストレス発散のため！
＃　でもそれがストレスを生むという説も。(^^;

konnoさん

　ご丁寧にいろいろとありがとうございます。
　おもしろい！
　おもしろかったから、電脳組社製の「BASIC/98 for DOS/V」（注１）という
ベーシックのマニュアルとか、QBasic By Example とかの本をもってきてしまいました。
　まずＤＯＳ機を復活させないと、ベーシック・プログラムのインストールすら
できない、、、。
　dosvaxは？　敷居、たかし。気力が、、、。

　最初に。
>プログラミングはストレス発散のため！
>＃　でもそれがストレスを生むという説も。(^^;
　趣味ですよ、趣味。仕事も何にも関係ない。しかし仕事がらみだと、嫌になっても
根性で最後まで走るという動機があったりもしますが。（注２）
　パソピア、高いねぇ。でも、格好いいですねぇ。

　以下、というか全部、独り言みたいなものです。

　で、T-Basicというのは、Turbo Basicということですか？　ボーランド製？
　深い意味はありませんが、以下に、書法がそれぞれあるんだろうな、とか思い。

>時間は time$ というシステム変数を使います。00:00:00 ( 時:分:秒 ) 
>文字列の形で入っています。
　さすがベーシック。システム変数を呼ばれたら中でファンクションコール
してくれるんだ。Ｖｚのファイラで、「Ｋ」とやると「ディレクトリ作成ファンク」
を呼んでくれるのと同じですね。
　time$, date$。システム変数に「$」を末尾につけるのは、どこも同じみたい、、、。

>VZマクロのカレンダーと同じことをやっています。言語形式が違うだけです。
　この辺り、弱いですねぇ。読んだことないなぁ。
　基本的に、時計やカレンダーはＰＣの外でよい、という考えできております。
あれ？　データの読み込みと描画なの。

>合体は私の得意技です。無駄な部分を無くし変数を統一して最適化するのは結構大変ですが。(^^;
　うん、既存のものに付加機能を足すのは、うん、けっこう大変そうだ。

>200 Y!=PI!-T2*PI!/30		'分針
>210 Z!=PI!-(T1*60+T2)*PI!/360	'時針
　「!」は、ユーザ変数のマーキングですよね、きっと。使われなくなったLET
ステートメント。「!」最初、何かと思った。
　「T1」「T2」「T3」も、ユーザ変数ですよね？　？？？
　（行番号がまだ入ってる、、、。そうしないと、ベーシックのソースらしくない？
　　行番号ジャンプとかするの？）

>10390 X9!=PI!-T3*PI!/30: '秒針
>10400 X!=X9!:	'秒針
　「X9」の「9」の意味は想像できる。とりあえず「9」
　正確にではないですが、「30」とか「360」での割り算は、アナログで、円の中での
角度でしょうね。

>文字盤の文字も、拡大縮小するためにドットデータを自分で作ったみたいです。（覚えていない）(^^;
　これです！　やっぱそうなのかぁ！　やってみたい！

>時計も万年カレンダーもソースは1ページ以内で出来ているので打ち込みは大した手間ではなかったです。
>改造部分で何倍にも膨らんでしまって今では何をやっているのか調べるのも容易ではないです。(^^;
　うううう、大変そう。
　でも、気持ちも状態も経緯も、いちおう想像できます。意外に太るのよ。

　でも、とにかく。
　部屋の整理、心の整理、そしてＤＯＳ機復活作戦が優先順位となっております。
すみませぬ。


（注１）後継ソフト（ベーシック）がWin11で動きます、というのを社のサイトで
見つけた。がんばっておられますなぁ。世の中にニーズがあるんですねぇ。

（注２）どうでもいい注。例の『AWAKE』という将棋ソフト開発映画で、「ソフト作りたい！」
と思った主人公は、「プログラミング研究会」に入部します（大学生）。
　主人公は、元プロを目指した棋士。が、プログラミングは、ど素人。
　入部場面で書かされる自己紹介用データシートには、名前などのほか「使用言語」
という欄がある。彼は、「日本語」と書く。
　で、本を３冊渡される。「全部暗記してきて」。暗記完了。テスト合格。次、５冊。
そして、ついに、将棋ソフトが動き出す、、、。
　動機なんですよね。将棋学習の場面もプログラミング学習の場面も、雰囲気はほぼ同じ。
あふれる情熱。圧倒的な集中力。
　もう僕には残ってないかなぁ、という感想、、、。
　のんびりいこう！　ストレスためない程度にがんばろう！　という結論。

　上、ちゃんとＶｚで書きました。えばるこっちゃないぞ。
　あ、ソース、上げてください！

> > としきさんはオセロ強いですか？　私はヘタの横好きで。(^^;
> 
> 中学生のころまでは、クラスで３番くらいの強さでした。
> でも、大人になったら、平均よりちょっと強いくらい、でしょうか。

それなら確実に私より強いでしょうね。(^^;

> これ、世間には優先順位のサンプルがいくらでもあったはずなので、そういうのを
> そのまま実装すればそこまで弱くはならないはず。

うーん、その当時はオセロゲームの参考書とか見ていなかったもので。(^^;

> ８ビット当時の最強は森田オセロだったはず。
> 私が対戦したのは、もしかしたらそれかもしれない。

有名だったですね、私などパーフェクト負けを食らうほどででしょう。
ところで、VZマクロでもオセロゲームがあったかと見てみました。

VZOTO.DEF v.1.20 ====> 91.9.9 糧 丞 
これは９８用とJ31用があり、J31で動かしてみましたが、途中で動かなくなってしまいました。
NP2の98エミュで98版も試しましたが罫線が表示しない？　結局出来ませんでした。
VZ1.57用だからでしょうか、何が悪いのかわかりません。

OTHELLO.def v2.0 ======== by 愛して癒して
これはVz Editor ver 1.6x用ですが、罫線などおかしくて動きませんでした。
過去ログを見ると、としきさんが質問されていて、YASATさんが答えてくれていました。

> 07941/08074 xxxxxxxx  YASAT            RE:OTHELLO ができない
> (14)   03/04/23 21:31  07938へのコメント

> 7行目
>         je[-,mi[=2,ep[+,wt[,jd[-,co[4,#]

> 93行目
>         (wx-1) {' '} (wy) {#m}

> 　このゲーム、先攻で中途完勝パターンがあります。

> 　なんでこの修正したんだったかなあって思っていたら、過去ログでした。
> 　nifty:FGALDC/MES/14/1284


おお、この修正で動きました。＼(^^)／ ﾔｯﾀ-
1ゲームやって、39対25でなんとか勝ちました。(^^;
私の作ったやつより確実に強いですね。(^^;

とりあえずこのアルゴリズムで組んでみたら良さそうですね。
その先は参考書を頼るしかないのかな。

STIME.EXE 説明書	Ver 8.231116

DOSVAXJ3のVGAで動くアナログ時計とカレンダのアクセサリです。
現状データファイルの置き場所指定できないので、カレントに全部置いて使ってください。
DOSVAXJ3を起動したら、chev jp して、ファイル群のあるフォルダをカレントにしてから起動してください。


・STIME.LZH に同梱されているファイル
STIME.EXE	実行ファイル
STIME.TXT	このファイル
SEDIT.BAT	SEDIT.BATで指定したエデイタ(非常駐VZなど）で各種設定表を編集
TODAY2.BAT	TODAY2.BATで指定したCNFファイルでTODAYを実行 （歴史データ大型版表示など）
HOLIDAY.DAT	休日データ。TODAY のデータに準じている？　新しい祝日形式には対応していません。
SCHEDULE.DAT	日程データ。表示のバグがあるので実用ではないです。
FLOWER.TBL	誕生花　TODAY のデータを流用。使えるかは？


・ファンクションキーなどの機能

F1:ｶﾚﾝﾀﾞｰ 	当月の大きなカレンダーを表示
F2:ｶﾚﾝﾀﾞ2 	当月の大きなカレンダーと次月を表示
F3:ｶﾚﾝﾀﾞ3 	月を指定してカレンダーを表示
F4:日程 	SEDIT.BAT で指定したエデイタでスケジュール表SCHEDULE.DATを編集
F5:TODAY  	TODAY.EXE があれば TODAY を実行
F6:Time1  	タイマー１の表示。押すたびに経過時間を表示
F7:Time2  	タイマー２の表示。押すたびに経過時間を表示
F8:日時変 	日時の変更。DOSVAXJ3では時間の変更不可
F9: CLS  	画面をクリアして時計表示
F10: END 	終了

[SHIFT]
F1:MS-DOS 	終了
F3:Bio   
F5:TODAY2  	TODAY2.BAT で別の設定（TODAY3.CNFなど) でTODAYを実行
F7:Vmap 	VMAP.COM があれば VMAP を実行

[CTRL ]
F1:sys  	終了 （DOSVAXJ3 ではキーマップ表示？）
F2:HR   	

[ ALT ]
F1:end    	終了
F2:秒針2  	秒針表示を2本線に
F3:秒針1  	秒針表示を1本線に
F4:長針青  	時分針を青色表示
F5:長針透 	時分針を色無しで表示

[PGUP]  	押すたびにアナログ時計を縮小表示
[PGDN]  	押すたびにアナログ時計を拡大表示


・バグ、更新履歴
※　日程表示はカレンダ表示を2度押さないと表示しないバグ有り
※　DOSVAXJ3で負荷が100％になるのでキー入力ループで INT28 INT2F(AX1680)を入れた。
※　DOSVAXJ3でカーソルが表示しないのでグラフィックで疑似カーソル使用。

STIME.EXE は古いプログラムゆえ、カレンダは新祝日法に対応していません。
日曜が祝日の場合に月曜が振替休日になるようには作っているみたいですが。

で、コメントの整理中にふと、カレンダマクロが対応しているから見てみようかと思ったのです。
CALENDAR.DEF　Yushi さんのモノクロ版カレンダー拡張wanama版は全く理解できませんでした。
LXCLND.def　　Emmettさんのカレンダーは祝日データに工夫がしてありました。

72:	;---- holiday definition -----------------------------------------
	; (6) 日付の位置に半角大文字アルファベットを書くと「？回目の？曜日」
	;     を指定したことになる（回数の数値は A==1, B==2, ...を意味し、曜日
	;     は A==日曜日, B==月曜日 ... を意味すると解する）。

	hh..1  =  "1874>0=1;1874>1948=3;1949>1999=15;2000>0=BB",


これは1月の祝日データですが、注目すべきは後半の成人の日。

	1949>1999=15;	1949年から1999年までは、15日固定
	2000>0=BB",	2000年以降は、B（2回目の）B（月曜日）

この形式は使える！
HOLIDAY.DAT に早速入れてみました。

01/15 1948-1999 成人の日
01/BB 2000-2099 成人の日

これで同じように解釈させれば出来るはず！
と思ったのですが、マクロが全然読めなくて、解釈する部分もわかりません。(;_;)
どうしよう・・・・

新祝日法対応のためには指定した曜日を計算して特定する必要があります。
私の頭では全く思いつきません。(;_;)
困ったときのめざら資源、探したらありました！　＼(^^)／ ｱｯﾀ-
めざら資源＞VZマクロ工房＞文字列出力関連＞七曜でふ−簡易版日付印字器

sitiyo.def
3:	;指定日の曜日を算出（ツェラーの式）
	(m<3)?{ y--, m+=12, }
	w=((y+ y/4+ y/400+ (m*13+8)/5+ 1- y/100) +d -1) %7,

なるほど、指定日の曜日を算出する、ツェラーの式というのがあるのですね。
マクロをBASICに置き換えてみました。式はほぼそのままですね。

'a1=1〜4(週)	
'a2=1〜7(曜日)
ww=0
for d=1 to 31
if m<3 then y=y-1:m=m+12
w=((y+ y/4+ y/400+ (m*13+8)/5+ 1- y/100) +d -1) mod 7
if w=a2 then ww=ww+1
if ww=a1 then dd=d:goto 30612
next d
30612 return


実際に実装したルーチンも貼り付けます。

30611 '指定日の曜日を算出（ツェラーの式）
AA1=ASC(MID$(A$,4,1))-64					'1〜4(週)	
AA2=ASC(MID$(A$,5,1))-64					'1〜7(曜日)
WW9=0
M9=YASM(YMAX)							'該当祝日の月
Y9=YEAR								'該当祝日の年
for D9=1 to 31
  if M9<3 then Y9=Y9-1:M9=M9+12					'sitiyo.def
  W9=((Y9+ Y9/4+ Y9/400+ (M9*13+8)/5+ 1- Y9/100) +D9 -1) MOD 7	'ツェラーの式
  'W9=(Y9+ Y9/4+ Y9/400+ (M9*13+8)/5+ D9- Y9/100) MOD 7		'同等の式？
  if W9<>AA2 then 30613						'曜日が一致するまで日を進める
  WW9=WW9+1							'曜日が一致したら週を進める
  if WW9<AA1 then 30613						'週が一致するまで進める
  YASD(YMAX)=D9:goto 30614					'日が確定したらデータに入れる
30613 next D9
30614 'print co9;a$;" ";Y9;M9;AA1;AA2;W9;D9			'debug
return


コメントを書くとフローのミスにも気が付きやすいですね。(^^;
一応動くようになったのですが、何故か年を変えても今年の年で計算してしまいます。(>_<)
どうしよう・・・

続く・・・のか

アナログ時計とカレンダのアクセサリ 11月24日版です。
画像はココログの記事で見てください。
http://tamaneko2.cocolog-nifty.com/vz2/2023/11/post-bf98e3.html

今回の更新内容は

・新祝日法に対応したつもり。
・見栄えも多少直しました。
・カレンダー大の日付の文字を2バイト数字にして見やすく。
・キーによるカレンダーの年月変更機能追加。
・MSDOS Player でもカレンダー表示出来ます（chej jpの時）
・今回からソースも付けます。


新祝日法への対応はEMMETさんとめざらさんのマクロを参考にしました。
先人の知恵に感謝です。m(__)m

カレンダー大の日付の2バイト数字は、TBASICのころは出来ていたのです。
PRINT CDBL$(RIGHT$(STR$(I),2)) 
のように半角文字を2バイト文字に変換するコマンドが使えたのです。
ターボBASICは英語版なのでそんなものは無く、移植時に半角数字にしたのでした。
今回一念発起して対応しましたので、興味ある方はソースを見てください。

キーによるカレンダーの年月変更機能追加は、カレンダマクロで出来ているので
このくらいは出来ないと張り合えないなぁ、と思ったのです。（張り合ってどうする）(^^;

F11: 前月 	前月のカレンダーを表示
F12: 次月 	次月のカレンダーを表示
[Ctrl]+[←]	前年のカレンダーを表示
[Ctrl]+[→]	次年のカレンダーを表示

本当は [Ctrl]+[F11〜F12] で前年と次年のカレンダーを表示したかったのですが、
DOSVAXJ3 ではこのキーが（BIOSレベルで）反応しないのでしかたなくこうしました。

なお、変更前のソースを大量にコメントしているので非常に見づらいです。
TAGLIGHT.EXE をお使いの方は TAGLIGHT.PAT に

#BASIC用
:BA,
A	'	\C\$

これを追加すれば非常に見やすくなります。
TAGLIGHT.PAT についてはバッファ制限があるので近々記事を書くつもりです。


自作、改作アプリの放置部屋 　に置いてあります。

STIME.EXE 12月08日版をアップしました。

DOSVAXJ3 の VGAで動くアナログ時計とカレンダのアクセサリです。
NCPATH= でデータファイルの置き場所を指定してください。末尾に "\" が無ければ追加します。

DOSVAXJ3 を起動したら、chev jp でVGAモードにして、STIME.EXE を起動してください。
MS-DOS Player では、chej jp でVGAモードにします。文字のデジタル時計とカレンダのみ表示します。
VTDOS では動作しません。

画像は
http://tamaneko2.cocolog-nifty.com/vz2/


更新履歴

231208	環境変数 NCPATH でデータファイルの置き場所を指定。指定無しならカレント
	春分、秋分の日を自動計算
	デジタル時計とカレンダ大の文字を2バイト文字に。
	[↑↓]キーで前年・次年  [←→]キーで前月・次月のカレンダーを表示

これでカレンダマクロに対抗できるでしょう(笑）

[←→]キーで前月・次月のカレンダーを連続で何年分もやるとエラーになります。
もしかしたらループのつじつまが合っていないのかも。
バグ入りなので、ご使用は自己責任でお願いします。

自作、改作アプリの放置部屋に置いてあります。


春分、秋分の日を自動計算する計算式は ネットから拾いました。

> Excelでこれらの日付を求めるには、以下のようにDATE関数とINT関数を数式に組み合わせます。
　春分の日

=INT(20.8431+0.242194*(年-1980))-INT((年-1980)/4) 

　秋分の日

=INT(23.2488+0.242194*(年-1980))-INT((年-1980)/4)


この式がそのまま使えました。ありがたいです。


追記

記事のタイトルと内容の日付を間違えていたのを訂正しました。
m(__)m