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

1 ：02/10/03 〜 最終レス ：2012/11/05

GOTO 2

2 ：

print "sizukutan hissi dana"

3 ：

GOTO　1

4 ：

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

5 ：

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

6 ：

syntax error

7 ：

Ok
■

8 ：

clr

9 ：

10 CLS

10 ：

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

　 ∩＿∩
　（ ´∀｀）
　（ 　　　）

11 ：

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

12 ：

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

13 ：

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

14 ：

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

15 ：

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

16 ：

出来てるよ　おい

17 ：

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

18 ：

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

19 ：

tron

20 ：

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

21 ：

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

22 ：

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

23 ：

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

24 ：

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

25 ：

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

26 ：

>>25
毀誉褒貶なぞ気にするな。
デカい口叩いてるヲヤジだって、昔は初心者だったんだ。
ステートメントや関数を自家薬籠中のものにするまでは、小さな目標を立て、
それをクリアできるようにマニュアルと首っ引きで格闘するのが一番。
難しいのは、プログラムよりも、目標を立てることだ。
何か良い目標さえあれば、BASICをマスターすることくらいなんでもないぞ。
スキルが身に付いたら、次は書き上げたプログラムを再度整理してみればいい。
アルゴリズムの勉強は、何か一本書き上げた後からのほうが、身に沁みて理解
できるようになるから、後回しで構わないぞ。

27 ：

10 CLS

28 ：

１は何がしたいのよ？

29 ：

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

30 ：

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

31 ：

?"まあ、BASICは基本って意味で、"
?"Ｃはコンピュータの略らしいが"
?"I/Oって何？"
?"Oh! PCがPC互換機の雑誌にならなかったのはなんでだろうなあ？"
?"XはなんでもありのXらしいけど。"
?"Oh! Wintel とか出せばよかったのに"

32 ：

F-BASIC

33 ：

知っている人は知っている。極一部のPC-9801RAに搭載された、N98-BASIC。
10 PRINT "ﾂｷﾞ ﾉ ﾅｶ ｶﾗ､ｽｷ ﾅ ｻﾞｯｼ ｦ ｴﾗﾝﾃﾞ ｸﾀﾞｻｲ｡"
20 PRINT
30 PRINT "1:ｱｽｷｰ 2:ﾏｲｺﾝ 3:RAM 4:I/O"
40 INPUT A
50 PRINT "ﾅﾙﾎﾄﾞ"
60 NEW

34 ：

RUN

35 ：

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

36 ：

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

37 ：

ネ木→

38 ：

10 goto10

39 ：

NEW ON 1 [return]

40 ：

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

41 ：

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

42 ：

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

43 ：

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

44 ：

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

45 ：

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

46 ：

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

47 ：

beep 1

48 ：

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

49 ：

だれか繋げろよ

50 ：

10

51 ：

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

52 ：

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

53 ：

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

54 ：

10 NEW

55 ：

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

56 ：

>>47
うるちゃい
beep 0

57 ：

１は必死だな

58 ：

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

59 ：

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

60 ：

? chr$(13)

61 ：

１０　Ａ＝１０

62 ：

俺のベーシックは、２バイト文字で入力できねー
10 LET A=10
20 INPUT "ｱﾅﾀ ﾉ ﾈﾝﾚｲ ｦ ｲﾚﾃ ｸﾀﾞｻｲ",N

63 ：

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

64 ：

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

65 ：

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

66 ：

DELETE 40-50
ok

67 ：

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

68 ：

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

69 ：

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

70 ：

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

71 ：

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

72 ：

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

詳しい方，情報キボンヌ

73 ：

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

74 ：

85 PRINT #1,CHR$(12)

75 ：

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

76 ：

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

77 ：

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

78 ：

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

79 ：

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

80 ：

>>77

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

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

81 ：

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

82 ：

10 CALL RND*65536
20 goto 10

83 ：

SYNTAX ERROR in 84
Ok
>

84 ：

>>83
ﾜﾗﾀ

85 ：

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

86 ：

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

87 ：

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

88 ：

OK TAX ERROR

89 ：

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

90 ：

34 PRINT "password:";
run
login:asc00000
pasword:******
login incorrect
login:asc0atok
psaword:****
ﾌﾂｰvje
login:

91 ：

西武 労働 レストラン

92 ：

>>82
行番号10の時点で暴走するよ。
>>87
にわのぶおのプログラムにそんな感じの作品があったな。
1000 REM 「BASIC移植版」
1010 CLS
1020 input "あなたのパスワードを入力してください";a$
1030 print "まちがってます"
1040 print ""
1050 goto 1020

93 ：

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

94 ：

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

95 ：

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

96 ：

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
…ｲﾗｲﾗ

97 ：

35 IF I=1 OR J=1 THEN END
RUN
Ok
…スッキリ

98 ：

LIST

99 ：

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

100read 1read

1read 100read
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲

□■PC-88スレッド！mk2■□ (706)
486DXを語るスレ (413)
あれ？零式ってどうなったんですか？ (527)
VZエディタと16bit日本語環境がVistaで動きました (822)
苦渋のナイコン時代 (791)
シンクレアのZX-81ってどうよ？ (271)
--log9.info------------------
■エニックス雑誌統一スレッド100月号 (508)
【矢吹】To LOVEる-とらぶる-part264【長谷見】 (352)
【南鎌倉高校女子自転車部】松本規之 1 (616)
†ロザリオとバンパイア† 35モカ目 (822)
【デルトラクエスト】にわのまこと総合３【MOMOリベロ真島他】 (867)
デュエルマスターズSX 2枚目 (639)
週刊少年サンデーといえば？？ (219)
【マガスペ連載】ぱすてる Part11【小林俊彦】 (461)
【武田弘光】　マケン姫っ！MAKEN-KI！ 2 (740)
【東京★イノセント】 鳴見なる ☆☆彡 【絶対†女王政】 (471)
【CLAMP】GATE7　part3 (419)
【スクエニ系限定】コミック売り上げ議論スレ (347)
【いなり、こんこん、恋いろは。】よしだもろへ総合スレ part2 (256)
青の祓魔師アンチスレ4【加藤和恵】 (477)
【ガンガン】仕立屋工房【パワード】 (301)
【ブラックギャラクシー６】阿部共実総合スレ【別冊チャンピオン】 (594)
--log55.com------------------
【男気】BBMカードスレ11【増産】
BBMカードスレ★10
【アニメーション】セル画13枚目【コレクション】
新・光神話パルテナの鏡ＡＲカード収集スレ
【みんな】甲虫王者ムシキングその３【オオクワ】
ローゼンメイデン トレカ＆グッズ総合スレ　153/60
☆ 1/64のミニカーコレクション 6台目 ★
魔法少女リリカルなのはグッズ総合　その14なの！