TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
究極の8ビット機を妄想するスレ Part 11
おい！マイコンを自作した奴いますか
PC-8801mkII SR以降 Part26
ＩＤに　Ｚ８０　が出たら神
PCエミュレータの決定版 和製MESS Part.2
やっぱＦＭ−Ｒでしょう。【2台目】
思い出のキャッチコピー
新・わが青春の秋葉原　- 昔語り -【6日目】
AT互換機をDOS/Vと呼ぶな！
Windows 3.1 95 98 Me時代のPCゲーム

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


1 ：02/10/03 〜 最終レス ：2017/12/16
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.sc/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.sc/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
なにげにオモシロイ。

100 ：
100
Undefined line number
Ok


100〜のスレッドの続きを読む
PB-100はR |READY　P2　　　　|
【パソコン】死語の世界へようこそ【用語】 Part2
i960
☆副住職の野望　大須の歴史を語ろう☆
単３電池で動くノートPC
パソ通か…何もかもみな懐かしい…
富士通Ｋシリーズ
秋葉原のジャンクショップについて語るスレ
マックスマシーンについて語ろう
電電公社の「キャプテン」って覚えてる？
--------------------
【朗報】除菌できる次亜塩素酸ナトリウムの代替としてハイターが使えるよ
【ﾌﾚﾝﾁのﾘｽﾄﾗﾝﾃ】ﾒｼｺﾚｷｭﾚｰﾀｰｸﾋﾞ名刺不正中本出禁YFC村八分ｸﾝﾊﾟゆで太郎104【青葱は長葱の青い部分】
愛車Rーリ」善光寺の住職達「愛車マクラーレン
絡みスレ@同人板795
ワコール大好き！
【PS4】FIFA20 ULTIMATE TEAM 51Packs
【レトロ】「大魔界村」 短期間でクオリティの高い移植を実現した、メガドライブ初期の名作アクション
竹内由恵ちやんの大きなお尻（＾＾）
日本人差別意識を糾弾する国民運動
【テック】サトシ・トミイエ【ハウス】
【2代目】マツダスピードアクセラPart23【MS】
エヴァのAA総括第参百四拾壱層 ダイナマイト☆マリ
哲学とは、頭の病気の症状である。
ネブトクワガタはネ申！
H黒-59 北安平★★黒毛和種の情報を交換しよう
モヤモヤさまぁ〜ず2　201
【DIY】自分でやる整備､修理、部品交換､組み立て57
【【乳揉師】】富士火災SEX事件簿【【挿入士】】
TSUTAYA DISCAS part50
【TAITO】マリーンデート【1979年】
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼