としきさん

>ん〜、対象の機種はわかります？　（中略）
>岡田有希子が宣伝していました。


『あの頃欲しかったホビーパソコンカタログ』（pp.88-92）より。

PASOPIA
東芝 1981年11月発売 本体価格 163,800 円（高いねぇ〜〜）
　　　　これからしばらくＩＴ関連産業が日本を牽引する。

PASOPIA 5
東芝 1984年 5月発売 本体価格  99,800 円

PASOPIA mini
東芝 1984年    発売 本体価格  54,800 円

PASOPIA 7
東芝 1983年 4月 発売 本体価格 119,800 円

　上の４つのうち１番目と４番目が項目としてエントリーされていて、
割と詳細に語られています。２番目と３番目は、広告の一部が紹介されて
いる。

　で、問題の（！）女性は、PASOPIA 5 を広告してますね。
　岡田さんではないように見えるなぁ。
　原田さんも岡田さんも松田さんも、別に大した思い入れはなかったけど、
時間、時代のマーカーとしては完全に機能している。

　松田さん、高校時代
　原田さん、中学？
　岡田さん、大学時代（僕のアメリカ留学時代です。帰国したら、、、）
　思い出のある時期のことです。「あいつ松田聖子に狂ってた。恥ずかしく
ないのか」と思ったときのこととか。

　僕の推しのアイドルは、桜田淳子さんと山口百恵さんでした（小学生のとき。
そしてここでアイドルは卒業した）

　現在は原田さん推しです。反原発の人だから。
　「そういうの関係あるの？」
　「それしか関係しません」

　で、どっち？

> PASOPIA 7
> 東芝 1983年 4月 発売 本体価格 119,800 円
> PASOPIA 5
> 東芝 1984年 5月発売 本体価格  99,800 円
> PASOPIA mini
> 東芝 1984年    発売 本体価格  54,800 円

時系列順に並べ替えてみました。
このうち、PASOPIA5って、素で記憶にないけど、Wikipediaによるとオリジナルの
廉価版らしい。つまり、スペック的に特記すべきものはない模様。
それはさておき、ベーマガに掲載の東芝の広告。

1984/06 PASOPIA7 木村親子
1984/07 PASOPIA7/PASOPIA IQ いずれも木村親子
1984/11 PASOPIA IQ 木村親子
1984/12 PASOPIA IQ 岡田有希子

こんな感じ。ちゃんと登場人物の名前の記載もあるから間違いなし。
ちなみに１２月号のコピーは

　有希子のポエム、初体験。
　私の想いつづります。

でした。

なお、ものすごく余談ですが、この時期のベーマガの表紙開いてすぐのところの
広告はシャープでした。そして、

６月号はMZ-5500を宍戸錠
７月号はMZ-1500だけど人の顔はなし
１１月号と１２月号はMZ-1500を聖子ちゃんカットの女の子だけど、名前はわからん

と、なかなか謎に攻めた広告のような気がする。

C:\USERS\USER1\DOWNLO~1>Dir mico*.*

2025/02/09  10:37    29,628,400,816 micomBASIC19841994.zip
               1 個のファイル      29,628,400,816 バイト
　たぶん、今日の午前１０時半にＤＬが終了したのでしょう。


>Dir
 C:\Users\user1\DOWNLO~1\MICOMB~1 のディレクトリ

2025/02/09  15:26       125,289,987 マイコンBASIC 1984-12.pdf
中略
2025/02/09  15:28       262,513,738 マイコンBASIC 1994-12.pdf
             117 個のファイル      29,628,381,290 バイト
　これは、先ほど圧縮されてない.zipファイル（１まとめにしてある
だけ？）を展開した時間のタイムスタンプ。


　もうよく覚えていないのですが、ＤＬに３日くらいかかったと思う。
　８０ＧＢではなくて、３０ＧＢですね。この読み違えは納得する。
　８４年から９４年までの１０年間ぶん。１１７冊は、なぜ１２０冊で
ないのか、という疑問を生みますが、いいでしょう。

　万が一、どうしてもこれが欲しい人には、実費でＤＶＤに焼いてあげます。
　うちの環境で３日ＤＬにかかるものなので。（環境は別に特殊でもなんでも
ない。２０年前にとしきさんにアドバイスしてもらって、作った家庭内ＬＡＮ
システム。ギガビットなのかな。でも向こうのサーバの状態が絶対的影響力を
もってると思う）。
　ＤＶＤ（たしか８ギガ。もっといきますか？）４枚かな。
　渡すのは次回オフ会かな。
　いないですね。
　なぜ今『べーまが』か？　という疑問は強くありますね。

　今日はお昼休みがいくらかまともに取れ、早上がり。
　まだ続く修羅場。
　もちろん読みませんよ、開けませんよ、pdf。疲れ切ってるもの。

#11975
> C:\USERS\USER1\DOWNLO~1>Dir mico*.*
> 2025/02/09  10:37    29,628,400,816 micomBASIC19841994.zip
>                1 個のファイル      29,628,400,816 バイト
> 　たぶん、今日の午前１０時半にＤＬが終了したのでしょう。

げげぇ！！　１ファイルでこんなに巨大なのですか！！
それなら個別に落とした方が・・・と思ったら

> 2025/02/09  15:26       125,289,987 マイコンBASIC 1984-12.pdf
> 2025/02/09  15:28       262,513,738 マイコンBASIC 1994-12.pdf
>              117 個のファイル      29,628,381,290 バイト
> 　これは、先ほど圧縮されてない.zipファイル（１まとめにしてある
> だけ？）を展開した時間のタイムスタンプ。

うげげぇ、117個もあるんですか！　全部落とすならやっぱり１纏めがいいか。

> 　もうよく覚えていないのですが、ＤＬに３日くらいかかったと思う。
> 　８０ＧＢではなくて、３０ＧＢですね。この読み違えは納得する。
> 　８４年から９４年までの１０年間ぶん。１１７冊は、なぜ１２０冊で
> ないのか、という疑問を生みますが、いいでしょう。

117冊も保存されていたのも奇跡的ですが、それを全部電子化するなんてどれだけの手間暇掛かったことか。
うーむ、私もちょっと保存しておきたくなりました。昔を懐かしみながら読むかもしれないので。(^^;
でもDLってスリープしても継続できたっけ？ (^^;


＃　テラへ　第２章
　　我々は苦労の末テラに到達した。もはや過去には戻れないのだ。
　　だけど時々昔の環境を思い出すのはノスタルジアなのか・・・
　　今も過去の遺物でマザーと戦っている者もいるらしいし・・・・

としきさん

>何年何月号がない、とかあるのでしょうか。
　もう、この質問には答えられなくなってます。ごめん。僕もかなりの
コレクターなのよ。ここにいると「まだ俺は普通に近いのじゃないか」と
安心しますが、一般基準では、まちがいなく変人レベル。


>dir		;『べーまが』フォルダの中身です

2025/02/11  15:28       234,850,230 MB198207.pdf
--- だだだだだだ --- (中略)
2025/02/06  22:21        55,594,076 MB200305.pdf
             187 個のファイル      39,195,816,561 バイト

　上の１８７個のファイルの中身は、以下。

--- 興味のある方は、意味を読み取ってください ---
MB198207.PDF - MB199604.PDF	;ずっと連番である

MB199606.PDF
MB199609.PDF

MB200109.PDF

MB200201.PDF - MB200209.PDF	;この年、途中まで連番

MB200211.PDF
MB200212.PDF

MB200301.PDF - MB200305.PDF
------------------------------------------------
　上は、必殺兵器 bll2w.com を使ってリネームし整理した。
　blt with LFN & quote & 2 columns です。リネームバッチ作成用。
　たぶん、どんなファイラよりずっと楽。途中Ｖｚも正規表現も
ビシバシ使えるし。

としきさん

　もう作業に意味がなくなっていると思うのですが。
　テキスト処理の宿題みたいなつもりで。

　まず。

#11995 にあるとおり、
MB198207.PDF - MB199604.PDF	;ずっと連番である
　これ揃ってます。		;《連番で存在する＝所有している》
				;　の意味

>８４年から９４年までの１０年間ぶん。１１７冊は
　あ、計算ちがいがある、とは気づいてます。

>ファイル名から年月号ってわかりませんか？
　分かります。下のような感じで。

>dir
2025/02/09  15:26       125,289,987 マイコンBASIC 1984-12
（だだだだだ、中略）
             117 個のファイル      29,628,381,290 バイト

　で、１１７冊で抜けていたのは、以下。

1985-03
 >missing
1985-05

1990-05
 >missing
1990-07

1994-04
 >missing
1994-06

1994-08
 >missing
1994-10


--- a.bat ---
dir mb198504.*
dir mb199005.*
dir mb199405.*
dir mb199408.*
-------------

>a.bat

C:\WK\000>dir mb198504.*
2025/02/11  15:36        80,344,160 MB198504.pdf

C:\WK\000>dir mb199005.*
2025/02/11  15:27       280,884,186 MB199005.pdf

C:\WK\000>dir mb199405.*
2025/02/11  00:30       121,158,470 MB199405.pdf

C:\WK\000>dir mb199408.*
2025/02/11  15:27       265,915,417 MB199408.pdf

　というように、１１７冊の中の抜けは、必死になれば埋まります。

　そうかぁ、あれは岡田さんなのかぁ。ちがうかもしれないよね、
いちおうカタログ違うらしいので。
　原田さんだ！　そうに違いない。僕の密かな PASOPIA 愛。意味不明。
　だって、konnoさんの愛機だったんだもの。その近辺の『べーまが』を
熟読すれば分かるね。気づいたら報告します。

　今日は中休みだったので、８時間くらい寝ました。が、今頃、きちんと
した疲労感（蓄積された奴）がどばっと来てます。

『あの頃欲しかったホビーパソコンカタログ』（pp. 88-91）より。

東芝の一大ブランド「PASOPIA」の記念すきべ第1号
【 PASOPIA 】
東芝1981年11月発売　本体価格163,800円

PASOPI仕様
CPU		Z80A 4MHz
ROM		32Kバイト(最大 64Kバイト)
RAM		64Kバイト(最大 96Kバイト)、グラフィックVRAM 16Kバイト
グラフィック機能	テキスト表示:最大 80字x25行 8色
			グラフィック表示:最大 640X200ドット 8色
サウンド出力		ピーブ音による単音
インターフェース	デジタルRGB、液晶、プリンター、カセットテーブ、
			RS-232C、PACカートリッジスロット x2


ポストFM-7を睨んだ27色・6重和音の戦略パソコン
【 PASOPIA 7 】
東芝19年843月発売　本体価格119,800円

PASOPIA7 仕様
CPU		Z80A 4MHz
ROM		IPL BIOS 162K、BASIC 32Kバイト
RAM		メイン 64Kバイト、VRAM 56Kバイト
グラフィック機能	グラフィック表示:最大 640X200ドット 8色
			グラフィック機能:最大 640X200ドット 8色
			テキスト表示:最大 80字x25行 8色
サウンド出力		ピーブ音による単音
インターフェース	デジタルRGB、液晶、プリンター、カセットテーブ、
			RS-232C、PACカートリッジスロット x2

　pdf with txt から再構築しました。
　こんなことをするのにも、８行マクロを書く奴。
　この時代、RS-232C って、何に使ったんですか？

　僕がなんでこんなことに（少し）熱くなっているのかというと、、、。

　c.mosさんの名作が各地で復刻されているというのをどっかで読んだから、
というのはあるのでしょう。ったく、どこまでＶｚオタクなのやら。

　『獣神ローガス』は比較的後期の作品のはずなので（NEC-98用）、これでは
ないもの。Ｉ／Ｏとかに発表されたものだったかな。本人も、友人たちと
それこそ「手打ち」（全部じゃないけど）して復刻させたゲームも他にあったはず。
　どっかで開催された「レトロＰＣ展示会」では、そのゲーム（どれだよ？！）
がやれたらしい。


1982.12	『デストロイ・エイリアン』、I/O別冊「ベーシックマスター活用研究」に掲載
https://www.vcraft.jp/myhistory.html
　これだと思う。

　ただ今、強制待機の時間。仕事中、、、。(^^;
　ね、眠い。

清書（怪力熊男）

　QuickBasic では動きそうもないなぁ。いま試せないんだけど。
　このゲームが気に入ったのではなく、短めで横書きだったから。
　しかし、1993年に、MSX とか、まだ健在だったわけですね。

https://ja.wikipedia.org/wiki/MSX
　なるほど、と思う部分がないわけでもない。

'
'マイコンBASIC 1993-03.pdf
'1993年3月号、p.106
'MSX/2/2+/turboR用
'怪力熊男
'
' B(n) = ball(n) X posit
' PB = ball(n) X posit 増分
' X,Y = 主人公 posit
' ST = stage
' SK = stick
' SC = score
' PS = stage clear bonus (plus score)
'

010 '---------- ショキセッテイ1 ----------
020 COLOR 15,1,1 : SCREEN 3,1,0 : DEFINT A-Z 
021 R=RND(-TIME) : OPEN "GRP:" AS #1 : ON SPRITE GO SUB 140

'MSXの「OPEN "GRP:" AS OUTPUT AS #1」は、グラフィック画面にPRINT文を
'使うときのおまじない。(Xより)

030 SPRITE$(O) = "ZZ~<り- + CHR$(&H8) + CHR$(&H8) + CHR$(&H18) 
031 SPRITE$(1) = "工工わ0>" + CHR$(34) + " ^"
032 SPRITE$(2) = "<zんんソん~く"

040 '---------- ショキセッテイ2 ----------
050 FOR I=0 TO 9 
051	PB(I) = INT(RND(1)*10) + 1 + ST 
052	B(I) = 0 
058 NEXT I			' I added
059 X=220 : Y=87 : ST=ST+1 : T=0 : P1=0 : P2=1 : PS=500

060 CLS 
061 LINE (0,16)-(252,171),, B : GY = INT(RND(1)*120)+20 ' B is BOX!
062 LINE (50, GY)-(65, GY+15), 9, 5, B
063 PAINT (55, GY+5), 9, 5

070 '---------- メイン ----------
080 SPRITE ON 
081 FOR I=1 TO 8 
082	PUTSPRITE I，   (B(I),19*I),     8, 2 
082	PUTSPRITE I+10, (B(I)+125,19*1), 8, 2 
083 NEXT I
084 PUTSPRITE 10, (X,Y), 10, P1

090 IF POINT (X+8,Y+8) = 9 
091	THEN 160
100 SK = STICK(0) + STICK(1) 
101 IF SK=1 AND Y>22 
102	THEN Y=Y-8 
103 ELSE IF SK=5 AND Y<151 
104	THEN Y=Y+8

110 FOR I=0 TO 9 
111	B(I) = B(I)+PB(I) 
112 NEXT I

120 SC=SC+1 : X=X-1 
121 IF X<O 
122	THEN 190 
123 ELSE SWAP P1,P2 
124 GOTO 080

130 '---------- ゲキトッ ----------
140 SPRITE OFF 
141 FOR J=O TO 10 
142 	X=X+2 : BEEP : PUTSPRITE 10,(X,Y),15,P1 
143 	IF X>=255 
144		THEN 200
145 	ELSE 
146 NEXT J 
147 RETURN

150 '---------- ステージクリア ----------
160 PLAY "V15T255CDECDECDEF1"
161 IF PS<0 
162	THEN PC=0

170 SC=SC+PS
180 IF PLAY(0)=-1 
181	THEN 180 ELSE 050

190 '---------- ゲームオーバー ----------
200 INTERVAL OFF : CLS : PLAY "V15D4C4D4" : PUTSPRITE 0, (0,208) 
201 DRAW "BM6,24"  : PRINT #1, "GAMEOVER" 
202 DRAW "BM8,64"  : PRINT #1, "STAGE :" ; ST 
203 DRAW "BM8,104" : PRINT #1, "GAMEOVER" 
204 DRAW "BM6,64"  : PRINT #1, "SC :" ; SC
205 FOR I=0 TO 1 
206	I=-(STRIG(0)+STRIG(1)) 
207 NEXT I 
208 RUN

konnoさん

>ジョイスティックまで使ってるのか・・・
　僕はこれ、違うのじゃない、と思ってますが、、、。

205 FOR I=0 TO 1 
206	I=-(STRIG(0)+STRIG(1)) 
207 NEXT I 

　STRIG って何？
　(0), (1) の使い方もよく分からない。変数名の一部？？？

>2本目打っています。疲れも吹っ飛ぶヤバいやつ（嘘）
>やめると禁断症状が〜、、（それはビョーキのせい）

　あはははは。がんばってください〜！！
　あれは、あくまでサンプルで、テキスト処理をして、お掃除して
みただけですが。
　僕は、これから、動きそうな奴をさがします。
　Pasopiaは、MSX 規格なんじゃないですか！
　まだ動くんですか？

> >ジョイスティックまで使ってるのか・・・
> 　僕はこれ、違うのじゃない、と思ってますが、、、。
> 206	I=-(STRIG(0)+STRIG(1)) 

私も初めは STRING という文字列系のコマンドかと思ったのですがBASIC命令互換表を見ると、
ジョイスティックの発射ボタンを調べるコマンドでした。

> 　STRIG って何？
> 　(0), (1) の使い方もよく分からない。変数名の一部？？？

引数
0：キーボード（スペースキーに対応）
1：ジョイスティック１
2：ジョイスティック２
指定された装置が押されていれば１、押されていなければ０を与える

だそうです、ジョイスティックにも対応ということですかね。

> 　Pasopiaは、MSX 規格なんじゃないですか！
> 　まだ動くんですか？

独自規格でしょう。MSX規格はその後に出たんじゃなかったかなぁ。
過去記事で書いてると思いますがとっくに捨ててしまっています。(;_;)
TBで動くように移植に挑戦してますが、内容が全くわからん。(>_<)

konnoさん

>> 206	I=-(STRIG(0)+STRIG(1))

>BASIC命令互換表を見ると、ジョイスティックの発射ボタン
>引数
>0：キーボード（スペースキーに対応）
>1：ジョイスティック１
>2：ジョイスティック２
　（たしか、QuickBasicでも、そんな感じでした。ボク、ジョイスティック
って、見たことも触ったこともないのですが。ＭＢにそれ用のコネクタ
プラグ−メス−があったような、、、）

　でも足し算して符号を反転して代入してますよね、明らかに。
　うーん、、、。
　こういうところが、独自規格なのか、、、。ま、MSXで統一されては
いたんだろうけど。
　僕は、「マイクロソフト系」が侵略してくる時期をさぐってます。

>> 　Pasopiaは、MSX 規格なんじゃないですか！
>独自規格でしょう。MSX規格はその後に出たんじゃなかったかなぁ。
　PASOPIA IQ が、MSX 規格完全対応だそうです。
　時系列がまったく分からない、、、。

>> 　まだ動くんですか？
>過去記事で書いてると思いますがとっくに捨ててしまっています。(;_;)
　あうううう。＼(ﾟﾛ＼)(／ﾛﾟ)／

>TBで動くように移植に挑戦してますが、内容が全くわからん。(>_<)

　ごめんなさい、過去記事にあったの知ってます。でも、現在、konnoさんが
お使いの Basic、このＴＢというのは何ですか？
　もしかして、Turbo Basic でしたっけ？

　少しだけ、知らない過去を猛勉強しました。m(__)m

> >> 206	I=-(STRIG(0)+STRIG(1))

> 　でも足し算して符号を反転して代入してますよね、明らかに。

なぜその行だけ見るかな。

> 205 FOR I=0 TO 1 
> 206	I=-(STRIG(0)+STRIG(1)) 
> 207 NEXT I 

ループ全体を見ましょう。
つまりこれは、なんかの条件を満足するまで無限ループ、というルーチン。
おそらく、ジョイスティックのボタンを押せば終了、となっているのでしょう。
何も押さなければループ変数 I はゼロのままなのでループ継続。
何かを押すと、おそらくマイナス１が返ってくるのではないかな。
すると、マイナスのマイナスでプラスになってループ脱出。
だけど妙だな。
konnoさんの#12007だとプラスの値が返ることになってる。何か変だぞ。

あと、もはや想像ですが、STRIG関数はなんとなく STICK TRIGGER の略のような気が
する。

　ＭＳさん、ごめんなさい。QuickBasic の場合です。

STRIG Function
------------------------------------------------------------
■ Action
    Returns the status of a specified joystick trigger

■ Syntax 1 (Function)
    STRIG(n)

■ Remarks

The STRIG function is used to test the joystick trigger status. 

The numeric expression n is an unsigned integer in the range 0-7,
indicating the joystick and trigger to check. The following list describes
the values returned by the STRIG(n) function for different values of n:

------------------------------------------------------------
Argument  Value Returned
------------------------------------------------------------
0       Returns -1 if the lower button on joystick A has
       been pressed since the last STRIG(0) call;
       otherwise returns 0

1       Returns -1 if the lower button on joystick A is
       currently down; otherwise returns 0

2       Returns -1 if the lower button on joystick B has
       been pressed since the last STRIG(2) call;
       otherwise returns 0

3       Returns -1 if the lower button on joystick B is
       currently down; otherwise returns 0

4       Returns -1 if the upper button on joystick A has
       been pressed since the last STRIG(4) call;
       otherwise returns 0

5       Returns -1 if the upper button on joystick A is
       currently down; otherwise returns 0

6       Returns -1 if the upper button on joystick B has
       been pressed since the last STRIG(6) call;
       otherwise returns 0

7       Returns -1 if the upper button on joystick B is
       currently down; otherwise returns 0

　ジョイスティック、買いたくなったぞ。どんなものだか、知らないの
だけど。ビブロで見たことないなぁ。ゲームしないのか、ノートで？？？

> > 206	I=-(STRIG(0)+STRIG(1)) 
> 何かを押すと、おそらくマイナス１が返ってくるのではないかな。
> すると、マイナスのマイナスでプラスになってループ脱出。
> だけど妙だな。
> konnoさんの#12007だとプラスの値が返ることになってる。何か変だぞ。

さすがとしきさん、おかしいところに気が付きましたね。
独自規格なので、引数や返り値が違うマシンもありました。
それが ＭＳＸになると、この仕様に統一されるようなのですが、
#11985 を見るとこのプログラムは MSX/2/2+/turboR用 となっています。
な、なんと！　ＭＳＸ２では、押された時の返り値が −１ に変わっていたのです。
なので、マイナスのマイナスでプラスになるのでした。

＃　こんなにころころ変わっていたら移植もはかどらないわなぁ。

----------------------------------------------------------------
Pen(n)
MSX ・該当なし． ただし、ジョイスティックが次のように使える．

STRIG(M)
・ジョイスティックのトリガ・ボタンの状態を与える． 
M が0のときスペース・キーが対応する．

特徴： 
1 ライト・ペンからの情報には．トリガ・センスとレベル・センスがある．
トリガ・センスとは．ライト・ペンを押した瞬間のもので， 
レベル・センスとは．ライト・ペンを押している間の情報である。

2 PEN (0)は，トリガ・センスで，ライト・ペンを押すと【真(1)】※
となり，割り込み処理ルーチンヘ入るまでその値を保つ．
ペンが押されていないと偽(0) となる．

3 PEN (1)は，トリガ・センスで，ライト・ペンの水平座標を
得る． ただし 0 <= PEN(1) <79である．
　※ここは「以降」とぜんぜん違う※
----------------------------------------------------------------
（マイコンBASIC規格表1984年より）


>なぜその行だけ見るかな。
　えへ。

205 FOR I=0 TO 1		'今更ですが、これって
206	I=-(STRIG(0)+STRIG(1))	'ゲーム終了（脱出）の
207 NEXT I			'定型ですよね、きっと。
				'ちょっと不完全に見えるけど
MSX		    1983
マイコンBASIC規格表 1984
MSX2		    1985
MSX2+		    1988
MSXturboR	    1990
　（MSX wiki より）

'マイコンBASIC 1993-03.pdf
'1993年3月号、p.106
'MSX/2/2+/turboR用	;間違いないです
			;MSX -- 無印、２、２＋　と続くので
			;「熊男」は、作者の意図としては、ＭＳＸ
			;なら、どれでも、ということらしい。

https://github.com/fu-sen/MSX-BASIC/blob/master/STRIG.txt
「押されていれば -1、押されていなければ 0 を返します」

------------------------------------------------------------
Argument  Value Returned
0       Returns -1 if the lower button on joystick A has
       been pressed ... otherwise returns 0
------------------------------------------------------------
(from QuickBasic.man)

　あ、ほんとに、返り値の符号が変わってる。

　というわけで、
			;もしかしたら、彼が間違っているかもしれませんね。
			;プログラムは1993年に発表されてるのにMSX(無印)用
			;なのではないでしょうか。
			;『べーまが』に評者（Dr.Dだっけ？）からのコメントは
			;とりわけありませんでした。

ソフトウェアの世界にも、それなりにいきさつとかありまして。
絶対とはいえないまでもほぼ確実にいえることは「false（偽）はゼロ」ということ
だけ。ならばtrueはどうかというと、最近の処理系だと正の値、すなわち＋１である
ことが多いかなぁ。
なお、上記では「ほぼ確実」という表現を使いましたが、一方で「絶対に確実」な
こともあります。それは「not false は true である」ということ。
さて、何らかの論理値を返す関数なり、格納する変数なりを考えます。
最近の言語では、最適化というものがあるので、それこそ本当に、１ビットのみが
やり取りされます。一方で、いにしえのBASICインタプリタ。そんな器用な機構は
ありません。論理値も、一番ビット幅が少ない型にマッピングされます。たいていは
整数型と同じ１６ビット幅。あるいは、言語仕様によっては８ビット幅の文字型かも
しれないけど、市販のパソコンの付属BASICにそういうのはあったかなぁ。ちなみに
「文字型」は「文字列型」とは違いますので念のため。
さて、上記のとおり、論理値が１６ビット幅に展開されたとします。
そこに代入された「false」は、１６個ある全てのビットがゼロ。２進数でゼロ。
では次に、true を得るために false に not をかませると、当時の処理系では全て
のビットが１に反転するわけですよ。１６個の１、すなわち１６進数で ffff。
これを整数型に変換すると、なんと驚きのマイナス１になるではありませんが。
これはびっくり。
＃いや、だれもおどろかへん

> 205 FOR I=0 TO 1		'今更ですが、これって
> 206	I=-(STRIG(0)+STRIG(1))	'ゲーム終了（脱出）の
> 207 NEXT I			'定型ですよね、きっと。
> 				'ちょっと不完全に見えるけど

定型ということでいうと、そうかもしれない。
当時のベーマガで、他のプログラムでも使っているのを見かけた。
私なら while のループにしたいところだけど、そもそもその処理系に while が搭載
されているかもわからないし。
ところで「ちょっと不完全」て、どんなところがですか？
ジョイスティック関係はなじみがないもので、よくわかっていないのですよ。

> 'MSX/2/2+/turboR用	;間違いないです
> 			;MSX -- 無印、２、２＋　と続くので
> 			;「熊男」は、作者の意図としては、ＭＳＸ
> 			;なら、どれでも、ということらしい。

うん、作者の意図はそうみたいですね。
#12025のkonnoさんの書き込みでは、何か誤解というかミスマッチがあるみたいです
けど、何がどうおかしいのか、私にはいまひとつ理解できていない。

> 　あ、ほんとに、返り値の符号が変わってる。

あ、ここも私、脳みそが滑ったというか、どことどこを比較して符号が変わっている
のかがわからなくなった。酔っているせいにしておこう。

> 			;もしかしたら、彼が間違っているかもしれませんね。
> 			;プログラムは1993年に発表されてるのにMSX(無印)用
> 			;なのではないでしょうか。

彼というのが誰、または何を指しているのかがわかりません。
konnoさんのこと？
それともCQ出版の本を書いた作者のこと？
少なくともこのプログラム（熊男？）を書いた人は間違ってなさそうですが、その他
の誰のことを言っているのか、覚醒度合いの低い現在の私にはもうわから ｽﾔｧ

としきさん

　ありがとうございます。とっても、ありがとうございます。
　僕も長めでいかせていただきますね。
　そして、敬意を表して、そのまま長文引用。

>ソフトウェアの世界にも、それなりにいきさつとかありまして。
>絶対とはいえないまでもほぼ確実にいえることは「false（偽）はゼロ」ということ
>だけ。ならばtrueはどうかというと、最近の処理系だと正の値、すなわち＋１である
>ことが多いかなぁ。
>なお、上記では「ほぼ確実」という表現を使いましたが、一方で「絶対に確実」な
>こともあります。それは「not false は true である」ということ。

　書き方、うまっ。
　そうなんですか！

　アメリカのＰＣ本は（たぶん多くのジャンルの啓蒙書・入門書は）分厚いです。

　_QuickBasic by Example_は、610ページ。32mm厚。
　_The Waite Group's Microsoft QuickBasic Bible_は、940ページ。45mm厚。
　_Mastering Turbo Assembler_は、908ページ。52mm厚。

　後者２つは入門書とは言えない。が、どの本でも、著者たちは、ものすごく
丁寧に、反復をおそれず何度も何度も同じ事柄を説明する。そうやって
あらゆる読者を理解に導こうとする。同じ説明でも比喩がちがったりして
工夫のかぎりをつくす（多くの場合）。最初の１冊なんて、PLAY, SOUND,
CIRCLE, LINE (music & graph)が、超いいかげんにしか書けない（書かない）
仕様になっている。『ゲームで覚えるベーシック』（和書）には、それらしか
書かれていないのに（どっちがいいという話ではなく）。

　とにかく、としきさんがしてくれた、その話、初めて聞きました。うはっ。
　ぶ厚い本には、ちょろっと、そういう事が書かれていたりするものなのですが。

　そうなんですか、すごく分かりやすい説明です。m(__)m
　0 vs -1
　0 vs 1
　こうなっていたのですね。そんな経緯だったのですね。

　じつは先日、どっかでこんなのを見た記憶です。

Define False = 0
Define True  = Not False

　なんでこんな書き方をするの？　と思った（と思う）。
　もちろん、僕は以下が「分かりやすい」と思うのだけど。

Define True  = 1
Define False = 0

　順番も、ふつうこうするものでしょう、、、。

>さて、何らかの論理値を返す関数なり、格納する変数なりを考えます。
>最近の言語では、最適化というものがあるので、それこそ本当に、１ビットのみが
>やり取りされます。一方で、いにしえのBASICインタプリタ。そんな器用な機構は
>ありません。論理値も、一番ビット幅が少ない型にマッピングされます。たいていは
>整数型と同じ１６ビット幅。あるいは、言語仕様によっては８ビット幅の文字型かも
>しれないけど、市販のパソコンの付属BASICにそういうのはあったかなぁ。ちなみに
>「文字型」は「文字列型」とは違いますので念のため。

　とくに長々かくことは、残念なことに、ありません。
　ありがとうございます。
　質問は、今日は控えさせていただきます。

>一方で、いにしえのBASICインタプリタ。そんな器用な機構は
>ありません。論理値も、一番ビット幅が少ない型にマッピングされます。

　よく分からないのは、ここだろう、、、。

>論理値も、一番ビット幅が少ない型にマッピングされます。【が、しょせんは
不器用ないにしえのBASIC。１６ビット幅か、あるいはうまくいって８ビット幅
かな。】

　と、【　】の部分を補う理解でよろしいでしょうか？


>さて、上記のとおり、論理値が１６ビット幅に展開されたとします。
>そこに代入された「false」は、１６個ある全てのビットがゼロ。２進数でゼロ。
>では次に、true を得るために false に not をかませると、当時の処理系では全て
>のビットが１に反転するわけですよ。１６個の１、すなわち１６進数で ffff。
>これを整数型に変換すると、なんと驚きのマイナス１になるではありませんが。
>これはびっくり。
>＃いや、だれもおどろかへん

　いやぁ、驚きますよ。「当時の処理系では」、ゼロの反対（not）は、
１ではなく、−１じゃないですか！
　だいたいにおいて、「false」が先に決まり、そこから「trueを得る」
というのは、どうしてそういう発想・順番になるのよ？
　（いえいえ、ごっくんでいいんですけど。ゼロから始まるんだよ、でもいい）

　で、上以降については、もうちょっとゆっくり。今晩にでも。
　あれとあれを片づける、と一昨日、誓いを立てたので。

　ありがとう！


追伸：

>>			;「熊男」は、作者の意図としては、ＭＳＸ　（略）
>> 			;もしかしたら、彼が間違っているかもしれませんね。
>彼というのが誰、または何を指しているのかがわかりません。

　「彼が間違って」の「彼」は、プログラム作者のことを指したつもりでした。

　もちろん、わりと基本的な事柄で、僕が間違っていそうだ、とは直感して
います。ありがとうございます。

追伸２：
　永遠に続く腐海整理、書庫整理で、昨晩、

林晴比古『BASIC によるプログラミング・スタイルブック』

　なんてのを見つけました。
　中身はなんにも覚えていないのだけど、これ、いい本だったよね、と
近くにもってきました。
　_QuickBasic Bible_を探しているところでした, while looking for "Sprites."

追伸３：
（MSX strig で終了のやり方に関して）
>当時のベーマガで、他のプログラムでも使っているのを見かけた。
　「当時のベーマガで、(略)　見かけた」偉大です。

としきさん

　ありがとうございます。
　結局、２個の大きなタスクのうち、０．５個しか終わらなかったのよ。
　昼間からお風呂に入り、１日に３回風呂に入る、というのは、相当な
ブルジョワです。
　でも、散歩もできない貧乏人です。


　偶然だと思うけど

@JD @Jd @jd @pq..141..45 @pc..115 @dspsw 
グローバル変数
　Jd    ★表示スイッチの一括プッシュ用変数
　vz.def での設定値=pq..141..45  pc..115  dspsw 
　bit 0  1  2  3  4  5  6  7  8  9  10 11 12 13 14
　    Dn Dc Dt De Dr Dj Dl Ds Db Du Df Dp Dg Dh Dv
@JE @Je @je @edtsw @pc..116 
グローバル変数
　Je edtsw pc..116   ★編集スイッチの一括プッシュ変数
　bit 0  1  2  3  4  5  6  7  8  9  10 11 12 13 14 15
　    Ei Es Ez Eb Eu Ek Et Eh Ew Ec Ex En Ev Ea El Ej

　このね、下の件で、このあいだの飲み会で、めざらさんに「あそこを
褒めてもらったのが嬉しかったんですよ！」と言ったのでした。

　ただ、ユーザが触（さわ）れる変数として外にだすって、２バイトに
するんだよね、と、いい疑問を持ったねぇ、文太くん、となりました。
　じゃなきゃ、vz.defで、カスタマイズできないでしょうが。

林晴比古『BASIC によるプログラミング・スタイルブック』
７項だと２８ページぐらいかな、参考になる記載があると思います。

　えーと、世の中には、記憶を写真として脳に保存する人がいるそうです。
　そういう人？

　３ページを２回ゆっくり読みました。分かったつもりになりました。
　「論理的」とか「論理型」とか「データ型」とかとか。
　大丈夫、読み飛ばすな、その言葉に気をつけろよ、と注意喚起があれば
読めます。た、ぶ、ん、理解できた、と、思う。
　回数なの。何度も何度も読み飛ばしてると、注意喚起ランプが灯るものなの。

　しかし、この本、すげえ中身が充実してる本だったんだ。
　としきさんに勧められて買ったのかな？　すげえ本だ。

　カーニハン先生の２冊、Fortran篇とPascal篇も、ムダではなかったね！

　ありがとうございます。
　あー、くそ、首と肩と背中が、いたい。
　またお仕事です。第４の波なのかな。はやくオワレ。

> >> 206	I=-(STRIG(0)+STRIG(1))
> 　でも足し算して符号を反転して代入してますよね、明らかに。
> 　うーん、、、。

これについてはのちほど。

> 　僕は、「マイクロソフト系」が侵略してくる時期をさぐってます。

私はMSbasic は失敗だったと思っています。
LOCATE Y,X が、当時の８ビットBASICと逆になってるんですよね。意味不明です。
始まりが０か１かの違いもありますが、それがささいな違いに思えるほどです。
このせいで移植が進まなくてあまり普及しなかったのではないかと思っています。
東芝BASICやTurbo Basicなどが準拠していますが、いずれもあまり普及しなかったかと。

> >過去記事で書いてると思いますがとっくに捨ててしまっています。(;_;)
> 　あうううう。＼(ﾟﾛ＼)(／ﾛﾟ)／

まあまあ、、昔のことです。(^^;

> お使いの Basic、このＴＢというのは何ですか？
> 　もしかして、Turbo Basic でしたっけ？

そうです。もはや他のBASICが使えない体になっています。(;_;)
ＶＧＡでしか動かないのでこの界隈の人達は反応しないの。(;_;)

＃　既に２本打っても駄目だったので３本目を打っています。(^^;
　　９割コピペ出来ても修正するのに手打ちの２〜３倍かかるぅ〜。(;_;)

konnoさん

　２回、失敗したという話。痛々しいです。悲しいですね。きっと何か
野望がおありなのでしょう。
　しかし「移植」に燃える人ですね、konnoさん。

　この発言、お訊きしたいことがいっぱいあるのですが、今日のところは
以下の２点のみにて。

				２００１年９月
-------------------------------------------------------
VisualBasic6.0		Word Hunter
VisualBasic6.0		Sky Fight
VisualBasic6.0		ビンゴ ? ゲ ー
VisualBasic6.0		(超大作 )F UKUWARAI ら
VBScript+DirectX	(超大 作 ) ピク チャ Ver.1.04
C++Builder4 		らむ し ふと
HSP V ら .5 		シャ ポン 狩り の
Javaア プレ ッ 		ヌー 星人
Qbasic			 (移植 版 )M ous対e 応 版 SHOF
Gbasic 			Paper Plane ForeVer
WonderWitch 		スネ ー
-------------------------------------------------------

　上はもちろん『ベーマガ』の表紙です（2001/9号）。マウス右クリックで
範囲指定して「コピー」しただけです。
　PDF with TEXT の版だと、上ぐらいまで自動で読んでくれます。作業が楽に
なりませんか。

　化けてますが、下から３行目、２行目が Qbasic 用と思しいです。詳しくみては
いないのですが、この時期にならないと、QuickBasic (MS系)が登場しません。
　あそこの『べーがま』には、この頃のものはほとんどなく、そしてすぐ休刊が
やってきます。

　ついでに書くと、「QuickBasic Games」でぐぐったら、アメリカ方面にあるは、
あるは。とりあえず、日本語はあきらめ、英語でゲームします。
　というか、ゲーム・プログラムのソースを眺めてみます。
　巨大なの、いっぱい、、、。DATA が延々と続く、、、。

　ＯＣＲを使っても清書したりするのが楽しかったのだけど、方言あるいは
アーキテクチャーの壁が高すぎだろう、という感じになってます。
　どっかにギャラクシアンのQuickBasicソース、落ちてないか。落ちてたら
Joystick を買っちゃうかも。今でもあのスロット、あるの？　昔のＭＢで
見かけたのだけど？？？
　オンライン・ゲームでぜったいあるよね。ちがう、ソースを眺めたいんだ。

> 　２回、失敗したという話。痛々しいです。悲しいですね。きっと何か
> 野望がおありなのでしょう。
> 　しかし「移植」に燃える人ですね、konnoさん。

3本目が効いて動くものが出来ました。＼(^^)／ ﾔｯﾀ-
１〜２本目のは画面が小さすぎたりなんだりで動かすのをあきらめたのです。


> 　PDF with TEXT の版だと、上ぐらいまで自動で読んでくれます。作業が楽に
> なりませんか。

テキストの文章ならそうでしょうが、プログラムソースは厄介なのです。
例えば
CO=C0		しーおー = しーぜろ	色指定？
C0=0		しーぜろ = ぜろ		色指定？
410 C0=(JN=2)*-7: GOSUB 250 
O=0		おー = ぜろ		円の大きさ？
これが数字と文字が混在して紛らわしくて、印刷の文字をよ〜く見て何度も確認する羽目に。
それでコンパイラが通ったと思ったら、
FOR I=l T0 8　のように
１と l（エル）が違ってたり、ＴＯ が Ｔ０(ゼロ) など沢山文字化けがあったのです。
なので、２〜３倍掛かったというのは決して誇張ではないのです。(;_;)
はっきり言います。このレベルなら手打ちの方がまだましです！

> 　ついでに書くと、「QuickBasic Games」でぐぐったら、アメリカ方面にあるは、
> あるは。とりあえず、日本語はあきらめ、英語でゲームします。
> 　というか、ゲーム・プログラムのソースを眺めてみます。
> 　巨大なの、いっぱい、、、。DATA が延々と続く、、、。

これを読んで検索したら、良いものを見つけました。
しばらく遊べそうです。＼(^^)／ 

> 　どっかにギャラクシアンのQuickBasicソース、落ちてないか。落ちてたら
> Joystick を買っちゃうかも。今でもあのスロット、あるの？　昔のＭＢで
> 見かけたのだけど？？？

危なそうなのはあったけど、お勧めできないですね。(^^;
上で見つけたものは、ＤＯＳ画面でマウスが使えるのでジョイスティックも使えるかも。

> 　オンライン・ゲームでぜったいあるよね。ちがう、ソースを眺めたいんだ。

そ、そうです、あくまでソースを参考にするために・・・ピコピコピk(ﾟ゜)☆＼(--#)ﾊﾞｷｯ

　なんとなく、ここに。どこにこの発言を置いていいか分からない、、、。

https://www.retrogames.cz/play_019-DOS.php

　はい、１０回ぐらいやりました。２００回ぐらいは、その気になれば
やれなくもなさそうでしたが、疲労が蓄積しているので、以上。
　肩と背中がいたい、、、、。

　「インベーダー」は、
http://www.petesqbsite.com/index.php
　あたりにありました。

DATA "       #       "
DATA "      ###      "
DATA "      ###      "
DATA " ############# "
DATA "###############"
DATA "###############"
DATA "###############"
DATA "###############"

DATA "    #          "
DATA "  #     #    # "
DATA "    #  #  #    "
DATA "  #      # #   "
DATA "     # ##   #  "
DATA "#  ########    "
DATA "  ##########   "
DATA " ############  "

DATA " #     #    #  "
DATA "    #          "
DATA "  #    #    #  "
DATA "      #   #    "
DATA " #   ## #     #"
DATA "    ######  #  "
DATA "   ########    "
DATA " ############  "

　トーチカ破壊図？

　全 1316 行。コンパイルした invaders.exe もあります。この
コンパイル版をここ、vtdos on Win11 の環境でやってみようとした
けど（予想どおり）動きませんでした。
　どれだけ color とか screen とかのグラフィックを使っているか
見てませんが、低レベルで画面を制御してると色々と汎用性（あるいは
ポータビリティ）に制限がでるんでしょうね。ＤＯＳエミュでは辛いの
でしょう。

　invader.bas/.exe を 純ＤＯＳ機で動かしたいのだけど、その前に
これ、作らないと、、、。

　さらりとここに。

--------------------------------------------------
ブログラム例：ドット・パターンをSPRITE$に設定し，画面に表示する
（スブライト・サイズは 1）

100 SCREEN 3, 1
110 SPRITE$(1)=CHR$(24)+CHR$(36)+ CHR$(36)
		+CHR$(231)+CHR$(255)+ CHR$(195)
		+CHR$(195)+CHR$(195)
120 SPRITE$(2) =STRING$(8, CHR$(255))
130 PUT SPRITE 1, (100, 100), 15, 1
140 PUT SPRITE 2, (110, 110), 8, 2
150 PUT SPRITE 3, (120, 120), 11, 1
160 GOTO 160
--------------------------------------------------
　例の『規格表』より。p.251

　みごとに MSX の独自規格でした。これをずっと確認したかったのです。
　そして、これがキモであるプログラムを「清書」してしまったとは。
　でも、お陰様でかなり色々と学びつつあります。

としきさん

68000系
ベーシックマスター　／　FM-8/7　／　JR-100

6502系
AppleII　／　VIC-1001

　メモりました。なんのためだかは、本人にも分かってないけど、
きっと、方言を乗り越えた「移植」とか企んでいるのかもしれない。
　マシン語は無理ですけどね。

>パソコンについては、SHARPはがんばってましたけどね。
>SANYOはたいした事はなかったなぁ。

以下『べーまが』より

1982年7月	
●創刊号｜移植テクニックマスター大作戦(1)
低価格高機能「MZ-2000」登場(価格218,000円) 	... シャープ
　ＭＺシリーズですよ。

コモドールから新製品2機種「VIC-1001」(価格未定)
　コモドールですよ。

　単に反応したくなっただけです。

としきさん

　いつもご丁寧な例示、ありがとうございます。

>うん、ちょっと違う。
　ぜんぜん違うな！

>68系のCPUのグルーピングの際には、わりと桁数が重要だったりします。
　了解！

>8080 (8 bit), Z80 (8 bit), 80286 (16 bit), V30 (16 bit =near 8086)
　Z80 が　500-1000円くらいって聞いて、興味もったのだけど、Ｉ／Ｏ
どうするのよ、ディスプどうするのよ、となりました。
　ＦＤにデータ保存できなくちゃダメじゃん（テープとかあったのね！
ダメ、カセットテープは嫌い）
　結果を表示しない計算機は、要らない、使えない。
　でも、CPU クーラーが必要ないＰＣって、ステキだなぁ。


　ま、タイミング的に偶然なのですが、ついに、この情報に辿りつきました！
マイクロソフト系
　N-Basic, F-Basic	;とはいえ、いっぱい色々ある。

シャープは避けよ　ＭＺシリーズ
　PASOPIA は微妙。なんか瞬間的に恋したのに、、、。
　（名前がかわいいじゃないか。東芝なんだよね、、、）

としきさん

岡俊行/おかとしゆき（Oka/T.Oka）

xscript, history の作者の方ですか。すごい人。とうぜん、色んな機種に
移植されてますね。こういうことするのが、（達人にとっては）普通な
ことであった時代なのですね。

FM-R, PC-98, J3100。IBM PC がないね。

●PROC　MASM/TASM用 マクロセット
　見落としていました。これは是非みてみたい。

　そういえば、アセンブラ・マクロでこんな古典的作品もありました。
（興味ないだろうと思うけど）

-------------------------------------------------
  【構造化アセンブラMACROS／AMSCLS】
              "A-MACROS"
 Control Logic Structure Macros for MASM
                Ver.2.10
      written by Hortens S. Endoh
        06/Jun/1986 17/Jul/1987
               13/Feb/1991
  Copyright (C) Jun.1986 Hortense S. Endoh
-------------------------------------------------

　最初、「ディスクアスキー『アセンブラ MACRO プログラミング技法／
A-MACROS』」に収録されていたらしいです（商品）。
　lha (.lzh)の吉崎栄泰さんがお使いだったらしい。

　これより、strucのほうが c.mos マクロに近い（やっぱこうなるのぉ）
という感触でした。

　でも、「計算のできる置換」、これがマクロの本質なのに、ほんと
いっぱい考えるよねぇ、この方たち。

これら２つのマクロを使うと非常に可読性の高いソースを書ける、ということで
一部の人は喜んで使っていたんですよ。どんな一部の人かというと、８０年代後半
にフリーウェアを作りまくっていた人たち。
ただ、やはり一般人というかちょっとアセンブラをかじっただけ、という人たち
にはハードルが高かったんでしょう、それほど普及はしませんでしたね。だけど
折に触れて言及されることがあって、だから私も名前くらいは知っている。でも
さすがに使った事はない。

> FM-R, PC-98, J3100。IBM PC がないね。

DOS/V以前の時代ですからね。IBM PCでは日本語は通らなかったのでしょう。
すると、ユーザもかなり限られるので、作成する動機に欠けた、のかも。

>   【構造化アセンブラMACROS／AMSCLS】
>               "A-MACROS"

あぁ、ありましたね、遠藤さんの作品。
みんなそれぞれ工夫していた時代でした。
とにかく、バグのないプログラムを量産したい、というのが目的。
そのために構造化だの何とか設計だの無意味なコメントはやめようだのインデント
はきれいに、というようなことが叫ばれたわけです。汚いコードを放置すると、
そちらのメンテナンスに手間がかかって、新しいものを作るという一番楽しい時間
が圧迫されてしまいますからねぇ。
もちろん、永遠のデバッグのほうが楽しい、という人もいるのでしょうけど。