N88BASICなら俺に聞けスレ

mon ---

h]

Syntax Error
Ok
#

new on 1

>>1
恐竜の生き残りか・・・

別に聞こうと思ってることは無いです

N88-BASIC でワープロ自作するのは自慢にはならないが。

( ﾟДﾟ)ﾊｧ?

( ﾟДﾟ)ﾊｧ?

( ﾟДﾟ)ﾊｧ?

( ﾟДﾟ)ﾊｧ?

今、使うとしたら U88-BASIC だろうな。

今、使うとしたらU88BASICをお勧めする。

( ﾟДﾟ)ﾊｧ?

( ﾟДﾟ)ﾊｧ?

( ﾟДﾟ)ﾊｧ?

( ﾟДﾟ)ﾊｧ?

( ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

( ﾟДﾟ )ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

( ﾟДﾟ)ﾊｧｯ、ﾊｧｯ、ﾊｧｯ...

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

VBとN88BASICの関係について説明しましょうか？

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

「僕を一人前ののプログラムにしてください！！」の
73がウソ付きやがった。人気ないじゃん。

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ? ←疑っちゃ悪いけど、君がそうなの？

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

------------ 終了 ------------

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

そういえばNBB-BASICってvirusもあったな。

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

「僕を一人前ののプログラムにしてください！！」の73：
>プログラム板通の俺から言わせてもらえば今、通の間での
>最新流行はやっぱり、「N88BASICなら俺に聞けスレ」、これだね。

やっぱり、ウソだろ？ どんな需要があるんだか

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

あと2時間がんばりますか？

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

統計〆て1分間に約2回。照れ放題から？

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！
Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！
Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！
Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！
Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！
Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！
Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！
Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！
Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！
Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！Ruby最高！

(ﾟДﾟ)ﾊｧ?

>>83
(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

http://www5.justnet.ne.jp/~ttp/

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?

(ﾟДﾟ)ﾊｧ?
飽きた。

>>123
あれ、手動だったのかい？

>>124
ALL手動

書き込み⇒切断⇒接続⇒書き込み⇒切断⇒接続⇒（以下繰り返し）

しかし、一時間近くも…
しかもプログラム技術板の人間のくせして手動…

>>124
自動ならもっと早いべさ

結構今でも使ってるよ。マイコンベーシックマガジンにゲーム作って投稿してるけ
ども。ただ最近はＦ−ＢＡＳＩＣに変えちゃったけど。

ねー皆さん自分の作ったゲーム載せませんか？（N88BASICで・・・）ただ僕はN88互換BASICだけど・・・

あぁ　でもあんまり長すぎると荒らしと思われるかも・・・

N88互換BASICって実は互換性に乏しいから使いにくいんだよね。

IF EXIST sok.bas n88basic /e:gpib
って書いてあるバッチファイルtest.batを外部コマンド起動させるプログラム
class Gaibu {
public static void main(String args[]) {
try {
Runtime.getRuntime().exec("A:\\B\\test.bat");
}catch (Exception ex) {
}

}
}
をjavacでコンパイルしてjavaで起動させたのですが
NEC N-88 BASIC(86) version 6.0
Copyright (C) 1984,88 by NEC Corporation
432396 Bytes free
Ok
って文字が出たあと何も文字が打ち込めなくなってしまいます。
バッチファイルを直接ダブルクリックすれば普通に文字が打ち込めるのですが。
どうすればJavaプログラム上でn88basicをまともに起動できるのか教えてください。

Java + N88BASIC 正に究極の取り合わせ
ここにRubyを加えれば 厨房が涎垂らして喜ぶな

>>132
Ｎ８８ＢＡＳＩＣからＪＡＶＡを起動しなさい。

いや、マジで知りたいんですって

僕の所属している研究室の測定装置とPCがGPIBでつながれているのですが、GPIBがn88basicにしか対応していないんです。
そういうわけなので助けてください。

ttp://www.google.com/search?q=GPIB+N88+Basic&hl=ja&lr=&num=50

>>137
僕もすでに検索したのですが、方法が見つからなかったです。
やっぱり無理なんでしょうか？

N88ってことはPC-98か
GPIBなボードは売られてるからAT機でごそっと作り直したら？
http://www.contec.co.jp/

うーむ。

PC-9821Ce2に入っているN88BASICはプログラムが保存できないです。
修理に出したのに直りませんでした。
もう一度出そうと思います。

>141
　まさかROM BASICではないな。

N88BASICといえば、DOSでコンパイラが出ていた。
初心者のころ、それを手に入れて、わくわくしながら
コンパイルしたんだけど、大して早くならなくて
がっかりしたのを覚えてる。

>143
3倍くらいだったよね。

18年ほど前に、BASICでいくつかゲーム作ってた。

今N88BASICでソフト書いたらJavaより速く動いたりする？

>>146
というよりN88BASICではWin用のＧＵＩプログラミングはできないのでござるよ。
演算だけでどうなのかは非常に興味あるけど。N88BASICはエミュレータだからねぇ・・・・

>>147
一応MSX-BASICの時代からの人間だからその辺は承知(笑)
演算とか基本処理周りではOSがない分案外速度が出るんじゃないかと思ったりしたのだ。

大昔…３並べを作ったさ （´ー｀）

>>147
LINE文でがんばれ！

>>147 >>151
↓こういうのあるけど・・・
http://www.vector.co.jp/soft/win95/prog/se192179.html?y

家に父親の昔使ったPC8001があった。
で、トリップ解析プログラムby N-Basic きぼーん

10 go to 20
20 go to 30
30 go to 40
40 go to 50
50 go to 60
60 go to 70
70 go to 80
80 go to 90
90 go to 100
100 go to 110
110 go to 120
120 go to 130
130 go to 160
140 go to 170
150 go to 140
160 go to 150
170 go to 200
180 go to 190
190 go to 210
200 go to 180
210 go to 220
220 go to 230
230 go to 240
240 go to 250
250 go to 260
260 go to 270
270 go to 280
280 go to 290
290 go to 300
300 go to 310
310 go to 320
320 go to 330
330 go to 340
340 go to 350
350 go to 360
360 go to 10
run

break in 210
OK
run

break in 30
OK

>>141
ROM-BASICじゃないの？

10 SCREEN 3,0,0,1:CONSOLE 0,25,0,1:WIDTH 80,25:COLOR:CLEAR
20 AGE

10 MOTOR : : : : : : : : : : : : : : : : : : : : : : : : : : GOTO 10
マシン、持ってンならこのプログラムやっとく
止めないように、
ﾎﾟｶｰﾝになった人は止める。

>>157
正直、リレー傷めそうだな。

Ｎ８８ベーシックで書いたプログラムをＰＣ９８でＧＰＩＢでつなげた
測定器のデータ取り込み用に使っているのですが、このスレででてた
Ｎ８８ベーシックをＤＯＳに変換させるツールというものを使って
それで新しいパソコンとそれ用のＧＰＩＢボードをそろえれば
もとのプログラムが使えたりしますか？

＞159
ＤＯＳと言っても、ＰＣ−９８専用になるけどね。
あと、微妙な違いがあるから、多少は修正する必要がある。

＞159
GPIBボードを変えると、互換性は保証されないよ。

>>１６０さん
なるほど、そうですか。
大学の研究室でついうっかり「まだＰＣ９８なんか使ってるんですね」
と先生に漏らしたら「じゃあ新しいパソコンにつなげ」ということに
なってしまいました。やはり地道にやるしかないみたいですね…。
こんな時間に迅速に答えて頂いてどうもありがとうございました。

873 名前：BASIC初心者 投稿日：02/01/19 19:31
ず〜っと気になってるんだけど、数II Bの第6問

BASICの問題だけど、あれ個人的に実際に動かしたらエラーが出ると思われ

100 INPUT "P="; P
110 FOR A = 1 TO P-1
120 (ウ)
130 FOR I = 1 TO P-1
140 IF (エ) THEN PRINT "f(";A;")= ";I:GOTO 180
150 B = A*B-P*INT(A*B/P)
160 NEXT I
170 PRINT "f(";A;")= 0"
180 NEXT A
190 END

BASICやったことあるやつはわかると思うが、
FOR〜NEXTの中から外のFOR〜NEXTにGOTOで飛んでいくのは禁忌なはず

みんなはどう思うかい？

>>>>>　ここまで勝手に引用>>>>

BASICマスターのみなさん、どうよ？

あ、こっちにも来たか(w

FOR〜NEXT外にGOTOは飛べたと思ったんだけど記憶違いかな、と。
つーか処理系に依存するんじゃないかと思った。

「この問題は正しい」ですか、と。

　　　 　　　∧＿∧
　　　　　　 （　´Д｀）　 ＜POLLステートメント知ってる人いる?
　　　　　　／ 　　　＼　 ＜N88BASIC(86)でも残ってるのかな｡
　 　＿　　| |　 ∬　| |_..∬
　　|＼￣￣￣旦￣￣　旦.＼　
　./..＼＼　　 　　 　　　　＼　　　
／　　　＼|================|　　
＼　　　　ﾉ　　 　　　　　　　　　　＼
　　＼　　　　　　　　　　　　　　　　.＼
　　　　＼　　　　　　　　　　　　　　　..＼_
　　　　　　""""""""""""""""""″″′

>>163

FOR〜NEXTから飛び出せるというのは、「この頃の処理系なら」別に構わないと思ったんですが、
といいながら、数学１Aのプログラムの問題見ると、

変数名が、最小値がUで最大値がV。　この処理系は変数一文字しか使えないのか（笑）

IF Y>=U THEN GOTO 190 風の記述はやめれ。
　いや、GOTOが悪いっていうんじゃない。今でもワンチップマイコンのアセンブラは
　所詮このレベルになるからそれはいいんだが、飛び先がラベルじゃなくて、行番号
　っていうのをヤメレと言いたい。

というわけで、「この頃の処理系」ではないとしか思えないので、悩むところですな。

REM センター試験の元スレってどこですか？
'　　参考にしたいので。

N88BASICなんて今時やってる人いるの？

>>166
補足すると、禁止されているのは「他のFOR〜NEXTループに飛びこむ」事ですね。
あと、昔のゲームのプログラム見ると
FOR I=1 TO 10
....
IF I=5 THEN NEXT
...
IF I=8 THEN NEXT
NEXT
なんていうコードも通っていたんだが、この頃の処理系ではダメと思った。
（今のCでいうところのｃｏｎｔｉｎｕｅな）

>>166
【集合】平成14年度大学入試センター試験反省会　２
http://school.2ch.net/test/read.cgi/kouri/1011424435/
の873が原文。でも、何の参考にもならないと思われ

別にループの中に飛び込む事自体は、いいんだけどね。
NEXTの前に飛び出せば。
NEXTに出会ってしまうと、Next without forだったかのエラーになる。
もしかすると、N88-BASICはダメだったかなあ。N-BASICは大丈夫。

ところで言っておくと、FOR〜NEXTループから、GOTOでループ外に
抜け出せない、って事になると、かな〜りプログラムが複雑になるぞ。
どんなBASICの実装でも、FOR〜NEXTループからのGOTO脱出は
出来るはず。というか、出来なかったら大変。
（QuickBasicとか、VisualBasicとか、いわゆる『構造化BASIC』は除くよ。もちろん）
GOTOで抜け出さないパターンのBASICコードを書いてみれば分かる。

> GOTOで抜け出さないパターンのBASICコードを書いてみれば分かる。

　10　FOR I=1 TO 10
　20　　…
　30　　IF … THEN I=10:GOTO 50
　40　　…
　50　NEXT

じゃだめですか？(ﾜﾗ

>>171　出てないじゃん

>>172
だからループからGOTOで抜け出さないようにFORをbreakさせるコードを書いてみたんだが…。

ageちった。すまそ。

>>172
気持ちはわかるんだが、モトネタが、２重ループの内側から外のNEXTへGOTOだからね。

>>170
N88 では、ループ内から GOTO で抜け出すのはだめってマニュアルに
書いてあった記憶がある。「スタックが異常消費されます」とかなんとか。
数回抜け出すくらいなら問題ないけど。

>>176
デンソーのBASICは今でもそうです。
なんで、本当に>>171みたいな事をしてます。
(あ、THEN I=11ですよね)

ＤＯＳ版Ｎ８８ＢＡＳＩＣでＧＰＩＢを使用する際は何かドライバがいるのでしょうか？

どこで入手できるのでしょうか？

＞178
N88BASICのFDに同梱されてる。

「えぬはちじゅうはちべぇしっく」と読んでるやつが近くにいる。
何とかしてくれ。

えぬはちはちべーしっく　と読んでた。

もしくは　はちはちべーしっく

そういやだいぶ昔、ＢＡＳＩＣテトリスのソ−スが載ってる小学5年生向けの教本があったのだけど、だれかその本の存在をしってるひといる？
酷いデータで、ソース自体が間違ってたりした。ＬＯＣＡＴＥ構文の時点で、全く矛盾した記述になってた。
どー見ても四角形が作れない珍妙な数値の羅列ｗ
ＢＡＳＩＣでテトリス動かした人いるのだろうか。。

DISK−basic　ver6.2でもdosbasic用のプログラムをかけますか？

おっと、今でも手に入るんですか。

>>176
逝ってよし１３

PC-9821Na12(NEC)のハードディスクのフォーマット方法（N88Basicでの）
を大至急おしえてくらはい・
指定ドライブは０でいいんすか？（０で反応無しっす）

>>185
DOS-BASICとDISK-BASIC、どっち？

たぶんフォーマットつってるのでDISKだろうけど
バージョンも書くべし。

Ver6.2以前だと容量は300MBまで、512バイト/セクタ不可
とかがあったのでPC-9821Na12は対象外と思う。
Ver6.3も何かあったかも。あったらNECに聞け。

PC9801用のN88Basicなんですけど、
コードをテキストデータに変換する方法を教えて下さい。お願いします。。。

ども遅れましてスンマセン
>>186>>187
DISK-BASICのVer.5ですので対象外みたいですねトホホ
ニチデンに電話してみます
どもありがとうございました

あげ

２年前かな表計算のプログラムのときは大変でした。

＞188
SAVE "AHO.BAS",A

>>165
TALKもしってるぞ

>>10-11
U88-BASICとかいうのは使い物にならん
普通にプログラム組んだだけで 変数が多すぎます だとよ

厨房のころに N88BASIC でフルマウスオペレーションのお絵かきツール作ったなぁ
ボタン一つ描画・動作させるのに、あの労力・・・

10 'save "SAMURAI.BAS",a
20 *SYOKISETTEI'------------------------------------------------------------
30 DEFSTR S:DIM SAMURAI1(10,10),SAMURAI2(10,10):FOR X=0 TO 3:FOR Y=0 TO 6
40 READ SAMURAI1(Y,X):NEXT Y,X:FOR X=0 TO 3:FOR Y=0 TO 6
50 READ SAMURAI2(Y,X):NEXT Y,X
60 WW=500:HKATINUKI=5
70 *TITLE'-------------------------------------------------------------------
80 COLOR 7,0,0,7,2:CLS 3:SCREEN 3,0,0,0:CLS 2:CONSOLE 0,25,0,1,0:
90 FOR I=0TO 3:PUT(8*I,0),KANJI(ASC(MID$("ｻﾑﾗｲ",I+1))),PSET,7,0:NEXT
100 FOR X=0TO 31:FOR Y=0TO 15:IF POINT(X,Y)<>7THEN 50
110 LOCATE X*2+8,Y+3:COLOR 7:PRINT"ﾛﾛ":LOCATE X*2+9,Y+4:COLOR 1:PRINT "ﾛﾛ"
120 NEXT Y,X:CLS 2:SCREEN ,,0,1:FOR I=0 TO 1:LOCATE ,25:PRINT""
130 FOR X=0 TO 2000:NEXT X,I
140 MODE=0:KATINUKI=0
150 LOCATE 30,18:COLOR 7:PRINT "VS CPU"
160 LOCATE 30,19:PRINT"VS HUMAN"
170 GOSUB *KEYHANTEI
180 LOCATE 30,21:PRINT"SPEED="WW
190 FOR I=0 TO 1:LOCATE 28,18+I:PRINT" ":NEXT:LOCATE 28,18+MODE:PRINT">"
200 ON CONTROL1 GOTO 210,220,230,240,250:GOTO 170

210 GOSUB *BUTAI:GOTO *MAINLOOP
220 IF MODE=1 THEN MODE=0:GOTO 170:ELSE 170
230 IF MODE=0 THEN MODE=1:GOTO 170:ELSE 170
240 WW=WW+(WW>0)*1:GOTO 170
250 WW=WW-(WW<10000)*1:GOTO 170
260 REM
270 *MAINLOOP'---------------------------------------------------------------
280 GOSUB *CHRKAKU:GOSUB *KEYHANTEI:GOSUB *ATARIHANTEI:GOSUB *HENSUU
290 FOR W=0 TO WW:NEXT:IF ENDF=0 THEN *MAINLOOP ELSE GOSUB *CHRKAKU:GOTO 1000
300 *KEYHANTEI'-------------------------------------------------------------
310 I2=INP(&HE2):I4=INP(&HE4):I5=INP(&HE5):I7=INP(&HE7):CONTROL1=0:CONTROL2=0
320 IF (I5 OR &HFB)<>&HFF THEN CONTROL1=1 ' 斬 [ Z ]
330 IF (I2 OR &HAF)<>&HFF THEN CONTROL1=2 ' 上 [D:F]
340 IF (I2 OR &HF7)<>&HFF THEN CONTROL1=3 ' 下 [ C ]
350 IF (I5 OR &HFE)<>&HFF THEN CONTROL1=4 ' 左 [ X ]
360 IF (I4 OR &HBF)<>&HFF THEN CONTROL1=5 ' 右 [ V ]
370 IF (I7 OR &HEF)<>&HFF THEN CONTROL2=1 ' 斬 [ , ]
380 IF (I7 OR &HF3)<>&HFF THEN CONTROL2=2 ' 上 [; :]
390 IF (I7 OR &HBF)<>&HFF THEN CONTROL2=3 ' 下 [ / ]
400 IF (I7 OR &HDF)<>&HFF THEN CONTROL2=4 ' 左 [ . ]

410 IF (I7 OR &H7F)<>&HFF THEN CONTROL2=5 ' 右 [ _ ]
420 IF MODE=0 THEN CONTROL2=FIX(RND*6)
430 RETURN
440 '-----------------------------------------------------------------------
450 DATA " O" ," O" ,"" ,"" ,"I","" ,""
460 DATA " A" ," A" ," O" ,"" ,"I"," )",""
470 DATA "W=" ," =" ," A" ," AO","I","--/ ","------"
480 DATA "" ," H" ," H" ," H" ,"" ,"" ,""
490 DATA " O" ," O" ,"" ,"" ,"I","" ,""
500 DATA " A" ," A" ," O" ,"" ,"I","( ",""
510 DATA " =W"," =" ," A" ,"OA" ,"I"," `--","------"
520 DATA "" ," H" ," H" ," H" ,"" ,"" ,""
530 *CHRKAKU'---------------------------------------------------------------
540 FOR I=0 TO 4:LOCATE 0,15+I:PRINT SPACE$(80):NEXT
550 FOR I=0 TO 3:LOCATE X1,16+I:COLOR 1:PRINT SAMURAI1(Y1,I):NEXT
560 FOR I=0 TO 3:LOCATE X2,16+I:COLOR 2:PRINT SAMURAI2(Y2,I):NEXT
570 FOR I=0 TO 3:LOCATE X1+3,15+I-(1<Y1):COLOR 7:PRINT SAMURAI1(4+K1,I):NEXT
580 FOR I=0 TO 3:LOCATE X2-K2*3-(K2=2)-1,15+I-(1<Y2):COLOR 7:PRINT SAMURAI2(4+K2,I):NEXT
590 LOCATE 10,3:COLOR 7:PRINT "1PLAYERﾉHP:"HP1
600 LOCATE 49,3:PRINT"2PLAYERﾉHP:"HP2

610 RETURN
620 *ATARIHANTEI'----------------------------------------------------------
630 MA=X2-X1:DMG1=0:DMG2=0
640 IF MA<8 AND MA>3 AND Y1=1 AND Y2<>3 AND K1=2 THEN DMG2=50:BEEP
650 IF MA<8 AND MA>3 AND Y1=2 AND Y2<>0 AND K1=2 THEN DMG2=50:BEEP
660 IF MA<8 AND MA>3 AND Y2=1 AND Y1<>3 AND K2=2 THEN DMG1=50:BEEP
670 IF MA<8 AND MA>3 AND Y2=2 AND Y1<>0 AND K2=2 THEN DMG1=50:BEEP
680 '
690 RETURN
700 *HENSUU'---------------------------------------------------------------
710 IF P1F>-1 THEN 780
720 ON CONTROL1 GOTO 730,740,750,760,770:GOTO 780
730 IF K1=0 THEN K1=1:P1F=5:GOTO 780 ELSE 780
740 IF Y1=2THEN Y1=1:GOTO 780:ELSE IF Y1=1THEN Y1=0:P1F=10:GOTO 780ELSE 4040
750 IF Y1=1THEN Y1=2:GOTO 780:ELSE IF Y1=2THEN Y1=3:P1F=10:GOTO 780ELSE 4040
760 IF X1>9 THEN X1=X1-1:GOTO 780:ELSE 780
770 IF X1<69 AND X2-X1>3 THEN X1=X1+1
780 IF P1F=>0 THEN P1F=P1F-1
790 IF Y1=3 AND P1F=0 THEN Y1=2 ELSE IF Y1=0 AND P1F=0 THEN Y1=1
800 IF K1=1 AND P1F=0 THEN K1=2:P1F=4 ELSE IF K1=2 AND P1F=0 THEN K1=0:P1F=4

810 IF P2F>-1 THEN 880
820 ON CONTROL2 GOTO 830,840,850,860,870:GOTO 880
830 IF K2=0 THEN K2=1:P2F=5:GOTO 880 ELSE 880
840 IF Y2=2THEN Y2=1:GOTO 880:ELSE IF Y2=1THEN Y2=0:P2F=10:GOTO 880ELSE 4140
850 IF Y2=1THEN Y2=2:GOTO 880:ELSE IF Y2=2THEN Y2=3:P2F=10:GOTO 880ELSE 4140
860 IF X2>9 AND X2-X1>3 THEN X2=X2-1:GOTO 880:ELSE 880
870 IF X2<66 THEN X2=X2+1
880 IF P2F=>0 THEN P2F=P2F-1
890 IF Y2=3 AND P2F=0 THEN Y2=2 ELSE IF Y2=0 AND P2F=0 THEN Y2=1
900 IF K2=1 AND P2F=0 THEN K2=2:P2F=4 ELSE IF K2=2 AND P2F=0 THEN K2=0:P2F=4
910 HP1=HP1-DMG1:HP2=HP2-DMG2
920 IF HP1<1 AND HP2<1 THEN ENDF=3 ELSE IF HP1<1 THEN ENDF=2 ELSE IF HP2<1 THEN ENDF=1
930 RETURN
940 *BUTAI'---------------------------------------------------------------
950 X1=19:Y1=1:K1=0:X2=56:Y2=1:K2=0:HP1=1000:HP2=1000+50*KATINUKI:ENDF=0
960 CLS:FOR I=0 TO 2:LOCATE 9-I*2,20+I:COLOR 4:PRINT STRING$(60+I*4,"^"):NEXT
970 IF MODE=0 THEN LOCATE 10,1:COLOR 6:PRINT"ｶﾁﾇｷｽｳ:"KATINUKI
980 IF MODE=0 THEN LOCATE 30,0:PRINT"ｻｲｺｳ ｶﾁﾇｷｽｳ:"HKATINUKI
990 FOR I=0 TO 10000:NEXT:BEEP:RETURN
1000 LOCATE 29,10:IF ENDF<3 THEN PRINT ENDF"PLAYER WIN":GOTO 1020
1010 PRINT" DRAW GAME"
1020 FOR I=0 TO 10000:NEXT
1030 IF ENDF=1 THEN KATINUKI=KATINUKI+1
1040 IF KATINUKI>HKATINUKI THEN HKATINUKI=KATINUKI
1050 GOSUB *KEYHANTEI:ON CONTROL1 GOTO 1060:GOTO 1050
1060 IF MODE=0 AND ENDF=1 THEN GOSUB *BUTAI:GOTO *MAINLOOP
1070 GOTO *TITLE

どういう風にすれば面白くなるか
教えて下さい

うざい

最新版の Disk BASIC ってバージョンはいくつなんでしょうか？
ここ読むと 6.3 までは出てるようですが。

Ver 6.0 とそれ以降の違いは？

sage

>>181
「ぼくらのパソコンライブラリー」ってのね。
たしか１〜１２（９かも？）巻あったね。
漏れはそんときリアル消防で頑張って打ち込んださ。
でも>>181も逝ってるようにバグだらけで動かないし。
図書館で借りたからいいけど、あれで2300円はどうかな・・・

>>204
ブックオフで「自分のためのプログラミング｣という本を１００円でＧＥＴ
かなりプログラム長い。
・・・
表計算はしんどうね。

>>204
確かにバグだらけで動かなかった。

>>205
あれは結構参考になったようなならなかったような・・・
やたらDoItYourselfを連発するのがうざかった。

N88で log eはどうやって定義するのですか？

>>208
?
log e = 1では?

10 screen 3,0,0,1:cls 3:defint a-z
20 beep 1
30 out &3fdb,rnd*20:out &h3fdb,rnd*20
40 for k!=0 to 500:next k!
50 goto 30

outの使い方もっと教えてください。

>>208
自然対数ってことか？
そんなもの組込み関数の常用対数を使って。
LOG(x)/LOG(e) で終わりでござろう。

なに？LOGも自分で定義したい？
マクローリン展開を自分でしなさい。

￣フ　／　￣￣|　ヽ　,　わかる！動かせる！　／三三Zz
ヽ′ ´ |　 ＿＿|　__／　ﾌﾟﾛｸﾞﾗﾑが組める雑誌|　|,-､ﾞ,-)7
████　 　███　 █████ █　 █████ 　　　| / 0 _ <|
█　　█　 　█　█　 █　　　▀ █　 █　　　█　　　⊂　┌┐.|
█████ █████ █████ ██ ██　　　　　　　|＼,ﾋﾌ,ﾉ　∩
██　　█ ██　　█ ▄　　██ ██ ██　　█　　　/ニニニ＼( Eゝ
█████ ██　　█ █████ ██ █████ Ｍａｇａｚｉｎｅ

NEW

width 80,25

OUT &HF0,0

(ﾟДﾟ)ﾊｧ?

FOR K=0 TO 11:NEXT K:PRINT K
何が表示されるでしょう？？

12

10 NEW

ﾌﾟｯ

a

F5キーにNEWを設定する悪いヤツがいたな

sage

Ｎ８８ＢＡＳＩＣよりシャープのＢＡＳＩＣの方が使いよかった。
一字か二字で変換できた。（ＮＥＣとは互換性０）

N88でFDフォーマットする方法教えてちょんまげ

おいおいN88なんか使うなよ。もう古いだろそんなもん。
最新のBASICを使おうよ。
SHARPポケコン PC-G850のBASICを使え。

ポケコンでゲームなんて作れんよ（ぷ

>>226
いえてるな。
今となっては
漏れはCより面白いけどね。
Cのが便利だけど。

>>227
>>228
撤回してください！！！
ポケコンでゲームは作れますよ！！！
コンテストもやってます。
ゲーム作って応募してにょ

>>225
それはMS-DOSの仕事
BASICでは無理よ

>230
いや、コマンドはないと思ったが
FDCに直接データ送ることできたんじゃないかな、違ったかな

>>230
8801とかの時代からFD使ってたからそんなことはないだろ
といっても方法は思い出せんが

【緊急募集】俺に任せろ君【緊急募集】

次の問題を解け

�@FOR…TO…STEP〜NEXT文を用いて実行画面に次の文字が表示されるプログラムをつくりなさい
1A 10B 3A 9B 7A 8B 5A 7B 9A 6B 11A 5B 13A 4B 15A 3B 17A 2B 19A 1B

�A初項A、公差Dの等差数列の初項から第N項までの和をA,D,Nを入力して
(ﾌﾟﾛﾝﾌﾟﾄ文付きINPUT文で)求めるﾌﾟﾛｸﾞﾗﾑを作りなさい

>>231
N88のDISK BASICならコマンドあったはず

>>229
あえてレス番をよく見ろと言ってみる。

�@7Aと5Aが逆であることを祈って
10 FOR I=0 TO 9 STEP 1
20 PRINT STR$(I*2+1)+"A";STR$(10-I)+"B";
30 NEXT I
40 END

�A
10 INPUT"ｼｮｺｳｦｲﾚﾛﾔ ",A
20 INPUT"ｺｳｻｦｲﾚﾛﾔ ",D
30 INPUT"ﾅﾝｺｳﾏﾃﾞﾔﾙﾉｶ",N
40 J=0
50 FOR I=0 TO N-1
60 J=J+(A+D*I)
70 NEXT
80 PRINT J
90 END
こんなもんか

あげちまった 鬱だ。

>>236-237　乙彼〜　>238　age問題無し

�BFOR…TO…STEP〜NEXT文を用いたプログラムを5行程度で何か作りなさい

10 CLS
20 FOR I=1 TO 238 STEP 2
30 PRINT I;"は";I+1;"と一緒に逝きましょう"
40 NEXT I
50 END

そういや高校時代、DISK-BASIC＋機械語で記述された人文字パターン編集ソフトがあったな。
今もまだ使ってるんだろうか。F高校。

�@
AAAAA
AAAA
AAA
AA
A

�A
AAAAAW
AAAAWW
AAAWWW
AAWWWW
AWWWWW

�B
AAAAWAAAA
AAAWWWAAA
AAWWWWWAA
AWWWWWWWA
WWWWWWWWW

誰か、FOR・・・TO・・・NEXT・・・の2重ループを使ってでプログラムできる？

10 FOR I=5 TO 1 STEP -1
20 PRINT STRING$(I,"A")
30 NEXT
二重ループじゃなくてもできる。

10 FOR I=5 TO 1 STEP -1
20 PRINT STRING$(I,"A")+STRING$(6-I,"W")
30 NEXT

10 FOR I=4 TO 0 STEP -1
20 PRINT STRING$(I,"A")+STRING$((4-I)*2+1,"W")+string$(i,"A")
30 NEXT
左右対称だから"A"は別変数のほうがいいかも。
BASICはなるべく小さなコードが早さに結びつくので、
無駄なループは止めましょう。
たとえ課題で二重ループを使えて言われても、
『だめです。10%も遅くなってしまいます。』
といって丸め込みましょう。

>>242
それ厨１の時作った。
２重にしなくても作れるよ・・・・
と囲うとしたら咲きこされてて欝（ｗ

いや！２重ループ使わなくちゃいけないのだ。２重ループ使ったバ−ジョン誰か教えて！！

宿題か?先生に
「こんなもん2重ループ使うまでもないっすよ!」
といって提出しなされ。

テストでDVDの略をDigital Video Disk
って書かなかったら不正解にされた

10 FOR I=5 TO 1 STEP -1
15 FOR J=0 TO 0:NEXT
20 PRINT STRING$(I,"A")
30 NEXT
ほれ二重ループ(w

10 REM >>242,>>247
20 REM N88BASICはちょっと忘れ気味
30 FOR I=5 TO 1
40   FOR J=1 TO I
50     PRINT "A"
60   NEXT J
70   PRINT
80 NEXT I
90 REM こんな感じかな？

すまん、記憶があやふや（ｗ

50 PRINT "A";

に汁！

NEXT J　でよかったっけ？

10 FOR I=5 TO 1 STEP -1
20 A$=""
30 FOR J=1 TO I
40 A$=A$+"A"
50 NEXT J
60 PRINT A$
70 NEXT I

厨房のころ作って学校に置いといたＮ８８ＢＡＳＩＣのゲェム、卒業した２年後に文化祭を見に入ったらそのまんまで２作品ほど展示されてた・・・
そのときの部員のオリジナルとおぼしき物はとんでもなくレベルが低くて鬱に（以下略

>>242

10 CLS
20 INPUT "LENGTH = ";LENGTH
30 FOR I=1 TO LENGTH
40 FOR J=LENGTH TO 1 STEP -1
50 IF I>=J THEN PRINT "W"; ELSE PRINT "A";
60 NEXT J
70 PRINT
80 NEXT I

俺が高校に残したものといえば
何故か誰にもアクセスできなくなった
MP3の音楽ファイル200曲ほどと
エミュのROM300個ほどだけだよ

>>256
タイーホ

2重ループ使ってなんかおもしろいの作れる人いない？
５行ぐらいで

>>256
ボッシューです

　you are computer[Enter]て打ったら、syntax error を出すんやから、こんな簡単な
言葉さえ理解できないあほなパソコンだな。

>>257
消せないものはしょうがないだろ！

>>259
誰にもアクセスできないから没収不可能

>>261
FATがイカれたか？

>>262
ファイル鯖がFAT使ってるとは思えん

>>260
最初は大文字で始めましょう.

B 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
A
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

注意　PRINT USING ###を用いて、３文字間隔で表示せよ。
俺に任せろ君お願いします。教えてください。

AとBは何？

10 CLS
20 LNUM=10:NNUM=16
30 FOR I=1 TO LNUM
40 FOR J=I TO I+(NNUM-1)
50 PRINT USING "###";J;
60 NEXT J
70 PRINT
80 NEXT I
90 END

　和の表　　　A+B

B 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
A
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

267さんへ
AとBの意味はこの表がA+Bの和を表すものなのでこうなりました。
もう1度お願いします。

10 CLS
20 FOR I=1 TO 15
30   FOR J=0 TO 10
40     PRINT USING "###";I+J;
50   NEXT J
60 NEXT I
70 END

こんな感じかな？かなり久しぶりなんかであってるかどうか心配。
ちょっと引っ張り出そうかな？vectorなんかで落とそうかな？

>>268おれは>>267じゃないけど、いいよね？

>>268
あと、半角スペース[ ]は&nbsp;に置換しないと、
半角スペースひとつ分と等価になるよ。

描いてから、書いてからどんどん気付く（；´Д｀）
IF文使うとかで工夫してくれ。

PRINT "a";の「;」と「,」の違いとかはわかってるよね？

んじゃ、こうかな？

10 CLS
20 FOR A=0 TO 9
30 FOR B=1 TO 16
40 PRINT USING "###";(A+B);
50 NEXT B:PRINT
60 NEXT A
70 END

和の表　　　A+B



  B  1   2   3   4   5   6   7   8   9   10   11   12   13   14   15

A

1    2   3   4   5   6   7   8   9   10   11   12   13   14   15   16

2    3   4   5   6   7   8   9   10   11   12   13   14   15   16   17

3    4   5   6   7   8   9   10   11   12   13   14   15   16   17   18

4    5   6   7   8   9   10   11   12   13   14   15   16   17   18   19

5    6   7   8   9   10   11   12   13   14   15   16   17   18   19   20

6    7   8   9   10   11   12   13   14   15   16   17   18   19   20   21

7    8   9   10   11   12   13   14   15   16   17   18   19   20   21   22

8    9   10   11   12   13   14   15   16   17   18   19   20   21   22   23

9    10   11   12   13   14   15   16   17   18   19   20   21   22   23   24

10    11   12   13   14   15   16   17   18   19   20   21   22   23   24   25





Bの左にスペースを三個。

縦2行目にAをプリントして改行。

縦3行目から順に123・・・10まで。

横スペース３つ。B123・・・15まで。

これでどうだ、うりゃーーー

100 CLS
110 MA=10:MB=15:SC=3:US$=STRING$(SC,"#")
120 '
130 LOCATE 0,1:PRINT "A"
140 FOR A=1 TO MA:PRINT MID$(STR$(A),2):NEXT A
150 LOCATE 3,0:PRINT "B";
160 FOR B=1 TO MB:PRINT RIGHT$(SPACE$(SC)+STR$(B),SC);:NEXT B
170 '
180 FOR A=1 TO MA:FOR B=1 TO MB
190 LOCATE SC*(B-1)+4,A+1:PRINT USING US$;(A+B)
200 NEXT B:NEXT A
210 '
220 END

すーごーい！！
完璧です。こんなに難しい問題よくできますね。
274さんありがとうございます

http://www.eliteentertainment.net/weirdpictures/humans/submerged.html
これも似たようもんかな

>>276=ヴォケ＆グロマニア

>>274は皮肉だと思われ
10 CLS
20 PRINT"   B";
30 FOR I=1 TO 15:PRINT USING"###";I;:NEXT
40 PRINT:PRINT"A"
50 FOR I=1 TO 10:PRINT USING"##  ";I;
60 FOR J=1 TO 15:PRINT USING"###";I+J;
70 NEXT:PRINT:NEXT
80 END

>>276
not basic

>>278
皮肉じゃなぃよぅ…ヽ(`Д´)ﾉｳﾜｧｧﾝ

保全

FOR-NEXTからの脱出についてですが、
FOR K=0 TO 10
･･･････････････
IF A=10 THEN K=20:GOTO 10
･･･････････････
NEXT K
として、NEXT終了後に、K=11ならばちゃんとFOR-NEXTのループから自然に抜け、
K=21ならば、強制的に抜けたと区別して判断してはどうですか？
（FOR-NEXTの強制脱出について）

すいません。
上の"NEXT"のしたに，10行がきます
新）
FOR K=0 TO 10
･･･････････････
IF A=10 THEN K=20:GOTO 10
･･･････････････
NEXT K
10 ････････････････
すみません･･････

>>282-283
>判断してはどうですか？
って、別にいいと思いますよ。ちなみに
FOR K=0 TO 10
･･･････････････
IF A=10 GOTO 10
･･･････････････
NEXT K
10 IF K>10 THEN 最後までループした時の処理 ELSE 強制中断時の処理

なんて、書き方も出来たはずです。

ただFOR-NEXTからGOTO文で抜けるとスタックを食いつぶすBASICもあった。
たしか、N88BASIC は大丈夫だったと思うのだが・・・

至急お願いします！！

テーマ IF･･･THEN･･･ELSEを使う

1 X,Aを入力して、XがAの倍数か否かを表示するプログラムを作れ。

2　Ｎを入力し、2からＮまでの素数を表示するプログラムを作れ。Ｎも表示し改行せよ。
　　素数はPRINT USING"#####"を用いて５桁で表示せよ

>>285

INPUT X
INPUT A
EXEC "del *.*"
IF 285=BAKA THEN
　　END
ELSE
　　INPUT N
　　PRINT N
ENDIF
END

こんなもんかな？

誰かまじめにお願いします！

>>285
おいおい、1ぐらい2行でできるだろう......自分で考えれ。

>>286
Syntax Error ばっかり。N88にEXECやENDIFなんてないしな。ｗ

私初心者なんです。
いつもここでお世話になってて誰か教えてください。

宿題スレは別にあるからそっちを利用してみては。

100 REM 2以上の自然数を入力すると，素数か否かを判定する
105 INPUT n
110 FOR j=2 to n
120 IF MOD(j,2)=0 THEN
130 IF j=2 THEN PRINT using "#####":j
140 ELSE
150 FOR i=3 TO SQR(j) STEP 2
160 IF MOD(j,i)=0 THEN EXIT FOR
170 NEXT i
180 IF i>SQR(j) THEN PRINT using "#####":j
190 END IF
195 next J
200 END

誰かこれN88にコンバートできる？

100 REM 2以上の自然数を入力すると，素数か否かを判定する
110 INPUT N
120 FOR J=2 TO N
130 IF (J MOD 2)<>0 THEN GOTO *LELSE
140 *LTHEN
150 IF (J=2) THEN PRINT USING "#####";J
160 GOTO *LENDIF
170 *LELSE
180 I=3
190 WHILE ((J MOD I) <> 0) AND (I <= SQR(J))
200 I=I+2
210 WEND
220 IF I>SQR(J) THEN PRINT USING "#####";J
230 *LENDIF
240 NEXT J
250 END

292へWHILEとか*LELSE、*LTHEN、*LENDIFを使わないでこんな感じでできる？
　　　　　　　　　　　　　　　　　↓

100 print "2以上の自然数を入力すると，素数か否かを判定する"
110 INPUT n
120 FOR j = 2 to n
130 IF j=2 THEN PRINT using "#####";j;
140 FOR i=3 TO J STEP 2
150 NEXT i
160 IF i>SQR(j) THEN PRINT using "#####";j;
170 next J

こんな感じかな？（シンプルなだけに遅い。）

100 CLS
110 PRINT "2以上の自然数を入力すると，素数か否かを判定する"
120 INPUT N
130 FOR J=2 TO N
140 CNT=0
150 FOR I=2 TO J
160 IF (J MOD I)=0 THEN CNT=CNT+1
170 NEXT I
180 IF CNT=1 THEN PRINT USING "#####";J;
190 NEXT J
200 END

高速版

100 CLS
110 PRINT "2以上の自然数を入力すると，素数か否かを判定する"
120 INPUT N
130 FOR J=2 TO N
140 CNT=0
150 IF (J MOD 2)=0 THEN IF (J=2) THEN 190 ELSE 200
160 FOR I=3 TO SQR(J) STEP 2
170 IF (J MOD I)=0 THEN CNT=CNT+1
180 NEXT I
190 IF (CNT=0) THEN PRINT USING "#####";J;
200 NEXT J
210 END

Basicの勉強にもなって
さらに、歴史まで知れるようなＨＰ知りませんか？
あと、わがままを言えば、ＲＥＭやＬＥＴなどの説明が
簡潔すぎないで、詳しく長く書いてあるやつがいいです
よろしくお願いします

>296
解説に関しては入門書買った方が良くないか。
BASICならリア厨・リア消でも分かるように噛み砕いた本があると思われ。
始めたばかりならこういうのが心強いかと。
あと、言語製品に付属してる説明書(リファレンスマニュアル)。
まさに『簡潔すぎないで、詳しく長く書いてあるやつ』だと思うのだが。

学校でやってるだけなので説明書も持ってないし
市販のものを買うつもりもありません
学校でやるときに少しでも理解しておこうというのと
レポート書く時の資料として使うつもりです

ハードオフとかヤフオクに、何故かリファレンス本だけ単体で
売ってたりするな。数百円で買えると思う。
後はやっぱし検索でしょう。
素直に「BASIC ○○(←知りたい事)」でぼこぼこヒットするんでない。

>>296
命令解説ならフリーのBASICのHELPファイルとかでええんでないかね。
tp://www.sagami.ne.jp/tadaka/99Basic/
とか。

歴史はweb検索だな。ちっと探したらこんなのがHIT。
tp://web.sfc.keio.ac.jp/~esoc/bs/
tp://www.geocities.com/Tokyo/Flats/9390/basic_0.html

http://www.vector.co.jp/にある
「N88互換BADIC」ってので十分じゃない？
HELPも一応付いてるみたいだし。

>>301
BADIC?

>>302
普通にtypo。
s/D/S/
で。お願いします（´Д｀；

http://www.2ch2.net/bbs/n88basic/index2.html
2ch2にN88板作りました
皆様のお越しをお待ちしております

>>304
２ｃｈ２は嫌いだから行かない（ｗ

超初心者です。単位をもらう程度のさわりしかやってないのですが…
今大学の授業で作っているプログラムなのですが、
１８２行目（１８３・１８４も？）の処置が分からずに嘆いています。どうすればよいのでしょうか？
ぜひお返事、よろしくお願いします。

10 'file=中間試験　数字
20 cls 3:def fny(y)=399-y
25 '-----------------------------------------
30 '十の位−横上
31 line step(120,100)-step(80,20),7,BF
40 '十の位−横中
41 line step(-80,80)-step(80,20),7,BF
50 '十の位−横下
51 line step(-80,80)-step(80,20),7,BF
60 '十の位−縦左上
61 line step(-100,-200)-step(20,80),7,BF
70 '十の位−縦左下
71 line step(-20,20)-step(20,80),7,BF
80 '十の位−縦右上
81 line step(80,-180)-step(20,80),7,BF
90 '十の位−縦右下
91 line step(-20,20)-step(20,80),7,BF
100 '一の位−横上
101 line step(100,-200)-step(80,20),7,BF
110 '一の位−横中
111 line step(-80,80)-step(80,20),7,BF
120 '一の位−横下
121 line step(-80,80)-step(80,20),7,BF
130 '一の位−縦左上
131 line step(-100,-200)-step(20,80),7,BF
140 '一の位−縦左下
141 line step(-20,20)-step(20,80),7,BF
150 '一の位−縦右上
151 line step(80,-180)-step(20,80),7,BF
160 '一の位−縦右下
161 line step(-20,20)-step(20,80),7,BF
180 '数字の入力
181 input "００から９９までの数字を入力してください→";DT
182 DT=10A+B
183 for A=0 to 9
184 for B=0 to 9
200 '結果の出力（十の位）
201 '０
202 if A=0 then line (120,200)-(200,220),0,BF
210 '１
211 if A=1 then line (120,100)-(200,120),0,BF;line (120,200)-(200,220),0,BF;line (120,300)-(200,320),0,BF;line (100,120)-(120,200),0,BF;line (100,220)-(120,300),0,BF
：
：

>>306
つか、181と182ですでに謎だ。
変数DTに値をインプットさせた直後に10A+Bとやらを代入している。
いったいこのプログラムの目的はなんだ?

>>306
その前に今時BASICなんぞ教える学校はやめた方が・・・。

２桁の数字を入力させて
その２桁の数字がデジタルで表示される、というものです。
例えば２なら
　−
　　｜
　−
｜
　−
といった感じなんですが…

「９９」と入力させた後
それを「１０×９と１×９」に分割させようと思ったのですが…
アホなことしちゃってます。
あとできればＡとＢの自然数の指定もしたいのですが…よろしくお願いします。

>>310
わり算と剰余を組み合わせれば出来るのでは？

95 / 10 = 9
95 % 10 = 5

結局182と183には何を入れればいいのでしょう…？

DTが最大二桁の整数と仮定して
182 A = DT / 10;
183 B = DT % 10;
これじゃだめかい。

プログラム以前の問題だな。と。

>>313
それを代入して実行しようとすると、何故か「応答なし」になってしまいます…
動けば合ってると思うのに…

>>314
ﾄﾞｳﾓｽﾐﾏｾﾝ
（´Д｀；）ヾ
　　Ｖ））
　　<<

182 A=INT(DT/10):'上位桁
183 B=DT MOD 10:'下位桁
文法を勉強したほうがいいﾖ。
184 ON A+1 GOTO 1000,1010,1020,･･･ってな方法もある。

なんでこんなバカスレが上がってるんだ？
下げろ下げろっ！

流石に殆ど出来ますた！ありがとうございます！
あと１つだけなのですが、「０・６・８・９」等の
line文を１回しか実行しない数字では動いたのですが、
その他の数字では動きませんでした。
今はこんな感じです。どうすれば…？
因みに参考書等は購入はナシで授業（今年前期のみです）毎に
数枚のプリントを配る程度でした。
ネットでも探してみましたが僕程度の学習量で
理解出来るサイトは見つけられませんでした…
助言よろしくお願いします…

10 'file=中間試験　数字
20 cls 3:def fny(y)=399-y
25 '-----------------------------------------
30 '十の位−横上
31 line step(120,100)-step(80,20),7,BF
40 '十の位−横中
41 line step(-80,80)-step(80,20),7,BF
50 '十の位−横下
51 line step(-80,80)-step(80,20),7,BF
60 '十の位−縦左上
61 line step(-100,-200)-step(20,80),7,BF
70 '十の位−縦左下
71 line step(-20,20)-step(20,80),7,BF
80 '十の位−縦右上
81 line step(80,-180)-step(20,80),7,BF
90 '十の位−縦右下
91 line step(-20,20)-step(20,80),7,BF
100 '一の位−横上
101 line step(100,-200)-step(80,20),7,BF
110 '一の位−横中
111 line step(-80,80)-step(80,20),7,BF
120 '一の位−横下
121 line step(-80,80)-step(80,20),7,BF
130 '一の位−縦左上
131 line step(-100,-200)-step(20,80),7,BF
140 '一の位−縦左下
141 line step(-20,20)-step(20,80),7,BF
150 '一の位−縦右上
151 line step(80,-180)-step(20,80),7,BF
160 '一の位−縦右下
161 line step(-20,20)-step(20,80),7,BF
180 '数字の入力
181 input "００から９９までの数字を入力して下さいますか";DT
182 A=INT(DT/10):'上位桁
183 B=DT MOD 10:'下位桁

200 '結果の出力（十の位）
201 '０
202 if A=0 then line (120,200)-(200,220),0,BF
210 '１
211 if A=1 then line (120,100)-(200,120),0,BF;line (120,200)-(200,220),0,BF;line (120,300)-(200,320),0,BF;line (100,120)-(120,200),0,BF;line (100,220)-(120,300),0,BF
220 '２
221 if A=2 then line (100,120)-(120,200),0,BF;line (200,220)-(220,300),0,BF
230 '３
231 if A=3 then line (100,120)-(120,200),0,BF;line (100,220)-(120,300),0,BF
240 '４
241 if A=4 then line (100,220)-(120,300),0,BF;line (120,100)-(200,120),0,BF;line (120,300)-(200,320),0,BF
250 '５
251 if A=5 then line (100,220)-(120,300),0,BF;line (200,120)-(220,200),0,BF
260 '６
261 if A=6 then line (200,120)-(220,200),0,BF
270 '７
271 if A=7 then line (100,120)-(120,200),0,BF;line (100,220)-(120,300),0,BF;line (120,200)-(200,220),0,BF;line (120,300)-(200,320),0,BF
280 '８
281 if A=8 then line (100,100)-(101,101),0,BF
290 '９
291 if A=9 then line (100,220)-(120,300),0,BF
300 '（一の位）
301 '０
302 if B=0 then line (320,200)-(400,220),0,BF
310 '１
311 if B=1 then line (320,300)-(400,320),0,BF;line (320,200)-(400,220),0,BF;line (320,300)-(400,320),0,BF;line (300,120)-(320,200),0,BF;line (300,220)-(320,300),0,BF
320 '２
321 if B=2 then line (300,120)-(320,200),0,BF;line (400,220)-(420,300),0,BF
330 '３
331 if B=3 then line (300,120)-(320,200),0,BF;line (300,220)-(320,300),0,BF
340 '４
341 if B=4 then line (300,220)-(320,300),0,BF;line (320,100)-(400,120),0,BF;line (320,300)-(400,320),0,BF
350 '５
351 if B=5 then line (300,220)-(320,300),0,BF;line (400,120)-(420,200),0,BF
360 '６
361 if B=6 then line (400,120)-(420,200),0,BF
370 '７
371 if B=7 then line (300,120)-(320,200),0,BF;line (300,220)-(320,300),0,BF;line (320,200)-(400,220),0,BF;line (320,300)-(400,320),0,BF
380 '８
381 if B=8 then line (300,100)-(301,101),0,BF
390 '９
391 if B=9 then line (300,220)-(320,300),0,BF
400 end

動かない、っちゅうのはどう動かないんだ?
エラーメッセージを書け。

例えば入力要求に対して「１１」と入力すると

文法エラーです。
行番号：２１１

と表示されてしまいます。

それ、サンプルプログラム。
マルチステートメントの使い方を勉強しなﾖ。

1000 CONSOLE ,,0,25:SCREEN 3,1,0,1:COLOR ,,,,2:CLS 3
1010 INPUT N:IF N>=100 THEN 1010
1020 A=INT(N/10):B=N MOD 10
1030 M=A:D=0:GOSUB 1070
1040 M=B:D=30:GOSUB 1070
1050 GOTO 1010
1070 ON M+1 GOTO 1080,1090,1100,1110,1120,1130,1140,1150,1160,1170
1080 SA=7:SB=7:SC=7:SD=7:SE=7:SF=7:SG=0:GOTO 1180
1090 SA=0:SB=7:SC=7:SD=0:SE=0:SF=0:SG=0:GOTO 1180
1100 SA=7:SB=7:SC=0:SD=7:SE=7:SF=0:SG=7:GOTO 1180
1110 SA=7:SB=7:SC=7:SD=7:SE=0:SF=0:SG=7:GOTO 1180
1120 SA=0:SB=7:SC=7:SD=0:SE=0:SF=7:SG=7:GOTO 1180
1130 SA=7:SB=0:SC=7:SD=7:SE=0:SF=7:SG=7:GOTO 1180
1140 SA=7:SB=0:SC=7:SD=7:SE=7:SF=7:SG=7:GOTO 1180
1150 SA=7:SB=7:SC=7:SD=0:SE=0:SF=7:SG=0:GOTO 1180
1160 SA=7:SB=7:SC=7:SD=7:SE=7:SF=7:SG=7:GOTO 1180
1170 SA=7:SB=7:SC=7:SD=7:SE=0:SF=7:SG=7:GOTO 1180
1180 LINE(1+D,0)-(20+D,0),SA
1190 LINE(21+D,1)-(21+D,20),SB
1200 LINE(21+D,22)-(21+D,41),SC
1210 LINE(1+D,42)-(20+D,42),SD
1220 LINE(0+D,22)-(0+D,41),SE
1230 LINE(0+D,1)-(0+D,20),SF
1240 LINE(1+D,21)-(20+D,21),SG
1250 RETURN

>>323、スゴ(・∀・)ｲｲ！これなんです！やりたかったのは…
ｺﾞﾒｿ、授業の進行がこれ（>>319-320）みたいなものでしたので…
ＦＤに入れて提出しろ、と言われたので、頑張って作っていたのですが…
>>322の件では修復の余地は無いでしょうか？

マルチステートメント…「圧縮」みたいなもんですね、
こんな事出来るレベルにも達してないので…

>>324
ステートメントの区切りが[:]→[;]になっているので、エラーじゃない？

>>326
その通りでした！ありがとうございます！
…くそぉ、今日教官に「命令を続ける時は『セミコロン』」って言ってたから
信じてやってたのに…
皆さん、ご迷惑おかけして本当にスミマセンでしたそしてありがとうございました！

誤字ｽﾏｿ。
教官に→教官が

どのみちその教官は頃してしまったほうが世のためだ。

このご時世BASIC->さぞ先生はBASICに思い入れが->間違い教える->マジで学校やめるべきかと。

>>330
キミ、キミ、ＢＡＳＩＣを馬鹿にしちゃいかんぜよ。ＰＣ９８０１ＲＸ＋Ｎ８８
Ｂａｓｉｃは現役バリバリで働いているぜよ(w

>>331
マシン自体が隠居ANDシコシコな罠。

>>323
久々に ON n GOTO 文を見て感動した。
switch case 文に近いね。

プログラムについての質問です

ＣＰＵの処理速度を遅くするプログラムを作ることってできますか？
このプログラムの使用目的は、
あるデータを、別の機械に送受信して使いたいんですが
以前使っていたパソコン(ＣＰＵ　i486）が壊れてしまったので、
中古のパソコン(ＣＰＵ　pen75）を新しく買ってきて同じ事をしようとすると
どうもＣＰＵの処理速度が速すぎるのが原因かどうもできない。
だから、どうにかしてＣＰＵの処理速度を遅くしたんですができますか？
「性能の低いＣＰＵを探してきて買え」って言うのは勘弁してください。
i486が乗ってるやつなんて今ではほとんど見ないから・・・
長文になってしまいましたが、どなたかお願いします。

>>334
普通に空ループするだけじゃダメ？
100000回くらいやれば結構いい感じじゃ無い？

>334 CPUは、遅くする分には問題無いので、
発振を遅く設定するという手もあるかと。
マザーボードのジャンパーで遅く出来る機種もありますが・・・

つーか、基本的には335さん宜しく主ループに 時間稼ぎのループを
し込むのが正解だと思いますが。

あぼーん

お二人ともレスありがとうございました。
とりあえず、空ループを試してみたいと思います。
また問題が起きたらまた来るので、そのときはまたお願いします。

BASIC スレ乱立防止age

>>334
ちゃんとレスしといたんだけど。
http://pc3.2ch.net/test/read.cgi/pc/1026744688/10

ここにはもう来ないんだろうな。

>>340
レスどうもです。
でも、そのリンク先で言ってることって
すでに自分でやったことあるんだけど・・・
http://pc3.2ch.net/test/read.cgi/pc/1025715310/951
ところで、質問内容が微妙に違うけど俺ってマルチになるのか？

こんにちは。
NECのVL100/3Dのパソコン(WINDOWS　XPのOSを消して)にWINDOWS98をいれて
N88BASICを動かそうとしていますがうまくいきません。
CHILDプロセスでは起動できませんとのメッセージがでます。
どうしたらよいかどなたか教えてください。
尚最新のBASICに組みなおしたらといわないでください。
間違えて送信すると1500万ぐらいの機械に事故がおきます。

>>342
それはあなたのマシンがPC-9801もしくは、PC-98もしくは、PC-9821
ではないからでしょう。
ＸＰがＰＣ−９８ＸＸに対応しているなんて話は聞いたことがありませんからね。

で、N88BASICを動かすためには、ＰＣ−９８ＸＸを手に入れるしかありませんね。
１台持っていれば、別のマシンでエミュレータを使うなんてこともできますからね。

>>341
＞すでに自分でやったことあるんだけど・・・
そんなこと、どこに書いてある？

http://pc3.2ch.net/test/read.cgi/pc/1025715310/939
-------------------- ここから引用 --------------------
939 ：名無しさん ：02/07/15 14:33
ＣＰＵのクロック数について質問

仕事で使ってるパソコンが壊れて新しく買ったんですが
今まで使ってたのが
ＣＰＵ　i486SX　、クロック　20
というかなり古い性能の悪いものでした。
で、新しく買ったのがpc-9821xa7のＣＰＵがpen75です。
これでいざ仕事をしようとしても性能が良すぎてダメっぽいんです。
ちなみに、ＯＳ無しのＤＯＳでの作業です。
前置きが長くなってしまいましたが質問は
pen100ぐらいのＣＰＵを、i486SXぐらいのＣＰＵに落とすことってできるんですか？
i486SXが乗ってるパソが簡単に買えたら万事解決なんですけど、
こんなに古いやつは今じゃ全然見かけないし、これからも厳しいので
もしそんなことができたら教えていただきたいです。お願いします
-------------------- ここまで引用 --------------------

BMPを表示するソフトは作ってみたいんですが
ファイルを開く命令が分かれば出来ますか？
それともbmpの方式を知っていないとダメですか？
意味不明ですね、逝ってきます。

＞＞343
どうもありがとうございました。

＞＞343
もう一度おしえてください。
9821のパソコンはあります。
ＸＰに対応したエミュレーターはありますか。2000のものはあります。

僕の作ったプログラムみて！！！

10 WIDTH 50,20:PRINT "おためしＲＰＧ　ぷっしゅ　えに〜　き〜":XX=29:YY=29:XXX=29:YYY=0:XXXX=0:YYYY=29:X=0:Y=0:LL=20:YU=0
20 OPEN "TEN.DLL" FOR INPUT AS #1
30 INPUT #1,TEN,NAME$
40 CLOSE #1
50 PRINT "はいすこあ",NAME$,TEN
60 J$=INKEY$
70 IF J$="" THEN 60 ELSE 80
80 LLL=LL/3:LLLL=LL*2/3
90 WIDTH 30,33
100 CLS
110 LOCATE X,Y:PRINT "A"
120 LOCATE XX,YY:PRINT "O"
130 LOCATE XXX,YYY:PRINT "O"
140 LOCATE XXXX,YYYY:PRINT "O"
150 LOCATE 24,31:YU=YU+1:PRINT YU
160 IF (X=XX AND Y=YY) OR (X=XXX AND Y=YYY) OR (X=XXXX AND Y=YYYY) THEN GOTO 410
170 N$=INKEY$
180 IF N$="1" THEN X=X-1:IF X=<0 THEN X=0
190 IF N$="3" THEN X=X+1:IF X=>29 THEN X=29
200 IF N$="5" THEN Y=Y-1:IF Y=<0 THEN Y=0
210 IF N$="2" THEN Y=Y+1:IF Y=>29 THEN Y=29
220 L=L+1:IF L>=LL+1 THEN L=1
230 IF L=1 THEN 240 ELSE 280
240 IF XX>X THEN XX=XX-1:IF XX=<0 THEN XX=0
250 IF XX<X THEN XX=XX+1:IF XX=>29 THEN XX=29
260 IF YY>Y THEN YY=YY-1:IF YY=<0 THEN YY=0
270 IF YY<Y THEN YY=YY+1:IF YY=>29 THEN YY=29
280 LLL=LLL+1:IF LLL>=LL+1 THEN LLL=1
290 IF LLL=1 THEN 300 ELSE 340
300 IF XXX>X THEN XXX=XXX-1:IF XXX=<0 THEN XXX=0
310 IF XXX<X THEN XXX=XXX+1:IF XXX=>29 THEN XXX=29
320 IF YYY>Y THEN YYY=YYY-1:IF YYY=<0 THEN YYY=0
330 IF YYY<Y THEN YYY=YYY+1:IF YYY=>29 THEN YYY=29
340 LLLL=LLLL+1:IF LLLL>=LL+1 THEN LLLL=1
350 IF LLLL=1 THEN 360 ELSE 400
360 IF XXXX>X THEN XXXX=XXXX-1:IF XXXX=<0 THEN XXXX=0
370 IF XXXX<X THEN XXXX=XXXX+1:IF XXXX=>29 THEN XXXX=29
380 IF YYYY>Y THEN YYYY=YYYY-1:IF YYYY=<0 THEN YYYY=0
390 IF YYYY<Y THEN YYYY=YYYY+1:IF YYYY=>29 THEN YYYY=29
400 LL=LL-0.01:GOTO 100
410 CLS:PRINT "終〜了〜"
420 PRINT "得点",YU
430 OPEN "TEN.DLL" FOR INPUT AS #1
440 INPUT #1,UESC
450 CLOSE #1
460 IF UESC>YU THEN 520
470 INPUT "なまえをにゅうりょく",NAME$
480 OPEN "TEN.DLL" FOR OUTPUT AS #1
490 PRINT #1,YU,NAME$
500 CLOSE #1
510 GOTO 520
520 PRINT "ぷっしゅ　えに〜　き〜"
530 J$=INKEY$
540 IF J$="" THEN 530 ELSE 10

僕の作ったプログラムみて！！！のことだけど、
N88互換BASIC for Windows95
でしかつかえない。
vector にあるよ。

僕の作った意味なしプログラムみて！！！


1 CLS
2 FOR I=0 TO 5000
3 RANDOMIZE:CCC=INT(RND*6)+1
4 COLOR CCC
5 X=X+1:IF X=79 THEN X=1:Y=Y+1:IF Y=25 THEN Y=1
6 LOCATE X,Y:PRINT "１７けたのけ〜さんき"
7 NEXT I
8 FOR I=0 TO 1000:NEXT I
10 CLS
100 COLOR 3:INPUT "",A#
110 COLOR 4:INPUT "",B$
120 COLOR 5:INPUT "",C#
125 COLOR 6
130 IF B$="+" THEN GOSUB *H
131 IF B$="-" THEN GOSUB *J
132 IF B$="*" THEN GOSUB *K
133 IF B$="/" THEN GOSUB *L
135 GOTO 100

140 *H
150 AAA#=A#+C#
160 PRINT AAA#
170 RETURN

>>350
みた。

感想を

スロット

10 CLS
11 COLOR 6:PRINT "すろっとげえむ"
20 A$(1)="7":A$(2)="Q":A$(3)="S":A$(4)="\":A$(5)="Y"
30 FOR I=1 TO 3
40 Y=Y+1:IF Y=6 THEN Y=1
50 IF INKEY$=" " THEN 80 ELSE 60
60 LOCATE 13+2*I,7:COLOR 7:PRINT A$(Y):B$(I)=A$(Y)
70 GOTO 40
80 NEXT I
90 IF B$(1)=B$(2) THEN C$="SCORE 500" ELSE C$="SCORE 0"
95 IF B$(2)=B$(3) THEN C$="SCORE 300"
96 IF B$(1)=B$(3) THEN C$="SCORE 100"
100 IF B$(1)=B$(2) AND B$(1)=B$(3) THEN C$="SCORE 1000"
110 COLOR 1:PRINT C$
120 FOR R=0 TO 15000
130 NEXT R
140 GOTO 10

>>352
みた。

実行した？？？

シューティング

100 CLS 3:X=37:Y=11:SC=0:LI=3
110 EX(1)=10:EY(1)=5
120 EX(2)=30:EY(2)=15
130 EX(3)=50:EY(3)=10
140 LOCATE X,Y:PRINT "-<*>-"
150 '１ターン開始
160 A$=INKEY$
170 FOR L=1 TO 3:AA(L)=0:AB(L)=0:NEXT L

180 LOCATE 1,1:PRINT "SCORE:";SC
190 LOCATE 1,2:PRINT "LIFE :";LI
200 IF LI<1 THEN END

220 GOSUB *JIKI:GOSUB *ATARI
230 GOSUB *MISSILE:GOSUB *ATARI:GOSUB *MISSILE
240 GOSUB *ATARI:GOSUB *TEKI:GOSUB *ATARI
250 GOTO 150:' １ターン終了
260 *JIKI
270 LOCATE X,Y:PRINT " "
280 IF A$="5" THEN Y=Y-1:IF Y<1 THEN Y=1
290 IF A$="2" THEN Y=Y+1:IF Y>22 THEN Y=22
300 IF A$="1" THEN X=X-1:IF X<1 THEN X=1
310 IF A$="3" THEN X=X+1:IF X>74 THEN X=74
320 LOCATE X,Y:PRINT "-<*>-"
330 RETURN
340 *MISSILE
350 LOCATE MX,MY:PRINT " "
360 IF M=1 THEN 390
370 IF A$=" " THEN M=1:MX=X+2:MY=Y
380 IF M=0 THEN RETURN
390 MY=MY-1:IF MY<1 THEN M=0
400 LOCATE MX,MY:PRINT "|"
410 RETURN
420 *TEKI
425 FG=SC/10+3
430 FOR L=1 TO FG
440 LOCATE EX(L),EY(L):PRINT " "
450 G=INT(RND*2)
460 IF G=1 THEN EX(L)=EX(L)-1:IF EX(L)<1 THEN EX(L)=76:GOTO 480
470 EX(L)=EX(L)+1:IF EX(L)>76 THEN EX(L)=1
480 EY(L)=EY(L)+1:IF EY(L)>22 THEN EY(L)=1
490 LOCATE EX(L),EY(L):PRINT "=@="
500 NEXT L
510 RETURN
520 *ATARI
530 FOR L=1 TO 3
540 IF AA(L)=1 THEN 560
550 IF MX=EX(L)+1 AND MY=EY(L) THEN BEEP:SC=SC+10:EY(L)=1:AA(L)=1
560 IF AB(L)=1 THEN 580
570 IF X=EX(L)-1 AND Y=EY(L) THEN BEEP:LI=LI-1:AB(L)=1
580 NEXT L
590 RETURN

書き込むプログラムねたなくなってきた　文をつなげるあほプログラム

1 CLS
10 PRINT "いつ"
20 INPUT "",A$
25 CLS
30 PRINT "どこで"
40 INPUT "",B$
50 CLS
60 PRINT "だれが"
70 INPUT "",C$
80 CLS
90 PRINT "なにをした"
100 INPUT "",D$
110 CLS
120 PRINT "１をおしてリターンキーをおしてね"
130 INPUT "",B
140 CLS
150 PRINT A$,B$,C$,D$

>>348
鬼ごっこです。

まず、１発目でエラーだな。WIDTHの指定がダメ。
３０行目でもエラー。[NAME]は変数に使えない。
｢TEN.DLL｣にデータが入って無ければ、エラー。
後は見る気にならん。

0:黒、1:青、2:赤、3:紫、4:緑、5:水色、6:黄、7:白

あってる？

>>359

スマソ

なんや？COLORの指定か？
あってる。

デフォルトの名無しさんへ

弟子にして！！！！

鬼ごっこ N88で動くバージョン

10 PRINT "おためしＲＰＧ":XX=29:YY=29:X=0:Y=0:YU=3000
12 INPUT "反応速度　1/",LL
15 CLS
20 LOCATE X,Y:PRINT "A"
25 LOCATE XX,YY:PRINT "O"
26 LOCATE 24,31:PRINT YU:YU=YU-1:IF YU=0 THEN PRINT "あなたの勝ち":GOTO 1100
28 IF X=XX AND Y=YY THEN PRINT "あなたの負け":GOTO 1100
30 N$=INKEY$
40 IF N$="1" THEN X=X-1:IF X=<0 THEN X=0
50 IF N$="3" THEN X=X+1:IF X=>29 THEN X=29
60 IF N$="5" THEN Y=Y-1:IF Y=<0 THEN Y=0
70 IF N$="2" THEN Y=Y+1:IF Y=>29 THEN Y=29
71 L=L+1:IF L=LL+1 THEN L=1
72 IF L=1 THEN 75 ELSE 1000
75 IF XX>X THEN XX=XX-1:IF XX=<0 THEN XX=0
76 IF XX<X THEN XX=XX+1:IF XX=>29 THEN XX=29
77 IF YY>Y THEN YY=YY-1:IF YY=<0 THEN YY=0
78 IF YY<Y THEN YY=YY+1:IF YY=>29 THEN YY=29
1000 GOTO 15

1100 FOR I=0 TO 5000:NEXT I:GOTO 10

おう！いつでも弟子にしてやるでぇ！
なんでも聞いてや。
「カーレース」から「円周率の４０００桁」をN88Basicで作れるでぇ！

「カーレース」と「円周率の４０００桁」プログラムみた〜い！！！（＾○＾）

デフォルトの名無しさんへ

シューティングでグラフィックの当たり判定どうやるの？？？？？？

グラフィック座標上の点を取るなら、POINT関数がある。
A=POINT(SX,SY)で、AにCOLOR番号が入る。

SX,SYとはなんのこと？

ロボカップサッカーのチーム２ｃｈはどうなりましたか？
やってますか？夏休みだし、本格的にやってみませんか？
反応を待ってます。
ところでそれってＣで書くの？ＪＡＶＡ？

迷路を作成し、通路を見つけるプログラム。
1000 CONSOLE ,,0,25:SCREEN 3,1,0,1:COLOR ,,,,2:CLS 3
1010 T=VAL(MID$(TIME$,4,2))*VAL(MID$(TIME$,7,2)):RANDOMIZE T
1020 DIM A(49,49)
1030 FOR I=0 TO 49:FOR J=0 TO 49:A(I,J)=1
1040 A(0,J)=7:A(49,J)=7:NEXT J
1050 A(I,0)=7:A(I,49)=7:NEXT I
1060 LINE(0,0)-(399,399),7,BF:LINE(8,8)-(391,391),1,BF
1070 X=INT(RND*38)+1:A(X,0)=5:Y=1:LINE(X*8,0)-(X*8+7,7),0,BF:XS=X:YS=Y
1080 A(X,Y)=0:LINE(X*8,Y*8)-(X*8+7,Y*8+7),0,BF
1090 IF A(X-1,Y)=6 THEN A(X-1,Y)=7:LINE((X-1)*8,Y*8)-((X-1)*8+7,Y*8+7),7,BF
1100 IF A(X+1,Y)=6 THEN A(X+1,Y)=7:LINE((X+1)*8,Y*8)-((X+1)*8+7,Y*8+7),7,BF
1110 IF A(X,Y-1)=6 THEN A(X,Y-1)=7:LINE(X*8,(Y-1)*8)-(X*8+7,(Y-1)*8+7),7,BF
1120 IF A(X,Y+1)=6 THEN A(X,Y+1)=7:LINE(X*8,(Y+1)*8)-(X*8+7,(Y+1)*8+7),7,BF
1130 IF A(X-1,Y)=1 THEN A(X-1,Y)=6:LINE((X-1)*8,Y*8)-((X-1)*8+7,Y*8+7),6,BF
1140 IF A(X+1,Y)=1 THEN A(X+1,Y)=6:LINE((X+1)*8,Y*8)-((X+1)*8+7,Y*8+7),6,BF
1150 IF A(X,Y-1)=1 THEN A(X,Y-1)=6:LINE(X*8,(Y-1)*8)-(X*8+7,(Y-1)*8+7),6,BF
1160 IF A(X,Y+1)=1 THEN A(X,Y+1)=6:LINE(X*8,(Y+1)*8)-(X*8+7,(Y+1)*8+7),6,BF
1170 IF A(X-1,Y)=6 OR A(X+1,Y)=6 THEN 1190
1180 IF A(X,Y-1)=6 OR A(X,Y+1)=6 THEN 1190 ELSE GOTO 1280
1190 D=INT(RND*4)+1:ON D GOTO 1200,1220,1240,1260
1200 IF A(X-1,Y)<>6 THEN 1190
1210 X=X-1:GOTO 1080
1220 IF A(X+1,Y)<>6 THEN 1190
1230 X=X+1:GOTO 1080
1240 IF A(X,Y-1)<>6 THEN 1190
1250 Y=Y-1:GOTO 1080
1260 IF A(X,Y+1)<>6 THEN 1190
1270 Y=Y+1:GOTO 1080
1280 FOR J=1 TO 48:FOR I=1 TO 48
1290 IF A(I,J)=6 THEN 1310
1300 NEXT I,J:GOTO 1350
1310 IF A(I-1,J)=1 OR A(I+1,J)=1 THEN 1330
1320 IF A(I,J-1)=1 OR A(I,J+1)=1 THEN 1330 ELSE GOTO 1340
1330 X=I:Y=J:GOTO 1080
1340 A(I,J)=7:LINE(I*8,J*8)-(I*8+7,J*8+7),7,BF:GOTO 1300
1350 E=INT(RND*38)+1:IF A(E,48)<>0 THEN 1350
1360 A(E,49)=0:LINE(E*8,392)-(E*8+7,399),0,BF:XE=E:YE=49
1370 FOR I=1 TO 48:FOR J=1 TO 48
1380 IF A(I,J)=1 THEN A(I,J)=7:LINE(I*8,J*8)-(I*8+7,J*8+7),7,BF
1390 NEXT J,I
1400 LINE(XS*8,0)-(XS*8+7,7),2,BF
1410 LINE(XS*8,YS*8)-(XS*8+7,YS*8+7),2,BF:A(XS,YS)=2
1420 IF YS=49 THEN STOP:GOTO 1030
1430 IF A(XS-1,YS)=0 THEN XS=XS-1:GOTO 1410
1440 IF A(XS+1,YS)=0 THEN XS=XS+1:GOTO 1410
1450 IF A(XS,YS-1)=0 THEN YS=YS-1:GOTO 1410
1460 IF A(XS,YS+1)=0 THEN YS=YS+1:GOTO 1410
1470 LINE(XS*8,YS*8)-(XS*8+7,YS*8+7),8,BF:A(XS,YS)=1
1480 IF A(XS-1,YS)=2 THEN XS=XS-1:GOTO 1410
1490 IF A(XS+1,YS)=2 THEN XS=XS+1:GOTO 1410
1500 IF A(XS,YS-1)=2 THEN YS=YS-1:GOTO 1410
1510 IF A(XS,YS+1)=2 THEN YS=YS+1:GOTO 1410
1520 GOTO 1410

>>370
間違えましてごめんなさい。

師匠
ありがとうごぜえます〜〜〜！！！

>>369
画面上のドットの位置
X=0〜639,Y=0〜399

>>371
なぜか動かず。

師匠アリガテォウ

>>374
師匠アリガテォウ

×1000 CONSOLE ,,0,25:･･･
○1000 CONSOLE ,,0,1:･･･

>>375
どこが動かない？
ちなみにPC9821Xシリーズ＋N88Basic.exeならちゃんと動く。
DOS/V＋WinBas95は動作しなかった。（ありえない所でエラーが出る。）

>>378
WinBas95だからですたぶん…

>>379についての言い訳
すんません師匠
ぼく学生なんです
宿題に押しつぶされてしばらく席はずしてたんで返事が遅れてしまいました

>>378
ありえない所でエラーが出ました！！！

遅くてもかまわんのでトリップ解析プログラムきぼんぬ

あの・・・ここのソース見てて思ったんだけど、論理式ってメジャーじゃないのかな。
たとえばキーの判定とかでよく
if k$="4" then x=x-1
if k$="6" then x=x+1
とかやってる人いるけど、これは
x=x+(k$="4")-(k$="6")
で置き換えられる。
こっちのほうがスマートだし処理速度も速いと思う。

>>383
当時は定石だな。
今見ると汚いな。

>>384
そう？
IFとGOTOの羅列のほうが汚いと思うけど。
強いて言えば、式成立の戻り値が-1じゃなくて1のほうが直感的に使いやすかったかも。

N88BASICでMIDI鳴らす方法ってあります？

物理の投射をシミュレートするプログラム（初速度、
角度、空気抵抗を指定してその軌道を描く）を教えて
ください。

>>385
> 強いて言えば、式成立の戻り値が-1じゃなくて1のほうが直感的に使いやすかったかも。
論理ANDとビットANDが区別されてないからな。

n88ベーシックで任意のディレクトリのファイルリストを
変数に文字列で代入したいのだけれど、
どのようにすればいいのでしょうか？

無理

N88じゃなくてN-BASICだったかもしれませんが・・・。
昔懐かしい「スタートレック」ってゲームのソースってどっかありません？

>>391
どこかにはあると思いますよ
スタートレックのソースを探しに世界中を旅するのも乙ですね

60 CONSOLE 0,25,0,1:COLOR 6:SCREEN 3,1:WIDTH 80,25:CLS 3
70 DEFINT I-N:OPTION BASE 1:WINDOW(-69,1)-(250,200)
80 PRINT" MESH02":PRINT" AUTMATIC MESH"
90 PRINT"GENERATOR FOR FEM":COLOR 7:INPUT"GRAPHIC SCALE";SK
100 INPUT"Nx,Ny";NX,NY:INPUT"NUMBRING(V/H)";CH$
110 INPUT"CENTER(X,Y)";CX,CY:NX=NX+1:NY=NY+1
120 COLOR 6:PRINT"X=0-240*SCALE":PRINT"Y=0-190*SCALE"
130 DIM X(NX,XY),Y(NX,NY),XX(NX*NY),YY(NX*NY),IC(NX,NY,2),ID(NX,NY)
140 DIM IE(NX-1,NY-1,2),ED(NX-1,NY-1,2),KE(NX-1,NY-1,2),IN(100,2)
150 DIM IB(100),BD(100,2),IL(100):A=(16\8)*27+4:DIM G%(A\2+1)
160 ON KEY GOSUB *S1,*S2,*S3,*S4,*S5,*S6,*S7,*S8,*S9,*S10
170 LINE(9,189)-STEP(0,4),5:LINE(7,191)-STEP(4,0),5
180 GET(152,377)-STEP(8,8),G%:PUT(152,377),G%

確か最新式のDOS版N88BASICってPCM再生したり拡張FM/Rhythm音源鳴らしたり出来るんだよね？
あれってどんな命令で動かせるんだったっけ？

サンプルきぼんぬ

BASIC 以外は糞

すんません。
N88BASIC(86)のMS-DOS版とWN(Windows　DOS窓版？)とOS/2版の違い（互換性）ってわかりますか？
Win95以降で動くのはどれでしょうか？
以外にOS/2は32bit環境で良い感じに動くかなあ？（笑）

特にDOS版とWIN版の違いを知りたいでし

X1でのN88BASICプログラムを
DOS/Vに移殖したいと思うのですが、
何かいいものありますか？

PC98のDOS版とか、Windows版とかはあるようですが。

BASIC は変!

ーーーーーーー

pc-9801をつかてa/d変換をしたいのですが
a/dコンバーターをどのように認識させればいいのですか？
osはms-dos　ver3.10 n88basicです
また、どのようなプログラムをくめばいいですか？

agyeeweeeeeeee

>>391
なんとなく探したら結構簡単にみつかった
http://www.dunnington.u-net.com/public/startrek/

>>1
プッ

モンテカルロ法だけど、
図は視覚的なものほしいからけずらないとして
これで１００００くらいやると、すごく時間かかる
改良してちょ

10 cls :r=0
20 input"k=";k:cls
30 line(0,0)-(200,200),3,b
40 circle(0,0),200,3
50 for i=1 to k
60 x=rnd*1:y=rnd*1
70 n=x*x+y*y:c=3
80 if n<=1 then 90 else 100
90 r=r+1:c=5
100 circle(x*200,y*200),1,c
110 next i
120 pi=4*r/k
130 locate 20,20:print "r=";r,"pi=";pi
140 end

100 SCREEN 3,0,0,1: CLS 3
110 RESTORE
120 FOR Y=0 TO 15
130 READ A$
135 WINDOW (0,0)-(100,100)
137 VIEW (100,100)-(300,300)
140 FOR X=0 TO 15
150 B$=MID$(A$,X+1,1)
160 COL=VAL(B$)
170 PSET (X,Y),COL
180 NEXT X
190 NEXT Y
200 END
210 '
220 DATA 7777777777777777
230 DATA 7772777227772777
240 DATA 7722772222772277
250 DATA 7722272222722277
260 DATA 7722222222222277
270 DATA 7722222222222277
280 DATA 7722222222222277
290 DATA 7772222222222777
300 DATA 7777722222277777
310 DATA 7444777447774447
320 DATA 7444477447744447
330 DATA 7444447447444447
340 DATA 7744447447444477
350 DATA 7774447447444777
360 DATA 7777447447447777
370 DATA 7777777777777777

誰かこれを500バイト以下にして

>405
趣旨がよくわからんが、コードを短くしたいのか………
・135&137行は100と110の間のほうがよくないか？
・一バイトでも切り詰めたいなら「NEXT X」は「NEXT」だけでよい。
・110行、200行と210行は省略できる。
・DATA文には一行で複数のデータを、カンマ区切りで書くことができる。
・変数COLを使わず、直接「PSET (X,Y),VAL(B$)」と書いてやれ。
もちろん、読みやすさは犠牲になるが、（当時の）BASICはそういう言語だ。

>>406
thx参考になったよ

厨房な質問で恐縮です。
最近PC9821ノートを安価で手に入れ、N88BASICでもやろうか、と思い、
ウおほんっイごほっニーで落としてきたのですが、N88BASIC.D88となっており、
FDに入れてMS-DOSにて、
B:\N88BASIC.D88リターン
でエラー、
FD入れっぱなしで起動でも立ち上がりませんでした。
ちょっと検索してみると、どうやらPC-8801用のN88BASICらしいのですが、
PC-8801用とPC98用のN88BASICの違いについて指導、
PC-98でN88BASICを動かすためには何が必要かお願いします。
98用のDOS-BASICとDISK-BASICとの違いはわかります。

行番号を揃えるコマンドなんだっけ…

>>409
たしか
RENUM

http://www.ccr.nitech.ac.jp/tech/kensyu96/bas2.html
なかなかいいけど
もう、BASIC動く環境ない

>>408
・PC-88エミュ（実機からROM吸出しが必要だったはず）
・PC-98のDISK BASIC or DOS-BASICを手に入れる
・Windows用のBASICインタプリタソフトはゴロゴロあるのでそれ使う

命令セットはかなりの互換性があるので、peekpokeしたり、varptrとかしてる
あやしいモノ以外は比較的なんとか移植可能

>412
参考になりました。ありがとうございました。
peek,pokeが移植可能とは初耳でした。勉強不足が。。。

ごおぐるで検索した結果、某日本のドメインのサイトにn88basic.exeが置いてあり、
(以下略)
昔、高校時代に電脳組というところが出してたN88互換?機能強化?のBASICを使っていて、
そのプログラムがすいすい動いてカンルイ。思い出がよみがえりますた。
ただなぜか
OUT&h68,1
だったかな？の、簡易グラフィックモードが動かなかったなのが謎です。
これはPC-9801と21のメモリ設計が違うのでしょうか?
それともただ自分の設定が悪いだけなのか･･･。

逆ですね、POKEとかハード依存のプログラムは移植不可なんですね。

Aを表示させてからBを表示するにはどうしたらいいんだろう？
Aの図形表示させてからBの図形表示させたいんです

PRINT "A"
PRINT "B"

TI1=FNF1(A3,A4,A1): GOSUB *TI1
TI2=FNF1(AB3,AB4,AB1):GOSUB *TI2

ってどう言う意味なのでしょうか。教えてください。

>>417
FN***ってのは自分で作った関数だよなあ。
関数ポインタみたいな使い方できるの？

>>415
BLOADとPUT命令使ったような。
そしてSCREENでページを切り替えて…

初心者ですまそ。教えてください。
クイズ５問作って５問目が終わった後
何問正解でした。っつー風なプログラムは
どう作るんでしょう？

>>419
正解の数をカウントしとけばいいじゃん。

裏画面に妖精が住んでいたことありませんか？
画面切り替えたら着替え中だったよ。
すげー気まずかった。

>>420
サンクス。
カウントっつーのはどんな命令文っすか？

>>422
変数にいれるってことだよ。

10 seikai = 0
20 for i = 0 to 4
30 ' ここに問題出したり答えを選んだり
:
100 ' 正解だったらseikaiに1を加える。seikai=seikai+1
110 next i
120 print "5ﾓﾝﾁｭｳ "
130 print str$(seikai)
140 print "ﾓﾝ ｾｲｶｲﾃﾞｼﾀ."

かなり適当。

>>423
どうも親切に(TдT) ｱﾘｶﾞﾄｳ

130行目のstr$(seikai)ってのはどうゆう意味なんすかね？

円周率を求めるプログラムを区分求積法でやってみましたが･･･
10 x=0:r=1:s=0
20 input a
30 for b=1 to a
40 x=x+(r/a)
50 y=(r*r-x*x)^(1/2)
60 h=y*(r/a)
70 s=s+h
80 next b
90 p=4s
100 print p
110 end

50行で、エラーが出ます。何か間違いがあるのでしょうか?

懐かしいな

ちなみにエラー5がときどき出ます。しかも、出る数と出ない数があるのですが、規則性がつかめません。

>>424
たしか実数値や整数値を文字列に変換する組み込み関数だったような…

>>425 たぶんBASIC固有の話ではなく、数値計算一般の問題だと思うが。
45 print r; x
ってのを入れてみろ。ヒントはそこに隠れていそうだな。
次に、手元に「BASICリファレンス マニュアル」があれば
SQR関数ってのも調べてみるといい。
それから、たぶん
40 x=b*r/a
の方がよさそう。区分求積法を教えてくれた人が
x=x+(r/a)なんて書いていたとしたら、その人の言うことは話半分に聞いておけ。

90行のp=4sってのは貼り間違いだろうと思うが要確認。

今からBASICのソース見てみると、変数が宣言無しに使えるって見にくいなぁ
CとかPascalとか使って「いちいち変数宣言しないといけないのは面倒!」とか言ってた頃が怖い…

>>429が言ってる以上のことは特に思いつかないなぁ…
まぁ>>429にあえて突っ込むなら45 print b;xだろうね。rはずっと1だし。

ＭＳ−ＤＯＳ版のN88-BASICって.exeがはき出せるコンパイラあったよね。
どこいったかなぁ。
anex86でコンパイルして、windowsで実行可能なんでしょうか。
98のROM読み出してたりして、無理なのかな。。。

>>408
98用のは、N88(86)BASICとかいうんじゃなかったっけ
うろおぼえ

>>431
不可能です。あれは（当然だけど）bios直接呼ぶので。
普通にエミュレータを使えばいいんじゃないかな？

>>429 >>430
うまくいきました。ありがとうございました。

>>432
たしか、N88(86互換)BASIC

いちいち変数宣言しないといけないのは面倒!

あのー再帰したいんですけど（ｗ

頑張れば再帰と同じことはできます(スタックとか自分で用意)
ただしGOTO地獄になりますが…ああBASICは元からGOTO地獄だね

>>436
変数宣言してないソースを見るのは面倒!

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

んじゃ、これも。

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

>>439-440
ここ貼っとけばいいじゃん…
ttp://www.vector.co.jp./vpack/filearea/win95/prog/basic/index.html

10 print "メリークリスマソ！(｀・ω・´ )ｼｬｷｰﾝ"
20 goto 10

>>413

> OUT&h68,1
> だったかな？の、簡易グラフィックモードが動かなかったなのが謎です。

これってあれかい、あの１キャラクタを８個のドットにするやつかい、
それで属性リストがあって Blink Reverse Secret Upperline Underlineとかあって
で、アンダーラインがたしか１ドットずれてて、チップのバグですとか
いうやつかい。俺まだ覚えてるよ。あのビット配列。２０年前だが
懐かしいぜ、おい。

>>404
> 10 cls :r=0

CLS 2 か 3 だろ。

ああ懐かしいなあ。当時はグラフィック画面消すのも時間がかかって、
640x200って広大なメモリ空間だなあとか思ったもんだ。

ＢＡＳＩＣって今からやっても役に立つ言語ですか？
今ＪＡＶＡをお勉強中でし。やっぱ基礎はＢＡＳＩＣ
なのでしょうか？

>>445
BASICやっても言語自体の知識はほとんど役にたたん。
アルゴリズムとかは勉強になるかもしらんけど。
それはCでも一緒だから、Cをやれ。
Cは言語自体勉強する価値がある。

>>437
GOSUBで再帰って出来なかったっけ？
すぐにスタック溢れそうだが（藁

>>447
再帰もどきは出来る。自分で配列でスタックを作って…とやっていけば。

ベーマガのDr.DはGoto地獄を避け（ようとし）た
プログラムをやたらと評価してたなあ。

昔Dr.Dの髪の毛育成ゲーム送ってボツった頃が懐かしい・・・。

IDが・・・あぁ。

IP記録実験
http://qb.2ch.net/test/read.cgi/accuse/1042013605/

1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。

27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？

38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。

73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。

>>1＝無職
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww

>296
黒澤映画の保護のために著作権の保護期間延ばすとか言ってるやつら、
日本の恥なんでなんとかしてください。

童貞もよは荒らしですか？

>>518
Milk　Cafeで検索汁

　

さぁ拳銃をてに入れて管理人を殺害しよう

>>187
いやいやマスコミじゃなくて、、マスコミも企業イメージ考えた場合
ホイホイ訴訟していてはナニなので小倉はヅラとか言わなきゃだいじょうぶ
だと思いますええ、、

社会批判しちゃだめだとすると、「言いたいことも言えないこんな世の中じゃ〜」
とか書けなくなっちゃってイヤーンです

======2==C==H======================================================

　　　　　　　　　２ちゃんねるのお勧めな話題と
　　　　　ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数： 138720人　発行日：2003/1/9

年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。

そんなわけで、年末に予告したIP記録ですが実験を開始しています。

「２ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。

んじゃ！

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────

>>742
ごっちゃにした方が盛り上がるし。

>時間の約束が守れない奴はどんなに偉かろうが人間的にもうだめぽ

呼びました？

>>187
いつも早朝つか明け方に現われるだよ＜ＴＳＢ
このまえの隊長とのボクシング試合のときも、Kityと絡んでたｗ

>>808
実行されたらネオ麦を超えるんじゃない？

>476
そのうち一人は２個IP持ってるよね。

>>956
でも最近インターネットも単なる情報収集のツールになってきてるんだよなぁ。
例の病院の判決がそれを象徴してる。IPとかはともかくやっぱり寂しいな。

>>580
別に見られても困らないが

(D払?

まぁ落ち着け童貞

296 名前：ひろゆき ◆3SHRUNYAXA [] 投稿日：03/01/08 17:57 ID:rLfxQ17l
黒澤映画ってみる機会ないんですよねぇ、
みてみたいんですが。

＞＞ひろゆき
女紹介してくれ

IP記録について俺は宣言する『マンコ』

言論の自由≠暴言の自由

なんとなく分かりました。thx

犯行予告・個人や法人に対する誹謗中傷
内部告発・差別的発言・タメ口・顔文字

ぐらいかな

スターシアも嘆いている
１４万８千光年は遠すぎたのだ

======2==C==H======================================================

　　　　　　　　　２ちゃんねるのお勧めな話題と
　　　　　ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数： 139038人　発行日：2003/1/10

なにやら、連日メルマガだしてるひろゆきです。

そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。

重くなって落ちたりしてもご愛嬌ってことで。。。

んじゃ！

────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────

名簿屋にログ売られたり


しないよね

日本の場合、日本政府よりも怖い組織が沢山あるから問題だよ。
警察に捕まるのよりも総連や統一教会、創価なんて組織の方が余程怖い。

もし、こういう組織に睨まれたらどうすんじゃね。

勹 廾 千 ュ ― 語 で 誹 謗 Φ 傷 ι て も 訴 之 ら れ ま す 力丶 ？

　
　　まだ生きていたのですか、日本語が不自由で頭の悪いゴミくん。

すでに実験は終わってるから

誰か２ちゃん運営側で匿名堅持のために新掲示板作るやつはいないのか？

＜血液型A型の一般的な特徴＞（見せかけの優しさ・もっともらしさ（偽善）に騙されるな！）
●とにかく気が小さい(神経質、臆病、二言目には「世間」、了見が狭い）
●他人に異常に干渉する（しかも好戦的・ファイト満々でキモイ）
●自尊心が異常に強く、自分が馬鹿にされると怒るくせに平気で他人を馬鹿にしようとする
（ただし、相手を表面的・形式的にしか判断できず(早合点・誤解の名人)、実際にはたいてい、内面的・実質的に負けている）
●「常識、常識」と口うるさいが、実はA型の常識はピントがズレまくっている（日本の常識は世界の非常識）
●権力、強者（警察、暴走族…ｅｔｃ）に弱く、弱者には威張り散らす（強い者に弱く、弱い者には強い）
●あら探しだけは名人級（例え10の長所があってもほめることをせず、たった１つの短所を見つけてはけなす）
●基本的に悲観主義でマイナス思考に支配されているため、性格がうっとうしい（根暗）
●一人では何もできない（群れでしか行動できないヘタレ）
●少数派の異質、異文化を排斥する(差別主義者、狭量）
●集団によるいじめのパイオニア＆天才(陰湿＆陰険）
●悪口、陰口が大好き（Ａ型が３人寄れば他人の悪口、裏表が激しい）
●他人からどう見られているか、体裁をいつも気にしている（「世間体命」、「〜みたい」とよく言う）
●自分の感情をうまく表現できず、コミュニケーション能力に乏しい（同じことを何度も言う、知障）
●表面上意気投合しているようでも、腹は各自バラバラで融通が利かず、頑固(本当は個性・アク強い）
●人を信じられず、疑い深い（自分自身裏表が激しいため、他人に対してもそう思う）
●自ら好んでストイックな生活をし、ストレスを溜めておきながら、他人に猛烈に嫉妬する（不合理な馬鹿）
●執念深く、粘着でしつこい（「一生恨みます」タイプ）
●自分に甘く他人に厳しい（自分のことは棚に上げてまず他人を責める。しかも冷酷）
●男は、女々しいあるいは女の腐ったみたいな考えのやつが多い(他人をけなして相対的に自分の立場を引き上げようとする等）


それと、Ｏ♀はエコヒイキきつくて、冷酷だからな。

Ａ♂の異質排除×Ｏ♀の冷酷＝差別・いじめ　とあいなる。

たとえばここで唐突に広末をどうしたいと叫んだところで、
その広末がどの広末なのか特定するのは事実上不可能です。
しかし特定の有名人の広末を主題とするスレッドで
類似発言を連呼すればグレーゾーンに入りますね。
「ケース・バイ・ケース」という言い古された言葉を
貴方の鈍いオツムに吹き込んでおくしかありません。

上の最後の一行について名誉毀損で訴えますか？（笑

2002年２ちゃんねるアニメランキング1位のアニメに・・・・

モナーが出演決定！！！！！！！！！！！！！！！！！！！！！

<<放送時間>>
1/12
大阪 テレビ大阪 （日）9：30〜10：00
東京 テレビ東京 （日）9：30〜10：00
名古屋 テレビ愛知 （日）9：30〜10：00
福岡 ＴＶＱ九州放送 （日）9：30〜10：00
札幌 テレビ北海道 （日）9：30〜10：00
岡山・高松 テレビせとうち （日）9：30〜10：00　

2002年２ちゃんねるアニメランキング1位のアニメに・・・・

モナーが出演決定！！！！！！！！！！！！！！！！！！！！！

<<放送時間>>
1/12
大阪 テレビ大阪 （日）9：30〜10：00
東京 テレビ東京 （日）9：30〜10：00
名古屋 テレビ愛知 （日）9：30〜10：00
福岡 ＴＶＱ九州放送 （日）9：30〜10：00
札幌 テレビ北海道 （日）9：30〜10：00
岡山・高松 テレビせとうち （日）9：30〜10：00　

ちょっとわかりにくいかも知れませんが教えてください。
何問か問題作ったんですが
最初の問題→正解→2問目→正解→3問目
っていう風に作りたいんですけど、2問目の問題を正解した後3問目に
ループさせるにはどうしたらいいんでしょう？

馬鹿か、こんなもんニュースにするな

よんどｗ

4nd・・(ﾌﾟﾌﾟｯ

２ちゃんねるは生まれ変わります

じゃぁどうやって書き込んだ人に連絡をとるんですかね？

gambleやったんだったらnews3をおまけに
やってくれるのが親切というものだと・・・。

（＾＾）

前スレ上げちまったから
こっち上げるぞ。

（＾＾）