トップページtech
224コメント60KB

懐かしのN88BASICについて語ろうぜ

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
この板には無いようだから一応立ててみました。
N88BASIC今現在もやっているよという人熱く語り合いましょう。
0002デフォルトの名無しさんNGNG
定期的に立つなぁ
0003デフォルトの名無しさんNGNG
XPでN88BASICって可能ですか?
0004デフォルトの名無しさんNGNG
連休?
0005デフォルトの名無しさんNGNG
あげ
0006デフォルトの名無しさんNGNG
>>1
もうそんな言語使いたくねえよ。
C言語とJavaがありゃイラネ
0007デフォルトの名無しさんNGNG
DABA最強
0008デフォルトの名無しさんNGNG
懐かしいね。
今の小学生はVBをやってるのかな。
0009デフォルトの名無しさんNGNG
あげ
0010デフォルトの名無しさんNGNG
昔、 N88BASIC で 3200 行くらいのプログラム作ってたなぁ。
今じゃそれくらい普通だけど、昔はかなり膨大なプログラムに感じた。

当時 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デフォルトの名無しさんNGNG
age
0012デフォルトの名無しさんNGNG
>>8
そしてブビ厨学生になってこの板で暴れまわるw
0013デフォルトの名無しさんNGNG
    /                    ヽ
   / __, ィ_,-ァ__,, ,,、  , 、,,__ -ァ-=彡ヘ  ヽ
    ' 「      ´ {ハi′          }  l     
   |  |                    |  |
   |  !                        |  |   「How many files?」
   | │                   〈   !    
   | |/ノ二__‐──ァ   ヽニニ二二二ヾ } ,'⌒ヽ   
  /⌒!|  =彳o。ト ̄ヽ     '´ !o_シ`ヾ | i/ ヽ !   
  ! ハ!|  ー─ '  i  !    `'   '' "   ||ヽ l |   
 | | /ヽ!        |            |ヽ i !   
 ヽ {  |           !           |ノ  /  
  ヽ  |        _   ,、            ! ,       
   \ !         '-゙ ‐ ゙        レ'′    
     `!                    /
     ヽ     ゙  ̄   ̄ `     / |
       |\      ー ─‐       , ′ !
0014デフォルトの名無しさんNGNG
excelのvbaで充分だろ、焼酎某は
0015デフォルトの名無しさんNGNG
今の商業高校はCOBOLとVBの授業はあるけど、CもJavaは教えないそうだ。
0016デフォルトの名無しさんNGNG
C/C++は教えます。
0017デフォルトの名無しさんNGNG
名スレの予感
0018デフォルトの名無しさんNGNG
N88BASIC.NETを作ってください。
0019デフォルトの名無しさんNGNG
うちの大学(経済)もdelphi止まり。
一応、VS.NETとかBCCとかjavaとかごちゃごちゃ入ってるけど。
0020デフォルトの名無しさんNGNG
俺が学校で習ったときはFORTRANだった。(工学部機械系)
白黒液晶の98note使って。
今はWSでCを教えてるそうな。

0021デフォルトの名無しさんNGNG
今、授業で使ってるんだが・・・
>3さん
xpでも使えますよ。
0022デフォルトの名無しさんNGNG
うちの学校の技術部で、使ってます。>PC9801
まだ入りたてで、よくわかんないんですが・・・
0023デフォルトの名無しさんNGNG
えーじ
0024デフォルトの名無しさんNGNG
センター試験の数学にあるよね>>BASIC
0025デフォルトの名無しさんNGNG
ほらよ

N88互換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デフォルトの名無しさんNGNG
レッツ、メイキング、信長の野望
0028デフォルトの名無しさんNGNG
>>26
俺も初めてのプログラムはそうだった。
でもって、判定部分の条件分岐で3000行。
0029山崎 渉NGNG

 __∧_∧_
 |(  ^^ )| <寝るぽ(^^)
 |\⌒⌒⌒\
 \ |⌒⌒⌒~|         山崎渉
   ~ ̄ ̄ ̄ ̄
0030デフォルトの名無しさんNGNG
大学でGP-IB経由でオシロスコープ制御するのに使ってる
0031デフォルトの名無しさんNGNG
ソースくれ。
0032名前は開発中のものです。NGNG
ワンダースワンて8086だよね。
移植できまいか。
0033デフォルトの名無しさんNGNG
RATBASは?
0034_NGNG
http://homepage.mac.com/hiroyuki44/
0035山崎 渉NGNG
(^^)
0036デフォルトの名無しさんNGNG
>>30
奇遇だなぁ。俺もやってる。
AZI-4301って言うボードを使って繋いでいるんだが、
どうもメモリからの読み込みでうまくいかなくて、
波形が取れたり取れなかったりしてたんだが、
ボードのN88basic用のリファレンスをようやく入手できて
やっとまともに動くようになったよ。
N88basicはメモリ関係が難しいなぁと思ったね。
0037山崎 渉NGNG
    (⌒V⌒)
   │ ^ ^ │<これからも僕を応援して下さいね(^^)。
  ⊂|    |つ
   (_)(_)                      山崎パン
0038デフォルトの名無しさんNGNG
まもなく1000
0039デフォルトの名無しさんNGNG
中学校なんかN88だよ。
0040デフォルトの名無しさんNGNG
>>39
ウチもそうですが何か?
0041デフォルトの名無しさんNGNG
我が中学校のパソコン部ではNECの16ビットマシンでn8basicをやってる。
basicの参考資料が少なくて困り果てております。
どなたかお助けを…。
0042デフォルトの名無しさんNGNG
今のROMにはBASICなんて入ってないんだろうか。
0043デフォルトの名無しさんNGNG
>>41
隅から隅まで熟知してますんで(ぉぃ)、何かあればお聞きくだされ。

>>42
入ってないよ。
0044デフォルトの名無しさんNGNG
>>36
そうでもない。まずは VARPTR関数で、変数のアドレスが得られる事を知るべし。
PEEK関数と POKE命令を使う事を覚えるのは、その後でよい。
この3つがあれば、メモリ関係はほぼ何でもOK。
0045デフォルトの名無しさんNGNG
10 print "コンニチワ"
20 goto 10
run
0046デフォルトの名無しさんNGNG
思ったんだけど、高校の数学でBASICやる(やってる)学校ってあるのかね?
漏れは工業高校いってて情報の授業でやったけど。(4,5年前)
もちろん訳わかんなかった。

で、その翌年、VBを習った。
もちろん訳ワカンネ。
しかし、勢いでVB6ラーニング(アカデミック版)を買ってしまう。
プロフェッショナルを買えばよかったと激しく後悔する。
ろくにやらず挫折。

今はJavaプログラマ見習いだけど、もしかしたら使えるかもと今のPCに一応インスコしてある。


長文スマソ。
0047デフォルトの名無しさんNGNG
>>46
そのVBオレにくれ。有効に活用したる。
0048デフォルトの名無しさんNGNG
>>46
俺やった。
それではまった!
もちろんセンター入試ではプログラム選んだ。
楽勝だった。
0049デフォルトの名無しさんNGNG
N88BASICのクローン
qqbasicスレはここですか?

qqbasic ... Windowsで動作するフリーウェア。ほぼN88書式で行けるハズ
0050デフォルトの名無しさんNGNG
>>49
あれぜんぜんだめ。
かなりプログラム書き直さんと動かん。
やっぱ98エミュでN88basic動かしたほうが確実。
0051デフォルトの名無しさんNGNG
N88互換BASIC for WINという便利なものが世に出ているのを知っていますか?
0052デフォルトの名無しさんNGNG
>>51
あれもっとだめ。
やっぱエミュで動かすのが一番!
0053デフォルトの名無しさんNGNG
OUT &H32,&H37 ってのは、なんなんだ?
ハードマニュアル無いしわかんねーよ!!

教えてくださいな。
0054デフォルトの名無しさんNGNG
>>53
それってハードによっても変わらんのかね?
0055デフォルトの名無しさんNGNG
>>53
おしかったなぁ 一週間前に テクノウ98 捨てたんだよ。。。
0056デフォルトの名無しさんNGNG
>>54
おそらく98である限り変わらないと思います。

>>55
残念、、多分OPEN COM〜CLOSE間でしか書かれていないので
COMポートになんかしてると思うのだが、、、、?
0057デフォルトの名無しさんNGNG
>>53
98ならこれ
ttp://hp.vector.co.jp/authors/VA000981/dos-tech/8251-reg.html
ttp://www.webtech.co.jp/undoc/
0058デフォルトの名無しさんNGNG
WSHで使えるN88BASICキボンヌ
0059デフォルトの名無しさんNGNG
>>57
ありがとうございます。助かりました。
0060デフォルトの名無しさんNGNG
>>58 こんなふうに使えるやつかい。

<?xml version="1.0" standalone="yes" ?>
<job id="hello">
<script language="N88BASIC">
<![CDATA[
10 print "hello, world"
20 goto 10
]]>
</script>
</job>
0061デフォルトの名無しさんNGNG
N88互換BASIC for Windows95はxpでも動きます。
10 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デフォルトの名無しさんNGNG
10 REM
20 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
>>61
あんなもんおもちゃだね。
そんな物より98エミュでN88basic走らせたほうがいい。
0064>>62NGNG
10 REM
20 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初心者NGNG
実行できません。どこがおかしいのですか?教えてください。
INPUT"プレイヤーの人数は?";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
006665NGNG
PRINT"ふざけるなYO!!"EEND

PRINT"ふざけるなYO!!"
END
006762NGNG
10 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 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
これでええよ
006862NGNG
訂正
10 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
>>68
ありがとうございました〜
007062NGNG
訂正2
130 IF D=3>4 THEN GOTO 230

130 IF D=>4 THEN GOTO 230

220 GOTO 250

220 GOTO 240

個人的に面白そうだったから作ってみた。
0071デフォルトの名無しさんNGNG
>>70
またまたありがとうございます〜

なんかBASICで作れるゲームのアイデアないですか?
BASICのアプリ見つけてからハマってしまったw
500文字しか入らないけど
0072デフォルトの名無しさんNGNG
>>62辺りを参考に作ってみました。無駄が多いと思いますが、見てやってください。


PRINT: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
>>71
ここで流行っている「数当てゲーム」だけど。
この数当てゲームを「一定の割合でコンピュータが嘘をつく」ように
変更してみて!
007471NGNG
>>73
どうでしょうか。>>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
007562NGNG
ちなみに、10までの乱数を出すのは
10 X=INT(RND(1)*9)
20 PRINT ;X
でOK.なので、
007662NGNG
10 REM
20 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
>>76
むしろガキ
007862NGNG
10 REM
20 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
>>74
それじゃ面白くないよー。嘘をつく場面が限定されているし…。
乱数を使ってランダムに1/5の割合で嘘をつくとか、最初の数値も
乱数で決定するとかしないとゲームにならないな。
008062NGNG
>>79
まあ確かにそうかもしれない。
ちょっといまドラクエ5(SFCのw)やってるので、経験値を出すのを作ってみた。
http://uploader.org/normal/data/up5163.txt
0081デフォルトの名無しさんNGNG
Auto 10
008262NGNG
>>80にはいかないで。
0083デフォルトの名無しさんNGNG
なつかしいなぁ
漏れは高校入ったときに弟の技術の教科書でBASICが乗ってたのでそれで覚えた。
自宅にファミベがあったんだが、LINE文とか
0084デフォルトの名無しさんNGNG
教科書か。
0085デフォルトの名無しさんNGNG
N88BASIC の書籍ってありますかね今も
0086デフォルトの名無しさんNGNG
N88(互換)BASICの大作プログラムUP希ヴォァーン
0087デフォルトの名無しさんNGNG
N88BASICの職がないのですが・・・大型店行ったのに・・・・
鬱  みんあーーーーーーーーーーーー
0088デフォルトの名無しさんNGNG
今時N88-BASICを使う職があるほうが奇跡。
0089デフォルトの名無しさんNGNG
書籍は、古本屋で探したほうが懸命ですか。?
0090デフォルトの名無しさんNGNG
いくら何でも絶版だろうなあ。。。
手元を探したら二冊ほど残ってたけどw
0091デフォルトの名無しさんNGNG
機械工学や建築・土木工学の専門書で数値計算を扱ってる本の中には
N88-BASICを使っていてまだ絶版になっていないものがいくつかある罠。
0092デフォルトの名無しさんNGNG
ブックオフに突撃ます
0093デフォルトの名無しさんNGNG
ブックオフフウフhッフフフフフフ
0094デフォルトの名無しさんNGNG
「N88互換BASIC」で、PUT KANJI命令が、
構文エラーとか、定義されていないエラーになるのですが・・・・・
いや、間違っていないです、何dも見直しましたし・・・・
0095デフォルトの名無しさんNGNG
>>94
互換BASICが互換になってないんだろ。
エミュレーターで動かした方が確実だ。
0096デフォルトの名無しさんNGNG
>>88
機械の制御コマンドをBASICで記述しているメーカー(特に下請け)も多いわけだが。
>>86
N88BASIC>>>>(超えられない壁)>>>>(次元の狭間)>>>>N88(互換)BASIC
0097デフォルトの名無しさんNGNG
10 REM
20 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
>>97
おかしいようなので修正してみた。
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デフォルトの名無しさんNGNG
その気になれば、FC版ドラクエ並のソフト作れる、か・・・
0100デフォルトの名無しさんNGNG
>>99
メモリさえ許せば十分可能。

ボコスカウォーズはBASICだったらしいね。
010197NGNG
>>98
サンスコ。

でも、漏れの実装した嘘をつくというのは
「本物の答に近いニセの答が用意してあって、一定の確率で
本当の答ではなくニセの答との比較結果を教える」
というものっす。



■ このスレッドは過去ログ倉庫に格納されています