BASICで１行ずつﾌﾟﾛｸﾞﾗﾑを組もう

このエントリーをはてなブックマークに追加
1 ：デフォルトの名無しさん：
1 CLS
2 ：69式フリーPG ◆hND3Lufios ：04/03/16 14:23
10 REM ２げっと
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
てじゅんは　はじめ
かたちは　１６　ペンをおろせ　まえへ　１０　みぎへ　９０　ペンをあげろ　まえへ　２７０
おわり
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 "あれって、ＰＣ９８だとリセットだっけ？"
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使うであろう。止まらなかったらＥｓｃ押しといて。"
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を読めない香具師が強制終了するスレはここですか（ｗ
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 大学の２人の数学者
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で
『フォームに６個のピクチャボックスを作成し、
ピクチャボックス番号と色指定をすると、指定された
ピクチャボックスがその色で塗られる』
という課題なのですが教えてください
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 "これまでのスレを全部印刷します　全員プリンタを準備して下さい　用意ができたらｙを入力してリターンを押してください";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 ：秘密Ｋ殺隊員１１号：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

167 ：デフォルトの名無しさん：2005/03/31(木) 19:23:25
790 REM 全員プリンタ用意！
800 LPRINT "ぬるぽ"
810 LPRINT "ガッ禁止"
168 ：デフォルトの名無しさん：2005/03/31(木) 23:58:44
NEW ON
10 PRINT 'NULLPO ';
20 GOTO 10
RUN
169 ：デフォルトの名無しさん：2005/04/01(金) 00:03:36
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
170 ：デフォルトの名無しさん：2005/04/01(金) 00:06:01
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
171 ：デフォルトの名無しさん：2005/04/07(木) 12:06:31
NEW
100 PRINT ">>169-170　ガッ"
110 GOTO "100"
172 ：デフォルトの名無しさん：2005/04/07(木) 19:09:00
ﾄﾝﾄｶｲﾓ
173 ：デフォルトの名無しさん：2005/07/17(日) 00:35:02
>DIR

N88BASIC.EXE

174 ：BASIC：2005/11/23(水) 20:29:02
キーボードより入力したデータの中で最大値と最小値を求める
プログラムを作成しなさい。０を入力した場合に終了
175 ：デフォルトの名無しさん：2005/11/24(木) 13:36:29
>>174
10 MAX=0
20 MIN=1000000
30 INPUT N
40 IF N = 0 THEN GOTO 80
50 IF N > MAX THEN MAX = N
60 IF N < MIN THEN MIN = N
70 GOTO 30
80 PRINT MAX,MIN
90 END
176 ：BASIC：2005/12/01(木) 16:28:30
N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
１、最も体重の軽い人の名前を表示する
２、身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する
３、体重が６０ｋｇ以上で、身長が１５０ｃｍ未満の人の名前を表示する
４、年齢が３０歳以下の人の、体重と身長の平均値を計算し表示する

177 ：BASIC：2005/12/14(水) 15:51:43
次のプログラムをＢＡＳＩＣで作成しなさい

データを１件ずつ、ユーザ定義関数を利用して
「公共料金」を計算させることにします
＜電気料金の計算＞
基本料金：1800円 定量制料金単価は
・使用量が90Kwh以下であれば18.14円／Kwh
・ 〃 90Kwh超230Kwh以下であれば24.85円／Kwh
・ 〃 230Kwh超であれば27.21円／Kwh
（料金計算例）
70Kwh使用した場合：1800＋70×18.14
120Kwh使用した場合：1800＋90×18.14＋(120−90)×24.85
＝3432.6＋(120−90)×24.85
250Kwh使用した場合：1800＋90×18.14＋140×24.85＋(250−230)×27.21
＝6911.6＋(250−230)×27.21
178 ：デフォルトの名無しさん：2005/12/14(水) 20:40:51
178 GOTO 178
179 ：デフォルトの名無しさん：2005/12/16(金) 02:30:03
>176
どのBASICを使うかでかなり難易度が違ってくる訳だが。

モノによってはソート関数実装してたりする品。
180 ：デフォルトの名無しさん：2005/12/18(日) 16:22:09
エラー処理ってあったら
エラーが起きても復帰できるんだが
====ひまわり====
えらーに　エラー処理設定
『dscsdeqdaqw:dwedewewd\』を　読む
復帰したーと　言う
おわり
待機
母艦浮上
*えらー
『エラー』と　言う
エラー復帰
===ひまわり===============
181 ：デフォルトの名無しさん：2005/12/18(日) 16:25:54
811 PASS "2chﾊﾞﾝｻﾞｰｲ"
182 ：デフォルトの名無しさん：2005/12/18(日) 17:23:59
10 SAY "ｶﾝｼﾞ ｶﾝｼﾞ"
20 SAY "ﾃﾂﾔ ﾃﾂﾔ"
30 GOTO 10
183 ：デフォルトの名無しさん：2005/12/18(日) 17:58:35
812 goto 1
184 ：デフォルトの名無しさん：2006/01/29(日) 20:22:08
問１：「あたかも」を使ってプログラムをBASICを作りなさい。
185 ：デフォルトの名無しさん：2006/01/30(月) 17:13:35
820 A$="あたかも"
186 ：デフォルトの名無しさん：2006/01/30(月) 19:26:01
830 PRINT "冷蔵庫に牛乳が";A$;"しれない"
187 ：デフォルトの名無しさん：2006/01/30(月) 20:01:04
840 LIST 1-
850 GOTO 840
188 ：デフォルトの名無しさん：2006/02/03(金) 08:37:13
10 SCREEN 2,2,0,1
189 ：デフォルトの名無しさん：2006/02/22(水) 21:40:37
goto 1
190 ：デフォルトの名無しさん：2006/03/08(水) 11:24:12
Out of memory
191 ：デフォルトの名無しさん：2006/03/16(木) 13:47:45
860 REM 問2：「うってかわった」を使ってBASICでプログラムを作りなさい。
192 ：デフォルトの名無しさん：2006/03/16(木) 22:06:21
870 GOTO 861
193 ：http://www.vector.co.jp/soft/win95/util/se072729.html：2006/03/18(土) 19:45:32
TextSS　のWindowsXP(Professional)64bit化おながいします

もしくは64bitにネイティブ対応したテキスト置換ソフトありますか？
194 ：デフォルトの名無しさん：2006/04/15(土) 02:13:49
wait 65535
195 ：デフォルトの名無しさん：2006/04/15(土) 07:07:53
880 A$="うってかわった"
881 PRINT "彼は麻薬を";A$
196 ：デフォルトの名無しさん：2006/04/17(月) 12:46:17
890 GOTO 910
197 ：デフォルトの名無しさん：2006/04/18(火) 01:41:15
895 REM　 ｧ　 ∧,,_,,∧　ｧ,､
900 REM　,､'` （　´∀｀）　,､'`
905 REM　 '` 　( ⊃ ⊂)　　'`
198 ：デフォルトの名無しさん：2006/06/11(日) 23:13:34
SAVE
199 ：デフォルトの名無しさん：2006/06/15(木) 09:39:08
POKE &H07,&HB7
200 ：デフォルトの名無しさん：2006/06/16(金) 17:33:16
10 FOR I = 1 TO 65535
20 POKE 0, I
30 NEXT I
201 ：デフォルトの名無しさん：2006/06/17(土) 21:50:47
910 PRINT "ぬるぽ"
202 ：デフォルトの名無しさん：2006/10/29(日) 18:45:51
>>201ｶﾞｯ
>>203ｶﾞｯ
203 ：デフォルトの名無しさん：2006/10/29(日) 19:39:21
ぬるり
204 ：デフォルトの名無しさん：
10000 goto 10000