【プロクラム】　　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元 削除依頼 ▲

夢の合体マシンＰＣ９８Ｄｏ (507)
【空想】もしあの機種がもっと続いていたら【妄想】 (264)
満開製作所 (623)
PC-9821/9801スレッド Part54 (564)
御三家の筆頭はPC-8801 (255)
【初代9821】98MULTiについて語るスレ２【Canbe】 (960)
--log9.info------------------
秋の乗り放題パス（旧・鉄道の日記念きっぷ） (271)
俺達の男衾駅 (329)
【どうする】東急電鉄が倒産の危機！？【東急】 (833)
鉄道＆鉄道掲示板・迷惑行為対策室5 (604)
京急乗務員スレッド　part3 (911)
【ビデオ】ogwr・ichs応援3【ヒゲ】 (419)
【鉄道趣味者】新幹線女性車掌２人に痴漢、逮捕。 (457)
この区所＆列車の乗務担当線区を挙げるスレ13行路 (740)
【JR四国】松山駅【伊予鉄道】 (232)
【社会のゴミ】鉄ヲタの特徴PART58【日本の恥】 (343)
津久井浜高生が電車内で騒いだことをブログで自慢 (592)
JR西日本車両更新予想スレッド　Part23 (796)
【快急から】近鉄大阪線スレ　51【急行へ】 (293)
【競輪場】近鉄名古屋線系統スレ33【霞ヶ浦】 (918)
阪急線延伸の野望 (282)
三重県JR伊勢鉄25【関西(名古屋加茂)紀勢参宮名松】 (368)
--log55.com------------------
★2ch.scは何故失敗したのか
★クロール批判要望スレ
★削ジェンヌに文句ある人集合
★迷惑行為報告担当 - 小さな親切募集中 2
★2ch.scへの要望スレ Part3
★かっこう観測所
★スレ立て人キャップ
★2ch.scニュース系板観測所