懐かしの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サンスコ。
でも、漏れの実装した嘘をつくというのは
「本物の答に近いニセの答が用意してあって、一定の確率で
本当の答ではなくニセの答との比較結果を教える」
というものっす。
■ このスレッドは過去ログ倉庫に格納されています