懐かしのN88BASICについて語ろうぜ
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNGN88BASIC今現在もやっているよという人熱く語り合いましょう。
0002デフォルトの名無しさん
NGNG0003デフォルトの名無しさん
NGNG0004デフォルトの名無しさん
NGNG0005デフォルトの名無しさん
NGNG0006デフォルトの名無しさん
NGNGもうそんな言語使いたくねえよ。
C言語とJavaがありゃイラネ
0007デフォルトの名無しさん
NGNG0008デフォルトの名無しさん
NGNG今の小学生はVBをやってるのかな。
0009デフォルトの名無しさん
NGNG0010デフォルトの名無しさん
NGNG今じゃそれくらい普通だけど、昔はかなり膨大なプログラムに感じた。
当時 N88BASIC やってたパソコンは、今も健在で、 N88BASIC のディスクまである。
このスレ見て、 3 年ぶりに NEC PC9801EX 動かしてみちゃったよ。
今もちゃんと動作する 3200 行のプログラムと少々うるさい 3.5 インチ FDD 2 基を見て、未熟なころの俺を思い出した。
メインメモリ 640KB、 HDD なし、 12MHz の CPU、 4096 色モニタ。
今ではガラクタのような当時 40 万円のパソコン。
でも、このパソコンがあったからこそ、今の自分があるんだなと感じた。
今では N88互換BASIC っていうソフト使ってる。もちろん、今でも N88BASIC 使うときがある。
たまにだけどね。
今では、 VC++ とか VB とか Delphi とか Java とか、いろいろ掛け持ちしてるけど、 N88BASIC の存在も俺は一生忘れない。
行番号という概念があったおかげで、あまりいい印象を与えてなかった言語だったけどね。
俺に未来を与えてくれた言語、 N88BASIC に敬意を表する。
0011デフォルトの名無しさん
NGNG0012デフォルトの名無しさん
NGNGそしてブビ厨学生になってこの板で暴れまわるw
0013デフォルトの名無しさん
NGNG/ __, ィ_,-ァ__,, ,,、 , 、,,__ -ァ-=彡ヘ ヽ
' 「 ´ {ハi′ } l
| | | |
| ! | | 「How many files?」
| │ 〈 !
| |/ノ二__‐──ァ ヽニニ二二二ヾ } ,'⌒ヽ
/⌒!| =彳o。ト ̄ヽ '´ !o_シ`ヾ | i/ ヽ !
! ハ!| ー─ ' i ! `' '' " ||ヽ l |
| | /ヽ! | |ヽ i !
ヽ { | ! |ノ /
ヽ | _ ,、 ! ,
\ ! '-゙ ‐ ゙ レ'′
`! /
ヽ ゙  ̄  ̄ ` / |
|\ ー ─‐ , ′ !
0014デフォルトの名無しさん
NGNG0015デフォルトの名無しさん
NGNG0016デフォルトの名無しさん
NGNG0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNG0019デフォルトの名無しさん
NGNG一応、VS.NETとかBCCとかjavaとかごちゃごちゃ入ってるけど。
0020デフォルトの名無しさん
NGNG白黒液晶の98note使って。
今はWSでCを教えてるそうな。
0021デフォルトの名無しさん
NGNG>3さん
xpでも使えますよ。
0022デフォルトの名無しさん
NGNGまだ入りたてで、よくわかんないんですが・・・
0023デフォルトの名無しさん
NGNG0024デフォルトの名無しさん
NGNG0025デフォルトの名無しさん
NGNGN88互換BASIC for Windows95
Windows95上で動く N88-BASIC
http://www.vector.co.jp/soft/win95/prog/se055956.html
XPで動くか
わからねーけどよ
0026デフォルトの名無しさん
NGNG配列というものを知らずに
気合で
テトリスを作ったな
配列のかわりに
変数を
a0101 a0102 a0103 ..
a0201 a0202 a0203 ..
..
ってコピペ+手直し
でやってた。
0027デフォルトの名無しさん
NGNG0028デフォルトの名無しさん
NGNG俺も初めてのプログラムはそうだった。
でもって、判定部分の条件分岐で3000行。
0029山崎 渉
NGNG__∧_∧_
|( ^^ )| <寝るぽ(^^)
|\⌒⌒⌒\
\ |⌒⌒⌒~| 山崎渉
~ ̄ ̄ ̄ ̄
0030デフォルトの名無しさん
NGNG0031デフォルトの名無しさん
NGNG0032名前は開発中のものです。
NGNG移植できまいか。
0033デフォルトの名無しさん
NGNG0034_
NGNG0035山崎 渉
NGNG0036デフォルトの名無しさん
NGNG奇遇だなぁ。俺もやってる。
AZI-4301って言うボードを使って繋いでいるんだが、
どうもメモリからの読み込みでうまくいかなくて、
波形が取れたり取れなかったりしてたんだが、
ボードのN88basic用のリファレンスをようやく入手できて
やっとまともに動くようになったよ。
N88basicはメモリ関係が難しいなぁと思ったね。
0037山崎 渉
NGNG│ ^ ^ │<これからも僕を応援して下さいね(^^)。
⊂| |つ
(_)(_) 山崎パン
0038デフォルトの名無しさん
NGNG0039デフォルトの名無しさん
NGNG0040デフォルトの名無しさん
NGNGウチもそうですが何か?
0041デフォルトの名無しさん
NGNGbasicの参考資料が少なくて困り果てております。
どなたかお助けを…。
0042デフォルトの名無しさん
NGNG0043デフォルトの名無しさん
NGNG隅から隅まで熟知してますんで(ぉぃ)、何かあればお聞きくだされ。
>>42
入ってないよ。
0044デフォルトの名無しさん
NGNGそうでもない。まずは VARPTR関数で、変数のアドレスが得られる事を知るべし。
PEEK関数と POKE命令を使う事を覚えるのは、その後でよい。
この3つがあれば、メモリ関係はほぼ何でもOK。
0045デフォルトの名無しさん
NGNG20 goto 10
run
0046デフォルトの名無しさん
NGNG漏れは工業高校いってて情報の授業でやったけど。(4,5年前)
もちろん訳わかんなかった。
で、その翌年、VBを習った。
もちろん訳ワカンネ。
しかし、勢いでVB6ラーニング(アカデミック版)を買ってしまう。
プロフェッショナルを買えばよかったと激しく後悔する。
ろくにやらず挫折。
今はJavaプログラマ見習いだけど、もしかしたら使えるかもと今のPCに一応インスコしてある。
長文スマソ。
0047デフォルトの名無しさん
NGNGそのVBオレにくれ。有効に活用したる。
0048デフォルトの名無しさん
NGNG俺やった。
それではまった!
もちろんセンター入試ではプログラム選んだ。
楽勝だった。
0049デフォルトの名無しさん
NGNGqqbasicスレはここですか?
qqbasic ... Windowsで動作するフリーウェア。ほぼN88書式で行けるハズ
0050デフォルトの名無しさん
NGNGあれぜんぜんだめ。
かなりプログラム書き直さんと動かん。
やっぱ98エミュでN88basic動かしたほうが確実。
0051デフォルトの名無しさん
NGNG0052デフォルトの名無しさん
NGNGあれもっとだめ。
やっぱエミュで動かすのが一番!
0053デフォルトの名無しさん
NGNGハードマニュアル無いしわかんねーよ!!
教えてくださいな。
0054デフォルトの名無しさん
NGNGそれってハードによっても変わらんのかね?
0055デフォルトの名無しさん
NGNGおしかったなぁ 一週間前に テクノウ98 捨てたんだよ。。。
0056デフォルトの名無しさん
NGNGおそらく98である限り変わらないと思います。
>>55
残念、、多分OPEN COM〜CLOSE間でしか書かれていないので
COMポートになんかしてると思うのだが、、、、?
0057デフォルトの名無しさん
NGNG98ならこれ
ttp://hp.vector.co.jp/authors/VA000981/dos-tech/8251-reg.html
ttp://www.webtech.co.jp/undoc/
0058デフォルトの名無しさん
NGNG0059デフォルトの名無しさん
NGNGありがとうございます。助かりました。
0060デフォルトの名無しさん
NGNG<?xml version="1.0" standalone="yes" ?>
<job id="hello">
<script language="N88BASIC">
<![CDATA[
10 print "hello, world"
20 goto 10
]]>
</script>
</job>
0061デフォルトの名無しさん
NGNG10 REM
20 PRINT"数あて"
30 A=5
40 INPUT B
50 IF A>B THEN GOTO 80
60 IF A<B THEN GOTO 120
70 IF A=B THEN GOTO 180
80 LET X=X+1
90 PRINT "もっと大きい"
100 IF X=5 THEN GOTO 160
110 GOTO 40
120 LET X=X+1
130 PRINT "もっと小さい"
140 IF X=5 THEN GOTO 160
150 GOTO 40
160 PRINT "答えは;A;です"
170 GOTO 170
180 PRINT "正解"
190 END
0062デフォルトの名無しさん
NGNG20 PRINT"数あて"
30 A=5
40 INPUT B
50 IF A=B THEN GOTO 130
60 LET X=X+1
70 IF A>B THEN PRINT "もっと大きい"
80 IF A<B THEN PRINT "もっと小さい"
90 IF X=5 THEN GOTO 110
100 GOTO 40
110 PRINT "答えは5です"
120 GOTO 140
130 PRINT "正解"
140 END
0063デフォルトの名無しさん
NGNGあんなもんおもちゃだね。
そんな物より98エミュでN88basic走らせたほうがいい。
0064>>62
NGNG20 PRINT"数あて"
30 A=5
40 INPUT B
50 IF A=B THEN GOTO 130
60 LET X=X+1
70 IF A>B THEN PRINT "もっと大きい"
80 IF A<B THEN PRINT "もっと小さい"
90 IF X=5 THEN GOTO 110
100 GOTO 40
110 PRINT "答えは5です"
120 GOTO 140
130 PRINT "正解"
140 END
0065BASIC初心者
NGNGINPUT"プレイヤーの人数は?";P:IF P<1 THEN GOTO Z
INPUT "上限は?";L:IF L<P THEN GOTO Z
CLS
PRINT "決定!"
PRINT "人数は";P;"人!"
PRINT L;"を言ったら負け!":PRINT
PRINT "スタート!!"
FOR I=1 TO L
FOR K=1 TO P
PRINT "現在";I;"周目"
PRINT "プレイヤー";K;"の入力"
INPUT "(入力は1〜3まで)";D
IF D<1 THEN GOTO Z:IF D>3 THEN GOTO Z
S=S+D
IF S>=L THEN GOTO B:PRINT
PRINT "今の合計は";S;"です"
CLS
NEXT K
NEXT I
LABEL B
PRINT "残念!":PRINT
PRINT "合計が";L;"を超えました"
PRINT "よってプレイヤー";K;"の負け!"
END
LABEL Z
CLS
PRINT"ふざけるなYO!!"EEND
006665
NGNG↓
PRINT"ふざけるなYO!!"
END
006762
NGNG20 INPUT "上限は?", L
30 CLS
40 PRINT "決定!"
50 PRINT "人数は";P;"人!"
60 PRINT L;"を言ったら負け!"
70 PRINT "スタート!!"
80 LET Z=Z+1
90 IF P>=Z THEN GOTO 110
100 LET Z=Z-P
110 PRINT "プレイヤー";Z;"の入力"
120 INPUT "(入力は1〜3まで)";D
130 IF D=3>4 THEN GOTO 120
140 LET S=S+D
150 IF S>=L THEN GOTO 190
160 CLS
170 PRINT "今の合計は";S;"です"
180 GOTO 80
190 PRINT "残念!"
200 PRINT "合計が";L;"を超えました"
210 PRINT "プレイヤー";Z;"の負け!"
220 END
これでええよ
006862
NGNG10 INPUT "プレイヤーの人数は?", P
20 INPUT "上限は?", L
30 CLS
40 PRINT "決定!"
50 PRINT "人数は";P;"人!"
60 PRINT L;"を言ったら負け!"
70 PRINT "スタート!!"
80 LET Z=Z+1
90 IF P>=Z THEN GOTO 110
100 LET Z=Z-P
110 PRINT "プレイヤー";Z;"の入力"
120 INPUT "(入力は1〜3まで)";D
130 IF D=3>4 THEN GOTO 230
140 LET S=S+D
150 IF S>=L THEN GOTO 190
160 CLS
170 PRINT "今の合計は";S;"です"
180 GOTO 80
190 PRINT "残念!"
200 PRINT "合計が";L;"を超えました"
210 PRINT "プレイヤー";Z;"の負け!"
220 GOTO 250
230 PRINT "ふざけるなYO!!"
240 END
0069デフォルトの名無しさん
NGNGありがとうございました〜
007062
NGNG130 IF D=3>4 THEN GOTO 230
は
130 IF D=>4 THEN GOTO 230
220 GOTO 250
は
220 GOTO 240
個人的に面白そうだったから作ってみた。
0071デフォルトの名無しさん
NGNGまたまたありがとうございます〜
なんかBASICで作れるゲームのアイデアないですか?
BASICのアプリ見つけてからハマってしまったw
500文字しか入らないけど
0072デフォルトの名無しさん
NGNGPRINT:PRINT"数当てゲーム!":PRINT
LABEL A
PRINT"数字入力":INPUT"(0〜50)"; N
IF N>50 THEN GOTO Z
CLS
PRINT "スタート!":PRINT
LABEL B
X=X+1
PRINT X;"回目入力":PRINT"いくつ?":INPUT"(0〜50)";M
IF M>50 THEN GOTO Y:IF N>M THEN GOTO I:IF N<M THEN GOTO J:IF N=M THEN GOTO K
LABEL I
CLS
PRINT"小さいよ":PRINT:GOTO B
LABEL J
CLS
PRINT"大きいよ":PRINT:GOTO B
LABEL Y
CLS
PRINT"0〜50だってば":PRINT:GOTO B
LABEL Z
CLS
PRINT"0〜50だってば":PRINT:GOTO A
LABEL K
CLS
PRINT:PRINT"正解!":PRINT:PRINT"答えは【";N;"】":PRINT "挑戦回数";X;"回"
END
0073デフォルトの名無しさん
NGNGここで流行っている「数当てゲーム」だけど。
この数当てゲームを「一定の割合でコンピュータが嘘をつく」ように
変更してみて!
007471
NGNGどうでしょうか。>>62を参考にさせていただきました。試してないんでアレですが…(汗
答えは25、チャンスは50回で、五回入力毎に嘘をつくようになってると思います。
10 REM
20 PRINT"数あて"
30 A=25
35 READ U
40 INPUT B
50 IF A=B THEN GOTO 130
60 LET X=X+1
65 IF A=U THEN GOTO 150
70 IF A>B THEN PRINT "もっと大きい"
80 IF A<B THEN PRINT "もっと小さい"
90 IF X=50 THEN GOTO 110
100 GOTO 40
110 PRINT "答えは25です"
120 GOTO 140
130 PRINT "正解"
140 END
150 IF A<B THEN PRINT "もっと大きい"
160 IF A>B THEN PRINT "もっと小さい"
170 IF X=50 THEN GOTO 110
180 GOTO 35
190 DATA 5,10,15,20,25,30,35,40,45
007562
NGNG10 X=INT(RND(1)*9)
20 PRINT ;X
でOK.なので、
007662
NGNG20 PRINT"数あて"
30 A=5
40 INPUT B
50 IF A=B THEN GOTO 130
60 LET X=X+1
70 IF A>B THEN PRINT "もっと大きい"
80 IF A<B THEN PRINT "もっと小さい"
90 IF X=5 THEN GOTO 110
100 GOTO 40
110 PRINT "答えは5です"
120 GOTO 140
130 PRINT "正解"
140 END
こう見えても中三です。おじさん臭いですかね?
0077デフォルトの名無しさん
NGNGむしろガキ
007862
NGNG20 PRINT"数あて"
30 A=67564
40 INPUT B
50 Y=INT(RND(1)*11)
60 IF Y=5 THEN GOTO 150
70 IF A=B THEN GOTO 10
80 LET X=X+1
90 IF A>B THEN PRINT "もっと大きい"
100 IF A<B THEN PRINT "もっと小さい"
110 IF X=50 THEN GOTO 130
120 GOTO 40
130 PRINT "答えは67564です"
140 GOTO 0
150 IF A<B THEN PRINT "もっと大きい"
160 IF A>B THEN PRINT "もっと小さい"
170 GOTO 40
180 PRINT "正解"
190 END
ごめ、間違えた。
ちなみにA=の後変えれば当てる数字が変わる。
50 Y=INT(RND(1)*11)の11で、確立が変わる。
110 の]が、回数
0079デフォルトの名無しさん
NGNGそれじゃ面白くないよー。嘘をつく場面が限定されているし…。
乱数を使ってランダムに1/5の割合で嘘をつくとか、最初の数値も
乱数で決定するとかしないとゲームにならないな。
008062
NGNGまあ確かにそうかもしれない。
ちょっといまドラクエ5(SFCのw)やってるので、経験値を出すのを作ってみた。
http://uploader.org/normal/data/up5163.txt
0081デフォルトの名無しさん
NGNG008262
NGNG0083デフォルトの名無しさん
NGNG漏れは高校入ったときに弟の技術の教科書でBASICが乗ってたのでそれで覚えた。
自宅にファミベがあったんだが、LINE文とか
0084デフォルトの名無しさん
NGNG0085デフォルトの名無しさん
NGNG0086デフォルトの名無しさん
NGNG0087デフォルトの名無しさん
NGNG鬱 みんあーーーーーーーーーーーー
0088デフォルトの名無しさん
NGNG0089デフォルトの名無しさん
NGNG0090デフォルトの名無しさん
NGNG手元を探したら二冊ほど残ってたけどw
0091デフォルトの名無しさん
NGNGN88-BASICを使っていてまだ絶版になっていないものがいくつかある罠。
0092デフォルトの名無しさん
NGNG0093デフォルトの名無しさん
NGNG0094デフォルトの名無しさん
NGNG構文エラーとか、定義されていないエラーになるのですが・・・・・
いや、間違っていないです、何dも見直しましたし・・・・
0095デフォルトの名無しさん
NGNG互換BASICが互換になってないんだろ。
エミュレーターで動かした方が確実だ。
0096デフォルトの名無しさん
NGNG機械の制御コマンドをBASICで記述しているメーカー(特に下請け)も多いわけだが。
>>86
N88BASIC>>>>(超えられない壁)>>>>(次元の狭間)>>>>N88(互換)BASIC
0097デフォルトの名無しさん
NGNG20 PRINT"数あて"
30 C=INT(RND*100)+1
31 D=C-5+INT(RND*11)
40 INPUT B
41 IF INT(RND*4)=1 THEN A=D ELSE A=C
50 IF A=B THEN GOTO 130
60 X=X+1
65 IF A=B THEN GOTO 150
70 IF A>B THEN PRINT "もっと大きい"
80 IF A<B THEN PRINT "もっと小さい"
90 IF X=50 THEN GOTO 110
100 GOTO 40
110 PRINT "答えは";C;"です"
120 GOTO 140
130 PRINT "正解"
140 END
この数当てはおよそ4回に1回は嘘をつきます。
0098デフォルトの名無しさん
NGNGおかしいようなので修正してみた。
10 REM
20 PRINT"数あて"
30 C=INT(RND*100)+1
40 INPUT B
41 A=C
42 IF INT(RND*4)=1 THEN SWAP A,B
50 IF A=B THEN GOTO 130
60 X=X+1
70 IF A>B THEN PRINT "もっと大きい"
80 IF A<B THEN PRINT "もっと小さい"
90 IF X=50 THEN GOTO 110
100 GOTO 40
110 PRINT "答えは";C;"です"
120 GOTO 140
130 PRINT "正解"
140 END
0099デフォルトの名無しさん
NGNG0100デフォルトの名無しさん
NGNGメモリさえ許せば十分可能。
ボコスカウォーズはBASICだったらしいね。
010197
NGNGサンスコ。
でも、漏れの実装した嘘をつくというのは
「本物の答に近いニセの答が用意してあって、一定の確率で
本当の答ではなくニセの答との比較結果を教える」
というものっす。
0103デフォルトの名無しさん
NGNG0104デフォルトの名無しさん
NGNG20 goto 10
0105デフォルトの名無しさん
NGNGバスマウスのドライバーをアセンブラでロードして・・・
windowsまがいのものを作ってた(マルチタスクではない)
0106デフォルトの名無しさん
NGNG俺と同じようなことしてるやつがいた・・・・
俺は割り込み使わないマウスドライバ作って使ってた
半角が6x12ドットのDOS窓とか・・・
ってそれは BASIC じゃなかったな
BASIC では・・・大したことはしていあい
0107デフォルトの名無しさん
NGNG0108デフォルトの名無しさん
NGNG0109デフォルトの名無しさん
NGNG0110108
NGNG例)PRINT "PRINT・・・
ちなみに、OKを考えなくていいのなら簡単な答えがあります。
0111デフォルトの名無しさん
NGNG0112デフォルトの名無しさん
NGNG0113デフォルトの名無しさん
NGNG正解です。
0114デフォルトの名無しさん
NGNG0115デフォルトの名無しさん
NGNGPRINT文を使うということで。
0116デフォルトの名無しさん
NGNGWinXPもそうなりゃオモロイのだが…
0117デフォルトの名無しさん
NGNGLOAD "〜" プログラムを呼び出す
0118デフォルトの名無しさん
NGNG0119デフォルトの名無しさん
NGNGdebug.exe
0120デフォルトの名無しさん
NGNG10 rem 2次方程式の解
20 input "a,b,c=" ;a,b,c
30 d=b^2-4*a*c
40 if d<0 then goto 100
50 r=sqr(d)
60 x1=(-b+r)/(2*a)
70 x2=(-b-r)/(2*a)
80 print x1,x2
90 goto 110
100 print "解なし"
110 end
0121デフォルトの名無しさん
NGNGWinBASIC
0122デフォルトの名無しさん
NGNGBASICC.COM
0123デフォルトの名無しさん
NGNG0124デフォルトの名無しさん
NGNGどうすれば入力と出力が同じになるかわからない(-_-)ウツダシノウ
0125デフォルトの名無しさん
NGNGもう答え出ている
0127デフォルトの名無しさん
NGNG0128120
NGNG0129デフォルトの名無しさん
NGNGこの前、NECのホームページにMS−DOSのN88BASICがあったんですが、これは今のパソコンでも使えるのでしょうか?
初歩的な質問ですいません。
0130デフォルトの名無しさん
NGNG「ハニリイト」とか「リニトカ」の悲しい記憶が・・・
0131デフォルトの名無しさん
NGNG98エミュを使えば動く。
それ以外はPC-98でなければ動作しない。
0132FeaturesOfTheGod ◆UdoWOLrsDM
NGNGBASICか、WSHで作成してください。
0133デフォルトの名無しさん
NGNGN88BASICで? 作るのはいいけど公開する手段がないなぁ。
なんせ、LANなんてない時代だし5.25"のFDドライブがWindows端末にないし。
0134FeaturesOfTheGod ◆UdoWOLrsDM
NGNG0135デフォルトの名無しさん
NGNGどこにあるの?
0136デフォルトの名無しさん
NGNG0137デフォルトの名無しさん
NGNG,/ヽ
,/ ヽ
∧_∧ ,/ ヽ
( ´∀`),/ ヽ
( つつ@ ヽ
__ | | | ヽ
|――| (__)_) ヽ
 ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄| ヽ
/⌒\/⌒\/⌒\/⌒\|彡~゚ ゜~ ~。゜ ~ ~ ~ ~~ ~ ~~ ~ ~~ ~~ ~~
⌒\/⌒\/⌒\/⌒\/⌒\彡 〜 〜〜 〜〜 〜〜 〜 〜
Q:釣れますか?
A:ええ、雑魚(>135)が一匹。
0138デフォルトの名無しさん
NGNG10 print "キーコードを出力したいキーを押してください。"
20 a$=input$(1)
30 print "キーコードは ";asc(a$);"です。"
40 emd
0139138
NGNGファンクションキー押したらどうなったっけ?
0141デフォルトの名無しさん
NGNGファンクションキーに割り当ててある文字が順番にキャッシュに入るだけ。
0142FeaturesOfTheGod ◆UdoWOLrsDM
NGNGどうもありがとうございます。
これでスラッシュの隣のバックスラッシュを押したら255が出ました。
やっぱり私の環境に異常があるようです。
0143デフォルトの名無しさん
NGNG正六角形の中心から対角線方向を選んで進むランダム・ウォークを行うプログラムを次の二通りで作成する。
1) サイコロで方向を決め、IF文で各方向に移動距離を計算するプログラム。
2) 最初に6方向の移動距離を計算して配列(DIM)に保存し、利用するプログラム。
0144デフォルトの名無しさん
NGNG0145デフォルトの名無しさん
NGNG0146デフォルトの名無しさん
NGNG0147デフォルトの名無しさん
NGNG0148デフォルトの名無しさん
05/03/08 13:24:300149デフォルトの名無しさん
05/03/08 13:33:550150デフォルトの名無しさん
05/03/08 18:35:090151デフォルトの名無しさん
05/03/08 19:46:34すばらしい遅さだったが・・・
0152デフォルトの名無しさん
05/03/08 19:55:590153デフォルトの名無しさん
2005/05/15(日) 01:24:59r-、' ´ `ヽr-、
ィ7 /l: ハヽハ トヾ 名スレを沈めることは、この俺が許さん!
'|l |'´_` ´_ `| || 信念に基づいて行動する。
| |´ヒ} ヒ}`! l| それを人は正義と言う。
__ノ゙). 从 l, _'_. |从 今俺が行ってることは、荒らしではない。
,_'(_ ノ_ヽ ヾl.> - ,イ;リ 正義という名の粛清だぁ!
{ f:テ} {'f:テ}',/\ヽ--//ヽ
ヽ,r─‐ 、ィ .、、 i l>Y<! i '、 バーニング!
/ iゝ_ノ iヽ /l |l l ',
lンヽ/ムノじ
0154デフォルトの名無しさん
2005/05/15(日) 09:30:09<■>
/ \
0155デフォルトの名無しさん
2005/06/10(金) 02:44:37CSK世代は読んでみれ。
http://www.tanteifile.com/diary/index_shibaru.html
0156デフォルトの名無しさん
2005/07/08(金) 16:16:490157デフォルトの名無しさん
2005/07/08(金) 16:17:40すいません、N88互換BASICの間違いでした。
0158デフォルトの名無しさん
2005/07/08(金) 18:47:45無理に決まってるだろ。
馬鹿か。
0159デフォルトの名無しさん
2005/07/08(金) 18:59:09できるよ
もちろんI/Oから先は自力になるけど
0160デフォルトの名無しさん
2005/07/08(金) 19:30:190161デフォルトの名無しさん
2005/07/08(金) 23:30:500163デフォルトの名無しさん
2005/07/11(月) 05:23:38OUTとINPが使えないようなので困っているのですがどのようにすればいいですか?
もし、迷惑でなければ教えてください。
0164デフォルトの名無しさん
2005/07/11(月) 06:46:04自分でドライバ作って自力で実装しろって事だろ。
0165デフォルトの名無しさん
2005/07/11(月) 09:58:55・・・えっ、互換BASIC?IOPLが0だから無理。
I/O命令はカーネルモードじゃないとダメポ。
0166デフォルトの名無しさん
2005/07/11(月) 10:10:230167デフォルトの名無しさん
2005/07/11(月) 23:39:520168デフォルトの名無しさん
2005/07/12(火) 06:58:57パラレルはドライバが必要だが。
0169デフォルトの名無しさん
2005/07/13(水) 01:06:17通信するだけなら大抵"COMn"のOPENでおk
0170デフォルトの名無しさん
2005/07/13(水) 02:01:430171デフォルトの名無しさん
2005/07/13(水) 02:24:30これなら2000/XPでINP/OUTが使えるようだが↓
ttp://www.dennougumi.co.jp/products/basic98/ver5/index.html
0172デフォルトの名無しさん
2005/10/15(土) 15:44:45改訂しつつ、今も使ってる私は 神 ?
0173デフォルトの名無しさん
2005/10/16(日) 04:36:340174デフォルトの名無しさん
2005/12/19(月) 23:06:15プログラム全然わからなくて><教えてくださぃ・・・(´・ω・`)
1、配列に以下の値を代入して以下の計算をしなさい。
111+112+113+114+115+116+117+118+119+120+121=?
配列に代入した値も表示する。
2、配列に適当な値(15〜19ぐらい)を代入(読み込む)しその値を出力
する。総和、平均、標準偏差を求め出力しなさい。配列内の値を小さい
順に並べて出力しなさい。
(´・ω・`)
0175デフォルトの名無しさん
2005/12/19(月) 23:12:40・・・答えられる奴いるのかなあ(大藁
案外居そうな気もするが。
0176デフォルトの名無しさん
2005/12/19(月) 23:52:361.
100 DIM N(10):M=0
110 FOR I=0 TO 10
:N(I)=I+111:PRINT I+111: M=M+I+111
120 NEXT:PRINT M
2.
200 DIM X(2)
210 FOR I=1 TO 2:INPUT X(I): PRINT X(I):NEXT
220 T=X(1)+X(2):A=T/2:S=SQR((X(1)-A)^2+(X(2)-A)^2)
230 PRINT T,A,S
240 IF X(1)>X(2) THEN PRINT X(2),X(1) ELSE PRINT X(1),X(2)
0177デフォルトの名無しさん
2005/12/20(火) 00:43:55ご丁寧にありがとうございます<(_ _)>
また機会がありましたらよろしくお願いいたします・・・。
ウワァァ-----。゚(゚´Д`゚)゚。-----ン!!!!
0178デフォルトの名無しさん
2005/12/20(火) 18:48:310179デフォルトの名無しさん
2005/12/20(火) 22:56:150180チラシの裏
2006/02/02(木) 17:55:20N88日本語BASIC(86) DISK-BASIC期
1.マイコンBASICのプログラムをチマチマ入力して遊ぶ(ジャンピングアッタク?が秀逸)
2.モニターモードで遊ぶ
3.I/O掲載のホバーアタック・ルーサイトのマシン語をチマチマ入力
4.GDCのI/Oを弄って遊ぶ
MS-DOS期
1.DOSは、これまでの資産がほとんど使えないので放置される
2.Turbo C&Turbo Assembler を学割で買う(6000円くらいだった?)
3.N88日本語BASIC(86)DOS版を買うが、モニターモードがないので放置
4.Cにはまる
Win3.1期
1.Winのプログラムがわけわかめで、プログラムとの決別宣言
2.でも、ちょっとやってみようかなと、Borland C++を買う
3.他人ライブラリを使う事に抵抗を感じるも、WinGを使う
Win95〜期
1.Winにも成れてきたが、気が乗らないのでプログラムは放置される
2.Delphiが気になるが、Pascalが分からない・・・。
3.C++Builder登場!早速購入!(待ってたのよ、こんなツールを)
4.DirectXで遊ぶ
5.仕事でN88日本語BASIC(86)のプログラムに触れ、懐かしさに涙す
6.ゲーム改造ツール職人と化す
そして現在
1.I/O掲載のホバーアタックが移植できないかと画策中
宝物:98ハードに強くなる本 ハードウェア・テクニカルガイド 2
PC-9801プログラマーズBible
0181デフォルトの名無しさん
2006/02/03(金) 09:06:19> 1.I/O掲載のホバーアタックが移植できないかと画策中
是非お願いします。
0182デフォルトの名無しさん
2006/02/06(月) 10:22:130183デフォルトの名無しさん
2006/02/06(月) 17:59:33mon
*
これのことじゃね
ちなみに
*G0
でリブートしたよね。
0184デフォルトの名無しさん
2006/03/03(金) 01:09:5910 '前処理
20 FM-NEW7を買ってF-BASICにはまるが、マシン語のサブシステム乗っ取りは難しくて手を出さず。
25 プロポシェのPF-Xを打ち込んでゲーム書きまくり。
30 '88
40 PC-8801を買って、ナツメ社のLOGOSを入手してゲーム書きまくり。
50 '88V2
60 PC-8801MHを買って、テンポずれと戦いながら音を鳴らして遊ぶ。
70 '98
80 大学のPC-9801DAで音を鳴らすも、長い音符が短く鳴ると言うバグに萎える。
90 PC-486SRを買い、同時にQuick BASICを入手。
100 行番号なしやブロック構文にとまどうも、すぐになれて便利さに感動。
110 ドットの雪を降らすプログラムで、400ドット同時くらいいけて32ビットパワーに驚く。
120 Oh!Xの特集をたまたま読んでフラクタルにはまるが、当時はFPUがなくて遅かった。
130 'VB
140 仕事でVB2初体験。何をどこから書き始めてよいのやらもわからず絶望する。
150 VB4,5,6で順調に仕事。
160 仕事仲間がGoSub...ReturnやDefIntを知らないことにショックを受ける。
170 ローカル変数宣言のDimって何の意味?とか聞かれてショックを受ける。
180 Mid$(Date$, 6, 2)という今月の取得コードを見て懐かしさを感じる。
190 しかしよく見るとMid(Date, 6, 2)と$が抜けており、Dateが環境依存の文字列を返すのでバグっていることに気づいてショックを受ける。
200 'VB.NET
210 仕事の都合でC#になったのでついにBASICとサヨウナラ。
220 While...WendがVB.NETでなぜか生き残り、あまつさえExit Whileという強化機能まで付いているのを見てショックを受ける。
230 Do While...Loopでいいじゃん。
240 「VB.NETでは行番号の後ろにはコロンを付けます」という説明を読んで違和感を覚える。
250 正確には「行番号は廃止され、代わりに数字だけのラベルを使用できる」の間違いだろう。
260 未だに変数名の先頭をFNにすることに抵抗がある。
270 ちょっとした処理をN88互換BASICで書こうとしてVBScriptに落ち着く日々。
0185GiantLeaves ◆6fN.Sojv5w
2006/03/03(金) 16:29:380186デフォルトの名無しさん
2006/03/04(土) 00:16:380187デフォルトの名無しさん
2006/03/04(土) 01:39:28そんな命令無視で良いじゃん
0188デフォルトの名無しさん
2006/03/04(土) 11:48:22それよりもデカイメモリ扱う際はどうするんだ?
0189デフォルトの名無しさん
2006/03/04(土) 12:29:42つ [I・Oバンクメモリ]
0190デフォルトの名無しさん
2006/03/06(月) 10:07:570191デフォルトの名無しさん
2006/03/06(月) 23:20:24そういえば、アレのメッセージで「物理フォーマットしています」
とかでてたけど、論理フォーマットしてるようなメッセージなかったなあ、
とどうでもいいことを思い出した。
0192デフォルトの名無しさん
2006/03/07(火) 09:39:200193デフォルトの名無しさん
2006/03/08(水) 13:51:340194デフォルトの名無しさん
2006/03/08(水) 21:16:3520 POKE I , 0
30 NEXT I
0195デフォルトの名無しさん
2006/03/08(水) 22:22:04確かformat.n88だったような。
0196デフォルトの名無しさん
2006/03/09(木) 10:07:55そかそか。 なんとかnipってのなかったっけ?
0197デフォルトの名無しさん
2006/03/09(木) 16:17:17そんな思い出しかないんだがw
Syntax error
0198デフォルトの名無しさん
2006/03/09(木) 17:17:300199http://www.vector.co.jp/soft/win95/util/se072729.html
2006/03/18(土) 22:36:21もしくは64bitにネイティブ対応したテキスト置換ソフトありますか?
そういや64bitにネイティブ対応している2chブラウザてありましたっけ?
0200デフォルトの名無しさん
2006/03/21(火) 14:57:520201デフォルトの名無しさん
2006/05/13(土) 23:54:500202デフォルトの名無しさん
2006/05/14(日) 11:55:31アクティブでやろうとするとエラー多発
初心者の俺には訳不明な件
0203デフォルトの名無しさん
2006/05/14(日) 12:33:14DIM、RND、などなど記述がかなり違うからね。手に入るならF-basicのがいい。
0204デフォルトの名無しさん
2006/05/14(日) 17:27:050205デフォルトの名無しさん
2006/05/14(日) 17:27:570206デフォルトの名無しさん
2006/05/16(火) 23:53:240207デフォルトの名無しさん
2006/05/29(月) 08:07:23こんなスレあったのかと、はじめから読んでたら、
>>171
ttp://www.dennougumi.co.jp/products/basic98/ver5/index.html
が出てきてびっくり!
確か、構造化BASIC/98(?)とか何とか呼ばれてたやつの生き残りか?
これは、よくこけて、当時ほとんど使いものにならなかったな。
+模様(?)が動き回るのがおもしろくて、
+よく、マシン語VRAMにロードして走らせたな。
+ある時、LINEDT.COM(うろ覚え)で作った大量のコードを、
+保存もせず、客に自慢たらしく見せていて、
+思わず、CLS [←┘]。
0208デフォルトの名無しさん
2006/05/29(月) 19:37:42【昔取った】BASIC/98 Ver.5【杵柄】
http://pc8.2ch.net/test/read.cgi/tech/1114815249/
0209デフォルトの名無しさん
2006/06/06(火) 20:09:15数字以外ならもう一度入力させるにはどうすれば?
初心者でゴメン
0210デフォルトの名無しさん
2006/06/06(火) 23:04:080211デフォルトの名無しさん
2006/06/07(水) 06:45:0820 IF A$ <"0" OR A$>"9" THEN 10
30 B=VAL(A$)
0212デフォルトの名無しさん
2006/06/23(金) 20:41:0910 cls
20 x=600:xa=0:y=400:ya=0:r=20:xaa=rnd:yaa=rnd
30 circle (x,y),r,,,,,F,2
40 if y>400 then yaa=-rnd
50 if x>600 then xaa=-rnd
60 if y<400 then yaa=rnd
70 if x<600 then xaa=rnd
80 xa=xa+xaa:ya=ya+yaa:x=x+xa:y=y+ya:r=r+0.01
90 if r>100 then 10 else 30
0213デフォルトの名無しさん
2006/06/29(木) 16:23:21父親がPC98 MS dos3.3の上でN88BASICのプログラムを書いたものを今でも使用しています
Windows上でもN88BASICのプログラムが動かせるソフトがあるということで
勉強してWin機でも使用できるようにしてあげれたらなぁと思い
プログラムのソースをPC98のパソコンからFDにコピーもらったのですが
秀丸で開こうとすると 文字化けが発生してしまいソースを見ることができませんでした
XPでコピーしてもらったファイルを開けるようにすることは可能なのでしょうか?
何か手順がありましたら教えていただけないでしょうか
0214デフォルトの名無しさん
2006/06/29(木) 17:31:02えみゅ
0215213
2006/06/29(木) 18:06:14返答有難うございます
詳しく教えていただけないでしょうか
まったく初めてN88BASICをさわるものでして
ActiveBasicなどに入れてあげればいいという意味でしょうか
0216デフォルトの名無しさん
2006/06/29(木) 18:25:24PC98エミュでぐぐれ。
0217213
2006/06/29(木) 20:11:04エミュレータでどうにかなりそうかなと思っております
今後Cなどで父親のプログラムを書き直すかもしれないことも考え
プログラム自体をメモ帳などで開く方法を教えていただけないでしょうか?
よろしくお願いいたします
0218デフォルトの名無しさん
2006/06/29(木) 20:48:15メモ帳で文字化けしている辺り、文字コードはJIS?
ブラウザにD&Dすれば文字コードを判別して正しく表示してくれるはず。
バイナリセーブだとこいつでアスキー形式に出来る。
ttp://www.vector.co.jp/soft/win95/prog/se063951.html
あと、N88BASICとActiveBasicは完全に別物。むしろVisualBasicに近いか。
0219デフォルトの名無しさん
2006/06/29(木) 21:10:59市販品だとF-BASICやBASIC/98など(まだ売ってるかどうかは知らんが)
0220213
2006/06/29(木) 23:52:45アスキー保存にしたところ問題なく 秀丸でも表示することができました
有難うございました
0221デフォルトの名無しさん
2006/07/18(火) 12:54:280222デフォルトの名無しさん
2006/07/18(火) 19:31:430223デフォルトの名無しさん
2006/07/19(水) 11:37:20ディスクLIOでファイルを操作する方法が知りたいです
0224デフォルトの名無しさん
2006/09/25(月) 19:41:32なぜ貴様らはモモを描きやがりませんか?
■ このスレッドは過去ログ倉庫に格納されています