第１回昔のＰＣ板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄ

107 ：FMV：02/01/08 22:06.net

Active basic　N88互換
10 cls
20 x=int(rnd(1)*58):y=int(rnd(1)*20):i=i+1
30 locate x,y
40 print "ｵﾏｴﾓﾅｰ"
50 if i<100 then goto 20

目的：画面上に１００回「ｵﾏｴﾓﾅｰ」と表示させる。
10 print "１００回「ｵﾏｴﾓﾅｰ」"
以上

108 ：ナイコンさん：02/01/08 22:31.net

MZ-80 SP-5030 print文で複数出すのって;じゃなく,だったっけ？

10 READ A1$,A2$,A3$,A4$,A5$,B1$,B2$,B3$,B4$,B5$
20 READ C1$,C2$,C3$,C4$,C5$,D1$,D2$,D3$,D4$,D5$
30 READ E1$,E2$,E3$,E4$,E5$,F1$,F2$,F3$,F4$,F5$,CR$,UE$
40 FOR I=1 TO 100 : CURSOR INT(RND*9),INT(RND*19):
50 PRINT "C";A1$;CR$;A2$;CR$;A3$;CR$;A4$;CR$;A5$;UE$;
60 PRINT B1$;CR$;B2$;CR$;B3$;CR$;B4$;CR$;B4$;UE$;
70 PRINT C1$;CR$;C2$;CR$;C3$;CR$;C4$;CR$;C4$;UE$;
80 PRINT D1$;CR$;D2$;CR$;D3$;CR$;D4$;CR$;D4$;UE$;
90 PRINT E1$;CR$;E2$;CR$;E3$;CR$;E4$;CR$;E4$;UE$;
100 PRINT F1$;CR$;F2$;CR$;F3$;CR$;F4$:CR$;F4$:NEXT:END
110 DATA " @ ","@@@@@ "," @@ "," @ @ ","@ @ "
120 DATA "@@@@@ "," @ "," @ @ "," @ "," @ "
130 DATA "@@@@@ "," @ "," @ "," @ ","@@@@@ "
140 DATA "@@@@@ "," @ ","@@@@@ "," @ "," @@@ "
150 DATA " @ ","@@@@@ "," @ "," @ "," @ "
160 DATA " "," ","@@@@@ "," "," "
170 DATA "←←←←←←↓","↑↑↑↑↑"

109 ：ナイコンさん：02/01/08 22:35.net

>>107
Active basic使う場合は
負荷かけないとｵﾓﾛﾅｲ...

110 ：108：02/01/08 22:43.net

スペースつまった
110 DATA "　　　■　　","■■■■■ ","　　■■　　","　■　■　　","■　　　■　 "
120 DATA "■■■■■ ","　　　　■　","　■　■　　","　　■　　　","　　■　　　"
130 DATA "■■■■■ ","　　■　　　","　　■　　　","　　■　　　","■■■■■ "
140 DATA "■■■■■ ","　　■　　　","■■■■■　","　　■　　　","　　■■■　　"
150 DATA "　　■　　　","■■■■■ ","　　■　　　","　　■　　　","　■　　　　"
160 DATA "　　　　　　","　　　　　　","■■■■■ ","　　　　　　","　　　　　　"

50行目のCは反転の画面消去のやつ。170行目のはカーソル制御のやつ

111 ：105　>>ActiveBasic：02/01/08 22:57.net

音源つけて動かしてください。ちと修正しました。
何回も似たようなプログラム書いてスマソ。
10 CLS
20 FOR I=1 TO 25
30 PRINT "ｵ";:PLAY "O3C16":PRINT "ﾏｴ";:PLAY "C8":PRINT "ﾓ";:PLAY "C16":PRINT "ﾅｰ　";:PLAY "C4"
40 PRINT "ｵ";:PLAY "E16":PRINT "ﾏｴ";:PLAY "E8":PRINT "ﾓ";:PLAY "E16":PRINT "ﾅｰ　";:PLAY "E4"
50 PRINT "ｵ";:PLAY "G16":PRINT "ﾏｴ";:PLAY "G8":PRINT "ﾓ";:PLAY "G16":PRINT "ﾅｰ　";:PLAY "G4"
60 PRINT "ｵ";:PLAY "O4C16":PRINT "ﾏｴ";:PLAY "C8":PRINT "ﾓ";:PLAY "C16":PRINT "ﾅｰ":PLAY "C4"
70 NEXT I
80 END

112 ：&heart;：02/01/08 23:19.net

そういえば、CHR$なんてのもあったなぁ。
スクロールはこいつで指定すればいいと思われ。

113 ：&hearts：02/01/12 14:15.net

MS-BASICにしようや

114 ：大学生MSXユーザ：02/01/13 01:29.net

今回はさらに原点に戻ってみました。

動作環境：ほぼ全てのBASIC

1 LET A$ = "OMAEMONA- "
2 FOR I = 1 TO 100
3 PRINT A$;
4 NEXT I
5 END

115 ：ナイコンさん：02/01/15 18:27.net

あたらしいお題ほしい

116 ：ナイコンさん：02/01/15 21:12.net

10 SAVE "ｵﾏｴﾓﾅｰ"
20 FOR A=1 TO 100:PRINT "ｵﾏｴﾓﾅｰ":NEXT A
30 KILL "ｵﾏｴﾓﾅｰ"
40 CLS
50 NEW

117 ：ナイコンさん：02/01/15 21:16.net

10 FILES
20 INPUT"ﾛｰﾄﾞｼﾀｲ ﾌｧｲﾙﾒｲ ";A$
30 KILL A$
40 PRINT "ﾌｧｲﾙｶﾞ ﾐﾂｶﾘﾏｾﾝ"

118 ：ナイコンさん：02/01/16 00:34.net

１さん、あたらしいお題を発表してヨ。

119 ：大学生MSXユーザ：02/01/16 01:00.net

>>1さんは今年に入ってから書きこみ無いみたいだけど
・・・俺がお題出しても良い？>all

120 ：ナイコンさん：02/01/16 01:05.net

次のお題の前に大賞を決めてはおかぬか。

121 ：1=JOY ◆chesX68k ：02/01/16 07:50.net

それではエントリーを締め切って選考に入りたいと思います。発表はしばらく待て。
選考は勝手ながら独断でさせてもらうっす。（仕切り厨でスマソ）
次はちょっとテクニカルなお題を考えてるんで、期待してて。

122 ：ナイコンさん：02/01/16 10:18.net

>>1
またBASICでよろしく。

123 ：ナイコンさん：02/01/16 14:30.net

テクニカルなお題もいいけど
くっだらないゲームもきぼーん

124 ：ナイコンさん：02/01/16 19:45.net

>>123
テクニカルなお題をくだらないゲームにするのが腕の見せ所。
しかしテクニカルなお題は俺の脳内BASICインタプリタが処理できないかも(w

125 ：ナイコンさん：02/01/17 00:44.net

審査の間、ワイデスのダンスをお楽しみください

100 WIDTH 40,25:CLS
110 X=18
120 RESTORE
130 READ A
140 IF A=0 THEN 120
150 IF A=4 THEN GOSUB 200
160 IF A=6 THEN GOSUB 300
170 FOR I=0 TO 500:NEXT
180 GOTO 130
200 X=X-1
210 LOCATE X,10:PRINT " ＼●　　";
220 LOCATE X,11:PRINT "　　■＞　";
230 LOCATE X,12:PRINT "　＜　＼　";
240 RETURN
300 X=X+1
310 LOCATE X,10:PRINT "　　 ●／　";
320 LOCATE X,11:PRINT "　＜■　　";
330 LOCATE X,12:PRINT "　／　＞　";
340 RETURN
1000 DATA 4,6,4,6,4,4,4,4,6,6,6,6,0

126 ：大学生MSXユーザ：02/01/17 03:55.net

>>125
MSXに移植してみました。
一部簡単には表現不可能な所があったので独自の修正を施しています。
TurboRの高速モード対応（藁

100 SCREEN 0:WIDTH 40:CLS
110 X=18
120 RESTORE
130 READ A
140 IF A=0 THEN 120
150 IF A=4 THEN GOSUB 200
160 IF A=6 THEN GOSUB 300
170 TIME=0:FOR I=0 TO 10:I=TIME:NEXT
180 GOTO 130
200 X=X-1
210 LOCATE X,10:PRINT " ┐●　　";
220 LOCATE X,11:PRINT "　　ロ＞　";
230 LOCATE X,12:PRINT "　＜　└　";
240 RETURN
300 X=X+1
310 LOCATE X,10:PRINT "　　 ●┌　";
320 LOCATE X,11:PRINT "　＜ロ　　";
330 LOCATE X,12:PRINT "　┘　＞　";
340 RETURN
1000 DATA 4,6,4,6,4,4,4,4,6,6,6,6,0

127 ：JOY ◆chesX68k ：02/01/17 21:56.net

お待たせしました。
第１回昔のＰＣ板杯プログラムコンテストの発表です。
実行可能な物は全て実行してみて、実行できないのは脳内トレースして、
プログラムのアルゴリズムも吟味したうえで決めてみました。


大賞：ナイコンさん >>25
http://pc.2ch.net/test/read.cgi/i4004/1008847300/25
発表直後はスレの住人を震撼させた、まさに衝撃の作品。
誰もが予想だにしなかった方法で課題を実現させている。逆転的発想が大賞
受賞の決め手であり、受賞に関して疑いの余地は無いだろう。
「これをやられちゃったら、このあと何も出せないよ！」という声も・・・・・・。
ほぼ全機種対応という脅威的な汎用性も持っている。
素晴らしい。感動した。


次点：ナイコンさん >>88-89
http://pc.2ch.net/test/read.cgi/i4004/1008847300/88-89
ゲーム化してエントリーされた作品はいくつかあったが、課題のルールを
守ったうえで、見た目にも分かりやすく楽しかった作品がこれ。
１００回表示させるのを前提に考えられた画面レイアウトも良い感じ。
「大金もち」「大びんぼう」という言葉のセンスも、当時を思い出させる。
一発系の>>25が無ければ、間違いなく大賞になっていただろう。惜しい。


次点：ナイコンさん >>77
http://pc.2ch.net/test/read.cgi/i4004/1008847300/77
人工無能という崇高な題材に挑戦した作品。
見事に突っ込みだけでスレッドを１本dat行きにさせてしまっている。
惜しむらくは、「オマエモナー」がスレの前半で１００回表示しきって
してしまうことと、突っ込み言葉のバリエーション不足。
スレ全体にまんべんなく散りばめられていれば、なお良かったと思われ。


特別賞：大学生MSXユーザさん >>3,>>23他
スレ立ち上げ当初からエントリー受け付けギリギリまで作品を提供し続け、
このコンテストを盛り上げた功績は大きい。特別賞を進呈したい。
ハンドル通り、一貫してＭＳＸのプログラムにこだわる職人気質。
色々なアプローチで正統派＆技術派な作品を提供してくれた。
現役の（？）大学生でＭＳＸを使っているというのもポイント高し。


（総評）
当時、覚えたてのＢＡＳＩＣで組んだ「くだらね〜〜ヨ！」的なノリの
プログラムコンテストをやってみたいと思ったのが始まりなんだが、
みんな付き合って遊んでくれてありがとさん。

今でこそ職業プログラマやってるが、ルーツはこれだろ！みたいな、
そういうのは忘れずにいたいもんだな・・・・・と改めて思たよ。

もっと色々な機種のＢＡＳＩＣが見れるかと思ったけど、予想以上に
Ｎ系が多かったな。ぴゅう太の日本語ベーシックは出てくるだろ！？と
思っていたんだが・・・・・・。お題が悪かったか？。正直スマン。
ワイデスネタも出ると踏んでたが・・・・。あ、最後に出たね。

やはり、昔のＰＣ板らしくＢＡＳＩＣ限定のほうが楽しいな。
機種毎に方言があるところが、また楽しい。
次回もまたヨロシク！！

128 ：JOY ◆chesX68k ：02/01/17 21:57.net

ということで、大賞を決めてみた。予想通りだったかな？？。

新しいお題のネタはあったんだが、>>119で 大学生MSXユーザさんが
お題を出したいようだったので、彼に一任することにしたいけど、どう？。
ま、特別賞の御褒美って事で。特に反論がなければ、そうしよう。

>>123で「くっだらないゲーム」という希望もあるので、そのことも考慮して
決めちゃってください＞大学生MSXユーザさん

この後は、第２回として新スレを立てるかどうか？を このままこのスレで
議論しつつ、しばらくは第１回の感想などでマターリしようよ。
第２回を新スレにするなら、このスレは sage進行専用の方向で。


>>119
＞ １さんは今年に入ってから書きこみ無いみたいだけど
最近は P/ECEのほうに凝っててなー。そっちのコンテストに向けてプログラムに
萌えているよ・・・・って、このスレとは直接関係無いから sageとく。

129 ：俺も参加する：02/01/18 00:07.net

１０　NEW

130 ：大学生MSXユーザ ◆Ym1dK0rg ：02/01/18 00:36.net

ども、特別賞頂いた大学生MSXユーザです。

>>1=JOY ◆chesX68kさん了解しました。
さっそく第2回のお題と>>1用の文章考えてみたんで評価頼みます。>all

＝＝＝ここから
毎年恒例となった 第２回昔のＰＣ板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄを開催するヨ！
かつてやった（であろう）ｸﾀﾞﾗﾈｰ!!プログラムや ｸﾀﾞﾗﾈｰ!!テクニックを
再びここで披露して下さい。

目的：２ちゃんねる系キャラクター（モナー、ギコ猫、etc...）
　　　を使ったくだらないミニゲームを作る。

使用機種：不問

使用言語：ＢＡＳＩＣ限定（各機種の方言の使用は可）
　　　　　また、コードがBASICのみで書かれているならばマシン語の使用も可とします。

条件：プログラムコードが長くならないように注意。
　　　（省略されました・・全てを読むにはここを押してください）が
　　　出てしまったら、そのエントリーは無効。

評価：今度は投票で決めたいと思います。

投票方法：(ﾟ∀ﾟ)ｲｲ！と思ったプログラムのスレ番号をxxxとして、
　　　　　名前欄には適当なトリップを付けて、本文には
　　　　　1行目に「投票xxx」（xxxは半角数字で）と書き、
　　　　　2行目以降には感想を書いて（←これは無くても良い）
　　　　　レスして下さい。このフォーマットから外れたレスは無効票とします。
　　　　　なお、一人2票まで投票可能とします。

　　　　　前スレ同様、綺麗なソースやアルゴリズムだけではなく、
　　　　　実行したときの芸術性などを考慮した上で評価してください。

注意：半角空白は連続して書くと1つに纏められて見えてしまう為、
　　　&nbsp;又は全角空白に置き換えてレスして下さい。
　　　また、機種依存文字は出来るだけ似た字に置き換えて書いた上で注釈を入れて下さい。

エントリーする人は、動作機種を（ものによっては何ＢＡＳＩＣかも）明記して下さい。

エントリー終了と投票開始の時間はこの>>1の投稿日から丁度30日経った”瞬間”です。

エントリーに対するレスなんかは随時大いにしちゃってOK！もりageて行こう！
ﾋﾞｸｰﾘするようなヤツ期待してます！
＝＝＝ここまで

131 ：ナイコンさん：02/01/18 00:42.net

>>130
「ルール詳細は>>2参照」ってのをきぼーん

132 ：ナイコンさん：02/01/18 02:12.net

>>128
とりあえず新スレは見合わせた方がいいと思う。まだ100ちょっとしか使ってないわけだし。
ただ、そうなると現在のレギュレーションがわかりにくくなるという難点があるので、
定期的にレギュレーションにリンクを貼る等の行為が必要となるかも。

>>130
モナーやギコ猫のＡＡを作れない機種も出て来るかと思うので、
単純に「くだらないミニゲームを作る」でよいかも。

使用言語の「コードがBASICのみで書かれているならばマシン語の使用も可とします」は
ちょっとニヤリとさせられた。

133 ：ナイコンさん：02/01/18 02:19.net

もうちょっと目的を限定しないとｺﾝﾃｽﾄになんないよ

134 ：ナイコンさん：02/01/18 02:27.net

短いプログラムしか載せられないので、ワンキーゲームとかどう？

135 ：名無しさん：02/01/18 03:14.net

8bit機だと表示できる文字種が少なくてAAは厳しいよぉ。
そのへん何とかならんかね。

136 ：大学生MSXユーザ ◆Ym1dK0rg ：02/01/18 03:35.net

>>131さん
確かにそのほうが良いと思います。

>>132,>>135さん
確かに>>125を移植したときも必要な文字無くて困ったんで。
MSXの様に文字の形を再定義出来るマシンは良いとして
MZ-700みたいに固定されてるマシンもあるし。
２ちゃんねる系キャラ限定は解除ですかね。

>>134さん
それ(ﾟ∀ﾟ)ｲｲ！です。

で、以上を踏まえて考えてみた修正案（>>130からの差分）
・文全体を>>2に移動。
・目的をくだらないワンキーミニゲームに偏光^H^H変更。
・注意：の2行目先頭に誤植？「又は」→「＆nbsp;を半角で、又は」
・（新ｽﾚ立てる場合）このｽﾚへのリンクを追加。

問題点
・本当に新ｽﾚを立てるか？
・ｽﾚの管理
（俺今4年生なんです。暫くしたら卒論が・・・）

あと、あんましこのスレと関係無いんだけど（ｗ
各機種固有の命令の使い方間違ってるのとか合ったりしたんで、
「昔のPCのBASICの文法を勝手に教えるｽﾚ」
とか立てたら人来ると思います？

というわけで継続して意見レスｷﾎﾞｰﾝ。

137 ：ナイコンさん：02/01/19 11:37.net

誰か>>25をぴゅう太に移植してくれ。

>>130、136
投票にこだわる必要もないと思うなあ。
ＭＳＸユーザ氏の一存で決めても文句でないと思うし。
少なくとも投票にトリップは不要でしょう。

BASICの文法を勝手に教えるスレは需要はあるとおもう。
BASICの移植に関する指針とかも話題に加えていいかも。
もし立てたらこのスレからのリンクは必須だね。
個人的には欲しい。情報提供はできないけど(w

138 ：ナイコンさん：02/01/20 02:53.net

目指せ「昔のPC板のベーマガ」だな。
乗り遅れたが、一応書いておく

PC-6001 N60-BASIC
10 ? "ｵﾏｴﾓﾅｰ"
20 C=C+1:IF C=100 THEN EXEC 0
30 GOTO 10

139 ：大学生MSXユーザ ◆Ym1dK0rg ：02/01/28 02:53.net

スレ放置してしまってすいませんでした。
今週は風邪と期末テストでダウンしててまともにネット繋げてませんでした。
次スレの文案を作ってみました。
それと、次スレの管理は>>1= JOY ◆chesX68kさんに頼みたいんですけど良いですか？

REM あと3周間程で卒論の締め切りという罠 =ﾛo_

次スレ>>1
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
毎年恒例となった 第２回昔のＰＣ板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄを開催するヨ！
かつてやった（であろう）ｸﾀﾞﾗﾈｰ!!プログラムや ｸﾀﾞﾗﾈｰ!!テクニックを
再びここで披露して下さい。

詳しくは>>2で。

前スレ　http://pc.2ch.net/test/read.cgi/i4004/1008847300/
※）前スレはこのスレに関連した雑談用途に使用してください。


次スレ>>2
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
目的：くだらないワンキーミニゲームを作る。

使用機種：不問

使用言語：ＢＡＳＩＣ限定（各機種の方言の使用は可）
　　　　　また、コードがBASICのみで書かれているならばマシン語の使用も可とします。

条件：プログラムコードが長くならないように注意。
　　　（省略されました・・全てを読むにはここを押してください）が
　　　出てしまったら、そのエントリーは無効。

評価：前スレとは違って今度は投票で決めたいと思います。

投票方法：(ﾟ∀ﾟ)ｲｲ！と思ったプログラムのスレ番号をxxxとyyyとして、本文に
　　　　　1行目に「投票xxx+yyy」（xxx+yyyは半角数字で）と書き（1票のみの場合は「投票xxx」と書く）、
　　　　　2行目以降には感想を書いて（←これは無くても良い）
　　　　　レスして下さい。このフォーマットから外れたレスは無効票とします。
　　　　　なお、上記の通り一人2票まで投票可能とします。

　　　　　投票締め切りは900まで又は最初の作品が出てから丁度30日までとします。

　　　　　前スレ同様、綺麗なソースやアルゴリズムだけではなく、
　　　　　実行したときの芸術性などを考慮した上で評価してください。

注意：半角空白は連続して書くと1つに纏められて見えてしまう為、
　　　＆nbsp;を半角にしたもの、又は全角空白に置き換えてレスして下さい。
　　　また、機種依存の特殊文字は出来るだけ似た字に置き換えて書いた上で注釈を入れて下さい。

エントリーする人は、動作機種を（ものによっては何ＢＡＳＩＣかも）明記して下さい。

エントリー終了と投票開始の時間はこの>>1の投稿日から丁度30日経った”瞬間”です。

エントリーに対するレスなんかは随時大いにしちゃってOK！もりageて行こう！
ﾋﾞｸｰﾘするようなヤツ期待してます！

140 ：大学生MSXユーザ＠学校：02/01/28 11:13.net

あぅ。age忘れ。

141 ：ナイコンさん：02/01/28 13:48.net

このスレ最高。
っつーか、漏れも未だにポケコン使って子供の遊戯王カード用計算プログラムとかBASICで作ってるし。
次スレはエントリーすんぞ〜。

142 ：ナイコンさん：02/01/28 16:08.net

みんなでコレ使ってプログラム持ち寄らねえ？
http://www.sagami.ne.jp/tadaka/99Basic/

143 ：ナイコンさん：02/01/28 16:35.net

漏れﾏｶｰなんだけど、BASICが走るようなエミュしらん？
88とか98のやつ。
次回は参加してーよー。

144 ：ナイコンさん：02/01/29 19:02.net

>>142
ついにフリーなのね。かなっすぃ〰

145 ：ナイコンさん：02/01/29 19:09.net

檻はn88のままだ

146 ：大学生MSXユーザ ◆Ym1dK0rg ：02/01/30 03:28.net

特に意見が無いようなら今度の土曜日にでも新スレ立てときます。
意見等はそれまでにお願いします>ALL

>143
一応こんなの見つけました。（動くかどうかは判らない（MAC持ってないんで））
ttp://www.mode.co.jp/down/d-futurebasic.html

147 ：JOY ◆chesX68k ：02/01/30 09:59.net

久々に来てみたら、このスレこんなに下がってるよ。
しかもまだ第２回が始まってないし・・・・・。大学生MSXユーザｸﾝ頑張れ！

ちょっと意見させてもらうと、投票とかあまりこだわらんでも良いと思うよ。
そんときのノリやパッと浮かんだアイディアを思いつきだけで組んでいた
あの頃のプログラムスタイルを懐かしむスレにしたい。個人的にはね。
まさに「くだらねーよ！」って笑えるようなやつ。
肩の力抜いてお気軽プログラム！なのが 当時のBASICの良いところだしさ。

投票形式にするなら、レギュレーションを決めて、エントリが少なくなってきたら
そろそろ締め切って投票にしましょう！てな感じかな。そこは臨機応変に。
まだまだエントリーがあるうちに投票してもね。
後でどんな(ﾟ∀ﾟ)ｽｹﾞｰ!の出るか分からんしさ。

いろんな機種の方言を知っている解説者みたいな人がいたら良いかもね。
Dr.Dみたいな人募集！といってみるテスト。

>>139
2chはあまり覗けないけど、進行役ならしても良いよ。
つーか俺立てたスレだった。立て逃げはいかんよね、立て逃げは。鬱。

そんな感じで。いちおう ageときます。

148 ：ナイコンさん：02/01/30 10:02.net

>>143
Mac用88Emuはあったと思うが。

149 ：ナイコンさん：02/01/30 11:13.net

>>143
www.hi-ho.ne.jp/hideaki-i/n_on_mac/n-index.html

150 ：ナイコンさん：02/01/30 23:26.net

>>142
９９ベーシックって、コピペが使えなくない？

151 ：ナイコンさん：02/01/31 00:57.net

ここ見てたら昔を思い出した（泣
おれも参加したくなって9801MのマニュアルもらってきたYo

第２回のスレが立ったらここはベーマガの下の部分（over flowだっけ）
みたいにするってのはどうよ

>大学生MSXユーザさん
体に気をつけて。無理すんなよ。

152 ：ナイコンさん：02/01/31 01:16.net

>150
コピペは無理かもしれないけど。

99 BASICのヘルプファイル見たら
text形式のファイル読めるみたい

153 ：ナイコンさん：02/01/31 08:11.net

>>152
THX!ホントだ！
セーブデータをメモ帳で開くと化けまくりというのはご愛嬌かな？（ｗ

154 ：152：02/01/31 18:03.net

>153
saveは独自形式だからね。
オプションAをつけるとtext形式でsaveできるようです
詳しくはヘルプファイルのsaveの項目参照してね

155 ：150=153：02/01/31 18:45.net

>>153
度々スマソ＆THXです。
HELP見直してやってみたら確かに「SAVE "〜",A」で「〜.TXT」と保存されました！
関係無いけど、ついつい「csave"〜」と打ってしまう…（ｗ

156 ：大学生MSXユーザ ◆Ym1dK0rg ：02/01/31 23:55.net

JOY ◆chesX68kさん。新スレの進行役頼みます。m(_ _)m

俺は人のコード評価出来るほどの奴じゃないんで投票方式を考えた
んですけど、逃げはいけませんね。はぅ。

やっぱり>1さんの案に近い文に直してみて金曜の午後にでも
このスレに書いときます。

新スレは>146にも書いた通り土曜に立てます。


>151
あー既に先週風邪でダウンしたんで
しばらくは大丈夫だと思います。（w

157 ：ナイコンさん：02/02/01 00:54.net

http://www.vector.co.jp/soft/win95/prog/se063951.html

ここに通常の形式で保存したファイルをテキストに変換できるツールがあります。実機がなくても大丈夫ですね。

158 ：ナイコンさん：02/02/01 07:32.net

レスが200も満たないうちに新スレなど言われても困るので
次はちゃんと使いまわせそうなスレタイトルにしてください。

159 ：143：02/02/01 11:46.net

>>149
情報サンクス！
早速行ってみたんだけど・・・わし実機持ってないんすよ。(T_T)
ROMイメージが手に入らんです。

160 ：大学生MSXユーザ ◆Ym1dK0rg ：02/02/01 16:46.net

こんな感じでどうでしょう？

せっかく立ててあるこのスレを使いきらないともったいないんで
ここは第２回以降のｺﾝﾃｽﾄｽﾚ関連の雑談に使うと良いと思います。

次スレ名称：第2回昔のPC板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄ会場

次スレ>>1
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
恒例となった 第２回昔のＰＣ板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄを開催するヨ！
かつてやった（であろう）ｸﾀﾞﾗﾈｰ!!プログラムや ｸﾀﾞﾗﾈｰ!!テクニックを
再びここで披露して下さい。

詳しくは>>2で。

前スレ　http://pc.2ch.net/test/read.cgi/i4004/1008847300/
※）前スレは昔のPC板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄに関連した雑談用途で使用することを推奨します。


次スレ>>2
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
目的：くだらないワンキーミニゲームを作る。

使用機種：不問

使用言語：ＢＡＳＩＣ限定（各機種の方言の使用は可）
　　　　　また、コードがBASICのみで書かれているならばマシン語の使用も可とします。

条件：プログラムコードが長くならないように注意。
　　　（省略されました・・全てを読むにはここを押してください）が
　　　出てしまったら、そのエントリーは無効。

評価：綺麗なソースやアルゴリズムだけではなく、実行したときの
　　　芸術性、くだらなさ、ゲームの面白さ、etc.なども評価の対象とします。

注意：半角空白は連続して書くと1つに纏められて見えてしまう為、
　　　＆nbsp;を半角にしたもの、又は全角空白に置き換えてレスして下さい。
　　　また、機種依存の特殊文字は出来るだけ似た字に置き換えて書いた上で注釈を入れて下さい。

エントリーする人は、動作機種を（ものによっては何ＢＡＳＩＣかも）明記して下さい。

エントリーに対するレスなんかは随時大いにしちゃってOK！もりageて行こう！
ﾋﾞｸｰﾘするようなヤツ期待してます！

161 ：ナイコンさん：02/02/01 19:36.net

BASICじゃないと不可なんですかー。ぷりぷり。

162 ：元ぴゅう太ユーザー：02/02/01 20:11.net

乗り遅れ気味だけど、ぴゅう太G-BASICで。
実機が行方不明なんでうろ覚えだけど、多分こんな感じ。

10 ﾏﾜﾚ30 A=1ｶﾗ600ｶﾝｶｸ6
20 ｶｹ A, "ｵﾏｴﾓﾅｰ"
30 ﾄｼﾞﾙ
40 ｵﾜﾘ

で、メニューから「ｼﾞﾂｺｳ」と打つと青地に白で表示。

ちなみにぴゅう太の画面は横32セル×縦24セルで、
位置指定は左上端1〜右下端768の範囲。

>>137
G-BASICはプログラム中でリストを出力する命令を実行できないので、移植不可。

163 ：元ぴゅう太ユーザー：02/02/01 20:18.net

しまった。
>>162
10 ﾏﾜﾚ30 A=1ｶﾗ601ｶﾝｶｸ6
じゃないと1つ足りないような。逝ってきます…

164 ：大学生MSXユーザ ◆Ym1dK0rg ：02/02/02 02:04.net

次スレ立てました。

第2回昔のPC板杯ﾌﾟﾛｸﾞﾗﾑｺﾝﾃｽﾄ会場
http://pc.2ch.net/test/read.cgi/i4004/1012582935/

165 ：ナイコンさん：02/02/02 10:54.net

誰かMSXのRND書式教えて〜。RANDOMIZEの書式もよろしく。

166 ：誰か：02/02/02 11:54.net

RND(X)
Xの条件：数値型定数, 変数, 配列変数, 式。
返される値： 数値型。

0<X の時：常に一定の系列の乱数を発生する。
X=0 の時：1つ前に発生したのと同じ値を返す。
X<0 の時：Xの値に対応する発生系列を作り、
　　　　　それ以降の RND関数はその系列で乱数を発生する。
-----------
MSXにあるのはRNDだけで、RNDが RANDOMIZEも兼ねてるみたいですね。

167 ：ナイコンさん：02/02/02 15:54.net

>>166
さんくす！

・・・むむむ。でもRANDOMIZE効かないなぁ。

10 CLS:CLEAR
20 FOR I=1 TO 20
30 A=10*(RND(10))
40 PRINT INT(A)
50 NEXT I

これでrunしても、毎回同じ乱数しか出ないっす・・・。(T_T)
分かる人、誰か教えて下さい。

168 ：ナイコンさん：02/02/02 16:03.net

>>167
MSXは使ってないからわからないけど>>166を見ると、
始めにRND(-TIME)とかやっておけばいいんじゃないの？

169 ：ナイコンさん：02/02/02 16:31.net

>>167
30 A=INT(RND*10)

だったらどうよ？
違うかもしれんが。

170 ：ナイコンさん：02/02/02 16:36.net

>>169
それを言うなら、
30 A=INT(RND(1)*10)

171 ：169：02/02/02 16:50.net

>>170
おっしゃる通りっす。

172 ：ナイコンさん：02/02/02 17:17.net

色々さんくす！＞ALL
まず、>>170さんありがとうございます。行がスッキリしました。
で、
30 A=INT(RND(1)*10)
で綺麗にいったんですが、結局RANDMIZEできません。

>>168さん
これって例えば
15 RND(-TIME)
とかじゃないんですよね（Syntax error出た）。
「-TIME」って時間かなんかの変数でしょうか？

う〜、今までポケコンでは
RANDOMIZE:A=RND 10
↑コレで済んでたもんで・・・。

173 ：ナイコンさん：02/02/02 17:28.net

10 CLS
20 PRINT "ﾑｶｼﾉPC@2chｹｲｼﾞﾊﾞﾝ
30 PRINT "http://pc.2ch.net/i4004/
40 END

174 ：ナイコンさん：02/02/02 17:36.net

10　’RUNだMy図、がないと将来踊れないよ。他力踊り希望の人?
20　’それはやめたほうがいいよ。

175 ：170：02/02/02 17:43.net

>>172
おれはMSXユーザでないから MSX=BASICは詳しくは分からんが、
要は起動するたびに違った数値を引っ張ってくれば良いわけだからさ．．．．．
15 RND(VAL(RIGHT$(TIME$,2)))
なんかではどうだろ？

RANDOMIZE(VAL(RIGHT$(TIME$,2)))
てのが、N-80/88では定石でした。

176 ：大学生MSXユーザ ◆Ym1dK0rg ：02/02/02 17:44.net

>172

15 ZZ= RND(-TIME)
と適当な変数への代入にすればOK。

TIMEは1/60秒毎にカウントアップされる変数だよ。
こいつは自分で値をセットすることも出来るから簡単な時間計測に使えたりする。

例）30行の計算時間を計る。

10 TIME= 0
20 FOR I=1TO100
30 Z=ATN(1)^ATN(1)
40 NEXT I
50 T= TIME/60/100
60 PRINT "ﾔｸ"; T; "秒"

177 ：ナイコンさん：02/02/02 19:00.net

1/60毎にカウントアップならば、
50 T = TIME/60
なんじゃねーの？と言ってみるテスト。

178 ：大学生MSXユーザ ◆Ym1dK0rg ：02/02/02 20:48.net

>177

>176の例では30行を100回実行して1回あたりの時間を
計算してるのでこれでOKです。

30行を1回しか実行しない場合、1/60の精度までしか出ないけど、
100回やって時間を100で割れば1/6000の精度で測定できます。

＃実際にはFOR文で消費される時間を差し引いて計算しないと
＃いけないんだけど、その処理は例って事で省略してあります。

179 ：ナイコンさん：02/02/03 01:43.net

言語を、統一した方がいいと思うよ。もしくは、機種依存する命令は使わないとか。
みんなのソースをためせる方が、盛り上がると思うし。

180 ：172：02/02/03 10:48.net

おお〜、なんかレベルの高いレスありがとうございます！
今仕事中ですので、帰ってから色々試してみたいと思います。

181 ：ナイコンさん：02/02/03 15:39.net

>>180=>>172
つーか、第２回のスレ立ってるんだし、こっちはsage進行したほうが良いぞ。

182 ：ナイコンさん：02/02/04 20:48.net

このスレ（主に第2回スレ）がスレの杜で紹介されてるけど
スレの杜で紹介されるってステータスなの？
ちょっとﾋﾞｸｰﾘしたYo.

183 ：ナイコンさん：02/02/05 14:49.net

>182
けっこうステータスではないかと。
実は推薦したの俺なんだけど、あーゆー形で取り上げられるとは思わなかった。

184 ：ナイコンさん：02/02/06 00:25.net

>52
99回でループから抜けてしまいませんか?

185 ：ナイコンさん：02/02/27 18:36.net

遊び方は、実行後にシフトキーを連打して下さい。最後に表示される。
タイムの多い人が勝ちです。他のキーでも出来るかもしれません。

100　REM PC-8801/mk2ﾃｲﾄﾞﾏﾃﾞ
110　DEF USR=28342
120　CONSOLE ,,1,1:WIDTH 80,25:SCREEN 0,1
130　SCREEN ,1:CLS USR(0)
140　TIME$="00:00:00"
150　PAINT(2,100),2
160　PRINT TIME$
170　END

186 ：ナイコンさん：02/02/28 06:45.net

久しぶりに来たけどまだ続いてたんだ。
良かった…。

187 ：ナイコンさん：02/03/09 20:45.net

第２回へ

188 ：ナイコンさん：02/03/23 14:49.net

こっそりsage

189 ：ナイコンさん：02/06/21 00:38.net

100 goto 100

190 ：ナイコンさん：02/06/21 00:54.net

言語を統一した方が盛り上がると思うな。

191 ：ナイコンさん：02/06/21 05:52.net

>>190
お前、この板初心者だろ？

192 ：ナイコンさん：02/06/21 07:29.net

>>191
1を読めばわかるけどBASIC限定です

193 ：ナイコンさん：02/06/21 12:41.net

>>191
お前、BASICを知らない初心者だろ？

194 ：ナイコンさん：02/06/21 14:07.net

delete 190
OK
list 191-
191 名前：ナイコンさん ：02/06/21 05:52
>>190
お前、この板初心者だろ？



192 名前：ナイコンさん ：02/06/21 07:29
>>191
1を読めばわかるけどBASIC限定です


193 名前：ナイコンさん ：02/06/21 12:41
>>191
お前、BASICを知らない初心者だろ？

OK

195 ：ナイコンさん：02/06/22 19:32.net

delete 194
OK

196 ：GOTO 　1　'：02/06/29 16:30.net

197 ：ＥＮＤ：02/07/17 13:00.net

198 ：age：02/09/05 01:54.net

10 REM ﾎｼｭsage
20 END

199 ：ナイコンさん：02/09/19 11:59.net

ActiveBASICはexitで終了だが、
99BASICは終了時はsystemって打つのね。
昔を思い出して笑ったよ〜

200 ：ナイコンさん：02/09/20 01:04.net

LEFT$("00"+ HEX$(A), 2)

201 ：ナイコンさん：02/09/29 13:45.net

1000 CLS 3 : A = 400 : B = 8000 : C = 100
1100 FOR Z = 1 TO C
1200 FOR X = 1 TO 7
1300 COLOR X : LOCATE 15,15 : PRINT "ｷﾀ (ﾟ∀ﾟ) !!!!!"
1400 FOR Y = 1 TO A : NEXT Y
1500 COLOR X : LOCATE 15,15 : PRINT "ｷﾀ ━(ﾟ∀ﾟ)━ !!!!!"
1600 FOR Y = 1 TO A : NEXT Y
1700 COLOR X : LOCATE 15,15 : PRINT "ｷﾀ ━━(ﾟ∀ﾟ)━━ !!!!!"
1800 FOR Y = 1 TO A : NEXT Y
1900 COLOR X : LOCATE 15,15 : PRINT "ｷﾀ ━━━(ﾟ∀ﾟ)━━━ !!!!!"
2000 FOR Y = 1 TO A : NEXT Y
2100 COLOR X : LOCATE 15,15 : PRINT "ｷﾀ ━━━━(ﾟ∀ﾟ)━━━━ !!!!!"
2200 FOR Y = 1 TO A : NEXT Y
2300 COLOR X : LOCATE 15,15 : PRINT "ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!"
2400 BEEP
2500 FOR Y = 1 TO B : NEXT Y
2600 NEXT X
2700 NEXT Z
2800 END

202 ：ナイコンさん：02/09/29 13:49.net

1000 CLS 3 : A = 400 : B = 8000 : C = 100
1100 FOR Z = 1 TO C
1200 FOR X = 1 TO 7
1300 COLOR X : LOCATE 15,15 : PRINT "ｷﾀ (ﾟ∀ﾟ) !!!!!"
1400 FOR Y = 1 TO A : NEXT Y
1500 COLOR X : LOCATE 15,15 : PRINT "ｷﾀ ━(ﾟ∀ﾟ)━ !!!!!"
1600 FOR Y = 1 TO A : NEXT Y
1700 COLOR X : LOCATE 15,15 : PRINT "ｷﾀ ━━(ﾟ∀ﾟ)━━ !!!!!"
1800 FOR Y = 1 TO A : NEXT Y
1900 COLOR X : LOCATE 15,15 : PRINT "ｷﾀ ━━━(ﾟ∀ﾟ)━━━ !!!!!"
2000 FOR Y = 1 TO A : NEXT Y
2100 COLOR X : LOCATE 15,15 : PRINT "ｷﾀ ━━━━(ﾟ∀ﾟ)━━━━ !!!!!"
2200 FOR Y = 1 TO A : NEXT Y
2300 COLOR X : LOCATE 15,15 : PRINT "ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!!!!"
2400 BEEP
2500 FOR Y = 1 TO B : NEXT Y
2600 NEXT X
2700 NEXT Z
2800 END

203 ：ナイコンさん：02/09/29 13:52.net

　↑
？？？　上の二つ、PRINT文の中のｓｐａｃｅが消えてる・・・　　
しかも結局二重投稿だし・・・　　　鬱



Syntax　error
ok
■

204 ：ナイコンさん：02/09/29 14:32.net

>203
連続の半角空白は1つに圧縮されます。
で、半角で「＆nbsp;」と書くと圧縮されない半角空白に置き換わります。

205 ：ナイコンさん：02/09/29 16:21.net

>>204
ひとつおりこうになりますた　ありがとうございますた　m(_ _)m

206 ：ナイコンさん：02/12/03 04:08.net

なるほど

207 ：ナイコンさん：02/12/24 19:34.net

0 go to 0

208 ：WIDTH ：02/12/24 22:06.net

●／　＜　ＲＡＮＤＯＭＩＺＥニ　タヨラナイ、ランスウノ　カエカタ。
PRINT"HIT SPACE KEY!":WHILE INKEY$<>" ":A=RND(1):WEND

●／　＜　ソノ　オウヨウレイ。
http://pc.2ch.net/test/read.cgi/i4004/1037113354/202

209 ：WIDTH 40：02/12/24 22:09.net

三（#ﾟД）つΣ●／　＜　>>208ハント゛ルメイヲ　ウチソコネマスタ！

210 ：山崎渉：03/01/13 21:51.net

（＾＾）

211 ：山崎渉：03/03/13 17:31.net

（＾＾）

212 ：山崎渉：03/04/17 12:22.net

（＾＾）

213 ：山崎渉：03/04/20 06:02.net

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

214 ：山崎渉：03/05/28 17:12.net

　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

215 ：山崎 渉：03/07/15 11:10.net

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

216 ：なまえをいれてください：03/07/22 13:00.net

ハッキリ言ってアメリカなどの多民族国家では黒人の方がアジア人よりもずっと立場は上だよ。
貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。
黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。
(黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。
また、日本女はすぐヤラせてくれる肉便器としてとおっている。
「○ドルでどうだ？(俺を買え）」と逆売春を持ちかける黒人男性も多い。）
彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。

217 ：ぼるじょあ ◆ySd1dMH5Gk ：03/08/02 04:59.net

　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

218 ：ナイコンさん：04/02/24 16:00.net

α

219 ：ナイコンさん：04/02/25 19:18.net

β

220 ：ナイコンさん：04/05/01 21:04.net

γ

221 ：ナイコンさん：04/05/02 17:05.net

δ

222 ：ナイコンさん：04/05/03 21:21.net

auto 223,1

223 ：ナイコンさん：04/05/07 17:51.net

シルフィード　１面でやられると
「オンマエモナイヨワークワッカッ　ハー！」

224 ：ナイコンさん：04/05/07 18:01.net

208のリンク先が見れないなぁ
RANDOMIZEって毎回同じ結果になるから使えないよね？
それを消すためのプログラムがあるのは知ってたが、資料不足でどうにもできず。
田舎で月1000円の小遣いとかじゃどうにも資料を集めるできんかった厨房の頃。

225 ：ナイコンさん：04/05/12 23:07.net

ビギナーズオールパーパスシンボリックインストラクションコード！
BASIC
Syntax Error
Ok

226 ：ナイコンさん：2005/04/17(日) 16:38:42 .net

保守

227 ：ナイコンさん：2005/06/04(土) 03:06:52 .net

最下層

228 ：ナイコンさん：2005/06/05(日) 01:24:07 .net

最下層って目立つよな。

あげｗ

229 ：ナイコンさん：2006/06/01(木) 20:03:14 .net

一年ぶりにあげ

230 ：ナイコンさん：2006/11/22(水) 01:58:06 .net

PRINT CHR$(13)

231 ：ナイコンさん：2006/11/25(土) 13:56:09 .net

5 cls
10 print "懐かしい 泣きそうだった ";
15 beep
20 goto 10
25 end

232 ：ナイコンさん：2007/05/13(日) 00:47:20 .net

>>224
RANDOMIZE TIMEとか使ってたな。
3年前の書き込みにレスつけるのもどーかだがｗ

233 ：ナイコンさん：2007/05/13(日) 00:58:32 .net

そして内蔵時計脂肪の昨今

234 ：ナイコンさん：2007/05/21(月) 13:28:06 .net

10 PRINT"nullpo"
20 GOTO 10

235 ：ナイコンさん：2007/05/21(月) 14:28:50 .net

15 print ﾞgaﾞ:stop

236 ：ナイコンさん：2007/05/21(月) 14:44:26 .net

ﾞじゃねえだろオレorz

237 ：ナイコンさん：2009/08/28(金) 19:45:31 .net

二年ぶりにあげ

238 ：ナイコンさん：2010/11/06(土) 17:18:31 .net

1年３ヶ月ぶり　age

239 ：ナイコンさん：2010/11/07(日) 01:11:04 .net

そんなにスレもつもんか
テーマ決めずになんでもBASICソース貼ってくれ

240 ：─☆─ [ X | I.I.T. ] COURANT DE CONSOLE ◆TXFAX7cidQpG ：2012/01/22(日) 10:06:37.63 .net

…ってなワケで、オレ様はこちらにいる。

MAIN STREET
http://www.geocities.jp/courant_de_console/main_street/

シンプル・ブレーク・アウト…。
- - - - - - - -

関連スレ

TIME SESSION PART.1 - 新作戦略会議 -
http://jbbs.livedoor.jp/bbs/read.cgi/computer/42600/1321405314/l100

241 ：ナイコンさん：2012/01/25(水) 19:17:23.99 .net

★★今時代は嫌中ブーム！！★★

みなさん嫌中ブーム知ってますか？嫌中ブームが今ネットでのひそかなブームとなってます
２ちゃんねるで大流行りした、嫌韓ブームでしたが
新しく中国を嫌う嫌中ブームがインターネットで流行っているのです！
それもそのはず彼らの横暴な態度に今日本人は怒っているからです！嫌韓と同じですね

新世紀の話題　嫌中ブーム！
時代のトレンド　嫌中ブーム！
さあ新しい時代に乗り遅れるな！話題沸騰、今時代はまさに嫌中ブームなのです！

242 ：電脳プリオン 忍法帖【Lv=40,xxxPT】(2+0：8) 【17.9m】 ：2013/08/18(日) NY:AN:NY.AN ?PLT(12080).net

　　∧＿∧
　 （　・∀・）　　　|　|　ｶﾞｯ
　と　　　　）　 　 |　|
　　 Ｙ　/ノ　　　 人
　　　 /　）　 　 < 　>__Λ∩
　 ＿/し'　／／. Ｖ｀Д´）/ ←>>213
　（＿フ彡　　　　　 　　/

243 ：ナイコンさん：2017/11/23(木) 14:15:17.85 .net

忘れたな

244 ：ナイコンさん：2017/12/18(月) 19:21:17.07 .net

http://imepic.jp/20171218/674390

245 ：ナイコンさん：2020/07/03(金) 15:08:14.96 .net

うける

246 ：ナイコンさん：2022/05/04(水) 10:48:04 .net

うけない