【プロクラム】　　BASIC　　【繋げて】

GOTO 2

print "sizukutan hissi dana"

GOTO　1

　　　　　　　　　　　　　 ヽ ＼
少しは懲りろ！　　　.／　＼ ＼　　／￣￣￣￣￣￣
　 　　　　　∧＿∧／　　　　￣ 　＜　また貴様か！
　　　　　　（；´Д｀）　　　　 i i i　　　 ＼＿＿＿＿＿＿
　　　　　 /　　　 ヽ ＿　　　i i i--､
　　　　 ./|　|　　 | |　　￣￣￣ |:::::|.
　　　　/　＼ヽ／| | 　　　　　　ﾉ__ﾉ..
　　　/　　　＼＼| |
　　 /　/⌒＼ し(メ　　　　.i i i　.　.
　／ ／　　　 >　）　＼　　ﾉﾉﾉ
/　/ 　　　　/ ／　 　 .＼＿　　ｻﾞｯｸｻﾞｯｸ
し'　　　　　（＿つ　　　/:::::/::...　　 /ヽ
　　　　　　　　　　； "ノ・ ./∴: ／ ）i　iヽ-､＿へ　　　　,ﾍ
　　　　　　　　　　'',, : ：―― /　/　i　i　i iヽ .￣ ﾞ― ノ　/
　 　　n_　　　　＿／；　　　 i　　.ノ / /ノ-'￣ ﾞ ― ､__ノ
　　_ノ　二二二､_（ _Д_　;）-ヽ＿ノ-'>>1
　　ﾞー ''~　　　 　　∨￣∨

　 |　　　　　　 　 |　 |
　 |　　　　　　 　 |　 |＿＿＿＿_
　 |　　　　　　 　 |　 |￣￣￣ ／|
　 |　　　　　　 　 |　 |　　　／ ／| ＼
　 |　 　 　 　 ／＼　|　 ／|／|／|Д｀)　5 get!
　 |　 　 　 ／　 ／　|／／ ／ ／|
　 |　　　／　 ／ |＿|／|／|／|／|
　 |　 ／　 ／　　|文|／ ／／ ／
　 |／　 ／.　 ＿.|￣|／|／|／
／|＼／ 　／　／ 　|／ ／
／|　 　 ／　／　 ／ヽ
　 |　　　|￣|　 |　|ヽ／l
　 |　　　|　 |／|　|__|／
　 |　　　|／|　 |／
　 |　　　|　 |／
　 |　　　|／
　 |　 ／
　 |／
／

syntax error

Ok
■

clr

10 CLS

　　　　　　 　　　　　 立
　　　　　　　　　初　 て
　　　　　　　　　め　 て
　　　　　　　　　て　 み
　　　　　 　駄　 わ　て
　　　　　 　ス 　か
　　　　　　 レ 　る
　　　　　　 か
　　 　圖　 な


　 ∩＿∩
　（ ´∀｀）
　（ 　　　）

How many files(0-15)?
NEC N-88 BASIC Version 2.0
Copyright (C) 1981 by Microsoft
56276 Bytes free
Ok
mon
h]aba00
BA00　　CD　0000　call 0
BA03
h]^b
Ok
a = 0
Ok
call a

>>11
何のためにモニタに入ったか分けわからん(ﾌﾟ

さいころゲームを作ろう。
コンピューターとあなたが、さいころを交互に2回振ります。
合計が多い方の勝ちです。

10 LET C=0:LET M=0

20　PRINT ">>13それって難しくない?"

30 CLS
35 FOR I=1 TO 2
40 PRINT "あなたの番です　";: A$=INPUT$(1): M1=INT(RND(1)*6)+1:PRINT M1:M=M+M1
50 PRINT "コンピュータの番です　";: A$=INPUT$(1): C1=INT(RND(1)*6)+1:PRINT C1:C=C+C1
60 NEXT I
70 PRINT "あなたの合計";:PRINT M
80 PRINT "コンピュータの合計";:PRINT C
90 IF C<M THEN PRINT "あなたの勝ちです"
100 IF C>M THEN PRINT "コンピュータの勝ちです"
110 IF C=M THEN PRINT "引き分けです"
120 END

出来てるよ　おい

>>15
50のINPUT$はいらないでしょ

じゃ、次はイスカンダルのトーフ屋な。

tron

すみません、学校でポケコンを買わされて、Basicやってみたらとても面白くて
自分でいろいろと組みたいのですが本も売ってないし、いいサイトも見つかりません
どうやって勉強すればいいのでしょうか？プログラム板で書いたら追い出されたもので・・・

>>20
オークションで10円で売ってる

自分で資料探す壁さえ乗り越えられない香具師が「Basic面白いです」なんて言ってちゃあだめだ。>>20

>>20
プ板やマ板では叩かれる教え方をしてあげよう。

ほんの小さなプログラムから組んでみること。
例えば"（＾д＾）"を画面中央に出してみるとか。
そしたら、これをHキーで左、Lキーで右に動かしてみる。
綺麗に動かせるか？
ゴミは残らないか？
そしたら次はJ、Kで上下にも動かしてみる。
次はSPACEバーで弾を発射だ。
ナナメには動かせないか？
弾はナナメに撃てないか？
じゃあ、次は敵を表示させてみようか？
敵のキャラは？
当たり判定は？
と、どんどん作り足していけ。
初めからデカいプログラムを作っても訳が分からなくなるだけだ。
汚いプログラムでもいいから、小さく作り足していけ。

MSX 64kbばんざーい！ぴーー、がっ。ぴーー、がががががががががが.....

21>>,22>>,23>>さんレスありがとうございます
まだろくなものも作ってないのに楽しいなんていって申し訳ございません
実はコマンドもわからなくて、昔VBをやっていたのですが、for〜next、If〜Then、goto、line、clsしか使えなくて
ほかのコマンドはわかりません。いろいろとサイトを探してみたのですが、なにやらBasicにはいろいろと種類があるみたいで･･･

>>25
毀誉褒貶なぞ気にするな。
デカい口叩いてるヲヤジだって、昔は初心者だったんだ。

ステートメントや関数を自家薬籠中のものにするまでは、小さな目標を立て、
それをクリアできるようにマニュアルと首っ引きで格闘するのが一番。
難しいのは、プログラムよりも、目標を立てることだ。
何か良い目標さえあれば、BASICをマスターすることくらいなんでもないぞ。

スキルが身に付いたら、次は書き上げたプログラムを再度整理してみればいい。
アルゴリズムの勉強は、何か一本書き上げた後からのほうが、身に沁みて理解
できるようになるから、後回しで構わないぞ。

10 CLS

１は何がしたいのよ？

１行リレーで、何かプログラムが出来ればと思っているのだろう。
ところで、BASICの勉強をしようと思って、「The BASIC」を買ってきたが、
さっぱりBASICの記事がないぞ。ベビーメイカーとか、そんなことばかり書
いてある。出産準備マガジンか？

http://yahooo.s2.x-beat.com/

?"まあ、BASICは基本って意味で、"
?"Ｃはコンピュータの略らしいが"
?"I/Oって何？"

?"Oh! PCがPC互換機の雑誌にならなかったのはなんでだろうなあ？"
?"XはなんでもありのXらしいけど。"

?"Oh! Wintel とか出せばよかったのに"

F-BASIC

知っている人は知っている。極一部のPC-9801RAに搭載された、N98-BASIC。

10 PRINT "ﾂｷﾞ ﾉ ﾅｶ ｶﾗ､ｽｷ ﾅ ｻﾞｯｼ ｦ ｴﾗﾝﾃﾞ ｸﾀﾞｻｲ｡"
20 PRINT
30 PRINT "1:ｱｽｷｰ 2:ﾏｲｺﾝ 3:RAM 4:I/O"
40 INPUT A
50 PRINT "ﾅﾙﾎﾄﾞ"
60 NEW

RUN

？　”Ｉ／Ｏ　は　input/ output の　略”；
？　”たぶん・・・”；

データレコーダー2倍速でLOAD

ネ木→

10 goto10

NEW ON 1 [return]

10 CLS
20 POKE $D000, $32
30 POKE $D001, $43
40 POKE $D002, $38
50 END

１よ、一回も繋がってないぞ

>>40
MZ-80K/1200/700/1500 シリーズのプログラムでよく使われたね。
このプログラムだと、画面右上に「2CH」と表示するんだよね。

間違えた。画面右上でなく左上だった。スマソ。

CLSではなく、PRINT"C"（Cは反転）だと思われ。

How many files(0-15)?
NEC N-88 BASIC Version 2.0
Copyright (C) 1981 by Microsoft
56276 Bytes free
Ok

ベ−マガのバックナンバーどっかないの？

beep 1

SYNTAX ERROR IN 20.
READY.
LIST
10 REM UNKO BURIBURI
20 UNKO
30 END
AUTO 20
20 REM UNKO
30 END
RUN
OK.

だれか繋げろよ

10

10 ON STOP GOSUB 1000
20 STOP ON
30 GOTO 30
1000 RETURN

>>48

　ready　と　ok　が混在してまつが？

>>46
うちにありますが、何か？

10 NEW

10 for i=0 to 9
20 beep1:beep0
30 next i
40 ?"owari"
50 end

>>47
うるちゃい
beep 0

１は必死だな

10 PRINT "洪水で流されてしまいました"
20 INPUT DUMMY$
30 PRINT " 嘘 だ よ ー ん " : CLS
40 END

↑
一瞬で画面がクリアされるが、嘘を嘘だと見抜けないようにするためか？

? chr$(13)

１０　Ａ＝１０

俺のベーシックは、２バイト文字で入力できねー

10 LET A=10
20 INPUT "ｱﾅﾀ ﾉ ﾈﾝﾚｲ ｦ ｲﾚﾃ ｸﾀﾞｻｲ",N

30 IF N<20 THEN PRINT "ｶﾞｷ ﾊ ｶｴﾚ!":END

40 FOR NN=0 TO 100:MOTOR 1:MOTOR 0:NEXT NN

>>64

　45　rem　Motorｺﾏﾝﾄﾞﾊ ｼﾖｳｷﾝｼﾃﾞｽ
　50　goto　"http://pc.2ch.net/test/read.cgi/i4004/1008754675/”
　

DELETE 40-50
ok

NEW
Ok
10 DATE$="99/01/01"
20 TIME$="00:00:00"

30 D$=MID$(DATE$,7,2)
40 M$=MID$(DATE$,4,2)

50 Y$=MID$(DATE$,1,2)

60 OPEN Y$+M$+D$ FOR OUTPUT AS #1

70 WRITE #1, "ｲｯﾃﾖｼ"

BASICでネットワーク(TCP/IP・NetBIOS)とかをコントロールすることはできるんだろうか？

詳しい方，情報キボンヌ

80 WRITE #1, ">>72 ｲｯﾃﾖｼ"

85 PRINT #1,CHR$(12)

>>72
RUN "HTTP:pc.2ch.net/test/read.cgi/i4004/1033648672/15"
とかできれば面白いね。

>>72
RS-232C をコントロールする命令はあったね。
OPEN "COM:〜" とか、ON COM GOSUB とか。

>>72
何のマシンでＯＳは何よ？

ベーシックっていまどき使ってる奴っているの

84 FOR I=0 TO 100000 STEP 0.0001:PIRNT "itteyoshi";:NEXT

>>77

環境は，DOS-V機で1.4GHz.OSはWindows2000なんだけど...

＃書いている内にすれ違いという気が...

>>80
ソケット作ってパケット飛ばせ。
VBでもできる。
スレ違い以前に板違いなので以上。

10 CALL RND*65536
20 goto 10

SYNTAX ERROR in 84
Ok
>

>>83
ﾜﾗﾀ

10 CLS
20 INPUT A$
30 PRINT "SYNTAX ERROR"
40 GOTO 20

run
?
SYNTAX ERROR
?hjjjkh;;uyujh;
SYNTAX ERROR
Break at 20
20 INPUT ">",A$
run
>list
SYNTAX ERROR
>new
SYNTAX ERROR
>

10 CLS
20 PRINT
30 LINE INPUT "login: ",A$
40 LINE INPUT "password: ",A$
50 PRINT "login incorrect"
60 GOTO 20

OK TAX ERROR

35 A$=INPUT$(1)
40 IF A$<>CHR$(13) THEN PRINT "*";:GOTO 35

34 PRINT "password:";

run
login:asc00000
pasword:******
login incorrect

login:asc0atok
psaword:****
ﾌﾂｰvje

login:

西武 労働 レストラン

>>82
行番号10の時点で暴走するよ。
>>87
にわのぶおのプログラムにそんな感じの作品があったな。

1000 REM 「BASIC移植版」
1010 CLS
1020 input "あなたのパスワードを入力してください";a$
1030 print "まちがってます"
1040 print ""
1050 goto 1020

http://homepage.mac.com/leverage/

10 cls:x=0:while x<79:x=x+1:while inkey$<>" ":wend:while inkey$=" ":wend:locate x,0:? " *";:wend:?:input "goal!!",a$:run

10 PRINT CHR$(12);:INPUT "N=",N;A=RND(-N)

NEW
Ok

10 TIME$="00:00:00"
20 FOR I=0 TO 32767
30 FOR J=0 TO 32767
40 NEXT J
50 NEXT I
60 ? TIME$

RUN

…ｲﾗｲﾗ

35 IF I=1 OR J=1 THEN END

RUN
Ok

…スッキリ

LIST

>>90
なにげにオモシロイ。

100
Undefined line number
Ok

NEW
OK.
AUTO 10
10 CLS
20 FOR I=100 TO 1 STEP -1
30 LOCATE 0,0:? "ﾁｷｭｳﾒﾂﾎﾞｳﾏﾃﾞ ｱﾄ";I;"ﾋﾞｮｳ "
40 WAIT 1000
50 NEXT
60 CLS
70 ? "ボカン ";
80 GOTO 70

WAIT命令のあるBASICって何？

>>102
ファミリーベーシックV3

list
10 CLS
20 PRINT
30 LINE INPUT "login: ",A$
35 A$=INPUT$(1)
40 IF A$<>CHR$(13) THEN PRINT "*";:GOTO 35
50 PRINT "login incorrect"
60 GOTO 20
renum 1000

NEW CMD

NEW ON 1

10 TALK"f4 pasupo-toomisenasai."
20 INPUT A$
30 TALK"f4 namaewa?"
40 INPUT A$
50 TALK"f4 dokokarakita?"
60 INPUT A$
70 TALK"f4 anataotaihosimasu."

run

new

How many files(0-15)? ■

0

TAPE READ ERROR

>>102
N88は挙動が全然違う

WAIT A,B
ポート番号Aから値Bが帰ってくるまで、停止。

知らないで使うと無限ループに落ちて、要再起動のケース多し。

How many pages? ■

DEFINT A-Z

10 MOTOR:RUN

5 GOTO 20

4 GOTO 10

10 LIST

run
10 LIST
list
10 LIST

次のBASICはどの機種のどの言語があててみよう


10 CLS
20 LOCATE 10,10:PRINT "a"
30 A$=CHARACTER$(10,10)
40 PRINT A$

RUN









　　　　　　　　　　a
a
OK.

10 REM *
20 REM * ｱﾗﾀ ﾅ ｾｶｲ ﾆ ｱｲｻﾂ ｽﾙ ﾌﾟﾛｸﾞﾗﾑ
30 REM *
40 REM * Copyright 1980 by naicon shonen
50 REM *
60 REM *
70 REM
80 REM ﾂｶｲｶﾀ
90 REM RUN ﾄ ｳﾁｺﾝﾃﾞ ｸﾀﾞｻｲ
100 REM
110 PRINT "ﾔｧ! ｹﾞﾝｷｶｲ"
120 END

>>120
機種はわからんがHuっぽいね

mon

h]sc000
C000 20-3e 20-20 20-d3 20-40 20-ff
h]gc000
h]sc000
C000 3E-af 20-D3 D3-40 40-ff
h]gc000
h]^v
?
h]^b
Ok

OUT &H40,&H20

10 ｵﾄ ｻﾝｵﾝ

20 ａｇｅ

ﾋﾟｰ
Syntax Error in 20

10 A=A+1
20 IF A = 1001 THEN PRINT "1001 名前：１００１[] 投稿日：Over 1000 Thread";END
30 PRINT A," 名前：ナイコンさん[sage] 投稿日：",DATE$
40 GOTO 10

RUN
SYNTAX ERROR in 20
Ok.

EDIT 20
20 IF A = 1001 THEN PRINT "1001 名前：１００１[] 投稿日：Over 1000 Thread";:END
RUN
スレッド ヲ サイカイシマス。

NEW
Ready.
AUTO 10
10 REM >>129
20 REM いきなりエラーにはならんぞい
30 REM (ぷ
RUN
Ready.

中間言語に置き換えるタイプだと、IF文のTHEN以降の実行の有無にかかわらず、エラーが出ると思われるが。

10 CLEAR:CLS:CONSOLE 0,25,0,1:DEFINT A-Z
20 LOCATE 20,10:PRINT"２ちゃんねるシミューレーターオフライン Ver 0.01"
30 RESTORE 100:FOR I=0 TO 7:READ KAO$(I):NEXT
40 RESTORE 110:FOR I=0 TO 7:READ T1$(I):NEXT
50 INPUT"どこの板にいきますか";NM$:IF NM$="" THEN 50 ELSE 200
100 DATA ハァ？( ﾟдﾟ),(´Д`;)ﾊｧﾊｧ,( ﾟдﾟ)ﾎﾟｶｰﾝ,(・∀・)ｲｲ!!,(゜д゜)ｳﾏｰ,(´･ω･`)ｼｮﾎﾞｰﾝ,(　´,_ゝ`)ﾌﾟｯ,ヽ(`Д´)ﾉ
110 DATA 逝ってよし,ゴルァ,冗談は顔だけにし解け,の母です。このたびは息子が(以下略,の娘です。オニーチャンが(以下略,なあなあ聞いてくれよ,氏ね,ケコーン
200 '30-40行の要領でよみこんでNM$に代入された板名でマッチング
201 'ということでつづきかいてね(ハート

>>132
PC-88VAのBASICは、リターンと同時に構文解析やって、
SyntaxErrorのレベルは報告してたね。

>>132
でっかい数をプログラム中に入力しようとして
10 PRINT 1E+100
などと入力し Enter を押すと、その瞬間にオーバーフローエラーが発生したことがある。
中間コード（というか数値だから、内部表現形式とでもいうべきか）で格納しているときに、
はじかれるんだろうな。

あれってautoで入力してるときちょっぴりウザかったね

10 A=A+1
20 IF A = 1001 THEN PRINT "1001 名前：１００１[] 投稿日：Over 1000 Thread";:END
30 PRINT A," 名前：ナイコンさん[sage] 投稿日：",DATE$
40 GOTO 10

なんとなく、
10 A=0
40 A=A+1
50 GOTO 20
にしたくなってしまう。

>>131
SYNTAX ERRORのチェックはRUNした時点でなされるのでは？

Illegal Function Callとかは処理の時点でチェックされるけど

>>139
F-BASIC386、AvtiveBasicで確認したが、RUNした時点ではERRORにならなかったそ

>>140
まぁ、そうムキになるな。
F-BASIC　V4.1だと
[02]文法が正しくありません。（式の項が正しくありません）
で入力できなかったよ。

age

cls

10 SOUND 0,0
20 SOUND 1,0
30 SOUND 7,&B00111000
40 SOUND 8,15
50 SOUND 0,INT(RND(1)*255)
60 GOTO 50

RUN
（コンピュータが計算してるっぽい音）

10 screen 3
20 open "grp:" as #1
30 print #1,"ゴルァ！"
40 close #1
50 goto 50

10 WIDTH 80,25:CONSOLE 0,25,0,1
20 LINE(0,0)-(80,25),"鬱",3,BF

>>146
2バイト文字でできる機種ってあるの？
F-BASICとかだったよね、そういうのできるLINE文って

>>147
無いかも．
MSXユーザだった自分にとって，あのLINE文は憧れでした(w

ちょっと盛り上がってた頃のスレ
http://pc.2ch.net/test/read.cgi/i4004/1008847300/
http://pc.2ch.net/test/read.cgi/i4004/1012582935/

Pascalとかが出てきて、「これからは構造化言語の時代だ」といわれていた頃、
こんな感じのBASICプログラムが流行ったようなきがする。

10 REM * MAIN *
20 GOSUB 100
30 GOSUB 200
40 GOSUB 300
50 GOTO 20
99 REM -----------
100 REM ﾆｭｳﾘｮｸ ﾙｰﾁﾝ
110 INPUT "ｱﾅﾀﾉ ﾅﾏｴｦ ﾄﾞｳｿﾞ :",N$
120 INPUT "ｱﾅﾀﾉ ﾈﾝﾚｲｦ ﾄﾞｳｿﾞ :",T
130 RETURN
200 REM ｴﾝｻﾞﾝ ﾙｰﾁﾝ
210 L=T/10
220 IF T<1 THEN T=10
230 RETURN
300 REM ﾋｮｳｼﾞ ﾙｰﾁﾝ
310 FOR I=1 TO T
320 PRINT "ｲｯﾃﾖｼ! ";
330 NEXT I
340 RETURN

おぉ、これではだめだ。
220 IF L<1 THEN L=10
310 FOR I=1 TO L
320 PRINT N$;"ｲｯﾃﾖｼ! ";

CALL &H1000:'ﾆﾔ

.....

10 PRINT "Syntax error in 510"
20 BEEP
30 END
510 REM ｱﾎｰ

run
Syntax error in 510
Ok
list 510
510 REM ｱﾎｰ
Ok

10 'このプログラムは、自動的に消滅する。健闘を祈る。
20 NEW

ＥＮＤ

>>153 いたづら小僧でつね

つなげるには CHAIN でなく RUN で

ｓとｐ

10 CONSOLE 0,25,0:SCREEN 3:CLS 3:COLOR 7:LOCATE ,,0:RANDOMIZE TIME:' PLAY "CDERCDER","EFGREFGR"
20 LOCATE 30,10:PRINT "KEYBOARD OLYMPIC 99":LOCATE 26,15:PRINT "***** PUSH SPACE KEY *****":WAIT 10
30 FOR I=0 TO 1:I=-(INKEY$=" "):J=RND:NEXT:PLAY "V100L16O4CDERCDERCDER","V100L16O4EFGREFGREFGR":WAIT 400
40 FOR J=0 TO 180:FOR I=0 TO 6:COLOR I+1:LOCATE 26,15:PRINT"***** PUSH SPACE KEY *****":WAIT 8:NEXT:NEXT
50 CLS 3:ST=1:SC=0
55 RESTORE 1000:FOR J=0 TO 3:FOR I=0 TO 2:READ KD$(I,J):NEXT:NEXT
60 LOCATE 30,10:PRINT "100m DASH STAGE=";ST:LOCATE 28,13:PRINT "Y O U R S C O R E = "SC:WAIT 1000
70 CLS 3:X=0:TX=0:KT$=KD$(RND*3,ST-1):KC=0:STM=TIME:LOCATE X,12:PRINT "　Ω";:LOCATE TX,15:PRINT "　γ";
80 K$=INKEY$:KC$=MID$(KT$,KC+1,1):IF KC$=K$ THEN PLAY "V100O5L128GC","V100O5L128BG":X=X+2:KC=KC+1:SC=SC+1:LOCATE X,12:PRINT"　Ω";:GOSUB 200:IF KC>LEN(KT$) THEN KC=0
82 IF K$<>"" AND KC$<>K$ THEN PLAY "V100O2L128GC","V100O2L128BG":SC=SC-5:IF SC<1 THEN SC=0
85 LOCATE 8,4:PRINT "次はこのキーを押せ！：";KC$:LOCATE 42,4:PRINT "B O N U S :"1000-(TIME-STM):LOCATE 26,6:PRINT"Y O U R S C O R E = ";SC
88 IF RND<ST/1000 THEN TX=TX+2:LOCATE TX,15:PRINT"　γ";:IF TX>75 THEN 300
90 GOTO 80

200 ' GOAL ?
210 IF X>75 THEN PLAY "L16O4CDERCDERCDGGGR","L16O4EFGREFGREFBBBR":WAIT 400 ELSE RETURN
220 FOR J=0 TO 180:FOR I=0 TO 6:COLOR I+1:LOCATE 26,18:PRINT "******** GOAL *********":WAIT 8:NEXT:NEXT:ST=ST+1:SC=SC+1000-(TIME-STM):CLS:GOTO 60
300 ' GAME OVER
310 PLAY "V100L8O2BGFECDCCC","V100O3(BFE)(DCG)(BFE)(DCG)O2(BGE)(GGF)(EDC)(CCCCCC)"
320 FOR J=0 TO 180:FOR I=0 TO 6:COLOR I+1:LOCATE 30,10:PRINT "GAME OVER STAGE=";ST:LOCATE 28,13:PRINT "Y O U R S C O R E = "SC:WAIT 8:NEXT:NEXT:WAIT 5000:CLS 3:COLOR 7:GOTO 20
1000 DATA WATASHIHA,OSYABERI,HAYAUCHI
1010 DATA HANASHIWOKIITA,NAZONOOOIKOTOBA,TUGINOYOUNIKATARU
1020 DATA KUWASHIIMEKANIZUMUHA,AKIRAKANINATTEINAIKOTOGARA,KONOKEKKAKARAKODOMONOHATUIKUNIHA
1030 DATA NICHANNERAANINATTEKARA,INTTERNETYARIHAJIMETEYOKATTA,IMAMADEFURUIKYUUHACHIDATTAKEDO

# 今日９９ＢＡＳＩＣをインストールして、その勢いで、その日にタイピングゲーをつくってしまった。。。（まだ４面しかないですが）
# こんなプログラムがマジで動いてしまう９９ＢＡＳＩＣはここからタダでGet!!しますた→ttp://www.sagami.ne.jp/tadaka/99Basic/download.html

AGE

boot

goto >>1

うむ。>>162-163は自分でBASICのソースを２行以上かけないので
>>159-160のような長文ソースを書かれると、太刀打ちできないから(以下略

http://www.agemasukudasai.com/bloom/

new on 1

10 gosub*subv(va,vb,vc)
20 end
30 *subv(la,lb,lc)
40 return

って、言うBASIC 使こてる？

| 　 　 　 　 　 　 　 　 　　　　　　　　　　　　　　　　　　　　　|
| ＼●／ ＜ ワイデス参上、＃２！　　　　　　　　　　　　　|
| http://pc.2ch.net/test/read.cgi/i4004/1037113354/　|
|＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿__|
　　　　 　　　＼●／　　＜　１キ゛ョウＢＡＳＩＣノ　コトナラ
　　　　 　 ＿＿■＿＿__　　コノ「ワイテ゛ス」ニ　オマカセ！
　　　　 ／　 ／　 ＼　／|
　 　　∧ ∧　　　　 ／／|
　 ／.(,,ﾟДﾟ)＿___／.／ ┌─────────
　||￣/　　|￣￣||／　 ＜　業者みたいな宣伝はヤメレ。
　||, （＿__ﾉ　　　||　　　 └─────────
　 ／

10 PRINT"ｷﾀ━━━━（ﾟ∀ﾟ）━━━━!!!!!!"
20 GOTO 10

（＾＾）

（＾＾）

NEW
OK

10 REM for PC-8001 - PC-9801
20 CONSOLE 0,25,0,1
30 FOR A=1 TO 7
40 COLOR A
50 PRINT"ｷﾀ----（ﾟvﾟ）----!!!!!!"
60 NEXT A
70 ON -(INKEY$="") GOTO 30
80 END

NEW
OK

MON
L
DQN

NEW
OK

5 REM ##### MOVING ｷﾀ━━━━!!!!!! #####
10 CLR
20 FOR I=40 TO 10 STEP-1
30 CURSOR 20,10:PRINT"（ﾟ∀ﾟ）"
40 WAIT 10
50 CURSOR I,10:PRINT"ｷﾀ━━━━━━━━!!!!!! "
60 NEXT I
70 WAIT 500
80 GOTO 10

↑CLRはCLSですた（MZユーザー）
　エラーは出んけどね

1 EXEC 68

10 REM ｵﾄｶﾞｶﾜﾙ
20 FOR I=1 TO 100
30 BEEP 1:BEEP 0
40 NEXT I
50 FOR I=1 TO 100
60 BEEP 1:::::::::::::::::::::::::::::BEEP 0
70 NEXT I
80 FOR I=1 TO 100
90 BEEP 1::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::BEEP 0
100 NEXT I

X68kでもいいのかな？。
rem X68k X-BASIC
cls
screen 2,0,1,1
int cr,i
for cr=1 to 15
for i=0 to 209
　　　　　　x=384-180*sin(i*0.03#)
　　　　　　y=256+180*cos(i*0.03#)
　　　　　　line(x,256,384,y,cr)
　　　next
next

ループカウンタはiかjだったな。
なつかすぃ。

明示的に宣言しなくてもiがintだったのはどのBASICだっけ?

10 print "ｵ0ﾝｺ ";:goto 10

もう20年近くbasicやってないから忘れた。

2重投稿ごめん。99BASIC用に手直ししたので、実行してみて。

10 REM N88BASIC or 99BASIC ONLY PROGRAM
20 REM line.99b
30 CLS 3
40 SCREEN 3
60 FOR CR=1 TO 15
70 FOR I=0 TO 209
80 X=320-180*SIN(I*0.03#)
90 Y=200+180*COS(I*0.03#)
91 LINE(X,200)-(320,Y),CR
92 NEXT
93 NEXT

>181
PC-8801で400ライン(専用高解像度白黒モード)使う場合の変更点。
40 SCREEN 2
60 (削除)
91 LINE (X,200)-(320,Y),1　'CRを 1 に変える
93 (削除)

>181
PC-9801のN88-BASICを使う場合の変更点。

60 FOR CR=1 TO 7: '15 を　7　に変える

>182
見難くてごめんなさい。

10 REM >181 for PC-8001 (160*100)
20 REM
30 WIDTH 80,25
40 CONSOLE 0,25,0,1
70 FOR I=0 TO 209
80 X=80-180*SIN(I*0.03#)
90 Y=50+180*COS(I*0.03#)
91 IF Y<0 THEN Y=0
92 LINE(X,50)-(80,Y),PSET,1
93 NEXT

10 RUN

星を描く

1 '--- MSX2,2+,TurboR Only ---
10 CLEAR:DEFINT A-Z:I=RND(-TIME)
20 CLS:COLOR 15,0,0:INPUT "ﾎｼﾉｶｽﾞﾊ";N
30 SCREEN 5
40 FOR I=0 TO N:PSET(RND(1)*255,RND(1)*212),2+RND(1)*13:NEXT I
50 GOTO 50

http://www.agemasukudasai.com/bloom/

1 '--- ﾄﾞﾗｸｴ ﾉ ｺﾏﾝﾄﾞｦ ﾀﾞｽﾄｷﾉ ｵﾄ ---
10 PLAY "T255V13O5A64"

10 '--- ﾎﾟｹﾓﾝ ｺｳｶ ｻｲｹﾞﾝ (ｱｸﾖｳ ｹﾞﾝｷﾝ) for MSX2,2+,TurboR ---
20 DEFINT A-Z:COLOR 15,0,0
30 FOR I=0 TO 1
40 COLOR=(0,7-I*7,0,I*7)
50 T=TIME+1
60 IF T<TIME THEN 60 'ｳｴｲﾄ(1/30)
70 NEXT I:GOTO 30

訂正

60 IF T>TIME THEN 60 'ｳｴｲﾄ(1/30)

LOAD "GAME1"

Device I/O Error.
Ok

OKじゃねぇぞ！(ﾟДﾟ)ｺﾞﾙｧ!!

>>191
訂正・・・
CLOAD "GAME1"

RETURN >>1

上の名前欄間違い・・・スマソ。

ON ERROR RESUME NEXT

FILES
Disk not mounted
OK
MOUNT 1
OK
FILES
2CH .BAS 1 2CH .BIN
Bad allocation table
OK

>196 訂正

FILES

2CH 　.BAS 1 　 2CH 　.BIN　
Bad allocation table
OK

LOAD"2CH.BAS"
Ok
RUN
逝ってよし！
Ok

LIST
10 PRINT "逝ってよし！"
20 END
OK

LIST
10 PRINT "逝ってよし！"
20 END
OK
10 LPRINT "逝ってよし！";
20 RUN
OK
RUN

IPL is loading SB-5520

↑ＭＺ80Ｂか？

IPL is loadng MZ-6Z001

http://homepage3.nifty.com/digikei/
　　　　 /　　　　　　　　　　　　`ー─ｰ-,,,__
　　　　i′　　　　　　─''　　　`‐-　　　　　 ￣＼
　　　　|　　　　　　　　　　　　　　　　　　　|　　　i
　　　　|　 　　　 　|　　　　　　　　　　　　 ﾞi､　　 |
.　　　　|　(＼　 　|　　　　　　　　　　　　　　＼　|
　 　　　|　 ＼＼　|　　　　　　　　　 Y　　　　　＼|
.　　　　 |　　 ＼＼i　　　　　　　　　　|　　　　　　ヽ
　　　　　|／二二　｀､　　　(〇)　 　 /　　　　　(〇|
　　　　 ι, ', ‐‐==‐　ヽヽ　　　　　 ／＼　　　　　 ﾉ
　　　　　 '､'／￣￣　　 ＼ ‐-‐''"　 　　`ﾞ‐--‐'"

IPL is loading PETTER2000

http://yahooo.s2.x-beat.com/linkvp/linkvp.html

IPL is loadng MZ-2Z002

CHECK SUM ER.

10 DEFUSR=&F0000:A=USR(0)

RUN

10 REM
20 CURSOR=10,1:PRINT CHR$($7E)
30 MUSIC "V2Q1O3L4ﾄﾚﾐﾌｿﾗｼO4ﾄ"
40 PRINT CHR$($FE);
50 MUSIC "RR"
60 PRINT CHR$($FF);
70 END

10 CLS
20 INPUT "1-ﾊﾞｸﾞﾀﾞｯﾄﾞｺｳｹﾞｷ 2-ﾃｯﾀｲ 3-ｼﾞﾊﾞｸ";N
30 ON N GOTO 50,60,70
40 GOTO 20
50 PRINT "ﾌｾｲﾝ ﾆ ﾒｲﾁｭｳｼﾏｽﾀ.":END
60 PRINT "ﾃﾞｷﾏｾﾝ":GOTO 20
70 PRINT "(ﾟДﾟ)ﾊｧ?":GOTO 20

10 PRINT "名前消すの忘れた・・スマソ。"

FILES
GORUA.BAS 2CH.BAS PAFUPAFU.BAS
GIKO .BAS SIE.BAS ~(ﾟﾛﾟ)#1.BAS
MONA .BAS AHO.BAS AUTOEXEC.BAS
OK

KILL "*.BAS"
Ok

A:\>UNDELETE

10 PRINT "ﾊﾆｬｰﾝ"

20 print chr$(6);

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

http://that.2ch.net/test/read.cgi/gline/1047412811/

10 CLS
20 INPUT "1-ﾔﾏｻﾞｷ";N
30 IF N=1 GOTO 40 ELSE GOTO 20
40 PRINT "（＾＾）"
50 GOTO 40

　　

NEW

CMD NEW

cmd play "@12v15t120o4l4cde"

mon
g0

10: PUBLIC CLASS FORM1
20: INHERITS SYSTEM.WINDOWS.FORMS.FORM
30: PRIVATE SUB FORM1_LOAD(BYVAL SENDER AS SYSTEM.OBJECT, BYVAL E AS SYSTEM>EVENTARGS) HANDLES HOGE.LOAD
40: MSGBOX("HELLO, VB WORLD.")
50: GOTO 40
60: END SUB
70: END CLASS

http://homepage.mac.com/hitomi18/

new

new on 1

NEC PC-8001 BASIC Ver1.4
Copyright 1979 (C)by Microsoft
OK.

load"ngen.n88

Disk not mounted

mount1

remove1

mon[Return]
g0[Return]

http://homepage.mac.com/ayaya16/

NEW

10 PRINT"age"
20 GOTO 10

コンピューターと「あっち向いてホイ」をする。

10 REM ** ｱｯﾁ ﾑｲﾃ ﾎｲ ﾌﾟﾛｸﾞﾗﾑ **

>>236
続ける気なら、ちゃんと機種決めれ。

20 REM ** FOR PC-8001 **

30 INPUT "ﾅﾆ ｦ ﾀﾞｼﾏｽｶ (1=ｸﾞｳ 2=ﾁｮｷ 3=ﾊﾟｰ)",YU:LET CO=INT(RND(1)*3)+1 'YU:ｱﾅﾀ ﾉﾃ CO:ｺﾝﾋﾟｭｰﾀ ﾉ ﾃ

25 DIM TE$(3):TE$(1)="ｸﾞｰ":TE$(2)="ﾁｮｷ":TE$(3)="ﾊﾟｰ"
40 PRINT "ｱﾅﾀ :";TE$(YU)
50 PRINT "ｺﾝﾋﾟｭｰﾀ :";TE$(CO)

NEW

60 IF YU=CO THEN PRINT "ｱｲｺﾃﾞｼｮ":GOTO 30

new

70 IF CO = ((YU + 1) MOD 3) THEN W=1 ELSE W=2 '1=ｱﾅﾀﾉｶﾁ 2=COMﾉｶﾁ

>>243
まちがえーた。ついでに式にしる。

70 W=(CO=(YU MOD 3)+1)+2 'W=1:ｱﾅﾀﾉｶﾁ W=2:COMﾉｶﾁ

NEW

26 DIM MK$(4):MK$(1)="ｳｴ":MK$(2)="ﾋﾀﾞﾘ":MK$(3)="ｼﾀ":MK$(4)="ﾐｷﾞ"
80 PRINT "ｱｯﾁﾑｲﾃ ﾎｲ!!! (1=ｳｴ 2=ﾋﾀﾞﾘ 3=ｼﾀ 4=ﾐｷﾞ)"
90 CO=INT(RND(1)*4)+1
100 IF W=1 THEN INPUT "ﾄﾞｺｦ ﾕﾋﾞｻｽ",YU ELSE INPUT "ﾄﾞｺｦ ﾑｸ",YU
110 IF W=1 THEN PRINT "ｱﾅﾀﾉﾕﾋﾞ:";MK$(YU) ELSE PRINT "ｱﾅﾀﾉﾑｷ:";MK$(YU)
120 IF W=1 THEN PRINT "COMﾉﾑｷ:";MK$(CO) ELSE PRINT "COMﾉﾕﾋﾞ:";MK$(CO)
130 IF YU<>CO THEN GOTO 30
140 IF W=1 THEN PRINT "ｱﾅﾀﾉ ｶﾁ" ELSE PRINT "COMﾉ ｶﾁ"
150 END

NEW

http://homepage.mac.com/ayaya16/

RENUM

*ERROR 1

画面コピーするために、DOS窓で実行してみました。
ttp://lounge.dip.jp/~yoshinoya_off/up/data/j1.jpg
ttp://lounge.dip.jp/~yoshinoya_off/up/data/j0.jpg

10 REM ** ｱｯﾁ ﾑｲﾃ ﾎｲ ﾌﾟﾛｸﾞﾗﾑ **
20 REM ** FOR PC-8001 **
25 DIM TE$(3):TE$(1)="ｸﾞｰ":TE$(2)="ﾁｮｷ":TE$(3)="ﾊﾟｰ"
26 DIM MK$(4):MK$(1)="ｳｴ":MK$(2)="ﾋﾀﾞﾘ":MK$(3)="ｼﾀ":MK$(4)="ﾐｷﾞ"
30 INPUT "ﾅﾆ ｦ ﾀﾞｼﾏｽｶ (1=ｸﾞｳ 2=ﾁｮｷ 3=ﾊﾟｰ)",YU:LET CO=INT(RND(1)*3)+1 'YU:ｱﾅﾀ ﾉﾃ CO:ｺﾝﾋﾟｭｰﾀ ﾉ ﾃ
40 PRINT "ｱﾅﾀ :";TE$(YU)
50 PRINT "ｺﾝﾋﾟｭｰﾀ :";TE$(CO)
60 IF YU=CO THEN PRINT "ｱｲｺﾃﾞｼｮ":GOTO 30
70 W=(CO=(YU MOD 3)+1)+2 'W=1:ｱﾅﾀﾉｶﾁ W=2:COMﾉｶﾁ
80 PRINT "ｱｯﾁﾑｲﾃ ﾎｲ!!! (1=ｳｴ 2=ﾋﾀﾞﾘ 3=ｼﾀ 4=ﾐｷﾞ)"
90 CO=INT(RND(1)*4)+1
100 IF W=1 THEN INPUT "ﾄﾞｺｦ ﾕﾋﾞｻｽ",YU ELSE INPUT "ﾄﾞｺｦ ﾑｸ",YU
110 IF W=1 THEN PRINT "ｱﾅﾀﾉﾕﾋﾞ:";MK$(YU) ELSE PRINT "ｱﾅﾀﾉﾑｷ:";MK$(YU)
120 IF W=1 THEN PRINT "COMﾉﾑｷ:";MK$(CO) ELSE PRINT "COMﾉﾕﾋﾞ:";MK$(CO)
130 IF YU<>CO THEN GOTO 30
140 IF W=1 THEN PRINT "ｱﾅﾀﾉ ｶﾁ" ELSE PRINT "COMﾉ ｶﾁ"
150 END

http://homepage.mac.com/ayaya16/

>>251
わざわざの実行 thx!!
数年ぶりの脳内コーディングだったけど、動くもんだな（ｗ
しかし、INPUT文の変数前は、「,」じゃなくて「;」の方がよかったかな。

ちょっと
IF W=1
ってのが、素人っぽくていいよね。
IF W=1
を４回もやってちゃ、遅いよなぁ・・・

llist~age~

new

10 cls:randomize time:coma=0:win=0:dim ch(8),c$(2):for i=0 to 8:ch(i)=i+1:next:c$(0)="○":c$(1)="×"
20 while win=0 and coma<9:gosub *human_main:gosub *com_main:wend:gosub *draw:end
30 *human_main
40 gosub *draw
50 input "どこに○をおきますか？:(1〜9)",human_in
60 if (human_in<1) or (humam_in>9) then cls:goto *human_main
70 if(ch(human_in-1)>9) then cls:goto *human_main
80 ch(human_in-1) =10:gosub *hantei:coma=coma+1:return
90 *com_main
100 if coma = 9 then return
110 com_in=4:while ch(com_in)>8:com_in=int(rnd(1)*9):wend
120 ch(com_in) =11:gosub *hantei:coma=coma+1:return
130 *hantei
140 '判定
150 return
160 *draw
170 for dw=0 to 8:locate 3+(dw-INT(dw/3)*3)*2,1+INT(dw/3)
180 if ch(dw) < 10 then print ch(dw) else print c$(ch(dw)-10)
190 next:return

判定作るのめんどい。。。

10 REM　**********************
20 REM **********************
30 REM ** デゼニランド　 **
40 REM ** (C)HEDOSON **
50 REM **********************
60 TALK "F DEZENIRANDO."
70 COLOR 7 うう・・わすれたｗあとは頼んだｗ

80 console 0,25

>>257
140 mc=10:gosub *check:mc=9:gosub *check:return

200 *check
210 restore:i=0:while(i<7 and win=0):i=i+1:read a,b,c:win=((ch(a)+ch(b)+ch(c))=mc*3):wend:return
220 data 0,1,2, 3,4,5, 6,7,8, 0,3,6, 1,4,7, 2,5,8, 0,4,8, 2,4,6

力技でつ。RESTORE文の使い方忘れた…

N88-BASICで実行

Ok
run
Syntax error in 90
Ok

N88-BASICだと、殆どのラベルの定義名が、構文違反です。
F-BASICで実行。

1 2×
4○×
7 8○
どこに○をおきますか？:(1〜9)9

このあと、1に置くと実行終了。

http://homepage.mac.com/hitomi18/

>>262
って言うか、>>257の時点で「_」（アンダーバー）入ってるし…
８ビット機には無かったろ。その辺は適当に変換しる。

ついでに言うと、この*checkもバグバグな気がしまつ。
３つの合計だけじゃマズイよ。

8ビット機に、アンダーバーがないとは驚いた。

そりゃ、アンダーバーじゃなくて、アンダースコアだろ？

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

アンダーバーか野郎

保守

10 for i=0 to 100
20 print using "X, Y";i,i
30 next

40 cls 3

50 defint a-z

保守

100 INPUT "名前：";NAME$

10 LET A=1

print using "X####, Y####";x,y

system

110 if NAME$="" then print　"名前を入れてください":goto 100

http://homepage.mac.com/hiroyuki44/

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

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

CLS 3

★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★☆　　　　　　　　　　　　　　　　　　　　　　　
☆★　送料激安！！　　送料激安！！　　送料激安！！
★☆　　　　　　http://www.get-dvd.com　　　　　　
☆★　　激安アダルトＤＶＤショップ　　　　　　　　
★☆　　　　お買い得セール1枚500円〜980円！急げ！
☆★　　　　インターネット初！「きたぐに割引」　　
★☆　　　　北海道・東北の皆様は送料も激安！　　　
☆★　　　　　　http://www.get-dvd.com　　　　　　
★☆　　　　　　　　スピード発送！　　　　　　　　
☆★　　　　　　http://www.get-dvd.com　　　　　　
★☆　　　　　　　　商品が豊富！　　　　　　　　　
☆★　　　　　　http://www.get-dvd.com　　　　　　
★☆　　　　　　　　　　　　　　　　　　　　　　　
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆

NEW ON 11

WHILE DQN=1

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

cmd play "cde"

　　　２００３・１１・３０

MSXマガジン永久保存版２
　　　　　　　＆
　　MSX電遊ランド2003

10 INPUT "ｶﾚﾗ ｦ ｵｳｴﾝ ｼﾏｽｶ? (1=ﾊｲ 2=ｲｲｴ):";A$
20 IF A$="1" THEN NEW
30 IF A$="2" THEN PRINT "ｱﾅﾀ ﾊ ﾀﾀﾞｼｲ":END
40 GOTO 10

FILES

CLS

NEW

おまいら、PWSかIISの使えるPCならBASICで遊べるぞ!

まあ、昔懐かしい感じではないが(^^;

#RUN
ERROR #002 IN LINE #00230
#

CLS
AUTO 100

new on 1

CALL $FC00

PLAY "O5L16V15EEEEDDDDCCCC"

ﾊﾆﾘｲﾄ

ｼﾆｽ ｺｹ

MUSIC "Q0L1V4O4P4ｿﾐﾐﾌﾚﾚﾄﾚﾐﾌｿｿｿ"

MON
h]

10 CLS4:GOSUB 1

20 goto10

new

DEF USR=0:PRINT USR(0):'FOR PC-8?01

system

ｽﾅﾐ

OK

■

sync
Syntax Error
Ok
■

1000 REM for PC8001/8801
1020 FOR J=1 TO 10000 : MOTOR 1 : MOTOR 0 : NEXT J

http://tv3.2ch.net/test/read.cgi/geino/1058764851/

1010 PRINT ">>308 懐かしい…(つД｀)"

>>310
それでは不完全。

10 STOP ON:ON STOP GOSUB 10:FOR I=0 TO 1:MORTOR 0:MORTOR 1:I=-1:NEXT

print "保守"

rem simｹﾞﾝｷｶ? iwaﾖﾘ

print "良スレ保守"

10 cls
20 print "保守"
30 end

10 REM **** SURE HOSYU ****
20 INPUT "このスレを保守しますか(y or n)？";H$
30 IF H$="y" OR H$="Y" OR H$="ﾝ" THEN 50
40 PRINT "スレッド停止 書けませんよ(￣ー￣)ﾆﾔﾘｯ":GO TO 80
50 REM **** HOSYU OK ****
60 PRINT "318 名前：ナイコンさん 投稿日：04/05/30 19:34"
70 PRINT "保守"
80 END

0 REM#####################
0 REM# ﾅﾝﾀﾞｶｼｭｰﾃｨﾝｸﾞｹﾞｰﾑ #
0 REM# ﾐﾀｲﾅﾉ #
0 REM#####################
10 CONSOLEC40:POKE$952,0
20 X=18
30 REM ﾒｲﾝﾙｰﾁﾝ
40 A$=INKEY$
50 IFA$="4"THENX=X-1:IFX<0THENX=0
60 IFA$="6"THENX=X+1:IFX>36THENX=36
70 CURSORX,20:?" A ";:CURSORX,21:?" =O= ";
80 IFA$=" "GOTO500
90 GOTO40
500 REM ｼﾞﾊﾞｸ
510 BOOT

こんな感じやったか...

new

renum

DELETE

すいみなも

ﾊﾆﾘｲﾄ
ﾓﾆｽｷｲ
ｶﾅﾘｶﾞｷの頃はコレだけしか覚えてなかった

out of memory!!

【気合い】★アニマル浜口になって清水の舞台で叫ぶスレ★【三発目】
http://travel2.2ch.net/test/read.cgi/kyoto/1088015480/l50

BASIC

Beginners Allpurpose Symbolic Instruction Cord
（すべての初心者のための象徴的な命令セット）
の略
BASIC(基本)と同じつづりになったのは偶然

違うよ、わざとゴロ合わせたんだよ

>>319

論理式使わないとだめじゃないか。

俺は319じゃないけど、MZって、論理式のほうが速いんだっけ？

50 IFA$="4"THENX=X-1:IFX<0THENX=0
60 IFA$="6"THENX=X+1:IFX>36THENX=36

を
X=X+(A$="4")-(A$="6")
X=((X<0)*0)-((X>36)*36)
こんな感じだったかな。
MSXだとSTICK関数でやってたな。

そのMSXだと論理式よりもIF文のほうが速いんだよな

>331のまんまだと2行目でXを破壊しちゃうな。てきとーに避けて(汗

>>331
X=X-(A$="4")*(X>0)+(A$="6")*(X<36)
じゃないか?たぶん...

SYSTEM

C:\>

CLS

A:\>■

>>310
壊れるよ

A:\>ｼﾆｽ

A:\>ﾊｼ

A:\>ABONN(･∀･)

ABONN？Y/N(y)

ドライブA:があぼｰんしますた

A:\>D:
D:\BASIC>bascom 2channel ｲﾐｶｲｽ

…なんだかんだ…
No Fatal Error

C:\BASIC>

C:\BASIC>format a:

Ａ１グランプリとか開催されないかな。
ＡＡによるＢＡＳＩＣゲームの大会。

MSX-BASICが異様に多いな。。。

１０　ＮＥＷ

スナミ

Ｓｙｎｔａｘ　ｅｒｒｏｒ
Ｏｋ

ASCIIで、１行プログラミングってのがあったな。

>347
プログラムポシェットでもあったよ

new on 1

http://j.pic.to/41q6m-1-cae0.jpg

351 ?"ﾎｼｭ";:RUN

352 GOTO 352
RUN

>>15のプログラム正常に数字返さねーじゃないか

懐かしいスレだ。
すっかり作る事は止めてしまったけど、プログラムを作ったおかげで
いろいろな事を学べたと思う。

ありがとう

10 PRINT CHR$(12);
20 N=0
30 AD=&H0000
35 '
40 GOSUB 1000
50 IF N=2 THEN PRINT " N>1 --- チュウシ　シマス": END
60 AD=AD+1
70 IF AD=&HFFFF THEN PRINT " N="; N ;" ---カンリョウシマシタ ": END
80 GOTO 40
90 END
100'
1000 M$=CHR$ (PEEK (AD) )
1010 IF M$="O" THEN 2000
1020 RETURN
1030'
2000 M2$=CHR$ (PEEK (AD+1) )
2010 IF M2$="k" THEN N=N+1
2020 RETURN
3000 END

なんとか言え

南斗

new on 13

...なんだっけなぁ。たしか88FAでよくつかった覚えが。

TRON

10 REM ********************
20 REM *__ｼｼｭﾝｷﾉｼｮｳﾈﾝｶﾞ___*
30 REM *_ﾊｼﾞﾒﾃﾂｸｯﾀﾌﾟﾛｸﾞﾗﾑ_*
40 REM *____BY PC-1350____*
50 REM ********************
60 CLS
70 PRINT "ﾆｯﾀｴﾘ";
80 PRINT "ｺｸｼｮｳｻﾕﾘ";
90 PRINT "ｶﾜｲｿﾉｺ";
100 PRINT "ﾔﾘﾀｲ";
110 IF INKEY$="" GOTO 70
120 END

その子って誰のことだよ、ってずっと思ってた
友達に聞いてもその子だよ、としか教えてくれなくて頭にきた

で、その子ってだれなんだよ

>>361-362
懐かしくなって画像見たついでに釣られてやるか
↓でその子見な

ttp://jp.youtube.com/watch?v=Da838M0Mpzo

この子がその子なのか、やっとわかった

どうでもいいが、スレタイがプロクラムなのな

この流れはぴゅー太ですね

数学で、今コンピュータプログラムの勉強をし始めてBASICを使っています。
等差数列の計算プログラムを書いたのですが、どうもうまくいきません。
御教授お願い致します。
因みに、公式も書きます。
nが項数、a初項、ｄが公差です。
Sn=n{2a+(n-1)d}/2

100 REM 等差数列
110INPUT N, A, D
120 S=N{2A+(N-1)*D}/2
130 PRINT "項数=" ; N
140 PRINT "初項=" ; A
150 PRINT "公差=" ; D
160 PRINT "総和=" ; S
170 END

初項（一番初めの項）が a1
公差が d
項数が n

の場合の公式

an = a1 + (n-1)d

3, 5, 7, 9, 11, 13に当てはめると
初項は3
項差は2
項数3の場合

an = 3 + (3-1)2
an = 7

となる

これをプログラムにするのは難しくないと思うが

>>366
120 S=N*(2*A+(N-1)*D)/2

http://petitbasic.jp/

こういうのみっけた・・・
でもプログラムのペーストができ無い、ビスタのせいか；？

と、おもって・・・
押入れからＸＰ入りのロートル機を出してやってみたが、
やっぱりペーストができない！

ＬＯＡＤ　ﾘﾀｰﾝで、小窓が出て、そこにＢＡＳＩＣテキストをペースト
してくれ言うのだが、小窓で右ボタン押しても無反応なんですよ・・・

他に、ペーストのしかたとか有るのか教えてください；

指摘のサイトに行って見てはいないが、
ペーストは

　　　Ctrl　＋　V

もダメすか？

ありがとうございます！　できました！

が、なんか、うまく動かない・・・なんか、気むずかしそう；

internaru　erra　とかでるし・・・小窓は出ぱなしになるし；

もっとシームレスにネットから呼び出せると、たとえばココのスレとか
だって、盛り上がると思うのダケド・・・

このスレに来る人たちは、多分BASICインタプリタの稼動する何らかのハードを持っているのだと思う
なので、わざわざjavaアプレットでBASICプログラムを動かそうとは思っていない
ベクターとかでフリーのBASICインタプリタとかダウンロードできると思うので、それを使ってみてはどうだろうか？

お絵描き掲示板というのがありまして〜・・・(略

MON
*L
*GCE80

ニモニックやめて！

10 CLS
20 A$=INKEY$
30 IF A$="" GOTO 20
40 IF A$=CHR$(13) GOTO 10
50 PRINT CHR$(STR(A$));
60 GOTO20

でよかったっけ?
よく店のデモ機に手打ちして走らせといたっけ、なあ。

誰かセガサターンＢＡＳＩＣはいないのか？

ttp://yoshiki.syuriken.jp/10-Basic/kazuate.html
数当てゲーム

構造化BASICのはずなのに、なぜかGOTOでスパゲッティーになっていてびっくりした
こういう癖って時代を越えたものがあるのかな

あー、まだこのスレあったんだ。懐かしい。

BASIC/98を知ってる人なんて・・・
まだ居るのだろうか？

知ってるよ

>>377
50 PRINT CHR$(ASC(A$));

じゃね？

50 PRINT A$
じゃだめなの？

>>383-384
とっちでも動作に問題は無いが、処理速度を出したいなら>>384だろうな

＊PC-G850Vにブザーを半田付けしちゃった記念に作った奴
【どっかの研究室BGM】
10 V= RND 256-1
20 BEEP 1,V,200000/(166+22*V)
30 GOTO 10

＊おまけ(変更)
5 I=0
10 PEEK I,V:I=I+1:IF I>65535 THEN END 'ENDの代わりにI=0でも可
ちょっと趣が変わります

テンポを変えたい時は20行の200000を増減してね

99basicはブロックIF文が使えないのが唯一残念だな

必要ない。

汚いソースを当たり前に書く人か

…そろそろ99BASIC普及活動にでも入るとするかｗ

>>386
ブロックIFなんていらねーじゃん。

なくても死にゃせん（笑）

…って、FB386あたりか。

この各所に出るコテの人はやっぱコテや名無し切り替えたりしてんのかな？

いやいや、いわゆる ” 大復活 ” なワケでさ（笑）

↑ってあの馬鹿か?

アハ〜♪”

アハ〜♪”

プチコン DSでBASIC
http://toki.2ch.net/test/read.cgi/handygame/1298442815/l50

3DS/DSi上で「BASIC」が使える「プチコン」 X=2
http://kamome.2ch.net/test/read.cgi/ghard/1298985388/l50

プチコン
http://smileboom.com/special/petitcom/index.html

アハ〜♪”

ブロック構文は使えない理由はそれなりにある。元々昔のBASICインタプリタは、
行番号があって行を編集した。メモ帳のようなエディタはフルスクリーンエディタというが、
これすら無かった。本格的な汎用機やミニコンならスクリーンエディタはあったがマイコンには無かった。

BASICインタプリタは一行入力するごとに編集する訳だが、一行エディタ機能には別の機能があって、一行入力
する毎に中間言語にコンパイルしている。だから昔のBASICはエディタとインタプリタの機能が備わってる。
これが原因で、簡単にブロック構造などが使えない。昔のBASICは構文解釈が独特。

BASICに構造化構文が登場しなかったのは、インタプリタの構造にも原因がある。
MSのQBASICは構造化構文を持っているが、これはフルスクリーンエディタの環境が用意されてる。
一行実行もイミディエイトウインドウで可能になっていた。
フルスクリーンエディタを備えたQuickBASIC世代でないと構文解釈系がうまく構造化を扱えない。
QBASICで始めて構造化構文をBASICに取り入れられたのは、インタプリタの構造が関係してる。

昔は16kROM,8kRAMといったような今のPCと比較して米粒ほどのメモリで高級言語を動作
させる必要があったので、インタプリタの構造も特殊でメモリが無くとも動作するような
構造になっていたし、その殆どがアセンブラで書かれていたりするので非常にトリッキーな
ソースコードになってる。アセンブラに詳しくないと今の人は読めない。

ブロック構文を採用する場合の理想的なインタプリタは、エディタとインタプリタが区別され、
DOSか何かのコマンドで動作する方式の方が構文解釈しやすい。だけど8bit機だとDOSすら
動作が遅いという事になって結局ブロック構文は意味があるのかという話にもなる。
QBASICはスクリーンエディタとインタプリタの統合環境になっているけれども。

ではスクリーンエディタをBASICの命令だけで作れるのか、というとこれは無理。
なぜかというと、BASICに備わっているINPUTやOPEN命令は、ファイルI/OやキーボードI/Oを
前提としているので、データファイル操作以外を想定していない。
多分、BASIC等でフルスクリーンエディタを作ろうと考えた人は過去に何人かいると思う。

だからスクリーンエディタを作りたければ、ハードウエアを直接操作し、キースキャンや
画面表示を行なう必要があった。DOSのプログラミングと同じで用意されたファンクションコール
以外は自前で実装する必要がある。
文字列の処理の仕方もBASICインタプリタは特殊なので難しくさせる要因だろう。

ポケコンなどを使っていると、BASICのみでエディタを作ろうと試みた形跡が見られる。
エディタを付けてインタプリタをもうちょっと改良すると使いやすくなるのだが、多分
オリジナルのソースコードはアセンブラで書かれていると思うので、手も足も出ないだろう。
Cでインタプリタを書き直す程度の事は行なわないと、改良は難しいかも。

古いBASICは、整数TinyBASICから発展したものなので、その辺りから見直せば、又新しい
展開はあるかもしれない。

確か、DOSで動いていた頃のTurboPASCALも、エディタ環境とコンパイラが統合されて
いたような気がするが、これはQuickBASICと比べても見た目は全く同じ開発環境で、
エディタとインタプリタ/コンパイラが統合されているもの。
16bitのDOSで動いていたので、8bitではないが、ブロック構文や構造化構文を使う場合は、
こういったエディタ環境が解釈系とコンビで必然的に必要になる、という良い事例。

♪目覚めてくれと　鼻たれた〜♪
まで読んだ

TurboPascalはCP/Mで動いてたろ
インタプリタはついていない

>>397
BASIC-M25は出来ただろ

ＲｅａｄｙかＲＥＡＤＹでよくOut of Data がでる党、結成