konnoさん、ごめんなさい、ここで失礼します。

　えーと、これから第４波がきまして、そしてそのあと最後の第５波がくる予定です。
　ひぇ〜〜〜。
　で、３月はだんだん終息な予定です。stimej.exe はいつ動かせるのか？！
　タイトルはウソです。

　とにかく、短いレスです。

>> http://s-sasaji.ddo.jp/bm/
>おお、こんなサイトがあったんですか。これはいいですね。

　そう言っていただけると嬉しいです。僕自身、「だから？」って思っていたん
です。が、

森巧尚
https://akiba-pc.watch.impress.co.jp/docs/sp/1280093.html

　なんてのを読んだら、ううん、それ、いい、と。
　この記事や歴史、人生その他、いいと思いました。

　実は、さっきアメリカで拾ってきた本格的な Basic ゲームのソースを
眺めたんですね。もう、Vz ソースみたい。最初にconstがあって、いろんな
宣言があって、自前function が定義されている。いっぱい。た〜くさん。
　『べーまが』みたいに変数が１文字でないし、行番号はないし、きっちり
構造化されててインデントもされてる。だから読みやすい（？）のですが、
、、、疲れる、、、。

　ま、僕はゲームのためのプログラミングをまだ楽しめてはいませんが
（そのうちきっとできる、というか、はまると思う）、でも、喜びがないと、、、。
　森さんの話を読んでやってくださいませ。


>> 　さっき「８行マクロ」をまた書いて、うはうはしました。
>私も置換マクロ作って楽したいと考えてます。（手打ちはやっぱりメンドウサ）(^^;

　『べーまが』のあのｐｄｆファイルが対象で、もしその気があるようでしたら、
複合機で（物理）ページプリントアウト、拡大コピー、自前でｐｄｆ作成、ＯＣＲ。
みたいな方法を考えてもいいのかも。
　３万円程度で１０年、遊べませんか？
　ＡＩの進化にはまだまだ時間がかかりそうな気がする、、、。

　僕は、今のところ、これを嫌って、Win11 + Acrobat Pro (有料)でやって
ますが、これ、きつすぎ、と思ってます。


　ほぼ意味不明でしょうが、僕が、うはうはしたマクロは、こんな３種でした。
　でも、最初の紙（ｐｄｆ）がひどければ、その後、とっても苦労する。これは
たぶん、この世界では本当だと思います。ここでの僕の相手は、あくまで.html
ファイルなので化けはありませんが、、、。

=== kaisya.def by B ===;
B_Mag 目次で、会社名の前の改行を２つにする
単なる連続置換
* M
50 ^^ "kaisya"
?. 
(mb==1)?? { &m("line block only") .}
(ks&1)? >a
#56 "\nエプソン"#m	"\n\nエプソン"#m	"AY"
#56 "\nシャープ"#m	"\n\nシャープ"#m	"AY"
#56 "\n東芝"#m		"\n\n東芝"#m		"AY"
#56 "\nナショナル"#m	"\n\nナショナル"#m	"AY"
#56 "\n富士通"#m	"\n\n富士通"#m		"AY"
#56 "\nNEC"#m		"\n\nNEC"#m		"AY"
（以下、略）
; ========== 「\n... 」の整形 ==========
:a	&a("...の整形。いいんです")
	(r)? {
	#56 "\n... "#m		"		... "#m	"AY"
	}			;こちらはタブ２つ
	.
*
=========================================

=== bmag_1.def by B ===;
『べーまが』整形用
... りんごもどき
... アステロイド3次元空間へ挑戦！
↓
... 〔りんごもどき〕アステロイド3次元空間へ挑戦！
* M
50 ^\ "bmag_1"
	(mb==2)?? .	;chr block only
&s
	#B '〔'  	;add kakko
	#> '〕' 	;add kakko
	#g		;del CRLF (0D0Ah)
	(4){#g}		;del tails
	#<
	mb-, 
&d
*
=========================================

　kaisya.def して会社名区切りにし、bmag_1.def で整形の基礎づくり、
そして、シフト kaisya.def です。、、、、　通じないよね？

　上は僕の役には立ちますが、BASIC のコードの整形（直し）は、
置換の連続で、マクロ化はできていません。というか、できない、
でしょう。その場、その場で判断して、確認置換してますから。
　場合によっては一括置換する場合もなくはないですが、、、。

　方言、時代。これらにどこまで付き合うのかなぁ？

konnoさん

　ま、夜中にちょっとだけです。
　ちゃんと見てますよ、vz.comを含め、という意味です。
　うーん、みんな konno版に期待してる（とりわけソースの整理整頓に）！
　ま（こればっか）、ヘロヘロですが。

>> 　えーと、これから第４波がきまして
>大変ですね。コメントも控えた方がいいですかね。(^^;
　レス、遅れぎみになります、という意味ですよん。

>>stimej.exe はいつ動かせるのか？！
>stime.exeの方が移植性は良いと思います。
　えっと、.exe ファイルの移植って？
　きっと、stime.bas のことなのだろうと思っておりますが。

>オセロは全く同じソースでQBASICでも動いたくらいなので。
　これは朗報です。はやく、やってみたい、、、。

>> 森巧尚
>なるほど。当時の状況など私も同じような経験もしているので
> ハードよりソフトがやりたかったんだろうと思います。
>全く同感でしたね。ただ私の場合仕事に役立つものを考えていたので。
　これからは、本気の「仕事」（work, task）で、どうぞ。
　仕事って、僕には「労働」（labor お給料のために耐えるべき苦痛）
みたいに感じられてしまいます。やりたいからやる。これでいきましょうよ！

>>ま、僕はゲームのためのプログラミングをまだ楽しめてはいませんが
>やりたい！　と思った時がやり時だと思います。(^^;

　はい！　若き森さんの楽しそうなの、楽しいことしかやらないの、
でも、楽しさを求めていたのにそこそこ苦痛が伴ったりするの、いいな、と。
　c.mosさんが、どっかで、「よし、今日はあのルーチンを完成させよう」
と思いながら、（きっと退屈な）大学からの帰宅の歩をはやめた、みたいなのが
あって、「いいね」って感じたんですよね。blogjump.defを書いていたとき、
そんなのがあったんです。
　basic・ソース復刻用マクロを書いていても、ちょっとあった、、、。
　安直な快楽を求めていた、ような、気もする、、、。

>やっぱりVZマクロが一番のようですね。(^^;

　ほんとそう思ってますよ。げ、これ、知らない、というのが次々出てくるし。
　僕は、上村さんの。clock!.defを、ちょっと読もうと思ってます。
　「矩形ブロック」の扱い、まったく知らないので。

>マクロの公開ありがとうございます。考え方など参考にさせていただきます。

　じつは、マクロを書くのにマクロを（Ｖｚを）使う、という部分が
嬉しかったのですね。こんなマクロ、すでに手持ちのＶｚマクロで、すぐさま
書けるぜ、的に。あと、正規表現。
　「\x ^」→「"」で全行の冒頭に「"」。
　「\x $」→「tab」で全行の行末に「tab」。
　「\x $」→「"」で全行の文末に「"」。
　会社名なんて、全部、ＰＳに入れておいて、all_ps.defです。

>> 　でも、そのＡＩ搭載のマクロを書いてしまえばよい。少なくとも、
>> 左５桁の「Ｂ」は「０」だ、だから置換せよ（桁対応置換、できなくは
>> ない）みたいなマクロ。
>BASICの行ナンバーを自動的に付けるマクロは昔のマクロを手直ししてます。

　もちろん、いろんな条件があると思います。ちょっと手抜きですが、
以下のマクロ、どう思われますか？　アルゴリズムという抽象の世界で、
「文太さん、そんなことも分かってなかったの？」ものなのですが、
コメントをいただければ幸いです。
　もちろん、行番号を最初にただ作っておく、というだけのマクロなのですが。

=== ln_num by B ===;
line numbering for BASIC 
* M
50 ^^ "ln_num"
	a=1000,		; start value
	b=1100,		; end value
	c=10,		; incrementing value
:a	&s
	&?("%u ",a) #m
	a=a+c,
	(a==b)? { &?("%u ",a) #m	;最後の１回はもう一度、
		>z }			;このようにコマンド
	>a				;してやるしかないと思う。
:z	&d .
*

　ポイントは、もちろん、変数 a と変数 b で、最初の番号と最後の
番号を明示しておいて、マクロを走らせたい、という点なのですが。
　Ｖｚマクロばかりでなく、プログラミングあるいはループの基礎の基礎
みたいな話なのだろうと思うのですが。do ... until か while ... wendか？

>> 　僕は、昔のアメリカフォント（活字）で「0」に斜線が入っていたのが、
>これこれ！　この斜線入りゼロが８になるのですよ。

　ですよね。桁対応（矩形ブロックを作業ファイルに書きだす）置換の
ＡＩマクロ、是非是非ご発表ください！

>いくつか共通パターンが見えたので、次はマクロだな。

　イエイ！！！

演算子を変えると，少しステップ数を減らせますね。
あと，&s を毎回実行する必要もないかと。

=== ln_num by B + ===;
line numbering for BASIC 
* M
50 ^^ "ln_num"
	a=1000,		; start value
	b=1100,		; end value
	c=10,		; incrementing value
	&s
:a	&?("%u ",a) #m
	a=a+c,
	(a<=b)? >a
:z	&d .
*

変数の加算を，出力や比較時に一緒くたにやる手もありますが，
単にステップ数を減らすより読みやすいほうが自分は好きです。

ラベル z は将来の拡張性のために敢えて残しました。

めざらさん！！

　お帰りなさい。嬉しいです。ま、ときには、どうか、どうぞ。
　さすがだ。
　いや、文太が下手すぎ、拙すぎ。

>演算子を変えると，少しステップ数を減らせますね。
　ああ、美しい！

>あと，&s を毎回実行する必要もないかと。
　です。
　アセンブラで高速描写が必要な場面では、「メモリをループに
入れるな、ループはレジスタだけでなるたけすませよ」が掟なのだ
そうです（そんなにスピード大事なの？　大事なんでしょう、アーケード
のシューティング・ゲームなら）。

https://archive.org/details/zenofassemblylan0001abra
　この人（この本じゃないかもしれないけど。Abrash先生）Ｚｅｎです。

-------------------------------------
	&s		;出せ！
:a	&?("%u ",a) #m
	a=a+c,
	(a<=b)? >a	;あああ、あんあん。by mezala
	&d .
-------------------------------------

　うん。「以上」「以下」なら、その数を含みますね。これ、使えた
ことがなかった！　ほんとはあったのかもしれませんが、記憶に、、、
ない。
　ありがとうございます！！！

文太さん

> 　ちゃんと見てますよ、vz.comを含め、という意味です。
> 　うーん、みんな konno版に期待してる（とりわけソースの整理整頓に）！

うまくいけばバグの取れたVZが使えると思うので、そこに期待ですね。(^^;
ソースはまだまだカオスですが、これからに期待、、、ということで。m(__)m

> >stime.exeの方が移植性は良いと思います。
> 　えっと、.exe ファイルの移植って？
> 　きっと、stime.bas のことなのだろうと思っておりますが。

そうです。言葉足らずなもので。(^^;

> >オセロは全く同じソースでQBASICでも動いたくらいなので。
> 　これは朗報です。はやく、やってみたい、、、。

私も早く続きをしたいのですが、VZの方が忙しくなってしまい。(>_<) ﾊﾞｷｯ＼(--;

> >全く同感でしたね。ただ私の場合仕事に役立つものを考えていたので。
> 　これからは、本気の「仕事」（work, task）で、どうぞ。

いやいや、これからは趣味オンリーでいかせてもらいにゃす！

> 　basic・ソース復刻用マクロを書いていても、ちょっとあった、、、。
> 　安直な快楽を求めていた、ような、気もする、、、。

キツイ仕事が続いた時は息抜きにそういうのも良いんじゃないかと。
趣味と実用が合致すれば何倍もやる気が出たりするし。(^^;

> 　「\x ^」→「"」で全行の冒頭に「"」。
> 　「\x $」→「tab」で全行の行末に「tab」。
> 　「\x $」→「"」で全行の文末に「"」。

なるほど。私は正規表現ほとんど使ってないので参考になります。

> 以下のマクロ、どう思われますか？
> 　もちろん、行番号を最初にただ作っておく、というだけのマクロなのですが。

なるほど。最初に行番号をダダダッと作ってしまうのですね。目からうろこです。
やり方は人それぞれ好みが違うのでこういうのもありだなと思いました。
では私の auto_no.def も公開します。急遽めざら資源を参考に整えました。(^^;

=====  auto_no.def Version 1.10  By h.konno ======
; 起動キー @A で ON/OFF トグル
*m
77 @A "オートナンバー"
	?.
	(mg..2-mg+16)?{  			;バックグラウンドにマクロ存在？
	    r=mg..2-2, &Sx(r..0+8,"auto_no")	;そのマクロは自分自身か？
	    (r)??{ &q >Q .}			;自分自身ならマクロ終了
        }
;	bb=1,				;増分 NC用
	bb=10,				;増分 BASIC
	&m("オートナンバー")
:A	&p c=r, (s)?{ &o(r) >A }	;１文字入力待ち
	(r==#[)?{ &b(1) >A }		; ep+ 対策
;	(s) ?>B				;上書きモード／非スクリーンモードか？
	(c == #m && mi==1)?>B		;上書きモードか？
	(c == #m && cd!=13)?>B		;行の終わりか？
	(c == #m && lx>0 && cd==13)?>C	;行の終わりか？
:B	&o(c) >A			;文字出力
:C	f0,#s#d f=lx,			;改行のみか?
	#< &n n=r, #>			;行頭の行番号を取得
;	(f)?&o(c)
	(n <= 0) ?>B 
	&o(c)
	&?("%u ", n+bb) >A		;10 行番号を出力
:Q	&m("AUTO OFF") .	 	;AUTO終了
*
====== End of auto_no.def ======

最初に行頭に任意の番号を入れておけば、改行で10の増分の行番号が入ります。
行頭に番号が無ければ普通の改行になります。

konnoさん

　はい、思いっきり（でもゆっくりゆっくり）趣味を楽しんでくださいね！

　以下、僕も楽しませてもらいました。モード型マクロ？
　で、「; 起動キー @A で ON/OFF トグル」の意味はだいたい分かった
つもりです。ｍｇ．．　おお、懐かしい。

=====  auto_no.def Version 1.10  By h.konno ======
; 起動キー @A で ON/OFF トグル
*m
77 @A "オートナンバー"
	?.
	(mg..2-mg+16)?{  			;バックグラウンドにマクロ存在？
	    r=mg..2-2, &Sx(r..0+8,"auto_no")	;そのマクロは自分自身か？
	    (r)??{ &q >Q .}			;自分自身ならマクロ終了
        }                ^ ;これの必要性が、、、、。

　とにかく、なるほどぉ、と思いました。
　が、僕の将来は、行番号のない QuickBasic なので、「コードを書いてから
行番号をふる」という発想がありませんでした。
　でも「別の場所でなんか使えそう」とか思って、けっこうウキウキ。
　Ｖｚマクロって、こんなに便利で楽しいのに、なんでみんなやらないのかなぁ？
　そいつが１６ビットのエディタだからですよ！　はい、知ってます。

> >……にジャンプ命令を入れたものだと思われるわけですが，
> 　でしょうね。何かコピペして残ったんだろうなぁ、ぐらいの空想は
> していました。

ピリオドの言い訳は一応しましたが、最初丸ごとコピペして
あれ？　うまく動かないなぁ？　などと思っていたら
               r=mg..2-2, &Sx(r..0+8,"WD")     ;そのマクロは自分自身か？
                                     ^^^^
ここを自分のマクロ名に変えてなかった、とかいうのは内緒です。(^^;

＃　ここは誰？　私はどこ？

> 　そ、し、て、そのような連続した人生の段階が、終わりを迎えようとして
> います。

いよいよセカンドライフですね。(^^;

> それね，y.mikome氏の「モード型マクロ作法書」に例示されている……
> (r)??{ &q .} ;自分自身ならマクロ終了
> ……にジャンプ命令を入れたものだと思われるわけですが，
> 1バイトだし，それほど突っ込むところでもないんじゃない？

まさにめざら資源のそこをコピペしたものなんです。
終了時にメッセージを出さないと分かりにくいので
:Q	&m("AUTO OFF") .	 	;AUTO終了
これが先にあったので単純に飛ばしたのです。(^^;
ピリオドを残したのは、そこで終了する、が後で見てわかりやすいかと。(^^;

> 参考：「キー入力監視型−いわゆるモード型−マクロを作るには」
> （http://mezala.la.coocan.jp/vz/faq/mode.html）
> 「モード型マクロ作法書」を全文引用しています。

いつもお世話になっています。もう困ったときの神頼みです。(-人-)
最近の更新か、さらにデザインが洗練されて見やすくなりましたね。m(__)m

＃　ありがたやま詣ではかかせません。(^_^)

> 　以下、僕も楽しませてもらいました。モード型マクロ？
> 　で、「; 起動キー @A で ON/OFF トグル」の意味はだいたい分かった
> つもりです。ｍｇ．．　おお、懐かしい。

そこがまさにめざら資源の常駐マクロを見て急遽直したところなのです。(^^;
自己流でやってもうまくいかなくてオプションの初期化とかやっちゃったり。
で、困ったときのめざら資源頼みというわけです。(^^;

> 	    (r)??{ &q >Q .}			;自分自身ならマクロ終了
>         }                ^ ;これの必要性が、、、、。

ここ、最初フォントのせいで >Q を指して見えて、？？ となってました。(^^;
あれ？　VZに貼り付けたら TAB のところを指してる？　ピリオドですよね。(^^;

> 　が、僕の将来は、行番号のない QuickBasic なので、「コードを書いてから
> 行番号をふる」という発想がありませんでした。

そうなんですよね。私も長らく使ってなかったですが、ベーマガのせいですよ。(^_^)

> 　でも「別の場所でなんか使えそう」とか思って、けっこうウキウキ。
> 　Ｖｚマクロって、こんなに便利で楽しいのに、なんでみんなやらないのかなぁ？
> 　そいつが１６ビットのエディタだからですよ！　はい、知ってます。

最近また盛り上がって新しい人も見えたので、私もウキウキです。＼(^^)／ 

> > おお、メイリオを等幅に出来るのですか。
> > PC2 ではメイリオが比較的見やすいので、試してみたいと思います。
> やってみました。出来ました。＼(^^)／ ﾔｯﾀ-

インストールした時は等幅になったと思ったのですが、今は等幅じゃない？
たぶんタブが等幅に対応してないのか、タブの表が崩れてしまいます。(;_;)
見やすいけどこれでは使えない。(;_;)

> PC1でも BIZ UDGothic とどっちか良いか比べてみます。

PC1はギザギザが無いので BIZ UDGothic が見やすいです。
PC2はシステムが旧型のせいか、ギザギザになるのでその前提で見直しました。
＃（システムが）腐ってやがる。古すぎたんだ・・・
ということで、PC2のギザギザハートの見やすさランキング　(^^;

1. HGGothicE		太字でぱっと見は見やすい。
2. BIZ UDGothic		太さのばらつきがあるのがいまいち
3. HGGothicM		太さのばらつきがあるのがいまいち
4. MS Gothic		線が細くて見えにくい

ということで、HGGothicE でいくことにしました。
難しい漢字は潰れてしまいますが、ここではあまり無いだろうし。(^^;
そもそも難しい漢字はだいたいの感じで読んでるし。(^^;

> >ここ、最初フォントのせいで >Q を指して見えて、？？ となってました。(^^;
> 　Firefoxで見てますが、この掲示板で、きちんと表示されていますよ。
> 　コピペしてＶｚに持ってきても、ちゃんとしてます。
> 　が、#12148 の引用では、たしかに、Firefoxでもずれます。

TAB使用行は位置変わらず SPC使用行は引用で2バイトズレたんですね。(^^;

> 	    (r)??{ &q >Q .}			;自分自身ならマクロ終了	TAB
>         }                ^ ;これの必要性が、、、、。			SPC

これはズレを確認しなかった私が悪い。てか、字空のズレが発生したんじゃぁ！

> 　でも、『Program Pochette』のほうが、いろいろ親切で、ｐｄｆもうまい
> みたいですよ。

あうう、文太さん、、、またこんなものを、、、思わず見てしまいました。＼(^^)／ 

> 　でも、歩いてね。しつこいかなぁ、、、。これで最後です！
> 　健康が幸福の基礎、まだしばらく続くはずの幸福、その基礎。ホント。

はい、暖かくなったら、、、て、また雪がふるぅ、、、(;_;)

としきさん

>なにかというと、BASICでいうところのRENUMコマンド相当の動作。
　これ、噂には聞いていたのですが、GOTO とかの中身に対してもやってくれるの？

>とはいえ、対応する必要があるのは GOTO GOSUB THEN ELSE ぐらいかなぁ。
　一瞬やる？　と思ってたのだけど、上のような「中身」を考えたら、
上から下へ、数字が大きくなっていればよい、という結論になりました。
　このチェックマクロだけ作ろうと思っている。何しろ、行番号のところが
ぐちゃぐちゃになりがちなＯＣＲの結果なものですから。
　すぐ「０」が「８」になるし。

　そういう時代なんでしょうけど、『べーまが』のソースって、、、。
　ＦＤドライブ、１２万円！　とかの時代、、、。
　すいません、\100 でハードオフで買ったＵＳＢ接続のものを使わせて
いただいております。

c:\0bmg\1982.bmg       12:
速報！エプソン「HC-20」(価格138,600円)大紹介。プログラム3本付き！

　グレップ！　１９８２年だそうです。あの小さいのにプリンタ内蔵ですからねぇ。
（「HC」しか思い出せなかった）


（１）行番号の変更前と変更後の対応表を作って
（２）行番号を変換するたびに、その行を呼んでいるGOTOを変換する

　うわ！
　マクロにしろ何にしろ、プログラムで、大きなもの、複雑なもの。
どちらにも拒否反応がでる精神状態にあります。blogjumpやnamefillを作れた
昔の自分を、空しく誇っております。そんな今日この頃です。

> 一方で、行番号系でやりたいことも、あるにはある。
> なにかというと、BASICでいうところのRENUMコマンド相当の動作。
> つまり、行番号の付け替え。

ちょっとまじめに考えてみました。
すると、これ、思ったより大変かもしれないということに気づきました。
N88-BASICに限りませんが、ほとんどのBASICインタプリタはプログラムを内部表現
に変換して格納しているのですよ。例えば、GOTOは89H、GOSUBは8DH、みたいな感じ。
つまり

 GOTO  1280 -> 89 20 20 00 05
 GOSUB 80   -> 8D 20 50 00

といったように。
なので、インタプリタなら対応する内部コードのうしろを変換するだけで済むの
ですが、テキスト処理だとこれがなかなか難しい。
例えば、以下の例。

10 REM GOTO 100
20 'GOSUB 200
30 PRINT "GOTO 300"

当然、これらは変換してはいけないわけです。
こんなものは存在しない、という前提で作ればそれなりに簡単ですけれど、これらに
まじめに対応したマクロを作るのは、私のおつむではちょっと難しい。
頭の体操にはいいかもしれないけど。

> とはいえ、対応する必要があるのは GOTO GOSUB THEN ELSE ぐらいかなぁ。

RETURNも行番号をとるけれど、そんな汚いコード、書いた事はないはず。
ん、RESTOREなんてコマンドもある。これは対応が必要だ。
あと、RESUMEぐらいは対応してもいいかも。

これ以上何かをするのなら、めざらさんのところの掲示板かなぁ。