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

1 ：02/10/03 〜 最終レス ：03/07/20

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 カテ一覧 スレ一覧 削除依頼 ▲
・　次のスレ
昔のパーコン復刻したい＊特注＊
■★■　Old Macintosh総合スレッド　part4■★■
中日電工のなんちゃってＭＺを使ってたヤシ→
ここだけ時代が２億年ずれているスレ