トップページ⇒tech
204コメント32KB

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

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
1 CLS
000269式フリーPG ◆hND3Lufios NGNG
10 REM ２げっと
0003デフォルトの名無しさんNGNG
20 EXIT
0004デフォルトの名無しさんNGNG
3 REM ↑10はダメダメ 2を使ってください　
0005デフォルトの名無しさんNGNG
30　IREM　ｽﾍﾟﾗﾝｶｰ
0006デフォルトの名無しさんNGNG
40　GOTO 10
0007デフォルトの名無しさんNGNG
五十 終了
0008デフォルトの名無しさんNGNG
60
0009デフォルトの名無しさんNGNG
70
0010デフォルトの名無しさんNGNG
80 A$=INKEY$
0011デフォルトの名無しさんNGNG
90 NEW
001269式フリーPG ◆hND3Lufios NGNG
100 REM >>4 行番号を10毎にしないと、行を挿入するときどうするんですか？規約ですよ？
0013デフォルトの名無しさんNGNG
110　INT12 = "AHO"
0014デフォルトの名無しさんNGNG
100 new
0015デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
システム強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0016デフォルトの名無しさんNGNG
120 PRINT "なんでみんな終わらせたがるんだか。"
0017デフォルトの名無しさんNGNG
130 WAIT 32767
0018デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0019デフォルトの名無しさんNGNG
140 LOCATE 10,10:PRINT "氏ね"
0020デフォルトの名無しさんNGNG
11 EXEC &H0
0021デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0022デフォルトの名無しさんNGNG
150 PRINT "21は氏ね";:GOTO 150
0023デフォルトの名無しさんNGNG
151 SCREEN 0
0024デフォルトの名無しさんNGNG
でてこい かめ は 1
0025デフォルトの名無しさんNGNG
160 NEW CMD:CMD BGM 1:CMD PLAY "@1CDEFG" ' ごめんうろ覚えだ
0026デフォルトの名無しさんNGNG
ぬるぽ
0027デフォルトの名無しさんNGNG
170 TALK "M2 HOGE-."
0028デフォルトの名無しさんNGNG
180 PRINT CHR$(62)+CHR$(62)+CHR$(50)+CHR$(54)+CHR$(32)+CHR$(182)+CHR$(222)+CHR$(175)
0029デフォルトの名無しさんNGNG
290　LOCATE 5,5 : PRINT　"↑解読まんどくさい、なんてプリントされるの？"
003028NGNG
300 PRINT ">>26 ｶﾞｯ"
0031デフォルトの名無しさんNGNG
1000　REM 1000ｹﾞｯﾄ
0032デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0033デフォルトの名無しさんNGNG
てじゅんは　はじめ
かたちは　１６　ペンをおろせ　まえへ　１０　みぎへ　９０　ペンをあげろ　まえへ　２７０
おわり
0034デフォルトの名無しさんNGNG
310 input cd$">";p$
0035デフォルトの名無しさんNGNG
350 FOR I=1 TO 1000
0036デフォルトの名無しさんNGNG
360 IF I=777 THEN PRINT "(-__-)"
0037デフォルトの名無しさんNGNG
370 IF I=100 THEN "100 GET!"
0038デフォルトの名無しさんNGNG
380 for j = 0 to 50 : locate j, 0 : print " ＿|￣|○" : next
0039デフォルトの名無しさんNGNG
390 locate rnd*75, rnd*22 : print " ＿|￣|○" : next
0040デフォルトの名無しさんNGNG
400 IF INKEY$<>"" THEN 400
0041デフォルトの名無しさんNGNG
410 for i=0 to 5:print "ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!":next
0042デフォルトの名無しさんNGNG
12 SCREEN 3:CONSOLE 0,25,0,1
0043デフォルトの名無しさんNGNG
430　for J=0 to 65535 : screen 0 : screen 3 : next j : print "CRT ｱﾎﾞｰﾝ"
0044デフォルトの名無しさんNGNG
442 OUT &HF0,0
0045デフォルトの名無しさんNGNG
>>44を実行してみろ。
実機で。
0046デフォルトの名無しさんNGNG
460 INPUT ">>43の機種はPC98かな (Y/N)",A$:IF A$="Y" OR A$="y" THEN OUT &HF0,0
004746NGNG
470 PRINT "激しくアンカミス＿|￣|○"
0048デフォルトの名無しさんNGNG
450 load "2ch"
0049デフォルトの名無しさんNGNG
Σ（´Д｀ ）　ｶﾞｰﾝ Sintax error
005043NGNG
PC-9821で動作確認しました。
005143NGNG
Xs
0052デフォルトの名無しさんNGNG
520 PRINT "あれって、ＰＣ９８だとリセットだっけ？"
0053デフォルトの名無しさんNGNG
電源関連だった羽津
0054デフォルトの名無しさんNGNG
540 a=int(rnd(1)*10):if a=0 then ?"ﾀｽｶﾙ" else ?"ｼﾇ"
0055デフォルトの名無しさんNGNG
550 FORI=0TO255:VDP(10)=I:NEXT
0056デフォルトの名無しさんNGNG
clear:difint a-z
0057BASICERNGNG
A$=INKEY$ : IF A$="a" or A$="A" THEN GOTO 430 ELSE IF A$="b" or A$="B" THEN GOTO 520 : GOTO 570
0058デフォルトの名無しさんNGNG
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
0059デフォルトの名無しさんNGNG
590 '******** モウワスレタヨ〜ン　*********
0060デフォルトの名無しさんNGNG
61 stop on
0061デフォルトの名無しさんNGNG
579 LPRINT "1000レス目でたぶん誰かGOTO 1使うであろう。止まらなかったらＥｓｃ押しといて。"
0062BASICERNGNG
IF X=>>49 THEN PRINT "Syntax error"
0063デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0064デフォルトの名無しさんNGNG
600 FOR I=0 TO 65535:POKEI,0:NEXT
0065デフォルトの名無しさんNGNG
class Man{ string name; int age; int height; int weight; public: Man(void){}~Man(){} };
0066BASICERNGNG
Line 65 Syntax error
0067デフォルトの名無しさんNGNG
「Line 67 Syntax error」と、言う。
0068デフォルトの名無しさんNGNG
repeat 10 : mes "BASIC" : loop
0069デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0070デフォルトの名無しさんNGNG
$msg="BASIC"; print "\$msg: \"$msg\"";
0071BASICERNGNG
Syntax error
OK■
0072デフォルトの名無しさんNGNG
char msg[]="BASIC"; printf("%s\n",msg);
0073デフォルトの名無しさんNGNG
age
0074デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0075デフォルトの名無しさんNGNG
DISPLAY "BASIC"
0076デフォルトの名無しさんNGNG
610 'BASICを読めない香具師が強制終了するスレはここですか（ｗ
0077デフォルトの名無しさんNGNG
REM 今日はここまで作った。
0078デフォルトの名無しさんNGNG
ハードディスクフォーマット完了
0079デフォルトの名無しさんNGNG
string msg="BASIC"; cout<<msg;
0080デフォルトの名無しさんNGNG
320 GOTO 1
0081デフォルトの名無しさんNGNG
81　print"ソフトウェア　インストレーション　プログラム"
0082デフォルトの名無しさんNGNG
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
0083デフォルトの名無しさんNGNG
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的ゲーム

----ここまでログにありました。---
0084デフォルトの名無しさんNGNG
1840 MON 'モニタモード
0085BASICERNGNG
PRINT "age"
0086デフォルトの名無しさんNGNG
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
0087デフォルトの名無しさんNGNG
＊87
母艦の、タイトルは、"87"
「age」と、言う。
終わり。
母艦浮上。
0088デフォルトの名無しさんNGNG
620 IF A=5 THEN GOTO10
0089デフォルトの名無しさんNGNG
890 print "オマン臭"
0090デフォルトの名無しさんNGNG
900 print "ぬるぽ"
0091BASICERNGNG
910 GOTO 890
0092デフォルトの名無しさんNGNG
920 print "　 ●／"
0093デフォルトの名無しさんNGNG
910 print ">>87"
911 print "ひまわり厨ハケーンと、言ってみるテスト。"
0094デフォルトの名無しさんNGNG
てじゅんは　ぬるぽ
かけ　”ぬるぽ
おわり
0095デフォルトの名無しさんNGNG
'日本語プログラム言語TTS
タイトルは、「ｶﾞｯ!」
「>>94［改行］ｶﾞｯ!」と、表示
終了。
0096デフォルトの名無しさんNGNG
"プログラミング言語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
0097デフォルトの名無しさんNGNG
920 USR($0F14)
0098デフォルトの名無しさんNGNG
980 beep 5,5,5 : print "98げっとズザーっとくらぁ"
0099デフォルトの名無しさんNGNG
990 ome$=">>100ome"
0100デフォルトの名無しさんNGNG
Illegal function call in 920
0101デフォルトの名無しさんNGNG
1000 REM >>100 920ｷﾞｮｳﾃﾞ ﾋﾟｯ ﾄ ｵﾄｶﾞ ﾅﾙﾝﾀﾞﾖ｡
■ このスレッドは過去ログ倉庫に格納されています