5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

BASICで1行ずつプログラムを組もう

1 :デフォルトの名無しさん:04/03/16 14:20
1 CLS

2 :69式フリーPG ◆hND3Lufios :04/03/16 14:23
10 REM 2げっと

3 :デフォルトの名無しさん:04/03/16 14:26
20 EXIT

4 :デフォルトの名無しさん:04/03/16 14:26
3 REM ↑10はダメダメ 2を使ってください 

5 :デフォルトの名無しさん:04/03/16 14:28
30 IREM スペランカー

6 :デフォルトの名無しさん:04/03/16 14:30
40 GOTO 10

7 :デフォルトの名無しさん:04/03/16 14:32
五十 終了

8 :デフォルトの名無しさん:04/03/16 14:46
60

9 :デフォルトの名無しさん:04/03/16 14:51
70

10 :デフォルトの名無しさん:04/03/16 15:13
80 A$=INKEY$

11 :デフォルトの名無しさん:04/03/16 15:16
90 NEW

12 :69式フリーPG ◆hND3Lufios :04/03/16 15:29
100 REM >>4 行番号を10毎にしないと、行を挿入するときどうするんですか?規約ですよ?

13 :デフォルトの名無しさん:04/03/16 17:06
110 INT12 = "AHO"

14 :デフォルトの名無しさん:04/03/16 17:32
100 new

15 :デフォルトの名無しさん:04/03/16 17:45
=============
システム強制終了します。
=============


16 :デフォルトの名無しさん:04/03/16 18:07
120 PRINT "なんでみんな終わらせたがるんだか。"

17 :デフォルトの名無しさん:04/03/16 18:08
130 WAIT 32767

18 :デフォルトの名無しさん:04/03/16 19:28
=============
不正な処理です。強制終了します。
=============

19 :デフォルトの名無しさん:04/03/16 19:49
140 LOCATE 10,10:PRINT "氏ね"

20 :デフォルトの名無しさん:04/03/16 21:43
11 EXEC &H0

21 :デフォルトの名無しさん:04/03/16 23:20
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============

22 :デフォルトの名無しさん:04/03/17 00:18
150 PRINT "21は氏ね";:GOTO 150

23 :デフォルトの名無しさん:04/03/17 01:35
151 SCREEN 0

24 :デフォルトの名無しさん:04/03/17 01:41
でてこい かめ は 1

25 :デフォルトの名無しさん:04/03/17 02:03
160 NEW CMD:CMD BGM 1:CMD PLAY "@1CDEFG" ' ごめんうろ覚えだ

26 :デフォルトの名無しさん:04/03/17 06:58
ぬるぽ

27 :デフォルトの名無しさん:04/03/17 07:10
170 TALK "M2 HOGE-."

28 :デフォルトの名無しさん:04/03/17 11:47
180 PRINT CHR$(62)+CHR$(62)+CHR$(50)+CHR$(54)+CHR$(32)+CHR$(182)+CHR$(222)+CHR$(175)


29 :デフォルトの名無しさん:04/03/17 11:56
290 LOCATE 5,5 : PRINT "↑解読まんどくさい、なんてプリントされるの?"

30 :28:04/03/17 12:05
300 PRINT ">>26 ガッ"

31 :デフォルトの名無しさん:04/03/17 13:03
1000 REM 1000ゲット

32 :デフォルトの名無しさん:04/03/17 14:42
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============


33 :デフォルトの名無しさん:04/03/17 15:02
てじゅんは はじめ
かたちは 16 ペンをおろせ まえへ 10 みぎへ 90 ペンをあげろ まえへ 270
おわり


34 :デフォルトの名無しさん:04/03/17 15:06
310 input cd$">";p$

35 :デフォルトの名無しさん:04/03/17 15:25
350 FOR I=1 TO 1000

36 :デフォルトの名無しさん:04/03/17 15:31
360 IF I=777 THEN PRINT "(-__-)"


37 :デフォルトの名無しさん:04/03/17 15:39
370 IF I=100 THEN "100 GET!"

38 :デフォルトの名無しさん:04/03/17 15:45
380 for j = 0 to 50 : locate j, 0 : print " _| ̄|○" : next

39 :デフォルトの名無しさん:04/03/17 15:54
390 locate rnd*75, rnd*22 : print " _| ̄|○" : next

40 :デフォルトの名無しさん:04/03/17 17:57
400 IF INKEY$<>"" THEN 400

41 :デフォルトの名無しさん:04/03/17 22:13
410 for i=0 to 5:print "キタ━━━━━━(゚∀゚)━━━━━━ !!":next

42 :デフォルトの名無しさん:04/03/17 22:16
12 SCREEN 3:CONSOLE 0,25,0,1

43 :デフォルトの名無しさん:04/03/18 08:50
430 for J=0 to 65535 : screen 0 : screen 3 : next j : print "CRT アボーン"

44 :デフォルトの名無しさん:04/03/18 16:16
442 OUT &HF0,0


45 :デフォルトの名無しさん:04/03/18 16:17
>>44を実行してみろ。
実機で。


46 :デフォルトの名無しさん:04/03/18 16:56
460 INPUT ">>43の機種はPC98かな (Y/N)",A$:IF A$="Y" OR A$="y" THEN OUT &HF0,0

47 :46:04/03/18 16:57
470 PRINT "激しくアンカミス_| ̄|○"

48 :デフォルトの名無しさん:04/03/18 16:57
450 load "2ch"

49 :デフォルトの名無しさん:04/03/18 16:57
Σ(´Д` ) ガーン Sintax error

50 :43:04/03/18 17:17
PC-9821で動作確認しました。


51 :43:04/03/18 17:19
Xs

52 :デフォルトの名無しさん:04/03/18 19:28
520 PRINT "あれって、PC98だとリセットだっけ?"

53 :デフォルトの名無しさん:04/03/18 19:55
電源関連だった羽津

54 :デフォルトの名無しさん:04/03/19 21:53
540 a=int(rnd(1)*10):if a=0 then ?"タスカル" else ?"シヌ"

55 :デフォルトの名無しさん:04/03/19 22:54
550 FORI=0TO255:VDP(10)=I:NEXT

56 :デフォルトの名無しさん:04/03/20 12:46
clear:difint a-z

57 :BASICER:04/03/20 16:31
A$=INKEY$ : IF A$="a" or A$="A" THEN GOTO 430 ELSE IF A$="b" or A$="B" THEN GOTO 520 : GOTO 570

58 :デフォルトの名無しさん:04/03/20 16:56
580 DIM M$(3): FOR I=1 TO 3: READ M$(I): NEXT I: WHILE 1: FOR I=1 TO 3: PRINT M$(I): NEXT I: WEND: DATA ">>49 Sintax error", ">>56 difint", "BASIC もまともに使えないとは...。": END

59 :デフォルトの名無しさん:04/03/20 17:13
590 '******** モウワスレタヨ〜ン *********

60 :デフォルトの名無しさん:04/03/20 17:33
61 stop on

61 :デフォルトの名無しさん:04/03/20 19:48
579 LPRINT "1000レス目でたぶん誰かGOTO 1使うであろう。止まらなかったらEsc押しといて。"

62 :BASICER:04/03/20 20:06
IF X=>>49 THEN PRINT "Syntax error"

63 :デフォルトの名無しさん:04/03/20 20:19
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============

64 :デフォルトの名無しさん:04/03/20 20:43
600 FOR I=0 TO 65535:POKEI,0:NEXT

65 :デフォルトの名無しさん:04/03/20 20:59
class Man{ string name; int age; int height; int weight; public: Man(void){}~Man(){} };

66 :BASICER:04/03/20 21:31
Line 65 Syntax error

67 :デフォルトの名無しさん:04/03/20 21:54
「Line 67 Syntax error」と、言う。

68 :デフォルトの名無しさん:04/03/20 22:36
repeat 10 : mes "BASIC" : loop

69 :デフォルトの名無しさん:04/03/20 23:09
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============

70 :デフォルトの名無しさん:04/03/21 15:44
$msg="BASIC"; print "\$msg: \"$msg\"";

71 :BASICER:04/03/21 17:00
Syntax error
OK■

72 :デフォルトの名無しさん:04/03/21 17:16
char msg[]="BASIC"; printf("%s\n",msg);

73 :デフォルトの名無しさん:04/03/21 18:11
age

74 :デフォルトの名無しさん:04/03/21 19:04
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============
=============
不正な処理です。強制終了します。
=============

75 :デフォルトの名無しさん:04/03/22 16:30
DISPLAY "BASIC"

76 :デフォルトの名無しさん:04/03/22 16:43
610 'BASICを読めない香具師が強制終了するスレはここですか(w

77 :デフォルトの名無しさん:04/03/22 17:06
REM 今日はここまで作った。

78 :デフォルトの名無しさん:04/03/22 17:57
ハードディスクフォーマット完了


79 :デフォルトの名無しさん:04/03/22 21:14
string msg="BASIC"; cout<<msg;

80 :デフォルトの名無しさん:04/03/22 23:14
320 GOTO 1

81 :デフォルトの名無しさん:04/03/22 23:39
81 print"ソフトウェア インストレーション プログラム"

82 :デフォルトの名無しさん:04/03/30 10:36
82 名前:デフォルトの名無しさん[] 投稿日:04/03/25 14:45
document.write("BASIC<BR>");

83 名前:デフォルトの名無しさん[] 投稿日:04/03/25 15:38
cin >>1;

84 名前:くだらないことだけど・・・。[] 投稿日:04/03/25 16:42
BASICで、割り算のあまりを出す
プログラム教えてください

85 名前:デフォルトの名無しさん[sage] 投稿日:04/03/25 16:50
>>84
C=A-INT(A/B)*B


83 :デフォルトの名無しさん:04/03/30 10:36
86 名前:デフォルトの名無しさん[sage] 投稿日:04/03/25 16:53
82 for a=1 to 100:x=(ran#*300)+1;line(x,x)-(x,x)

87 名前:デフォルトの名無しさん[sage] 投稿日:04/03/25 17:12
90 Locate Center:print "オンドゥルララギッタンディスカー!!?"

88 名前:くだらないことだけど・・・。[] 投稿日:04/03/25 17:28
>85さんありがとうございました


89 名前:デフォルトの名無しさん[] 投稿日:04/03/25 18:02
  PRINT "Syntax error   ;"



90 名前:デフォルトの名無しさん[] 投稿日:04/03/25 18:02
  PRINT "だけどOK■"


91 名前:580[sage] 投稿日:04/03/25 21:35
100 NEW
110 REM BASICによる2ch的ゲーム

----ここまでログにありました。---

84 :デフォルトの名無しさん:04/03/30 21:32
1840 MON 'モニタモード

85 :BASICER:04/04/01 21:53
PRINT "age"

86 :デフォルトの名無しさん:04/04/02 09:44
Declare Function MessageBox Lib "user32" Alias "MessageBoxA" _
 (ByVal hWnd As Long, _
  ByVal lpText As String, _
  ByVal lpCaption As String, _
  ByVal uType As Long) As Long

87 :デフォルトの名無しさん:04/04/03 08:33
*87
母艦の、タイトルは、"87"
「age」と、言う。
終わり。
母艦浮上。

88 :デフォルトの名無しさん:04/04/03 12:41
620 IF A=5 THEN GOTO10

89 :デフォルトの名無しさん:04/04/10 01:52
890 print "オマン臭"

90 :デフォルトの名無しさん:04/04/10 23:08
900 print "ぬるぽ"

91 :BASICER:04/04/14 15:11
910 GOTO 890

92 :デフォルトの名無しさん:04/04/16 01:21
920 print "  ●/"


93 :デフォルトの名無しさん:04/04/16 01:39
910 print ">>87"
911 print "ひまわり厨ハケーンと、言ってみるテスト。"


94 :デフォルトの名無しさん:04/04/16 10:16
てじゅんは ぬるぽ
かけ ”ぬるぽ
おわり


95 :デフォルトの名無しさん:04/04/18 17:54
'日本語プログラム言語TTS
タイトルは、「ガッ!」
>>94[改行]ガッ!」と、表示
終了。

96 :デフォルトの名無しさん:04/05/01 15:22
"プログラミング言語BASICが明日5月1日に40歳の誕生日を迎える。プログラミング入門言語や初期のNEC98
シリーズのシェルとしてお世話になったスラド読者も多いだろう。読者諸兄のBASICにまつわる思い出や、
40歳になったことに対する祝いの言葉などを聞かせて欲しい。"

BASIC小史 や e-kiyo.lab. BASIC研究所 と言ったサイトによれば、BASIC は Dartmouth 大学の2人の数学者
John G. Kemeny と Professor Thomas Kurtz によって開発され、1964年5月1日にはじめてTSSシステム
(General Electric GE-225)上で実行されたそうだ。

http://slashdot.jp/articles/04/04/30/0459221.shtml?topic=58

97 :デフォルトの名無しさん:04/05/02 17:25
920 USR($0F14)

98 :デフォルトの名無しさん:04/05/04 21:32
980 beep 5,5,5 : print "98げっとズザーっとくらぁ"

99 :デフォルトの名無しさん:04/05/12 17:21
990 ome$=">>100ome"

100 :デフォルトの名無しさん:04/05/14 03:33
Illegal function call in 920

101 :デフォルトの名無しさん:04/05/14 22:22
1000 REM >>100 920ギョウデ ピッ ト オトガ ナルンダヨ。

102 :デフォルトの名無しさん:04/05/20 02:40
1010 LOCATE 10,10:PRINT "THIS PROGRAM IS FOR PC-8001, NOT FOR MZ >>101"

103 :デフォルトの名無しさん:04/05/29 23:46
1020 for i=1 to 50:beep:for j=1 to 255:next:next:goto 1020


104 :デフォルトの名無しさん:04/06/22 11:34
1021 'age


105 :デフォルトの名無しさん:04/06/24 08:29
1022 DATA "キノウ カイシャニ メンセツニイッタラ BASICノ プログラムリストガ アッタ YO!"

106 :デフォルトの名無しさん:04/06/24 22:21
1060 Tawagoto$="それがどうした"

107 :デフォルトの名無しさん:04/06/25 02:44
1080 RESTORE:READ A$:PRINT A$

108 :デフォルトの名無しさん:04/06/27 01:15
1090 GOTO 1090 : END

109 :デフォルトの名無しさん:04/06/28 08:13
1090 REM END文の意味無いし

110 :デフォルトの名無しさん:04/06/29 01:29
1090 GOSUB 1090 : END

111 :デフォルトの名無しさん:04/06/29 01:48
1100 OPEN "hoge.dat" FOR INPUT AS #1

112 :デフォルトの名無しさん:04/06/29 02:13
1110 LINE INPUT #1,L$

113 :デフォルトの名無しさん:04/06/29 02:42
???? READ FROM START

114 :デフォルトの名無しさん:04/07/05 17:09
1120 out &ha6,1:cls 3

115 :デフォルトの名無しさん:04/07/06 01:34
mon

h* G0

116 :デフォルトの名無しさん:04/07/06 02:01
?Redo from start

117 :デフォルトの名無しさん:04/07/06 02:08
console ,,0:for i=1 to 10:key i,chr$(12)+"new"+chr$(13):next

118 :デフォルトの名無しさん:04/07/16 16:48
118 for i=0 to 12:i=i+2:print i:next i

119 :デフォルトの名無しさん:04/07/16 21:21
NEW
OK


120 :デフォルトの名無しさん:04/07/21 17:26
120 INPUT "ぬるぽしますか(Y/N)";Q$ : IF Q$="Y" THEN PRINT "ガッ!" ELSE GOTO 120

121 :デフォルトの名無しさん:04/07/27 04:19
TM

122 :デフォルトの名無しさん:04/08/09 12:46
CLS

123 :デフォルトの名無しさん:04/08/09 20:46
POLL

124 :デフォルトの名無しさん:04/08/12 00:37
BEEP 1

125 :デフォルトの名無しさん:04/08/12 00:51
new on 21

126 :デフォルトの名無しさん:04/08/12 04:21
1260 PLAY "L8BB4.AAGGAG^GE^E4R4EE^EEG4E4AA+^A+B^B4R4": GOTO 1260

127 :デフォルトの名無しさん:04/08/27 09:35
126 REM キョウハ ココマデ ヨンダ

128 :デフォルトの名無しさん:04/09/08 11:07
128 FOR I=0 TO 100 STEP 2:I=I*2:NEXT I

129 :デフォルトの名無しさん:04/09/22 11:03:38
129 REM キョウハ ココマデ ヨンダ

130 :デフォルトの名無しさん:04/09/28 21:22:41
130 REM キョウモ ココマデ ヨンダ

131 :デフォルトの名無しさん:04/09/29 20:24:55
131 IF INP(9)<>191 THEN 131

132 :e-:04/10/02 21:55:26
kkkkk

133 :デフォルトの名無しさん:04/10/12 22:59:33
133 'ホシュ

134 :初心者:04/10/13 06:05:59
visual basicで
『フォームに6個のピクチャボックスを作成し、
ピクチャボックス番号と色指定をすると、指定された
ピクチャボックスがその色で塗られる』
という課題なのですが教えてください

135 :デフォルトの名無しさん:04/10/13 06:18:16
>>134
マルチ氏ね

136 :デフォルトの名無しさん:04/10/13 10:37:38
>>134
解決したらそれもマルチポストしとけよ

137 :デフォルトの名無しさん:04/10/26 18:06:48
409 if no409=荒らし or no409=煽り then 地獄 else 天国

138 :デフォルトの名無しさん:04/10/26 18:12:03
410 if no410=荒らし or no410=煽り then 地獄 else 天国

139 :デフォルトの名無しさん:04/10/28 07:16:26
420 WHILE 1: BEEP: WEND

140 :デフォルトの名無しさん:04/10/30 08:20:06
421 call 141

141 :デフォルトの名無しさん:04/10/30 23:08:00
MANNKO 22 THEN 44:

142 :デフォルトの名無しさん:04/11/03 01:50:07
555 LINE(0,0)-(80,25),"■",BF

143 :デフォルトの名無しさん:04/11/03 06:34:21
560 VIEW (0, 0) - (639, 399): WINDOW (639, 399) - (0, 0)

144 :デフォルトの名無しさん:04/11/08 07:37:03
cls
570 input "これまでのスレを全部印刷します 全員プリンタを準備して下さい 用意ができたらyを入力してリターンを押してください";zzz
580 if zzz=y then goto 600
590 goto 570
600 llist


145 :EXCULTer's / Active PC ◆xCyLv.Cgwg :04/11/08 10:40:59
610 new

146 :デフォルトの名無しさん:04/11/08 15:18:49
620 POKE(0, 118) : USR(0)

147 :デフォルトの名無しさん:04/11/08 21:45:35
630 TALK "F1 NURUPO"
640 NEW

148 :デフォルトの名無しさん:04/11/08 21:46:33
650 PRINT CHR$(12)

149 :デフォルトの名無しさん:04/11/22 16:33:02


150 :デフォルトの名無しさん:04/12/02 10:54:30
GoTo 570

151 :デフォルトの名無しさん:04/12/02 18:26:55
Illeagual Line Number 570

152 :デフォルトの名無しさん:04/12/02 21:03:08
660 GOTO 俺の家

153 :デフォルトの名無しさん:04/12/03 14:56:33
MANNKO 22 THEN 44:


154 :デフォルトの名無しさん:04/12/09 09:14:53
RENUMBER

155 :デフォルトの名無しさん:04/12/30 17:20:03
155 REM KOKOMADEYONDA

156 :デフォルトの名無しさん:05/01/04 14:33:29
156 REM 2005

157 :デフォルトの名無しさん:05/01/09 20:55:54
157 age

158 :デフォルトの名無しさん:05/01/18 20:54:39
990 END


159 :デフォルトの名無しさん:05/01/18 21:58:54
980 GOTO 1000

160 :デフォルトの名無しさん:05/01/18 23:11:31
990 LABEL0: I% = INKEY$(1)

161 :デフォルトの名無しさん:05/01/20 17:50:21
5 GOTO 1000

162 :デフォルトの名無しさん:05/01/20 18:13:31
650 PRINT "みなさん 寒いので灯油とライターを用意してください"
660 GOTO >>152の家
670 着火!!


163 :デフォルトの名無しさん:05/01/24 19:26:27
680 IF >>152の家 = DNQ呆手 ELSE GOTO 710
690 PRINT "放火犯は>>162です。K察を呼びます。"
700 CALL TELEPHONE(110)


164 :秘密K殺隊員11号:05/01/28 15:18:24
>162
お前を放火未遂罪で逮捕する!

165 :デフォルトの名無しさん:05/01/28 15:19:21
時代遅れスレのためsage放置推奨

166 :デフォルトの名無しさん:05/02/19 20:59:05
710 '
720 CLS 3
730 GOSUB *AGE
730 GOTO 800
740 '
750 *AGE
760 LET SLEDNO%=1
770 IF SLEDNO%<>1 THEN GOTO 760
780 RETURN



20 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)