新着記事 35 |
|---|
12240： Re: CIRCLE() 投稿者：としき 2025/03/14(金) 01:33
参照先：http://toshiki.la.coocan.jp/
12239 番 文太 さんへのコメント
一つだけ。- No.12240 - [ｺﾒﾝﾄ元:12239] [リストへもどる] soft> ときどき、言い方に毒あるよね？
ときどき、ではなく、いつも、です。
ただし、本人はそれを意図してやっていない。
故意ではなく過失、というヤツ。
結果として、常時謝罪しまくり。
ごめんなさい。
12239： CIRCLE() 投稿者：文太 2025/03/14(金) 00:22
12236 番 としき さんへのコメント コメント数 1
としきさん- No.12239 - [ｺﾒﾝﾄ元:12236] [リストへもどる] soft
ときどき、言い方に毒あるよね？
とにかく、
CIRCLE() について。>とはいえ、実際のところは、ユーザーのことを考えたからこそ搭載しなかった、>という可能性が高いと思う。
ぼくは、もちろん、数字で語られた ROM 容量のこととか分かりませんが、
CIRCLE が、NEC PCで、しばらく見送られたというのは、けっこう有名な話
みたいで、いろんなことが絡んでいたみたいです。
過去の継承にこだわったＮＥＣが、ＭＳの「構造化ＢＡＳＩＣ」と切れた
という時期もあったみたいですから。この話、有名？
ＮＥＣ、強気、あるいは責任感ありありの時代。いつ？
12238： Re^2: Ｎ６０とＮ６６ 投稿者：文太 2025/03/14(金) 00:14
12235 番 としき さんへのコメント
としきさん- No.12238 - [ｺﾒﾝﾄ元:12235] [リストへもどる] soft
受けました！>PC-88のシューティングゲームがPC-98だと速すぎるのは問題だ、とか、Vzエディタ>のマクロがWzエディタで動かないのはよろしくない、という主張と同程度の正当性>は認めてあげたいかな。
３回笑ったから、そのままコピペ。
あ、そろそろ、別の話題で、別のスレッドとか、いかがですか？
僕の環境では、１画面を超えているのですが？
12237： LN_adjst.def 投稿者：文太 2025/03/14(金) 00:11
もう、Ｖｚったら、ＶＷＸったら。- No.12237 - [リストへもどる] pre
うれしいんだよね、いくつになっても。
行番号の書式にもいろいろあるのかもしれませんが、今のところ
下の書式が気に入ってます。行番号化けがけっこう容易に見つかる、
というメリットもあるみたい。
テキストボックスも「テキストなのよ」（wordingが違うだろうけど
(c) 高橋さま）というので、#F 窓で、lx を使ったのは、生まれて初めて
だと思う。
=== LN_adjst.def by B ===;
LINE NUM adjust for BASIC source
1 IF M=0 THEN 240
10 IF M=0 THEN 240
100 IF M=0 THEN 240
1800 END
^ start here
-->
1 IF M=0 THEN 240
10 IF M=0 THEN 240
100 IF M=0 THEN 240
1800 END
* M
50 ^^ "LN_adjst"
?. (ne=='BA')?? .
&s ps[=pa,
#G #F #e a=lx, ; get LEN of max string
#[ ; #[ == #03
(a>4)? {
&m("You're kidding! NO 10000 lines in Basic") >z
}
#56 "\x ^\([0-9]\) " #m " \1 " #m "AY" ; for 1
#56 "\x ^\([0-9][0-9]\) " #m " \1 " #m "AY" ; for 11
#56 "\x ^\([0-9][0-9][0-9]\) " #m " \1 " #m "AY" ; for 111
:z ps], &d .
*
12236： Re^2: Ｎ６０とＮ６６ 投稿者：としき 2025/03/13(木) 23:22
参照先：http://toshiki.la.coocan.jp/
12231 番 konno さんへのコメント コメント数 1
- No.12236 - [ｺﾒﾝﾄ元:12231] [リストへもどる] soft> (CIRCLE)などの機能も当初は削除されてたとか、ユーザーのことを考えてない。
うむ、konnoさん、なかなか飛ばすなぁ。
ユーザーのことを考えて提案された、掲示板の簡易な機能向上策を採用しないという
判断を下すだけの人だ、言葉の重みが違う。
マジレスすると、konnoさん、ローレゾの真の恐ろしさを理解していないと見た。
あの画面解像度で円を描くことの無意味さというか。
例えば、エミュレータのDOS窓で160桁×100行の窓を開いてVzを起動し、paint.def
を使ってみればだいたいの感覚がわかると思う。こんなぎざぎざな円を書く機能を
付与するくらいなら、思い切ってばっさりカットするのも見識かと。
とはいえ、実際のところは、ユーザーのことを考えたからこそ搭載しなかった、
という可能性が高いと思う。当時はROMの容量が小さかったから、搭載できる機能
にも制限が多かった。もちろん、CIRCLEを搭載して、変わりにINPUTやPRINTを削る、
という判断を下してもよかったのかもしれませんが、普通にユーザーのことを考え
たら、なかなかそういう決断を下すのは難しいでしょう。あるいは、ROMを増やして
その分は価格を上げる、という選択肢もあって、ブルジョアな人（konnoさん？）
なんかには望ましいあり方なのかもしれないけど、ここはプロダクトアウトよりも
マーケットインで価格が安いほうを選んだ、ということなのかもしれません。
とにかく、昔のメモリとの戦いは、おそらくkonnoさんなんかの想像を絶するもの
だと思う。私はそこまで限界を攻めた事はないけれど、昔話を聞くと、とてもマネ
できるものではないな、と思う。
例えば、PC-8001のROM容量は24KBだったそうで、そのうちのどのくらいがBASICの
インタプリタだったかは知りませんが、もっと昔にさかのぼると、4KBとか8KBのROM
に詰め込まれたBASICインタプリタがあったそうです。
あるいは、ファミコンの有名なゲームの「ドラゴンクエスト」。
初代のメモリ容量は64KB。そこに大冒険を詰め込むわけで、たいしたものです。
cf.
https://nlab.itmedia.co.jp/nl/articles/1801/07/news008.html
現在の、潤沢にメモリを使える世界に感謝しましょう。
12235： Re: Ｎ６０とＮ６６ 投稿者：としき 2025/03/13(木) 23:20
参照先：http://toshiki.la.coocan.jp/
12228 番 文太 さんへのコメント コメント数 1
- No.12235 - [ｺﾒﾝﾄ元:12228] [リストへもどる] soft> Ｎ６６とＮ６０も違う、と。深いのぉ。
当時をリアルタイムで経験していた私からすると、あれだけスペックが違うのに
言語仕様が同じだったりすると、それこそ利用者に対する裏切りですよ。
とはいえ、互換性を重視する立場もわからなくもない。
PC-88のシューティングゲームがPC-98だと速すぎるのは問題だ、とか、Vzエディタ
のマクロがWzエディタで動かないのはよろしくない、という主張と同程度の正当性
は認めてあげたいかな。
12234： ちっちぇ〜 投稿者：文太 2025/03/13(木) 20:43
12231 番 konno さんへのコメント
konnoさん- No.12234 - [ｺﾒﾝﾄ元:12231] [リストへもどる] soft>これを見て、画面がちっちぇ〜、、と思いましたが>テキストはいいとして、グラフィックはもっとちっちぇ〜 ！！
こういうの頭でイメージして、移植・復刻させなくちゃなんですね。
いやぁ、、、。
英語の BASIC-Game 本をチラ見しました。
_33 Adult Computer Games in Basic_ by D. W. Chance.
対象が、IBM PC, Apple II/IIe, TRS-80。1983年出版。各機種間での
移植の方法が書かれているが、、、。これ、俺、やるの？ という感じに
なってきました。
12233： STRIG again or forever 投稿者：文太 2025/03/13(木) 20:30
12223 番 としき さんへのコメント
IBM Personal Computer- No.12233 - [ｺﾒﾝﾄ元:12223] [リストへもどる] pre
Hardware Reference Library
BASIC
Second Edition (May 1982)
というマニュアルがありまして、その割と冒頭に
The STRIG function for Advanced BASIC now
reads four joystick buttons. This is useful if you
happen to have four one-dimensional paddles.
なんて記述がありました。1982年に４つのボタンの
ジョイスティックが存在していたことになりますね。
81年がＩＢＭ・ＰＣ（16 bit, 8088, ＭＳ伝説の始まり）
の発売なので、１年後ぐらいには、４つボタン対応に。
ま、１６ビットの前の８ビットマイコンの話を、我々は
このところしているわけですが。
追伸：Shooting Trigger でもいいんですけど、QuickBasic
by MS の最後ヴァージョンでは、Stick Trigger でしたけどね。
まず、BASIC で、やがてＯＳで、世界制覇をしたのですよねぇ。
いや、すぐ LINUX の時代？ うーん？？？
12232： メイリオのタブは等幅じゃなかった？ 投稿者：konno 2025/03/13(木) 16:07
12184 番 konno さんへのコメント
- No.12232 - [ｺﾒﾝﾄ元:12184] [リストへもどる] pre> > おお、メイリオを等幅に出来るのですか。> > PC2 ではメイリオが比較的見やすいので、試してみたいと思います。> やってみました。出来ました。＼(^^)／ ﾔｯﾀ-
インストールした時は等幅になったと思ったのですが、今は等幅じゃない？
たぶんタブが等幅に対応してないのか、タブの表が崩れてしまいます。(;_;)
見やすいけどこれでは使えない。(;_;)> PC1でも BIZ UDGothic とどっちか良いか比べてみます。
PC1はギザギザが無いので BIZ UDGothic が見やすいです。
PC2はシステムが旧型のせいか、ギザギザになるのでその前提で見直しました。
＃（システムが）腐ってやがる。古すぎたんだ・・・
ということで、PC2のギザギザハートの見やすさランキング (^^;
1. HGGothicE 太字でぱっと見は見やすい。
2. BIZ UDGothic 太さのばらつきがあるのがいまいち
3. HGGothicM 太さのばらつきがあるのがいまいち
4. MS Gothic 線が細くて見えにくい
ということで、HGGothicE でいくことにしました。
難しい漢字は潰れてしまいますが、ここではあまり無いだろうし。(^^;
そもそも難しい漢字はだいたいの感じで読んでるし。(^^;
12231： Re: Ｎ６０とＮ６６ 投稿者：konno 2025/03/13(木) 16:01
12228 番 文太 さんへのコメント コメント数 2
- No.12231 - [ｺﾒﾝﾄ元:12228] [リストへもどる] pre> http://p6ers.net/hashi/furoku1.html> Ｎ６６とＮ６０も違う、と。深いのぉ。
ファンサイトですか。良いですね、PC-6シリーズ愛が感じられます。> PC-6601 PC-6001> 1 スクリーン構成 SCREEN1 40文字×20行 32文字×16行> 2 グラフィックス機能┌2 80×40ドット 64×48ドット> SCREEN┤3 160×200ドット 128×192ドット> └4 320×200ドット 256×192ドット> (CIRCLE)(PUT[@]),(GET[@])
これを見て、画面がちっちぇ〜、、と思いましたが
PC-8001は テキスト80桁×25行、グラフィック160×100ドット8色
テキストはいいとして、グラフィックはもっとちっちぇ〜 ！！
まあ、マイコンキットの組み立て済みみたいなものだしなぁ・・・
(CIRCLE)などの機能も当初は削除されてたとか、ユーザーのことを考えてない。
さて、甘々で怖くない人むけに、PC-8001オセロのQB移植ソースでも出すかな。
としきさんのが完成形なので、デザインを参考にもうちょいお直しして。(^^;
12230： Re^10: オセロ、移植元と移植先 投稿者：konno 2025/03/13(木) 15:27
12227 番 としき さんへのコメント
- No.12230 - [ｺﾒﾝﾄ元:12227] [リストへもどる] soft> > 機能が有るのは PC6001,PC6601,X1Hu,X1TB,S1,PASOPIA7,SMC77(△),JX,MSX,MSX2> JXって知らない。
IBM JX のようです。JX 基本BASIC
日本語化してるのに日本ではほとんど売れなかったようです。
CPUはパソピア16と同じ 8088 4.77Mhz なので、OSもほぼ同じなのでは？
英語ページにはジョイスティックx2 とありますね。
12229： PC-6001, PC-6052(JS) 投稿者：文太 2025/03/13(木) 12:30
12227 番 としき さんへのコメント
- No.12229 - [ｺﾒﾝﾄ元:12227] [リストへもどる] soft
ジョイ・スティック
https://www.beep-shop.com/blog/5761/
あるみたいですね。でも、スペースキーで代用できるのでしょう？
動かないのかぁ。
まだ 80x25 のＤＯＳ標準画面が「一般的」とはなっていない時代
みたいなので、表示（根本！）系は、けっこう注意が必要なんでしょうね。
COLOR，CONSOLE，LOCATE
POS，CSRLIN
このあたりですね（もちろんググリました）
それほど多種多様でもないのだろうから、乗り越えます！ その前に
Basicが走るマシンを作ります！ コンパイルもしたいです！
古い「BASIC規格表」をみたら、CONSOLE - Multi の欄に、
KEY ON / KEY OFF というのがありましたが、ファンクションキーの
表示／非表示だそうで、ま、バシバシ削っていってしまうのでしょう、
まずは。
ＭＳ系と非ＭＳ系。Ｘ，Ｙの逆転、ご指摘ありがとうございました。
いちおう気をつけます。
12228： Ｎ６０とＮ６６ 投稿者：文太 2025/03/13(木) 12:28
12217 番 konno さんへのコメント コメント数 2
konnoさん- No.12228 - [ｺﾒﾝﾄ元:12217] [リストへもどる] pre>ソースの冒頭だけでも> ↓ ↓> 5 KK=0 : P=5 : PB=5
文太、ぜんぜん甘々だな。>文太さんのソースは CONSOLE文の行を REM にすれば Turbo BASICで>コンパイル通ります。でも動かない。(>_<)
文太、ぜんぜん怖くないな。
http://p6ers.net/hashi/furoku1.html>N66-BASICとN60-BASICの違いはPC-6601とPC-6001のハードウェア上>の違いと大いに関係があります。
Ｎ６６とＮ６０も違う、と。深いのぉ。
12227： Re^9: オセロ、移植元と移植先 投稿者：としき 2025/03/13(木) 00:55
参照先：http://toshiki.la.coocan.jp/
12226 番 konno さんへのコメント コメント数 2
- No.12227 - [ｺﾒﾝﾄ元:12226] [リストへもどる] soft> 機能が有るのは PC6001,PC6601,X1Hu,X1TB,S1,PASOPIA7,SMC77(△),JX,MSX,MSX2
JXって知らない。
日立のS1と東芝のパソピア７は、ゲーミングマシンといわれればそうかも。
他は明らかにゲーミングマシンですね。
12226： Re^8: オセロ、移植元と移植先 投稿者：konno 2025/03/12(水) 23:55
12222 番 としき さんへのコメント コメント数 1
- No.12226 - [ｺﾒﾝﾄ元:12222] [リストへもどる] soft> 私もパピコンは触ったことがある程度なので知らなかったのですが、スペックを確認> したところ、ジョイスティックポートが２つ搭載されていたとありました。
私はPC-6001が先に出たものと勘違いしていました。
どこかに年表みたいなのがあったような・・・それによると
1979（昭和54） (5)PC-8001
1981（昭和56） (9)PC-6001 (9)PC-8801
この後は16ビット機の時代になるので、PC-6001は8ビット機全盛のころなのですね。
それならジョイスティックポートがあって当たり前かな。> ということは、ハードウェア的にはオプションだったのか。> そして、これに対応するために、言語仕様的にはSTRIG関数が搭載されていたので> しょう。
ここでBASIC互換表を見たら、PC8001など多くのPCはジョイスティック無しでした。
機能が有るのは PC6001,PC6601,X1Hu,X1TB,S1,PASOPIA7,SMC77(△),JX,MSX,MSX2
これが合っているかはわからないですが、大体ゲーミングマシンという位置づけか。
あくまで BASICの話ですが。
12225： Re^4: 新着情報 改善要望 投稿者：konno 2025/03/12(水) 23:15
12221 番 めざら さんへのコメント
- No.12225 - [ｺﾒﾝﾄ元:12221] [リストへもどる] soft> それ，「時間」じゃなくて「時刻」ですが。
そ、そうですね（汗）。時刻に直してみました。m(__)m> > 清き1票ありがとうございます。m(__)m> ブラックと言うか，かなりドス黒いです。清くなどございませんよ。
マ界に澄む者には田沼のように清く澄んで見えるのです。
＃ VZマ界のマ王に俺はなるぞ〜！！（今は目の上に・・・）
12224： Re^2: 新着情報 改善要望 投稿者：としき 2025/03/12(水) 23:07
参照先：http://toshiki.la.coocan.jp/
12215 番 konno さんへのコメント
うん、まぁ、少しはよくなった。- No.12224 - [ｺﾒﾝﾄ元:12215] [リストへもどる] soft> > 情報を用いて何かをしてくれるということですよね。期待大。今後定期的にとしき> > からの圧がかかると思ってください。> でもあれば（プログラムの参考とか）便利だろうということで残しています。
すなわちkonnoさん、なにかをしてくれるわけですよね。
しかも、本来裏方で動くようなコードの結果をわざわざ表に出しているということは
暗黙の宣伝効果を狙っているとしか思えない。
ということで、これが表示されているうちは、かつて２ちゃんねるでよく見かけた
「まだぁ〜？」がしばしば発動されることでしょう。> 確かに。でも個人的にわかればいいということでこのままいこうかな。
いや、だから、めざらさんをはじめ他の人にはわからないから改善してよ、という話。
最近も新しいお客様が来てくださったようですが、ここの潜在顧客の数はVzのソース
をダウンロードしてくれた人の数と同じだけいると推測できるのですから。> 長くなりすぎるのと、日付追加はちょっとだけ面倒という理由をつけて却下です。
面倒はともかく、長くなるから却下、というのは理解できる。でも> 「表示時間」ならページ更新した時間とわかるし。
わかりません。めざらさんもわからなかった、というのはギャグかもしれませんが、
正直これでは言葉が足らなさすぎて誤解を招く可能性大。> > Another HTML-lintにきちんとかけることは必須かと。> う、この変更だけなら点数は変わらないだろうからやらなくてもいいかな。(^^;
ならば、ということで、私がやってみました。
う〜ん、とりあえず、ぎりぎりプラスの点数でしたけど、わりとミスタイプっぽい
タグ指定で点数を落としている。論理構造なんぞではなく、その手のケアレスミス
を解消するだけで、おそらく５０点程度は取れそう。
12223： Re: STRIG 関数 投稿者：としき 2025/03/12(水) 23:07
参照先：http://toshiki.la.coocan.jp/
12213 番 文太 さんへのコメント コメント数 1
- No.12223 - [ｺﾒﾝﾄ元:12213] [リストへもどる] soft> > STRIG って何？> > 引数> >0：キーボード（スペースキーに対応）
スペースキーに対応していうところから考えて、STRIGって、Stick Trigger ではなく
Shooting Trigger の略ではないかと思えてきた。
引数と返り値が明確なら何でもいいんですけどね。
12222： Re^7: オセロ、移植元と移植先 投稿者：としき 2025/03/12(水) 23:07
参照先：http://toshiki.la.coocan.jp/
12208 番 konno さんへのコメント コメント数 1
- No.12222 - [ｺﾒﾝﾄ元:12208] [リストへもどる] soft> > ただジョイススィックは？ あれ割り込み処理じゃないのかな？> このころはまだ使われてないのでは。(^^;
私もパピコンは触ったことがある程度なので知らなかったのですが、スペックを確認
したところ、ジョイスティックポートが２つ搭載されていたとありました。
ということは、ハードウェア的にはオプションだったのか。
そして、これに対応するために、言語仕様的にはSTRIG関数が搭載されていたので
しょう。
12221： Re^3: 新着情報 改善要望 投稿者：めざら 2025/03/12(水) 22:04
参照先：http://mezala.la.coocan.jp/
12218 番 konno さんへのコメント コメント数 1
それ，「時間」じゃなくて「時刻」ですが。- No.12221 - [ｺﾒﾝﾄ元:12218] [リストへもどる] soft> 清き1票ありがとうございます。m(__)m
ブラックと言うか，かなりドス黒いです。清くなどございませんよ。
12220： Re^8: オセロ、移植元と移植先 投稿者：konno 2025/03/12(水) 21:49
12212 番 文太 さんへのコメント
- No.12220 - [ｺﾒﾝﾄ元:12212] [リストへもどる] soft> >>ただジョイススィックは？> >このころはまだ使われてないのでは。(^^;> あ、そう？ では、？？？
ごめんなさい。ソースに2か所ありましたね。m(__)m
ということは、PC-6001 はジョイスティック対応だったのね。> >私もそのうち試してみたいです。> まだ僕が入れたバグが残っていると思いますが、適当にＸＸ用に> 移植でも何でもしてください。
#12217 で書きましたがコマを置くところで挫折中です。(>_<)
文太さんのソースと比較してみるかな。
TurboBASICやQBASIC用はLOCATE文が逆で数字もズレるのがバグの元。
コマの位置がそれでズレてる可能性大。XとYが逆になってるかも。
他にもバグとわかる変な動作のソースもいくつか・・・
うーん、今は完動するソースもあるのでそっちに注力したいのだが・・・
PC-8001のソースを改造したTurboBASICとQBASIC共通ソースです。(^^;
12219： Re^3: 新着情報 改善要望 投稿者：konno 2025/03/12(水) 20:54
12210 番 としき さんへのコメント
- No.12219 - [ｺﾒﾝﾄ元:12210] [リストへもどる] soft> あれだ、konnoさん、親切心は人一倍ありそうなんだけど、UIの構成といえばいいのか、> 他の人から見える部分において、それは一般人からどう見えるか、という観点がいささか> 欠けているような感じ。
なんというか、一画面に一杯詰め込みたいんですよね。(^^;
時計とカレンダ―のアクセサリとか最たるものですね。
新着情報の場合はスマホ画面にも納めたいという動機からです。> > konnoさんは気にしない，に一票。> 私も一票入れたくなってしまうけど、世界平和のために、ぜひ気にしていただきたい。
うう、一応変更しましたが、本当は隙間に押し込みたいのです。（変態か）
世界平和と言えば、昔は町のあちこちにあったような。
＃ アナタハコメヲシンジマスカ
12218： Re^2: 新着情報 改善要望 投稿者：konno 2025/03/12(水) 20:40
12209 番 めざら さんへのコメント コメント数 1
- No.12218 - [ｺﾒﾝﾄ元:12209] [リストへもどる] soft> > 「ウィンドウサイズ」> え？！ そうゆう意味だったのですか？ 知らなかった。> VTDOS掲示板を閲覧するのに推奨されるサイズかと思ってた(^_^;)
もちろん VTDOS掲示板を閲覧すると自動的にそのサイズになります！
その他に現在のサイズまでわかるというおまけ機能もあるのです。(^^;> > 「表示時間」> え？！ そうゆう意味だったのですか？ 知らなかった。> 屋敷の掲示板を表示してから6時間40分経過しているのかと思った(^_^;)
これはちょっと違います。屋敷の掲示板情報を閲覧した時の時間です。(^^;
って、めざらさんのいけず〜。(;_;)> > Another HTML-lint> konnoさんは気にしない，に一票。
清き1票ありがとうございます。m(__)m
12217： Re: Masao Kimura's Comp Othello（やや長文） 投稿者：konno 2025/03/12(水) 20:14
12207 番 文太 さんへのコメント コメント数 1
- No.12217 - [ｺﾒﾝﾄ元:12207] [リストへもどる] pre> むふふふ。ブチ切れた文太です。
むむむむ。ブチ切れた文太さんは怖い。(-_-;)> まだ動かせませんが。> ３時間かかりました。途中で１５分寝落ちしましたが。> けっこう楽しかった。分かっていく喜び。
1982年03月の PC-6001 Othello のソースリストですか。
お疲れ様です。m(__)m> まだ、「1」「l」「I」とか残ってると思います。
ソースの冒頭だけでも> 5 KK=8 : P=5 : PB=S
↓ ↓
5 KK=0 : P=5 : PB=5
違うようです。変数の値があてにならないのが厄介なんですよね。(>_<)
私のも初期画面までは動いたんですが、コマが置けなくて挫折してます。(>_<)
どこかの変数の数値とかが違ってるんでしょうね。
Turbo BASICです。
文太さんのソースは CONSOLE文の行を REM にすれば Turbo BASICで
コンパイル通ります。でも動かない。(>_<)
12216： Re^5: オセロ、移植元と移植先 投稿者：konno 2025/03/12(水) 17:51
12206 番 文太 さんへのコメント
- No.12216 - [ｺﾒﾝﾄ元:12206] [リストへもどる] soft> 別冊もの２つ！ ゲット！> konnoさん> ありがとう！！！
お役に立てたようでなによりです。> https://archive.org/search?query=%E3%83%9E%E3%82%A4%E3%82%B3%E3%83%B3BASIC%E3%83%9E%E3%82%AC%E3%82%B8%E3%83%B3+1982> これで、最後の２つゲット。
おお、こんなふうに検索すればよかったのか。今までほぼ丸ごとだったので
重うて重うて。(^^;
12215： Re: 新着情報 改善要望 投稿者：konno 2025/03/12(水) 17:31
12204 番 としき さんへのコメント コメント数 1
- No.12215 - [ｺﾒﾝﾄ元:12204] [リストへもどる] soft> ウィンドウサイズの表示なんですが、表示位置がなんだか不思議。> VTDOSの掲示板のところに埋もれているような感じ。> これ、一番最後に回していただきたい。
なるほど。言われればもっともなのでそうします。> ということは、将来的にはkonnoさん、この> 情報を用いて何かをしてくれるということですよね。期待大。今後定期的にとしき> からの圧がかかると思ってください。
いや、この情報はスマホでの見え方を知るために入れたのでもう役目を終えた？
でもあれば（プログラムの参考とか）便利だろうということで残しています。> そんなことはともかくとして、この項目名も、単に「ウィンドウサイズ」ではなく、> たとえば「あなたのブラウザのウィンドウサイズ」とかにしてもらえると、気のせい> 程度にはわかりやすくなるかと。
確かに。でも個人的にわかればいいということでこのままいこうかな。
そもそも元ネタがタイトルのままだし。(^^;> 上部に表示されている「表示時間」。これも、板塀の並びというのはひどく違和感。> 最上部のタイトルの並びとか、あるいはタイトルの１行下、板塀の１行上、みたいな> ところに独立した行とするのもいいかも。
なるほど。行は増やしたくないので1行目に追加します。> また、表示時間というのもちょっと変えて「yyyy/mm/dd hh:mm時点の最新情報」> みたいな方が、個人的にはちょっとかっこいい気がする。
長くなりすぎるのと、日付追加はちょっとだけ面倒という理由をつけて却下です。
「表示時間」ならページ更新した時間とわかるし。> ま、なんにせよ、もし変更をかますのなら、そのあと、めざらさんの紹介された> Another HTML-lintにきちんとかけることは必須かと。
う、この変更だけなら点数は変わらないだろうからやらなくてもいいかな。(^^;
ということで変更してみました。m(__)m
12214： 【資料】ＰＣメーカの主要機（新） 投稿者：文太 2025/03/12(水) 13:35
12192 番 文太 さんへのコメント
- No.12214 - [ｺﾒﾝﾄ元:12192] [リストへもどる] pre
７６年から８４年まで。
８タブです。
SHARP NEC Fujitsu others
--------------------------------------------------------------------------------------
1976（昭和51） (8)TK-80
--------------------------------------------------------------------------------------
1977（昭和52） (11)TK-80BS (5)L-KIT 8
--------------------------------------------------------------------------------------
1978（昭和53） (12)MZ-80K BASICマスター（日立）
PET2001（コモドール）
M100 8K BASIC（SORD）
--------------------------------------------------------------------------------------
1979（昭和54） (4)COMPO-BS 6809展示（モトローラ）
(5)PC-8001 BASICマスターExtra（日立）
(10)MZ-80C M100ACE（SORD）
CBMシリーズ（コモドール）
--------------------------------------------------------------------------------------
1980（昭和55） (3)PC-1210 BASICマスターL3（日立）
(5)PC-3100 (5)TK-85 ↑初の6809マシン
(6)MZ-80K2 if-800（沖）
FX-9000P（CASIO）
--------------------------------------------------------------------------------------
1981（昭和56） (4)MZ-80B TRS-80カラー（タンディ）
(11)MZ-80K2E (9)PC-6001 VIC-1000（コモドール）
(9)PC-8801 (5)FM-8 16ビット機
（三菱、東芝、パナファコム）
JR-100（松下）
--------------------------------------------------------------------------------------
1982（昭和57） (5)MZ-2000 JR-200（松下）
(6)MZ-1200 (9)PC-2001 HC-20（信州精器<エプソン>）
(10)MZ-700 (10)PC-9801 (11)FM-7 MB-16001
(10)X1 (11)FM-11 COMMODORE-64
M5（SORD）
FP-1000/1100（CASIO）
--------------------------------------------------------------------------------------
1983（昭和58） (5)MZ-2200 (1)PC-8201 (11)FM-X パソピア-7（東芝）
(9)MZ-5500 (10)PC-100 マルチ-8（三菱）
(9)X1C，D (11)PC-6601 BASICマスターL3mkV（日立）
--------------------------------------------------------------------------------------
(58)mkIIシリーズ
(58)98FEシリーズ
--------------------------------------------------------------------------------------
1984（昭和59） (5)MZ-1500 パソピア1600（東芝）
(5)MZ-6500 (2)FM-11 AD，BS
X1Cs，Ck (5)FM-NEW7 各社MSX（サンヨー、東芝
(5)FM-77 ソニー、三菱）
--------------------------------------------------------------------------------------
12213： STRIG 関数 投稿者：文太 2025/03/12(水) 13:07
12212 番 文太 さんへのコメント コメント数 1
konnoさん- No.12213 - [ｺﾒﾝﾄ元:12212] [リストへもどる] soft
うん、さすが！ 我々、ちゃんと進歩してますね。
ゆで卵の皮をむきながら、「やっぱ string 命令だろう」とか「一体どんな
文脈？」と独り言をしていました。
ふと、string vs strig というのを思い出したのです。
#12007> STRIG って何？> 引数>0：キーボード（スペースキーに対応）
12212： Re^7: オセロ、移植元と移植先 投稿者：文太 2025/03/12(水) 12:02
12208 番 konno さんへのコメント コメント数 2
konnoさん- No.12212 - [ｺﾒﾝﾄ元:12208] [リストへもどる] soft
（M. Kimura's Comp Othello について）>>ただジョイススィックは？>このころはまだ使われてないのでは。(^^;
あ、そう？ では、？？？>私もそのうち試してみたいです。
まだ僕が入れたバグが残っていると思いますが、適当にＸＸ用に
移植でも何でもしてください。
12211： Re^2: 【資料】ＰＣメーカの主要機 投稿者：文太 2025/03/12(水) 11:55
12197 番 としき さんへのコメント
としきさん- No.12211 - [ｺﾒﾝﾄ元:12197] [リストへもどる] soft
どうやら問題ないようで。
僕は、なんだろう、よくは分からないのですが、、、。>なんか、環境依存があるのかな。
タブ。そして、縦の線が揃わないと、まったく意味をなさない
データだから、、、。
NEC PC-9801が、SHARPのカラムに入っていたら、訳が分からない。
テキストファイルでさえ、４タブのつもりで書かれたものを８タブ
でみたら、ぐちゃっとなっちゃうことあるじゃない、、、。
12210： Re^2: 新着情報 改善要望 投稿者：としき 2025/03/12(水) 11:10
参照先：http://toshiki.la.coocan.jp/
12209 番 めざら さんへのコメント コメント数 1
- No.12210 - [ｺﾒﾝﾄ元:12209] [リストへもどる] soft> え？！ そうゆう意味だったのですか？ 知らなかった。
あれだ、konnoさん、親切心は人一倍ありそうなんだけど、UIの構成といえばいいのか、
他の人から見える部分において、それは一般人からどう見えるか、という観点がいささか
欠けているような感じ。
なので> konnoさんは気にしない，に一票。
私も一票入れたくなってしまうけど、世界平和のために、ぜひ気にしていただきたい。
12209： Re: 新着情報 改善要望 投稿者：めざら 2025/03/12(水) 06:48
参照先：http://mezala.la.coocan.jp/
12204 番 としき さんへのコメント コメント数 2
- No.12209 - [ｺﾒﾝﾄ元:12204] [リストへもどる] soft> 「ウィンドウサイズ」
え？！ そうゆう意味だったのですか？ 知らなかった。
VTDOS掲示板を閲覧するのに推奨されるサイズかと思ってた(^_^;)> 「表示時間」
え？！ そうゆう意味だったのですか？ 知らなかった。
屋敷の掲示板を表示してから6時間40分経過しているのかと思った(^_^;)> Another HTML-lint
konnoさんは気にしない，に一票。
12208： Re^6: オセロ、移植元と移植先 投稿者：konno 2025/03/12(水) 02:35
12205 番 文太 さんへのコメント コメント数 2
まとレスにします。(^^;- No.12208 - [ｺﾒﾝﾄ元:12205] [リストへもどる] soft
#12203 としきさん> ところで、#12194に掲載されているベーマガの表紙の右上、オレンジの地の部分、> 黒い文字ではなんと書かれていますか？
文太さんが答えてくれたのでコピペ！ (^^;> 月 マイコン> 刊 別冊> 月刊 ラジオの製作
なるほど！ ここを見ていればわかったのですね。
よくわかりました。私に名探偵の素質が無いことが。(;_;)
#12205 文太さん> と書かれていますね。確かにこれはarchive.orgにありました。
謎は全部解けたようで。＞じっちゃんの何かけて？
コピペさせてもらいました。m(__)m> ただジョイススィックは？ あれ割り込み処理じゃないのかな？> 何か方法はあるだろう？？？
このころはまだ使われてないのでは。(^^;
私もそのうち試してみたいです。
12207： Masao Kimura's Comp Othello（やや長文） 投稿者：文太 2025/03/12(水) 00:23
12072 番 konno さんへのコメント コメント数 1
むふふふ。ブチ切れた文太です。- No.12207 - [ｺﾒﾝﾄ元:12072] [リストへもどる] pre
まだ動かせませんが。
３時間かかりました。途中で１５分寝落ちしましたが。
けっこう楽しかった。分かっていく喜び。
まだ、「1」「l」「I」とか残ってると思います。
いくつか、こんなの知らない、というのがあります。
' === Computer Othello ===
' by Masao Kimura 1982 03 Game Collection
' (Basic Magazine Special) pp.39-42
' for PC-6001
' vars' list: CO, YO = Comp/Player points; HC, HY = best score
' KK = 0:pass (cannot put); 1:put successfully
' PB,P = Comp/Player remaining pass(es); X,Y = matrix (yoko,tate)
' A(I,J) = 0:none, 1:comp's tile exists, -1: player's exists
' C,D = comp's next spot/matrix, yoko,tate (DATA READ)
' SYM; Player O, Comp X
' KEYS; F01(next try), F02(pass), STOP>F03>F04 to finish
' Space = play again
3 REM --- Init ---
4 HC=0 : HY=0 : GOTO 1500 'TITLE
5 KK=8 : P=5 : PB=S
6 FOR I=0 TO 7 : FOR J=0 TO 7 : A(I,J)=0 : NEXT J, I
10 SCREEN 1,1,1,1 : LOCATE 0, 15 : CLS : CONSOLE 0, 15, 0 : CLS
'
11 REM --- Window Setting ---
12 LOCATE 10, 1 : PRINT "Computer Othello"
13 PRINT "If there is no place to put your tile in"
14 LOCATE 1, 7 : PRINT "Hit [F02]"
15 LOCATE 1, 9 : PRINT "But 5 times only."
16 LOCATE 1, 10 : PRINT "With 6 times, you lose."
17 KEY 1, "pn"+CHR$(13) : KEY 2, "py"+CHR$(13)
18 LOCATE 21, 3 : PRINT "[F01] = Not PASS"
19 LOCATE 21, 4 : PRINT "[F02] = PASS"
20 LOCATE 12, 4 : PRINT "01234567"
30 FOR I=0 TO 7
31 LOCATE 10, 5+I : PRINT I; "++++++++" : NEXT
32 LOCATE 15, 8 : PRINT "OX" : A(3,3)=-1 : A(4,3)= 1
34 LOCATE 15, 9 : PRINT "XO" : A(3,4)= 1 : A(4,4)=-1
35 LOCATE 20, 6 : PRINT "Your PASS"
36 LOCATE 21, 7 : PRINT "You = ";P
37 LOCATE 21, 8 : PRINT "Computer = ";PB
38 LOCATE 20, 10: PRINT "When you want to finish the game, Hit [STOP]"
39 LOCATE 22, 11: PRINT "and [F03], [F04]"
'
40 KEY 3, "cls"+CHR$(13)+"go" : KEY 4, "to 1100"+CHR$(13)
'
44 REM --- Player Input ---
45 CONSOLE 13, 4 : CLS
50 INPUT " yoko where? ";X
51 IF X<0 OR X>7 THEN 56
52 INPUT " tate where? ";Y
53 IF Y<0 OR Y>7 THEN 56
54 IF A(X,Y) <> 0 THEN 56
55 GOTO 100
'
56 CONSOLE 13, 4 : CLS : PLAY "o4l16CDCD"
57 INPUT "Cannot go! Think again = [F01] or PASS = [F02]";PP$
58 IF PP$ <> "py" AND PP$ <> "pn" THEN 57
59 IF PP$ = "py" THEN GOSUB 900 : GOTO 115 'P pass, C input
60 IF PP$ = "pn" THEN 40
'
100 KX=X : KY=Y : KK=0 : C$="O" : K=-1 : GOSUB 300
110 IF KK=0 THEN 56
'
114 REM --- Computer Input ---
115 CONSOLE 13, 4 : CLS : PRINT
116 PRINT " Now Computer is thinking .... "
'
118 RESTORE 800
120 READ C, D : IF C=9 AND D=9 THEN GOSUB 850 : GOTO 40
122 IF A(C,D) <> 0 THEN 120
123 KX=C : KY=D
125 KK=0 : K=1 : C$="X" : GOSUB 300 'moving forward
130 IF KK=0 THEN GOTO 120 'READ
'
140 CONSOLE 13, 4 : CLS : PLAY "o4l4c" : PRINT
141 PRINT "Now, finished thinking!"
152 FOR I=0 TO 300 : NEXT : GOTO 40
'
' --- SUBROUTINES ---
'
290 REM --- Moving Forward ? ---
300 FOR AX=-1 TO 1 : FOR AY=-1 TO 1
302 IF AX=0 AND AY=13 THEN 390 'out/again
304 N=2
305 A=KX+AX*N : B=KY+AY*N
306 IF A<0 OR A>7 THEN 390 'ditto
307 IF B<0 OR B>7 THEN 390 'ditto
308 IF KX+AX < 0 OR KX+AX > 7 THEN 390 'ditto
309 IF KY+AY < 0 OR KY+AY > 7 THEN 390 'ditto
310 IF A(KX+AX*(N-1), KY+AY*(N-1)) <> -K THEN 390 'ditto
330 IF A(A,B)=K THEN 390 'ditto
335 N=N+1 : GOTO 305 ''
336 LOCATE 0, 8 : PRINT N; A; B
350 LOCATE KX+12, KY+5 : COLOR 3 : PRINT " "
351 FOR I=0 TO 200 : NEXT I
352 COLOR 1 : KK=1
380 FOR I=0 TO N
381 LOCATE KX+AX+I+12, KY+AY*I+5
385 PRINT C$ : A(KX+AX*I,KY+AY*I)=K
386 NEXT
387 LOCATE X+12, KY+5 : PRINT C$
390 NEXT AY, AX
391 RETURN
'
790 REM --- Data for Computer's decision ---
800 DATA 0, 7, 7, 0, 0, 0, 7, 7, 2, 2, 5, 2
802 DATA 2, 5, 5, 5, 3, 2, 4, 5, 5, 4, 2, 3
804 DATA 5, 3, 4, 2, 2, 4, 3, 5, 2, 0, 3, 0
806 DATA 4, 0, 5, 0, 0, 2, 0, 3, 0, 4, 0, 5
808 DATA 7, 2, 7, 3, 7, 4, 2, 7, 3, 7, 5, 7
810 DATA 2, 1, 3, 1, 4, 1, 5, 1, 2, 6, 3, 6
812 DATA 4, 6, 5, 6, 1, 2, 1, 3, 1, 4, 6, 2
814 DATA 6, 3, 6, 4, 6, 5, 1, 1, 6, 6, 6, 1
816 DATA 1, 6, 0, 1, 1, 0, 6, 0, 7, 1, 0, 6
818 DATA 1, 7, 6, 7, 7, 6, 9, 9
'
845 REM --- Computer PASS ---
850 PB=PB-1
851 CONSOLE 13, 4 : PRINT " Computer will PASS "
852 FOR I=0 TO 500 : NEXT
852 LOCATE 21, 8 : PRINT "Computer = "; PB
854 IF PB<O THEN N$="You" : GOTO 1000 'GameOver
855 RETURN
'
895 REM --- Player PASS ---
900 P=P-1
902 LOCATE 21, 7 : PRINT "You = ";P
930 IF P<O THEN N$="Computer" : GOTO 1000 'GameOver
940 RETURN
990 REM --- Game Over ---
1000 SCREEN 3,2,2 : COLOR 4,2,1 : CONSOLE 0,15,0 : CLS : CONSOLE 15,1
1001 LOCATE 2, 1 : PRINT "Game Over"
1010 LOCATE 1, 3 : PRINT N$;"is the winner!"
1020 LOCATE 2, 4 : PRINT "POINTS"
1030 LOCATE 3, 5 : PRINT "You = ";YO
1040 LOCATE 3, 6 : PRINT "Computer = ";CO
1042 LOCATE 2, 8 : PRINT "The best scores are"
1043 LOCATE 3, 9 : PRINT "You =";HY
1044 LOCATE 3, 18: PRINT "Computer =";HC
1045 LOCATE 1, 12: PRINT "Play again? Then, Hit SPACE KEY."
1046 GOTO 1641 'MUSIC
1090 REM --- Calc of points ---
1100 CO=0 : YO=0
1101 FOR I=0 TO 7 : FOR J=0 TO 7
1110 IF A(I,J)= 1 THEN CO=CO+1 : GOTO 1120 'out/again
1115 IF A(I,J)=-1 THEN YO=YO+1
1120 NEXT J, I
1121 IF CO>HC THEN HC=CO
1122 IF YO>HY THEN HY=YO
1130 IF CO<=YO THEN N$="You" : GOTO 1000 'GameOver
1140 N$="Computer" : GOTO 1000 'ditto
'
1499 REM --- TITLE ---
1500 SCREEN 3, 2, 2 : CONSOLE 0, 15 : COLOR 1, 2, 2 : CLS
1510 LOCATE 2, 2 : PRINT "COMPUTER OTHELLO"
1520 LOCATE 1, 5 : PRINT "Hey! You! .."
1530 LOCATE 2, 7 : PRINT "Can you beat Computer?"
1540 COLOR 4
1541 LOCATE 1, 1 : PRINT "To start, Hit the Space KEY"
1600 IF STRIG(0)=0 THEN 1600
1610 GOTO 5
'
1630 REM --- MUSIC --- 'line nums changed from the original
1641 PLAY "s13o5l2cd-l4c. l2o4b-r8l8b-b-b-l4b-o5l8oo4l2a-" '
1642 GOSUB 1700
1643 PLAY "o4l2a-b-l4a-. l2gr818gggl4gl8a-l2fr2"
1644 GOSUB 1700
1645 PLAY "o418ca-gl2a-r4l8a-gfgfel4dl8a-l2a-" '1643(org)
1646 GOSUB 1700
1647 PLAY "r418ga-gfeo3bo4l4cl8e14c.l8co3l4bo4l8dl2c" '1644(org)
1648 GOSUB 1700
1649 PLAY "o418oa-gl2a-r418fga-gfel4d.l2a-r4" '1645(org)
1650 GOSUB 1700 '1646 below(org)
1651 PLAY "l8o4ga-gfeo3b-o4ccecl4c. l8co3l4b-o4l8dl4cgl2fr2r2"
1652 GOTO 1641 'MUSIC r.
1700 IF STRIG(0)=0 THEN RETURN
1710 GOTO 5
12206： Re^4: オセロ、移植元と移植先 投稿者：文太 2025/03/12(水) 00:18
12200 番 konno さんへのコメント コメント数 1
別冊もの２つ！ ゲット！- No.12206 - [ｺﾒﾝﾄ元:12200] [リストへもどる] soft
konnoさん
ありがとう！！！
https://archive.org/search?query=%E3%83%9E%E3%82%A4%E3%82%B3%E3%83%B3BASIC%E3%83%9E%E3%82%AC%E3%82%B8%E3%83%B3+1982
これで、最後の２つゲット。