PRINT("BASIC ﾃﾞﾏﾀｰﾘｶﾀﾙｽﾚ｡")

[471res] 全部 1- 101- 201- 301- 401- 最新50
リンク抽出 : URL[＋] スレッド[＋] 画像[＋]
1 : ｽｽﾞｷｹﾝｲﾁﾛｳ : 01/12/28 03:39
10 COLOR 7
20 PRINT ("BASIC ﾉｺﾏﾝﾄﾞﾀﾞｹﾃﾞｶﾀﾙｽﾚｯﾄﾞ｡")
30 PRINT ("ﾊﾝｶｸﾓｼﾞ ｲｶﾞｲﾃﾞﾓ ｶ｡")
40 PRINT ("C ｹﾞﾝｺﾞ ﾄｶ ﾂｶｲﾀｹﾚﾊﾞ ﾂｶｯﾃﾓﾖｼ｡")
50 PRINT ("ﾏﾀｰﾘ ｶﾀﾘｱｲﾏｾｳ")
60 END
2 : 1 : 01/12/28 03:41
今気が付いた。

関数（） はＣ言語の構文だった。
マジ、鬱。
3 : ナイコンさん[sage] : 01/12/28 04:28
>>1
10 CLS
20 INPUT"反省してますか？ 1 YES 2 NO";A
30 IF A=1 THEN PRINT"スレ続行":GOTO 50
40 PRINT"逝ってよし！！！！！！！！！！！！":BEEP:GOTO 40
50 END
4 : ナイコンさん : 01/12/28 04:48
10 REM ｿﾓｿﾓ　ｼｯﾊﾟｲ ｲｾﾞﾝﾆ 2ﾃﾞ ｻﾞｾﾂｼﾃﾙ ｽﾚｯﾄﾞ
5 : ナイコンさん[sage] : 01/12/28 09:26
5 PRINT "5ｹﾞｯﾄ- ｽﾞｻﾞｻﾞｻﾞ"
6 : ナイコンさん[sage] : 01/12/28 09:48
cload "konosure.bas"
OK
run
Syntax Error in 1
OK
■
7 : ナイコンさん[sage] : 01/12/28 10:19
NEW
8 : 再開！ : 01/12/28 17:46
NEW
OK
10 COLOR 7
20 PRINT "BASIC ﾉｺﾏﾝﾄﾞﾀﾞｹﾃﾞｶﾀﾙｽﾚｯﾄﾞ｡"
30 PRINT "ﾊﾝｶｸﾓｼﾞ ｲｶﾞｲﾃﾞﾓ ｶ｡"
40 PRINT "C ｹﾞﾝｺﾞ ﾄｶ ﾂｶｲﾀｹﾚﾊﾞ ﾂｶｯﾃﾓﾖｼ｡"
50 PRINT "ﾏﾀｰﾘ ｶﾀﾘｱｲﾏｾｳ"
60 END

40
RUN
9 : ナイコンさん[sage] : 01/12/28 17:57
1 REM 1000ｹﾞｯﾄ ver0.1
10 DEFINT A-Z
20 IF LN=1000 THEN 40
30 GOTO 20
40 PRINT "1000 !!!!!";
50 END
10 : ナイコンさん : 01/12/28 18:01
>>9
いつまでも1000ゲットできないと思われ。
あ、変数クリアしないBASICなら可能性はあるか・・・。
11 : ナイコンさん : 01/12/28 18:07
#include <stdio.h>
#include <stdlib.h>
main()
{
printf("BASICﾜｽﾚﾀ\n");
printf("ﾃﾞﾓｺﾉｽﾚｵﾓﾛｲ\n");
printf("8ﾚｽﾃﾞ40ｷﾞｮｳｹｼﾃﾙｹﾄﾞ Cﾃﾞｶｲﾁｬｳﾓﾝﾈ\n");
printf(">>10 CﾄBASICｲｶﾞｲﾃﾞﾊﾂｹﾞﾝｽﾙﾉﾊﾊﾝｿｸ ｲｯﾃﾖｼ!!\n");

exit(1);
}
12 : ナイコンさん[sage] : 01/12/28 18:14
10 for I=1 to 4
20 print mid("ﾏﾀｰﾘ",I,1);
30 for J=0 to 10000:next J
40 next I
13 : ナイコンさん[sage] : 01/12/28 18:17
? "FORTRANｦ ﾂｶﾜｾﾛ｡ ｺﾞﾙｧ!"
14 : ナイコンさん[sage] : 01/12/28 18:28
10 PRINT"QuickBASICﾔBASIC09ﾊ OK?"
15 : ナイコンさん : 01/12/28 18:38
10 'ﾏﾁｶﾞｴﾃﾙｶﾓ
20 PRINT "FORTRANｵﾎﾞｴﾃﾈｰ"
30 INPUT "COBOLﾊﾄﾞｳﾀﾞ?";A$
40 IF A$="OK" OR "ok" THEN 70
50 PRINT "COBOLﾊﾌｶ"
60 GOTO 80
70 PRINT "COBOLﾓOK"
80 END
OK
RUN
FORTRANｵﾎﾞｴﾃﾈｰ
COBOLﾊﾄﾞｳﾀﾞ?OK
COBOLﾓOK
OK
■
16 : 15 : 01/12/28 18:41
NEW
OK
10 PRINT "80ｷﾞｮｳﾉｳｼﾛﾆOKﾅﾝﾃﾃﾞﾈｰ"
20 PRINT "ｳﾂﾀﾞｼﾉｳ"
30 BOOT
17 : ｱﾚ?[なんか苦しいので普通の会話はメール欄で] : 01/12/28 18:47
10 PRINT "ｺﾏﾝﾄﾞﾏﾁﾉﾄｷ OKﾄﾃﾞﾙｷｼｭﾄREADYﾄﾃﾞﾙｷｼｭｦｵｼｴﾛ"
20 PRINT "BASICﾉｼｭﾙｲﾆﾓﾖﾙﾊｽﾞ"
18 : ナイコンさん[sage] : 01/12/28 19:36
10 REM ｺﾁﾗﾓﾖﾛｼｸ
20 GOSUB http://pc.2ch.net/test/read.cgi/i4004/1008847300/
19 : ナイコンさん[sage] : 01/12/28 22:31
10 PRINT"MZﾊ ﾘｮｳﾎｳｱｯﾀｿﾞ"
20 PRINT"S-BASICﾊREADYﾃﾞWICSﾊOKﾀﾞｯﾀｷｵｸｶﾞ"
30 END
20 : 17[sage こうやったら上がらないのかな？] : 01/12/28 23:03
10 PRINT ">>19 ｿｳｶ S-BASICｶﾞREADYﾀﾞｯﾀｶ"
20 PRINT "WICSｯﾃﾅﾝﾀﾞ?"
30 PRINT "Hu-BASICﾅﾗｼｯﾃｲﾙｶﾞ"
40 PRINT "ﾎｶｼﾞｮｳﾎｳﾓﾄﾑ！!"
50 GOTO 40
21 : ナイコンさん[sage] : 01/12/28 23:07
>>20
GOTO *Google
22 : ナイコンさん : 01/12/28 23:30
10 REM ﾏﾄﾒ
20 INPUT "ｱﾅﾀﾉ ﾊﾟｿｺﾝﾊ OK ﾃﾞｽｶ READY ﾃﾞｽｶ?(OK=1, READY=2)";F
30 IF F=1 THEN PRINT "ｱﾅﾀﾉ ﾊﾟｿｺﾝﾊ ﾏｲｸﾛｿﾌﾄｹｲBASIC ｶ HuBASICｹｲ ﾃﾞｽ":GOTO 50
40 PRINT "ｱﾝﾀﾉ ﾊﾟｿｺﾝﾊ SHARPｹｲBASIC ﾃﾞｽ"
50 END
23 : 名無しさん ◆MZ2000oY [sage] : 01/12/29 01:43
10 INPUT "F-BASIC ﾓ Ready ﾀﾞｯﾀﾄｵﾓｳﾝﾀﾞｹﾄﾞ｡"
20 PRINT "ｱﾄ､ HuBASIC ﾊﾌﾟﾛｸﾞﾗﾑｼﾞｯｺｳﾁｭｳﾆ BREAK ｼﾃ､"
30 PRINT "CONT ﾃﾞｷﾙｼﾞｮｳﾀｲﾉﾄｷﾊ Ok. ﾄﾅﾙﾃﾞｽﾖ｡"
40 END
24 : ナイコンさん : 01/12/29 01:45
ｼｯｶｼ、半角ｶﾅ ﾊ 読ﾐﾂﾞﾗｲﾅｱ（ﾜﾗｲ）
ﾑｶｼﾊ ﾅﾝﾄﾓ ﾅｶｯﾀﾉﾆ
25 : ナイコンさん : 01/12/29 02:01
ON ERROR GOTO ｲｯﾃﾖｼ
26 : ナイコンさん : 01/12/29 02:30
ﾆｶｶｲﾝﾗﾄﾆ!(藁
27 : ナイコンさん : 01/12/29 02:51
ｽﾅﾐ
?SN Error
Ok
■
28 : ナイコンさん[sage] : 01/12/29 03:16
ﾐｲﾃ

Ready
ﾘﾆﾄ■
29 : ナイコンさん[sage] : 01/12/29 05:56
10 FOR I=1 TO 7
20 PRINT "ﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈ"
30 NEXT I
50 GOTO 10
30 : 29[sage] : 01/12/29 06:34
RUN
ﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈ
BREAK IN 30
OK

25 COLOR I

コレ忘れてたよ。
31 : ナイコンさん : 01/12/29 07:13
10 DEFINT A-Z
20 PRINT "N-88 BASIC(86)とか";
30 PRINT "BASIC 98では";
40 PRINT "全角が使えて助かったな"
50 REM
60 PRINT "X1turboもそうじゃなかったっけ?"
70 END
32 : ナイコンさん[sage] : 01/12/29 09:10
10 CLS
20 PRINT "if800model50だってMS-DOSだからＯＫだよ。"
30 PRINT "でも、変換がローマ字onlyなので、仮名入力バリバリの";
40 PRINT "8Bitユーザーには辛かった。"
33 : ナイコンさん[sage メール欄で話する人いないの？] : 01/12/29 09:51
10 PRINT ">>31"
20 PRINT "MZ-2500も忘れるなｺﾞﾙｧ"
30 PRINT "辞書ＲＯＭオプションだったけどな"
40 PRINT "単漢字入力うざい"
50 I$=INKEY$:IF I$="" THEN 50
60 END
34 : MH : 01/12/29 11:08
ﾊﾆﾘｲﾄ
OK
■
35 : MH : 01/12/29 11:11
10 STOP ON
20 ON STOP GOSUB 40
30 GOTO 30
40 RETURN
RUN■
36 : ナイコンさん[sage] : 01/12/29 11:36
DIR
?SN Error
■
37 : ナイコンさん[sage] : 01/12/29 12:19
ｾｽﾆﾐｶ ﾌｺﾝﾅｺﾄﾓｱｯﾀﾅ･･･ﾌ
Syntax Error
OK
■
38 : ナイコンさん : 01/12/29 13:55
10 PRINT">>33"
20 変数="MZ-2500はこんなことまで出来たっけ?"
30 PRINT 変数
39 : 名無しさん ◆MZ2000oY [sage] : 01/12/29 14:04
10 PRINT">>31"
20 [変数]="X1turbo の場合は [ ] で囲む必要がありました。"
30 PRINT [変数]
40 : ナイコンさん[age] : 01/12/29 14:06
>>35
10 STOP ON 'ﾀﾞｹﾃﾞ可
41 : ナイコンさん : 01/12/29 14:08
MONｱｰ
h]■
42 : 33[sage おお！そういえば] : 01/12/29 14:08
10 PRINT ">>38"
20 変数$="$が要るぞ、忘れるなｺﾞﾙｧ!!"
30 PRINT 変数$
43 : ナイコンさん : 01/12/29 14:10
[for N88-BASIC(86)]

LIST
10 WIDTH 80,25:CONSOLE 0,25,0,1,0
20 PRINT "正直、うらやましいな、変数に漢字使えるの・・・"
Ok
RUN
正直、うらやましいな、変数に漢字使えるの・・・
Ok
■
44 : ナイコンさん : 01/12/29 14:15
10 ON ERROR GOTO 40
20 SCREEN,
30 PRINT"98!":END
40 PRINT"88!":END
50 REM N88-BASIC ﾉ　ﾅｿﾞ
45 : ナイコンさん[sage] : 01/12/29 14:17
printf("
イマダ！45ゲットォォォォワショーイ！！\n
￣￣￣￣￣∨￣￣￣　　　　　　　(´´\n
　　　　 ／■＼　　　　　　　(´⌒(´\n
　　⊂（´∀｀ ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡\n
　　　　　　 ￣￣　 (´⌒(´⌒;;\n
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ\n
");
46 : ナイコンさん[sage] : 01/12/29 14:32
PRINT"未だ工事！"
47 : ナイコンさん[sage] : 01/12/29 14:44
2 ｹﾞｯﾄｫｫｫ
3 ｹﾞｯﾄｫｫｫ

RENUM
48 : ナイコンさん : 01/12/29 15:24
10 PRINT"ﾏﾀｰﾘﾉｺﾝｹﾞﾝｯﾃﾀﾞﾚ";
20 INPUT MONA$
30 IF INSTR(MONA$,"ﾁｭｳﾎﾞｰ")>0 THEN PRINT"否":END
40 IF INSTR(MONA$,"83")>0 THEN PRINT"逝":END
50 PRINT"ｵﾏｴﾓﾅｰ"
60 END
49 : ナイコンさん[sage] : 01/12/29 17:03
PRINT SEARCH(I4004%,"ﾏﾀｰﾘﾉｶﾐ@")
50 : MZ-2000 : 01/12/31 01:03
NEW
Ready
RUN
*ERROR 19
Ready
■
51 : MZ-2000[sage] : 01/12/31 01:06
POKE$952,0
Ready
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA■
52 : if800[sage] : 01/12/31 01:53
800 ?"懐かしいねぇ。GW-BASIC"
53 : 名無しさん ◆MZ2000oY [sage] : 01/12/31 07:36
>>51
POKE$952,166
Ready
■
54 : ナイコンさん[sage] : 02/01/05 19:33
1000 REM MS-BASICﾃﾞﾏﾀｰﾘ
4380 GOSUB >>52:PRINT"ｳﾏｰ"
5550 PRINT"S-BASIC vs CBS-BASIC"
5560 IF INKEY$="" THEN 5560
55 : ナイコンさん[sage] : 02/01/08 00:45
55 CHAIN "FORMAT /P /G"
RUN

Syntax Error in 55
OK

NEW

10 PRINT "そういや，領域確保が必要だったんだっけ・・・"
20 PRINT "どんなコマンドだっけ．もうすっかり忘れちゃったなあ．"
56 : MH : 02/01/08 12:54
>>40
10 PRINT "ｳｵ､ｳﾔﾗﾚﾀ"
20 PRINT "ﾃﾞﾅｵｼﾃｷﾏｽ"
30 GOTO 30
57 : ナイコンさん[sage] : 02/01/08 13:05
=40=54
若いということは良いことだ。(^^)
58 : ナイコンさん[sage] : 02/01/08 13:07
57 GOTO >>1
59 : ナイコンさん[sage] : 02/01/08 13:10
BOOT
Aer you sure?(y/n) Y
60 : ナイコンさん[sage] : 02/01/08 13:25
KEY 5,"new"+chr$(13)
61 : ナイコンさん[SAGE] : 02/01/08 14:08
100 REM SAVE"61",A 'ｼﾏﾀ!!
110 CHAIN MERGE "61",62,DELETE 57
120 PRINT "ｽﾏﾇｰ ｵﾒﾒﾜｽﾚﾃﾀ";
132 LET TRUE=(40 EQV 54)
140 PRINT RIGHT$("GOOD!",1)
62 : ナイコンさん : 02/01/08 18:56
100 REM >>60
110 PRINT "ﾋﾃﾞｴ(w";
63 : ナイコンさん[sage] : 02/01/08 20:24
RETURN
64 : ナイコンさん[sage] : 02/01/08 22:18
load "60.bas"

OK
run

OK

KEY 1,"save "+chr$(&H22;)

OK
CLS 3
65 : ナイコンさん : 02/01/08 23:09
10 print chr$(12)
20 PRINT"pc-8001 ﾉ N-BASIC ﾆﾊ CLS ｶﾞ ﾅｶｯﾀﾝﾀﾞ"
20 beep 1 :for I=1 to 50
30 beep 0 :next
50 end
66 : ナイコンさん : 02/01/08 23:15
ｼﾞｮｳｷ ﾉ ﾌﾟﾛｸﾞﾗﾑ ｴﾗｰ ﾃﾞ ﾄﾏﾙ ｽﾏｿ
OK
67 : ナイコンさん : 02/01/08 23:17
ﾔﾊﾘ ﾄﾏﾗｽﾞ ﾅﾆｦﾔｯﾃﾝﾀﾞ ｵﾚ
68 : ナイコンさん : 02/01/09 12:39
NEW ON 1
69 : ナイコンさん[sage] : 02/01/09 13:07
TRON
70 : ナイコンさん : 02/01/09 13:31
MON
71 : ナイコンさん[sage] : 02/01/09 14:06
ｶﾀｶﾅﾊﾅｾﾞｴﾗｰﾆﾅﾗﾅｲｶ
Ok
72 : ナイコンさん[sage] : 02/01/12 13:52
100 GOSUB >>65
110 INPUT "ｲﾂｶﾗﾂｲﾀﾝﾀﾞﾛｳﾈ、ｵｾｰﾃﾖ";A$
73 : ナイコンさん : 02/01/14 03:34
10 H$="150ｴﾝ":N$="ﾈｷﾞﾀﾞｸ":O$="ｵｵﾓﾘ":T$="ﾂﾕﾀﾞｸ":Y$="ﾖｼﾉﾔ"
10 INPUT"ｿﾝﾅｺﾄﾖﾘ ｷｲﾃｸﾚﾖ >>1ﾖ｡ ｽﾚﾄﾊ ｱﾝﾏ ｶﾝｹｲﾅｲｹﾄﾞｻ｡(Y/N)";A$
20 IF A$="Y"or"y" THEN 40:IF A$="N"or"n" THEN 30 ELSE 10
30 PRINT"ｿｳｲﾜｽﾞﾆ ｷｹ ｺﾞﾙｧ!":FOR I=0 TO 10:BEEP:NEXTI
40 PRINT"ｺﾉｱｲﾀﾞ ｷﾝｼﾞｮﾉ";Y$;"ｲｯﾀﾝﾃﾞｽ｡";Y$
50 PRINT"ｿｼﾀﾗ､ﾅﾝｶﾋﾄｶﾞｲｰｯﾊﾟｲｲﾃ ﾊｲﾚﾅｲﾝﾃﾞｽ｡"
60 PRINT"ﾃﾞ､ﾖｸﾐﾀﾗ ﾅﾝｶ ﾀﾚﾏｸ ｻｶﾞｯﾃﾃ､"
70 PRINT H$;"ﾋﾞｷ ﾄｶ ｶｲﾃｱﾙﾝﾃﾞｽ｡"
80 PRINT"ﾓｳﾈ､ｱﾎｶﾄ｡ ﾊﾞｶｶﾄ｡"
90 PRINT"ｵﾒｴﾗﾅ､";H$;"ﾋﾞｷ ｺﾞﾄｷﾃﾞ ﾌﾀﾞﾝ ｷﾃﾅｲ";Y$;"ﾆ ｷﾃﾝｼﾞｬﾈｰﾖ｡"
100 GOSUB 470
110 PRINT H$;"ﾀﾞﾖ､";H$;"｡"
120 PRINT"ﾅﾝｶ ｵﾔｺﾂﾞﾚ ﾄｶﾓ ｲﾙｼ｡"
130 PRINT"ｲｯｶ ﾖﾆﾝﾃﾞ";Y$;"ｶ｡"
140 PRINT"ｵﾒﾃﾞﾃｰﾅ｡"
150 PRINT"ﾖｰｼ､ﾊﾟﾊﾟﾄｸﾓﾘ ﾀﾉﾝｼﾞｬｳｿﾞｰ､ﾄｶ ｲｯﾃﾙﾉ｡"
160 PRINT"ﾓｳﾐﾃﾗﾝﾅｲ｡"
170 PRINT"ｵﾒｴﾗﾅ､";H$;"ﾔﾙｶﾗ ｿﾉｾｷ ｱｹﾛﾄ｡"
180 PRINT Y$;"ｯﾃﾉﾊﾅ､ﾓｯﾄ ｻﾂﾊﾞﾂﾄ ｼﾃﾙﾍﾞｷ ﾅﾝﾀﾞﾖ｡"
190 PRINT"Uﾉｼﾞﾃｰﾌﾞﾙﾉ ﾑｶｲﾆ ｽﾜｯﾀ ﾔﾂﾄ ｲﾂ ｹﾝｶｶﾞ ﾊｼﾞﾏｯﾃﾓ ｵｶｼｸﾅｲ｡"
200 PRINT"ｻｽｶ ｻｻﾚﾙｶ､ｿﾝﾅ ﾌﾝｲｷｶﾞ ｲｲﾝｼﾞｬﾈｴｶ｡"
210 PRINT"ｵﾝﾅ ｺﾄﾞﾓﾊ ｽｯｺﾝﾃﾞﾛ｡"
220 PRINT"ﾃﾞ､ﾔｯﾄ ｽﾜﾚﾀｶﾄ ｵﾓｯﾀﾗ､ﾄﾅﾘﾉ ﾔﾂｶﾞ､"
230 PRINT O$;T$;"ﾃﾞ､ﾄｶ ｲｯﾃﾙﾝﾃﾞｽ｡"
240 PRINT"ｿｺﾃﾞ ﾏﾀ ﾌﾞﾁｷﾞﾚ ﾃﾞｽﾖ｡"
250 PRINT"ｱﾉﾅ､";T$;"ﾅﾝﾃ ｷｮｳﾋﾞ ﾊﾔﾝﾈｰﾝﾀﾞﾖ｡"
260 GOSUB 470
270 PRINT"ﾄｸｲｹﾞﾅ ｶｵ ｼﾃ ﾅﾆｶﾞ";T$;"ﾀﾞ｡"
280 PRINT"ｵﾒｴﾊ ﾎﾝﾄｳﾆ";T$;"ｦ ﾀﾍﾞﾀｲﾉｶﾄ ﾄｲﾀｲ｡"
290 PRINT"ﾄｲﾂﾒﾀｲ｡"
300 PRINT"ｺｲﾁｼﾞｶﾝ ﾄｲﾂﾒﾀｲ｡"
310 PRINT"ｵﾏｴ､";T$;"ｯﾃ ｲｲﾀｲ ﾀﾞｹ ﾅﾝｼﾞｬﾅｲｶﾄ｡"
320 PRINT Y$;"ﾂｳﾉ ｵﾚｶﾗ ｲﾜｾﾃ ﾓﾗｴﾊﾞ､"
330 PRINT"ｲﾏ､";Y$;"ﾂｳﾉ ｱｲﾀﾞﾃﾞﾉ ｻｲｼﾝ ﾘｭｳｺｳﾊ ﾔｯﾊﾟﾘ";N$;"｡"
340 PRINT"ｺﾚﾀﾞﾈ｡"
350 PRINT N$;"ｯﾃﾉﾊ ﾈｷﾞｶﾞ ｵｵﾒﾆ ﾊｲｯﾃﾙ｡"
360 PRINT"ｿﾉｶﾜﾘ ﾆｸｶﾞ ｽｸﾅﾒ｡"
370 PRINT"ｺﾚ｡"
380 PRINT"ﾃﾞ､ｿﾚﾆ";O$;"ｷﾞｮｸ｡"
390 PRINT"ｺﾚ｡"
400 PRINT"ｻｲｷｮｳ｡"
410 PRINT"ｼｶｼ ｺﾚｦ ﾀﾉﾑﾄ ﾂｷﾞｶﾗ ﾃﾝｲﾝﾆ ﾏｰｸ ｻﾚﾙ ﾄｲｳ ｷｹﾝﾓ ﾄﾓﾅｳ､ﾓﾛﾊﾉｹﾝ｡"
420 PRINT"ｼﾛｳﾄﾆﾊ ｵｽｽﾒﾃﾞｷﾅｲ｡"
430 INPUT"ﾏｱ ｵﾏｴﾗﾊ､ｷﾞｭｳｻｹﾃｲｼｮｸ ﾃﾞﾓ ｸｯﾃﾅｻｲｯﾃ ｺｯﾀ｡(Y/N)";A$
440 IF A$="Y"or"y" THEN 460:IF A$="N"or"n" THEN 450 ELSE 430
450 PRINT"ﾀﾞﾏﾚ ﾁｭｳﾎﾞｳ!":FOR I=0 TO 10:BEEP:NEXTI
460 END
470 PRINT"ﾎﾞｹｶﾞ｡":RETURN
74 : ナイコンさん : 02/01/14 03:39
　　　DO 100 I=0,0
　　　　　WRITE (*,*) '読みにきーよ'
100 CONTINUE
　　　END
75 : ナイコンさん : 02/01/14 06:00
Hit Any Key!
76 : ナイコンさん : 02/01/14 08:10
10 DEFINT A=0
20 INPUT A
30 IF A=0 THEN *THEN. ELSE *ELSE.
40 *THEN.
50 PRINT "構造化プログラミングに憧れて";
60 PRINT "こんな馬鹿な書き方をした時期がありました" : GOTO *ENDIF.
70 *ELSE.
80 PRINT "at N88-BASIC(86)。ところで文法あってる？"
90 *ENDIF.
77 : ナイコンさん[sage] : 02/01/14 08:11
100 REM うわ。せっかくインデントしたのに半角スペースが消えてるよ（;´Д｀
78 : ナイコンさん[sage] : 02/01/14 10:56
>>74
これFORTRANじゃん…
79 : ナイコンさん : 02/01/14 15:25
10 PRINT "MSX-BASIC ﾅﾂｶｼｲ"
20 GOTO10
80 : ナイコンさん[sage] : 02/01/14 23:05
CALL FORMAT
81 : ナイコンさん[sage] : 02/01/15 14:35
100 GOSUB>>73
110 PRINT"ﾖｼﾉﾔﾈﾀﾄﾞｯｶﾃﾞﾐﾀｿﾞ
82 : ナイコンさん : 02/01/15 14:39
1000 PRINT"小泉孝太郎は佐藤藍子がお鍋してる時の姿
1010 PRINT"佐藤藍子は小泉孝太郎がお釜してる時の姿
1020 PRINR"だまされるなよ
83 : ナイコンさん : 02/01/15 17:03
>>82
Syntax Error
84 : ナイコンさん[なぜだ] : 02/01/15 17:19
>>83
1020
?"信託す偉い人、もういない
85 : ナイコンさん[sage] : 02/01/16 00:03
10 CLS:CLEAR
20 PRINT "なぜに最初にＣＬＳする奴が少ないのだ？"
30 END
86 : ナイコンさん[sage] : 02/01/16 12:01
1 REM ｳｹｹ
5 CLS
10 ON STOP GOSUB 30
20 PRINT "ﾍﾍﾍ"
30 RETURN
87 : ナイコンさん[sage] : 02/01/16 13:27
>>86
ﾍﾍﾍ
RETURN without GOSUB in 30
88 : 86[sage] : 02/01/17 17:54
guha---
1 REM ｳｹｹ
5 CLS
10 ON STOP GOSUB 30
20 PRINT "ﾍﾍﾍ":GOTO 20
30 RETURN
89 : ナイコンさん[sage] : 02/01/17 18:04
>>88
6 PRINT ">>35 ﾃﾞ ｶﾞｲｼｭﾂ":END
90 : ナイコンさん[sage] : 02/01/18 02:01
>>73
WIDTH 80,25:LOCATE 12,36:PRINT "ﾊｹﾞｼｸﾜﾗﾀ"
91 : 90[sage] : 02/01/18 02:49
ﾏﾁｶﾞｲｽﾏｿ m(__)m
WIDTH 80,25:LOCATE 35,12:PRINT "ﾊｹﾞｼｸﾜﾗﾀ"

92 : ナイコンさん[sage] : 02/01/18 14:31
KEY 5,"DEFUSR=0:A=USR(0)"+CHR$(13)
93 : MH : 02/01/18 18:56
10 REM >>88
20 PRINT "ﾐﾝﾅｵﾅｼﾞｺﾄｦｶﾝｶﾞｴﾙﾉﾈ(w"
94 : ナイコンさん : 02/01/18 21:35
'printするなら;をつけたほうが楽しいと思う
95 : ナイコンさん : 02/01/19 06:06
10 REM * ｼﾚｲｼｮ *
20 WIDTH 40,25:SCREEN 0,25,0,1,1:COLOR ,,,1:CLS 3
30 LOCATE 15, 9:PRINT "ｼﾚｲ : ｺﾄｼｼﾞｭｳﾆBASICｦｷｮｳﾖｳｺﾞﾆｾﾖ!"
40 FOR N=1 TO 1000:NEXT:BEEP
50 LOCATE 15,10:PRINT "...ﾅｵｺﾉﾌﾟﾛｸﾞﾗﾑﾊｼﾞﾄﾞｳﾃｷﾆｼｮｳﾒﾂｽﾙ"
60 FOR N=1 TO 500:FOR M=1 TO 10:BEEP 1:BEEP 0:NEXT M,N
70 LINE (0,0)-(37,23),"*",7,BF
80 FOR N=1 TO 100
90 BEEP 1:LOCATE INT(RND(1)*35+1),INT(RND(1)*21+1):COLOR 2:PRINT "*":BEEP 0
100 NEXT N
110 CLS:NEW
120 REM ﾔﾊﾞｲ､ｹｯｺｳﾜｽﾚﾃﾙﾖ(ｳﾂ
130 END
96 : ナイコンさん[sage] : 02/01/19 12:23
100 GOSUB>>95
110 REM ｺﾚﾊﾄﾞﾉﾏｼﾝﾃﾞｼﾞｯｺｳｽﾚﾊﾞｲｲﾉﾀﾞ
97 : 漏れ : 02/01/19 13:58
10 PRINT"YOUNG JUMP":GOTO10
20 REM ｺﾝﾅ ｲﾁｷﾞｮｳ ﾌﾟﾛｸﾞﾗﾑ ｦ
30 REM ﾔﾝｼﾞｬﾝ ﾉ ﾗﾝｶﾞｲﾆ
40 REM ﾄｳｺｳ ｼﾃ
50 REM ｹｲｻｲ ｻﾚﾀ ｺﾄｶﾞ ｱﾙﾖ
98 : 漏れ : 02/01/19 14:01
10 GOTO>>96
20 PRINT"N BASIC　ﾐﾀｲﾀﾞﾖ"
30 PRINT"ﾀﾌﾞﾝ PC-8001 ﾃﾞｼｮｳ"
40 NEW
99 : ナイコンさん : 02/01/19 14:13
100 GOSUB>>98
110 PRINT"なんでSCREENあんの
100 : ナイコンさん[sage] : 02/01/19 15:04
10 DEFINT A-Z
20 ON KEY GOSUB >>99
30 ON STOP GOSUB >>98
40 GOTO >>1
101 : ナイコンさん[sage] : 02/01/19 16:12
10 GOTO >>95
20 PRINT "20 ｷﾞｮｳﾉ SCREEN 0,25,0,1,1 ｯﾃﾉﾊ ｲｯﾀｲ ﾅﾆ?"
102 : ナイコンさん : 02/01/20 01:36
10 'MSX ﾉ ﾘﾌﾞｰﾄ
20 DEFUSR=0
30 A=USR(0)
103 : ナイコンさん : 02/01/20 21:04
NEW ON 1
104 : ナイコンさん : 02/01/21 18:26
1 REM ﾌﾄｼﾀ ｷﾞﾓﾝ ｺﾚｯﾃ ﾂｶｴｯﾀｹ?
10 PRINT "ﾊｧﾊｧ"
20 RUN
105 : ナイコンさん[sage] : 02/01/21 19:54
ゲーム作ってて、ゲームオーバー後各変数を初期化するのが
めんどくさかったときは、Replay時にRUN、って書いてた覚えがある
106 : ナイコンさん[sage] : 02/01/21 22:36
10 COLOR INT(RND(1)*7)+1
20 LOCATE 10,10:PRINT "ｾﾝﾀｰｼｹﾝﾉ BASICｯﾃ ﾔﾙﾔﾂｲﾙﾉｶ"
30 GOTO 10
107 : ナイコンさん[sage] : 02/01/21 23:02
5e 2a 54 eb 74 cd 79 3d
ef e1 2a 34 ff c3 fa 41
108 : ナイコンさん : 02/01/22 01:12
10 LIST オレノジンセイ

10コウカイ
20コウカイ
30コウカイ
40コウカイ
50コウカイノ　レンゾクダネ
109 : ナイコンさん[sage] : 02/01/22 09:29
>>105
しんでしまうとはなさけない・・・はじめからやりなおせ
110 : ナイコンさん : 02/01/22 10:56
RUN 110
111 : ナイコンさん[sage] : 02/01/22 11:49
考えてみればプログラム中でRUNでジャンプすんのってメチャメチャ強引だなあ(笑
112 : ナイコンさん : 02/01/23 00:05
CONT
113 : ナイコンさん[age] : 02/01/24 12:06
ﾊﾆﾘｲﾄ
OK

FILES
OK

ｽﾅﾐ
OK

RUN
OK
114 : ナイコンさん[sage] : 02/01/24 12:19
0OQ
OK

ﾜﾗﾀ
OK
115 : ナイコンさん : 02/01/24 12:43
10 SCREEN 0.0
20 CLS 3
30 END
116 : ナイコンさん[sage] : 02/01/26 11:10
Syntax error in >>1-115
117 : ナイコンさん[sage] : 02/01/29 18:45
100 HOMO
118 : ナイコンさん[sage] : 02/01/29 21:37
10 END
119 : ナイコンさん[sage] : 02/02/02 17:39
100 LEZ
120 : ナイコンさん : 02/02/03 04:07
'ハニリイト激しく藁タ
121 : ナイコンさん[sage] : 02/02/04 04:08
10 BEEP 1
122 : ナイコンさん : 02/02/06 12:49
Syntax error in >>1-1001
123 : 本田ギケン[sage] : 02/02/06 12:54
10 REM ｺﾉｽﾚｽｷﾃﾞｼ
124 : ナイコンさん[sage] : 02/02/07 06:15
DOS-BASICならトントカイモだろ。
125 : ナイコンさん : 02/02/08 20:42
>>124
MSX-BASICなら
ｿﾁﾘﾘ ﾄﾝﾄｶｲﾓ
126 : ナイコンさん[sage] : 02/02/08 21:27
10 '>124-125
20 TALK "m1:be-ssikude katareyo"
127 : ナイコンさん : 02/02/08 22:24
10 REM >>126
20 PRINT "ｿｳｲｳ ｵﾏｴ ﾊ PC-6001ｼﾞｬﾈｪｶ"
128 : ナイコンさん : 02/02/10 10:09
FOR i=1 to 8
READ A$
PRINT A$
NEXT i
DATA ***************************************************
DATA　きょうびBASICには笑えた 高校ではBASICかおめでてーな
DATA　Cは難しすぎるし結果としてよかったんじゃないかな
DATA ところで漢字の使えないBASICって今思うと読みにくいんだよ！
DATA　目が悪くなるだろ！　むかつく！
DATA　今はVBか？　やっぱ原点はN88BASIC　これだね。
DATA　そして　QuickBASIC これ最強。
DATA *************************************************
END
129 : ナイコンさん[sage] : 02/02/10 10:33
ﾆｶｶｲﾝﾗﾄﾆ!
130 : ナイコンさん : 02/02/10 13:20
10 REM >>128
20 PRINT "ｷﾞｮｳﾊﾞﾝｺﾞｳ ﾊ ｲﾗﾅｲﾉｶ?"
131 : ナイコンさん[sage] : 02/02/10 14:08
10 PRINT "ｷﾞｮｳﾊﾞﾝｺﾞｳ ﾉ ﾅｲ BASIC ﾅﾄﾞ ﾐﾄﾒﾝ!"
20 GO TO 10
132 : ナイコンさん : 02/02/10 14:27
ｼﾂﾓﾝｼﾃﾓｲｲﾃﾞｽｶ? 1+1 ﾊｲｸﾂﾃﾞｼｮｳ
2
Ok
_
133 : ナイコンさん[sage] : 02/02/10 18:45
10 PRINT "ﾊｹﾞｼｸ ｲﾀﾁｶﾞｲﾀﾞｶﾞ､｢BASIC STUDIO ﾊﾟﾜﾌﾙ ｹﾞｰﾑ ｺｳﾎﾞｳ｣ﾉ"
20 PRINT "EZ-BASIC ﾆﾓ ｷﾞｮｳﾊﾞﾝｺﾞｳｶﾞ ｱﾙﾈ｡"
30 PRINT "http://www.artdink.co.jp/japanese/title/bs/index.html"
40 PRINT "http://www.artdink.co.jp/japanese/title/bs/gr/g_ezbas.jpg"
134 : ナイコンさん : 02/02/10 18:52
10 TALK "F2 TORIAEZU AGE"
RUN
女声「とりあえずage」
Ok
■
135 : ナイコンさん : 02/02/10 20:43
10 '>>132
20 PRINT "ﾘｽﾄ ﾊ ﾄﾞｺﾀﾞ?"
30 END
136 : ナイコンさん : 02/02/10 21:21
10 ' >>135
20 PRINT "N88(86)-BASICﾃﾞ 1ｷﾞｮｳﾒｦ ｺﾉﾏﾏｳﾁｺﾝﾃﾞﾐﾖｳ"
30 PRINT "ｺｳﾌﾞﾝﾁｪｯｸﾃﾞ ｶﾀｶﾅﾊ Syntax Errorﾆﾅﾗｽﾞﾆ"
40 PRINT "ﾑｼｽﾙﾂｸﾘﾆ ﾅｯﾃｲﾙｶﾗﾗｼｲ"
50 PRINT "ｼｭｳﾜｶﾞﾑｶｼﾀﾞｼﾃｲﾀ 'ESC' ﾄｲｳ ｽｳｺﾞｳﾃﾞ ｱﾎﾞｰﾝ"
60 PRINT "ｻﾚﾀｻﾞｯｼﾆ ﾃﾞﾃｲﾀYO!"
137 : ナイコンさん[sage] : 02/02/10 22:23
PRINT "ｲﾝﾀｰﾌﾟﾘﾀ ﾅﾝﾀﾞｶﾗ ﾀﾞｲﾚｸﾄｺﾏﾝﾄﾞﾓ ｱﾘ ｼﾞｬ ﾅｲﾉｶﾅ"
138 : ナイコンさん[sage] : 02/02/10 22:48
1 PRINT "BASIC ﾄ ｲｴﾊﾞ MSX ﾀﾞﾛ"
2 INPUT ANS$
3 IF ANS$="ｿｳﾃﾞｽﾈ" THEN GOTO 10 ELSE GOTO 4
4 PRINT "ｸｿｯﾀﾚ ｼﾈ"
10 PRINT "MSX ﾉ ｹﾞｰﾑ ｶﾞ ﾀﾀﾞ ﾃﾞ ﾃﾆﾊｲﾙﾖ"
11 PRINT "http://messages.yahoo.co.jp/bbs?.mm=GN&action;=m&board;=1835377&tid;=a4dea4bfqya45a4la4bfa1aaa47a4aba4ba5da5ua1bca4dea4gmha4fa1aa&sid;=1835377∣=1&type;=date&first;=1"
12 PRINT "###ﾅｶﾞｸﾃｺﾞﾒｿ"
13 BEEP
14 GOTO 10
139 : ナイコンさん : 02/02/11 11:17
10 '>>138
20 PRINT "MSX-BASICﾅﾗ 3 ｷﾞｮｳﾒ ﾊ ｺｳﾀﾞﾛ?"
30 PRINT "ﾓｼﾞ ﾂﾒﾅｷｬ MSX-BASIC ｼﾞｬ ﾅｲYO!"
40 DATA "3 IFANS$="ｿｳﾃﾞｽﾈ"THENGOTO10ELSEGOTO4"
140 : ナイコンさん : 02/02/13 12:06
10 OPEN "1:RANDOMF" AS #1
20 FIELD #1,255 AS MOJI$
30 LSET MOJI$="ｺﾉｽﾚ ｽｷﾃﾞｽ"
40 PUT #1,LOF(1)+1
50 CLOSE #1
60 END
141 : ナイコンさん[sage] : 02/02/14 04:09
10　'IF A$="" THEN 10 E;SE 4

20　'MSXなら注釈はremと書いたほうが速い
142 : ミスプレ改 : 02/02/14 14:48
10 PRINT"ｺﾉｽﾚ ﾅﾝﾀﾞｶ ｵﾓﾛｲ"
20 PRINT"ｺﾉｲﾀ ﾅﾝﾀﾞｶ ｵﾁﾂｸ"
30 PRINT"ｺﾚﾃﾞﾓ 19ｻｲﾉ ｾﾝﾓﾝｶﾞｺｰｾｰﾃﾞｽ｡"
40 PRINT"ｶﾞｯｺｳﾉ ﾊﾟｰｺﾝﾆ ｺﾝﾅﾌﾞﾝ ｼｶｹﾏｸｯﾃﾏｼﾀ(w"
50 PRINT"ｼﾀﾆｶｷﾏｽﾉﾃﾞ BASICｼﾞｯｺｳﾃﾞｷﾃ ｶﾂ ｵﾝｹﾞﾝｶﾞｱﾙｶﾀﾊ ﾚｯﾂ ﾄﾗｲ！"
60 PLAY"T100GEGET240GEGET100GEGAGFT52EC"
70 PRINT"ﾅｵ MULTI8ﾆｼｶｹﾙ ﾀﾒﾆ ｶｲﾀ ﾌﾞﾝﾅﾉﾃﾞ PC-98ﾉ ﾊﾞｱｲ ﾊ"
80 PRINT"ｼﾞﾌﾞﾝﾃﾞ ｶｷﾅｵｼﾃ ｸﾀﾞｻﾙﾄ ﾀｲﾍﾝ ｳﾚｼｲﾃﾞｽ｡"
SAVE"2"
Ok.
143 : ナイコンさん : 02/02/15 00:43
1000　REM BEEPﾉﾃｽﾄ
1010　FOR I=1 TO 4
1020　　READ A,B
1030　　FOR J=1 TO A
1040　　　BEEP
1050　　　FOR K=1 TO B:NEXT K
1060　　NEXT J
1070　NEXT I
1080　DATA 50,500,50,250,100,150,250,100
144 : ナイコンさん : 02/02/15 03:06
<HTML>
<HEAD>
<TITLE>っていうかさ</TITLE>
<BODY>
<H1>オモロイケド読みにくい</H1>
<A HREF="http://www.2ch.net/">トップ</A>
<!--コレ反則かな。だれかヤルト思ったって？ｽﾏｿ-->
</BODY>
</HTML>
145 : ナイコンさん : 02/02/15 18:06
CLOAD "test.bas"
RUN
Ok
146 : ナイコンさん : 02/02/15 18:13
AUTO
10 PRINT ">>144"
20 PRINT "ﾊﾝｿｸ ﾄ ｲｳﾖﾘ ﾊ ﾌﾞｽｲ ﾅ ﾀﾞｹｶﾄ ｵﾓﾜﾚ"
30 PRINT CHR$(7)
147 : ナイコンさん[sage] : 02/02/16 14:36
100　GOSUB >>144
200　REM 大なり小なり恐怖症だからいやデス
148 : ナイコンさん : 02/02/16 20:16
Syntax Error in >>1000
Ok
■
149 : ナイコンさん : 02/02/16 21:48
1 REM XEVIOUS
2 PLAY"T240L16V15"
3 PLAY"O4CO5CO4BO5CECO4BO5C"
4 PLAY"O4CO5CO4B-O5CECO4B-O5C"
5 PLAY"O4CO5CO4AO5CECO4AO5C"
6 PLAY"O4CO5CO4A-O5CECO4A-O5C"
7 GOTO 3
150 : ナイコンさん[sage] : 02/02/18 13:59
10 '>138
20 PRINT"ｸｿｯﾀﾚｼﾈ ﾉ ｱﾄﾃﾞﾓ"
30 PRINT"MSX ﾉ ｹﾞｰﾑ ｶﾞ ﾀﾀﾞ ﾃﾞ ﾃﾆﾊｲﾙﾖ ﾄ ﾚﾝｿﾞｸ ﾃﾞ ﾃﾞﾙﾉﾊ"
40 PRINT"ｼﾖｳﾃﾞｽｶ? (Y/N)"
50 INPUT A$
60 IF A$<>"N" THEN 80
70 FOR I=0 TO 1000:PRINT "ﾊﾞｸﾞ ﾀﾞｽﾝｼﾞｬﾈｴ ｺﾞﾙｧ!":BEEP:NEXT:NEW
80 IF A$<>"Y" THEN 50
90 PRINT"ﾅﾗｲｲﾃﾞｽ"
151 : ナイコンさん : 02/02/19 21:12
WIDTH 40

Ｒｅａｄｙ
１０　ＰＲＩＮＴ”１６＊８ドットジャナイト　アマリアジガデナイＮＥ！”
152 : 有 ◆3/V75Pys : 02/02/19 22:16
こういう事しなかった？
10 'BEEPﾃﾞｲﾛﾝﾅｵﾄｦﾀﾞｽ
20 FOR I=0 TO 50
30 BEEP 1:BEEP 0:BEEP 1:BEEP 1:BEEP 0
40 NEXT I
153 : ナイコンさん : 02/02/19 23:19
10 GO TO HELLrun
ｱﾎﾞｰﾝ ｼﾏｼﾀ
OK.
154 : ナイコンさん[sage] : 02/02/19 23:52
>>152
こういうことならした。

10 ' N-BASIC version
20 PRINT CHR$(12);
30 PRINT "Ok"+CHR$(&HFC;)
40 LINE INPUT A$
50 PRINT "Syntax error"+CHR$(&HFC;)
60 BEEP
70 GOTO 30

以上を入力したあと、runして逃げる。
155 : ナイコンさん : 02/02/20 00:31
今のPCショップで、XPのテーマがクラシックになっているのはよく見るけど、
この時代はかわいいいたずらだったんだなぁ...
156 : ナイコンさん : 02/02/20 07:42
10 '>152
20 'ﾃﾞｰﾀﾚｺｰﾀﾞｰ ﾉ ｽｲｯﾁ ﾃﾞ ｲﾛﾝﾅ ｵﾄ ｦ ﾀﾞｿｳ
30 INPUT A
40 MOTOR ON:FOR I=0 TO A:NEXT:MOTOR OFF:GOTO 40
50 'ｿﾉﾎｶ ﾉ ﾘﾖｳﾎｳ ﾃﾞｽｶﾞ
60 'ﾃﾞｰﾀﾚｺｰﾀﾞｰ ﾆ ｺｴ ｦ ﾛｸｵﾝｼﾀ ﾃｰﾌﾟ ｦ ｲﾚ ｻｲｾｲｽﾙﾄ ﾎﾞｲｽﾁｪﾝｼﾞｬｰ ﾆ ﾅﾘﾏｽ
70 'ｿﾚﾆｼﾃﾓ ｷｶｲ ﾆ ﾜﾙｿｳ ﾃﾞｽﾅ (ﾜﾗ
157 : ナイコンさん : 02/02/20 16:33
10 CLS
20 RESTORE *DT
30 READ D$,A,B
40 C=A+B
50 PRINT USING "& & ### ### ###";D$,A,B,C
60 END
70 *DT
80 "ﾅﾂｶｼｲ",10,20
158 : お。 : 02/02/20 22:18
10 cls
20 x=10:y=10
30 a$=inkey$
40 x=x+(a$="4")-(a$="6")
50 y=y+(a$="8")-(a$="2")
60 cls:locate x,y:print "(ﾟДﾟ)ｳﾏｰ"
70 goto 30

画面外でエラーとか 細かい事は なしの方向で…
ってか　INKEY$の使い方って こうだっけ？
CLSてのも強引だが…
159 : ナイコンさん : 02/02/21 10:10
100 CLS
110 WIDTH 80,25
120 X=1:Y=1
130 A$=CHR$(&HFF;)
140 WHILE A$<>CHR$(&HFF;)
150 LOCATE X,Y:PRINT "(ﾟДﾟ)ｳﾏｰ"
160 A$=INKEY$
170 IF A$="4" THEN X=X-1:IF X< 1 THEN X=80
180 IF A$="6" THEN X=X+1:IF X>80 THEN X= 1
190 IF A$="2" THEN Y=Y-1:IF Y< 1 THEN Y=25
200 IF A$="8" THEN Y=Y+1:IF Y>25 THEN Y= 1
210 WEND
210 END
160 : ナイコンさん : 02/02/21 10:42
100 'ｽﾛｯﾄﾏｼﾝ
105 CLS
110 IK$=CHR$(&HFF;):WHILE IK$<>" ":IK$=INKEY$:A%=INT(RND(TIME)*9):LOCATE 1,1:PRINT STR$(A%):WEND
120 IK$=CHR$(&HFF;):WHILE IK$<>" ":IK$=INKEY$:B%=INT(RND(TIME)*9):LOCATE 4,1:PRINT STR$(B%):WEND
130 IK$=CHR$(&HFF;):WHILE IK$<>" ":IK$=INKEY$:C%=INT(RND(TIME)*9):LOCATE 7,1:PRINT STR$(C%):WEND
140 IF A%=B% AND A%=C% THEN PRINT "ｵｵｱﾀﾘ":GOTO *ED
150 IF A%=B% OR A%=C% OR B%=C% THEN PRINT "ｵｼｲ" :GOTO *ED
160 PRINT "ﾊｽﾞﾚ"
170 *ED
180 END
161 : ミスプレ改 : 02/02/21 23:26
10 print">>160ﾅﾂｶｼｰﾅ｡ ﾑｶｼBASICﾁｭｰﾀﾞｯﾀｺﾛ ﾖｸﾂｸｯﾀ｡"
162 : う[sage] : 02/02/22 00:30
だって、論理演算を使えって　Dr,Dがさぁ・・・
163 : ナイコンさん : 02/02/22 13:03
100 CLS
110 PRINT "ﾜﾀｼｶﾞ､ﾖｸﾀﾞｼﾀ､ｴﾗｰﾍﾞｽﾄ10"
115 PRINT
120 PRINT " 1ｲ:syntax error"
130 PRINT " 2ｲ:illegal function call"
140 PRINT " 3ｲ:file not found"
150 PRINT " 4ｲ:file write protected"
160 PRINT " 5ｲ:disk offline"
170 PRINT " 6ｲ:tape read error"
180 PRINT " 7ｲ:type mismatch"
190 PRINT " 8ｲ:out of data"
200 PRINT " 9ｲ:out of subscript out of range"
210 PRINT "10ｲ:string too long"
164 : ナイコンさん : 02/02/22 21:36
10 CONSOLE ,,,1:WIDTH 80,25
20 PRINT ">>162"
30 PRINT "最近ベーマガ買ってないけど、Dr.D元気かなあ？"
165 : ミスプレ改[sage] : 02/02/25 21:57
10 ' >>164ﾊ N88-BASIC ﾓｼｸﾊ ｺﾞｶﾝ BASICﾃﾞｶｲﾀﾄ ｵﾓﾜﾚ｡
20 ' ﾁｭｰｶ REM ﾄ LET ﾊ ｾﾞﾝｾﾞﾝ ﾂｶﾜﾈｰﾅ｡
30 ' ﾏｧ､ ｽｸﾈｰﾒﾓﾘ ﾊ ﾀｲｾﾂﾆｼﾅｲﾄﾅ｡
40 ' ﾒﾓﾘ ﾉ 1ﾊﾞｲﾄ ﾊ ﾁﾉ ｲｯﾃｷ!!
50 ' ｲﾏﾉ Win ﾓｼｸﾊ ﾏｶｰ ﾊ ｽｺｼﾊ ﾐﾅﾗｴ!!
166 : １ｌｊｙｔｆｆ : 02/02/27 21:04
10　' 気合で削った　ハイドライド３を思い出せ！
167 : ナイコンさん : 02/02/27 23:39
あきんどないと
168 : ナイコソさん[sage] : 02/03/02 20:26
Abort
169 : PC-8001 : 02/03/09 17:33
10 PRINT CHR$(12);
20 PRINT "ｾﾐｺﾛﾝ ﾂｹﾅｲﾄ 1ｷﾞｮｳ ｱｲﾁｬｳﾖ!"
170 : ナイコンさん : 02/03/09 19:51
10 ' ｽﾀｰｳｫｰｽﾞ ﾉ ﾀｲﾌｧｲﾀｰ
20 PRINT "(-O-)"
171 : PC-8801 : 02/03/09 20:43
10 CLS 0
20 PRINT "ﾄﾞｩ?"
172 : ナイコンさん[sage] : 02/03/09 23:57
10 PRINT ">>171"
20 PRINT "CLS ﾉ ﾊﾟﾗﾒｰﾀ ﾆ 0 ﾅﾝﾃ ｱｯﾀｯｹ?"
173 : ナイコンさん : 02/03/10 11:25
ag
174 : ナイコンさん[sage] : 02/03/10 12:30
EXEC &H0;
175 : ナイコンさん[sage] : 02/03/11 13:24
PLAY "@1O3L4BBL8BL4BO4DL8D-L4D-L8O3BL4BL8B-L2B"
176 : ナイコンさん[sage] : 02/03/12 00:19
10 REM >>175
20 PRNT "MML ｦ ｶｸﾅﾗ ﾓｯﾄ ｷﾚｲﾆ ｶｲﾃﾖ"
177 : ナイコンさん[sage] : 02/03/12 04:47
10 REM >>176
20 PRINT "ｽﾏｿ ﾅﾝｾPC-8801ﾉN-88BASICﾃﾞMMLﾂｶｯﾀｷﾘﾀﾞﾀﾉﾃﾞ"
178 : ナイコンさん : 02/03/14 00:05
10 CLS
20 PRINT "こんは゛んわ。N60-BASICて゛すか゛、なにか？";
179 : ナイコンさん : 02/03/14 00:24
10 REM >>172
20 PRINT "N88ﾃﾞ ﾀｼｶｱｯﾀﾊｽﾞ｡ｷｬﾗｸﾀ ｶﾞﾒﾝ ﾄ ｸﾞﾗﾌｨｯｸ ｶﾞﾒﾝ ﾉ";
30 PRINT "ｼｮｳｷｮｦ ﾂｶｲﾜｹﾙ ﾊﾟﾗﾒｰﾀ｡";
40 NEW
180 : ナイコンさん[sage] : 02/03/14 19:07
10 REM >>179
20 PRINT "N88-BASIC ﾉ CLS ﾉ ﾊﾟﾗﾒｰﾀ ﾊ､"
30 PRINT "1 --- ﾃｷｽﾄ ｶﾞﾒﾝ ｦ ｼｮｳｷｮ"
40 PRINT "2 --- ｸﾞﾗﾌｨｯｸ ｶﾞﾒﾝ ｦ ｼｮｳｷｮ"
50 PRINT "3 --- ﾃｷｽﾄ ﾄ ｸﾞﾗﾌｨｯｸ ﾉ ﾘｮｳﾎｳ ｦ ｼｮｳｷｮ"
60 PRINT "ﾀﾞﾄ ｵﾓｯﾀ｡"
70 PRINT "ｷﾆﾅﾙﾝﾃﾞ CLS 0 ｦ ﾀﾒｼﾃ ﾐﾀﾗ､ｴﾗｰﾊ ﾃﾞﾅｲｹﾄﾞ"
80 PRINT "ﾅﾝﾉ ｺｳｶﾓ ﾅｶｯﾀﾖ (ﾜﾗ"
181 : ナイコンさん[sage] : 02/03/14 19:18
Sub Main()
MsgBox "REM と ' は中間言語的にはメモリ消費は一緒では？", vbQuestion Or vbYesNo, ">>165"
End Sub
182 : ナイコンさん : 02/03/14 21:52
10 REM >>180
20 PRINT "ｵｫ、ﾜｻﾞﾜｻﾞｶｸﾆﾝ ｱﾘｶﾞﾄ｡"
30 PRINT "ｼﾞｬｱ、CLS 0 ﾃﾅﾝﾀﾞﾛ ?"
40 REM
50 PRINT "ｺﾉ ｽﾚ ﾐﾙﾄｷﾀﾞｹ、ﾌﾞﾗｳｻﾞﾉ ｾｯﾃｲｶｴﾃ ｸﾛﾁﾞ ﾆ ｼﾛﾃﾞ"
60 PRINT "ﾋｮｳｼﾞ ｽﾙﾄ ｶﾝｼﾞｶﾞﾃﾞﾙﾅｧ｡"
70 STOP
183 : ナイコンさん : 02/03/17 10:38
１０　ＥＮＤ
184 : ナイコンさん[sage] : 02/03/17 11:36
10 PRINT ">>181"
20 PRINT "ｷﾐ､N88-BASIC ｦ ｼﾗﾅｲﾈ?"
185 : ナイコンさん[sage] : 02/03/17 11:45
1 REM ﾃﾕｰｶ､memoryｼｮｳﾋ ｷﾆｽﾙﾅﾗ ｻｲｼｮｶﾗ REM ﾅﾝｶ ｲﾚﾙﾅﾖ(w
186 : ナイコンさん[sage] : 02/03/17 16:20
10 ' >>181
20 PRINT "ﾁｭｳｶﾝ ｹﾞﾝｺﾞ ﾃｷ ﾆﾊ ｺﾒﾝﾄ ｼﾞﾀｲ ｶﾞ ﾑｼ ｻﾚﾙ ﾉﾃﾞﾊ?"
187 : ナイコンさん : 02/03/18 19:02
10 ' for MSX-BASIC Ver.3.0
20 PRINT"MSX-BASICの変数名は最初の２文字しか判別しなかったから"
30 PRINT"大学の実習のBASICプログラム（N88-BASIC）で困ったことになった。"
40 PRINT"だって、偏差（HENSA）と平均（HEIKIN）が同じ変数になるんだもん。"
50 PRINT"それさえなければ、いいBASICだと思うんだがねぇ…。"
188 : ナイコンさん : 02/03/18 23:55
10 CLS
20 PRINT "ｺﾉｽﾚ ｹﾞｷﾜﾗﾀ"
30 PRINT "ﾓﾚﾊ CASIOﾉ SUPER COLLEGE"
40 PRINT "PERSONAL COMPUTER Z-1 ｯﾃﾕｰ ﾎﾟｹｺﾝｦ"
50 PRINT "ﾂｶｯﾃ ｲﾀｶﾞ ﾅﾆｶ?"
60 FOR a=0 to 10
70 NEXT a
80 CLS
90 END
189 : でしょう～に ![sage] : 02/03/20 17:47
CLS 0
Illegal function call
Ok
■
190 : 180[sage] : 02/03/20 19:50
10 REM >>189
20 PRINT "ｵﾚ ｶﾞ ｼﾞｯｹﾝ ｼﾀ N88-BASIC (V2) ﾃﾞﾊ､ ｴﾗｰ ﾊ ﾃﾞﾅｶｯﾀﾖ｡"
191 : ナイコンさん : 02/03/22 01:06
10 REM >>182
20 PRINT "ﾋﾞｯﾄ0ｶﾞ ﾃｷｽﾄ ｼｮｳｷｮ"
30 PRINT "ﾋﾞｯﾄ1ｶﾞ ｸﾞﾗﾌｨｯｸ ｼｮｳｷｮ"
40 PRINT "ﾀﾞｶﾗﾅﾉﾃﾞｽ｡"
192 : 古い人 : 02/03/22 01:41
10 SCREEN 0:WIDTH 32:CALL KANJI 3:CALL CLS
15 DEFINT A-Z
20 '
25 PRINT "数当てゲーム(^^;;)"
30 AN=RND(1)*10000
40 INPUT "数はいくつでしょう？";QS
50 IF AN > QS THEN ME$="小さすぎます。"
60 IF AN < QS THEN ME$="大きすぎます。"
70 IF AN = QS THEN 500
80 PRINT ME$:GOTO 40
500 '
510 NEW

間違えてたらスマソ
193 : P6AVTOWNS : 02/03/22 04:18
10 CLS
20 RANDOMIZE TIME
30 DEFINT A-Z
40 X1=RND(1)*640:Y1=RND(1)*200
50 X2=RND(1)*640:Y2=RND(1)*200
60 C=RND(1)*8
70 LINE(X1,Y1)-(X2,Y2),C,PSET,BF
80 GOTO 40

スクリーンセーバー代わりだな＾＾
194 : ナイコンさん : 02/03/22 06:32
10 ｶｹ "ﾆﾎﾝｺﾞﾍﾞｰｼｯｸ ﾓ ｶﾞｲﾄｳ ｽﾙﾉｶ?"
20 ｲｹ >>1 :'ｲｹ ﾊ GOTO ﾉ ｲﾐ
195 : ナイコンさん : 02/03/22 08:53
10 ' >>180,>>189～190
20 ' N88-BASIC ﾃﾞ ｶｲﾃﾏｽ
30 CLS 0
40 PRINT "ﾅﾝﾀﾞｶ,CLS ｺﾏﾝﾄﾞｦ ｱﾂｸ ｶﾀﾙ ｽﾚﾆﾅｯﾃｷﾀﾅｧ.(w"
50 INPUT "ｷﾞｮｳﾊﾞﾝｺﾞｳ 30 ﾉ CLS 0 ﾊ ｳｺﾞｸﾉｶ ｳｺﾞｶﾅｲﾉｶ" (Y/N)";A$
196 : PC-8001 : 02/03/22 12:13
10 PRINT CHR$(12)
20 LOCATE 10,15:PRINT"PC-8001ﾆﾊ､CLSｶﾞﾅｲﾅﾝﾃｼﾝｼﾞﾗﾚﾅｲ･･･｡"
30 NEW
197 : ナイコンさん[sage] : 02/03/22 12:37
10 REM ｶﾝｹｲﾅｲｶﾞ ｼﾞﾌﾞﾝｼﾞｼﾝｦ
20 REM ｹｼﾃｼﾏｳ PROGRAM ｦﾐﾀﾄｷﾊ
30 REM ｼｮｳｶﾞｸｾｲ　ﾅｶﾞﾗ　ﾅﾝﾀﾞｶ
40 REM ﾖｸﾜｶﾗﾅｲ ﾌｼｷﾞﾅｷﾓﾁｶﾞ
50 REM ｼﾀ｡
60 NEW　
198 : ナイコンさん[sage] : 02/03/22 13:28
10 REM >197
20 NEW
30 END
199 : ナイコンさん[sage] : 02/03/22 22:07
10 REM BASIC ﾊﾝｸﾞｱｯﾌﾟ
20 CLS
30 PRINT "BASICｶﾞﾊﾝｸﾞｱｯﾌﾟｼﾏｼﾀ"
40 GOTO 20
200 : PC-8001Mｋ２ : 02/03/22 22:11
10 cmd screen 2,0,1:width80,25:cmd cls 3
20 cmd circle(159,100),50,2
30 cmd paint(159,100),3,2
40 locate15,10:print"N80-BASIC ﾉ CMD ｯﾃ､ﾁｮｳｳｻﾞｲ!"
50 locate15,11:print"ﾃﾞﾓ､ｺﾉｷｼｭﾃﾞ ｱｿﾝﾀﾞ ｢ｻﾗﾄﾏ｣ ﾉ ｸﾞﾗﾌｨｯｸﾆﾊ ｶﾝﾄﾞｳｼﾀ!"
60 end
201 : ナイコンさん[sage] : 02/03/23 14:17
10'>>189
20'うちもエラーだったよ。まさか8ビット版じゃないとだめとか
30'そんな骨董品ないよ
202 : ナイコンさん[sage] : 02/03/23 14:55
10 REM >>201
20 PRINT "ｼﾖｳ ｼｮ ｦ ﾖﾒ"
30 END
203 : N88-BASIC(86)[sage] : 02/03/23 16:05
CLS 0
Illegal function call
Ok
■
204 : ナイコンさん[sage] : 02/03/24 00:23
10 PRINT "ﾋｮｯﾄｼﾃ､ CLS 0 ﾉ ｼﾞｯｺｳ ｹｯｶ ﾊ､"
20 PRINT "PC-88 ..... ｴﾗｰ ﾅｼ (ﾅﾆﾓ ｵｺﾗﾅｲ)"
30 PRINT "PC-98 ..... Illegal function call"
40 PRINT "ﾅﾉｶ ?"
205 : ナイコンさん : 02/03/25 18:02
N88-BASIC で

WIDTH 79
Illegal function call
Ok
■

…になるのが信じられなかった漏れはMSXユーザー…
206 : ナイコンさん[sage] : 02/03/26 15:29
AUTO
10 REM >>205
20 PRINT "ｽﾅｵ ﾆ MSX BASICﾂｶｯﾄｹ"
30 END
207 : 古い人[sage] : 02/03/26 23:11
auto*
1000 'MSXのSCREEN 0とSCREEN 1で最大表示桁数が違うの忘れて
1010 'なんどか悩んだ。今でもたまにハマる。
1020 '１桁ずつ指定できるのはRF出力で繋いだときに融通が利くように
1030 '考慮してのことだろうけど、１桁ずつでなくても良かったんじゃない
1040 'か？と思う今日この頃。
1050 'アイデア勝負の一画面プログラムで利用したりしたのかな？
1060 '…ところで？sage進行ですか？
Ok.
208 : ツ? : 02/03/28 22:22
10 rem
20 cls:console 0,10,0,0:color 1,0,1
30 ? "ひまなときはただPRINTするた゛けのPGつくったな"
40 goto 40
ok
209 : ナイコンさん[sage] : 02/03/29 12:54
100 WIDTH 80,25
110 CLS
120 FOR I = 0 TO 79
130 　　LOCATE 0,0:PRINT "　 ∧＿∧"
140 　　LOCATE 0,1:PRINT "　（　´∀｀）"
150 LOCATE 0,2:PRINT "　（　　　　）"
160 　　LOCATE I,3:PRINT "　｜ ｜　|"
170 　　LOCATE I,4:PRINT "　（_＿）＿）"
180 NEXT I
190 END
210 : 209修正[sage] : 02/03/29 12:58
130 　　LOCATE I,0:PRINT "　 ∧＿∧"
140 　　LOCATE I,1:PRINT "　（　´∀｀）"
150 　　LOCATE I,2:PRINT "　（　　　　）"
211 : ナイコンさん : 02/03/29 19:40
>>209

120 FOR I=0 TO 72 ' 辺りが適切だと思われ
212 : ナイコンさん[sage] : 02/03/29 21:54
その当時のBASICにインデントってあったっけか？>>209-210
213 : 209でも210でもないが[sage] : 02/03/29 22:42
手作業でインデントを付けたことはある。
214 : ナイコンさん[sage] : 02/03/29 23:29
1 REM N-BASICとかは中間言語にする段階でインデント用のスペース削られたような。
2 REM でも>209-210は全角使ってるからN-88 BASICあたりか。
3 REM それならインデントは有効だったはず。
215 : MSX : 02/03/30 07:41
10 PLAY "README.DOC"
20 PLAY "GAME OVER"
216 : ナイコンさん : 02/03/31 11:27
10 'SAVE "gomi.bas" for if800(ﾌﾟ
11 ' ｯﾃｶ､ﾘｱﾙｼｮｳﾎﾞｳ ﾉ ﾄｷ ｵﾔｼﾞｶﾞ ｶｲｼｬﾉ ﾊﾗｲｻｹﾞ ﾃﾞ ﾓﾗｯﾃｶｴｯﾃｷﾀ ﾏｼﾝ ﾃﾞ
12 ' ｱｿﾝﾃﾞｲﾀﾉﾃﾞｼﾀ
20 CLS:RESTORE 100
30 READ A$:IF Ａ$="END" THEN END
40 PRINT A$:GOTO 30
90 'ｶｸﾉｳ ﾃﾞｰﾀ
100 DATA "ﾁｭｳｶﾞｸﾉﾄｷ ｷﾞｼﾞｭﾂﾉｼﾞｶﾝﾆ ﾊﾟｿｺﾝ ﾉ ｼﾞｭｷﾞｮｳｶﾞｱｯﾀﾄｷ、"
110 DATA "ｻｯｻﾄｶﾀﾞｲｦｵﾜﾗｾﾃｼﾏｲ､ｱﾏﾘﾆﾋﾏﾆﾅｯﾀﾉﾃﾞBASICﾃﾞﾌﾟﾛｸﾞﾗﾑｳﾁｺﾐ"
120 DATA "ｼﾃﾀﾗ ｾﾝｾｲﾆ ｿﾝｹｲｻﾚﾀYO!"
130 DATA "ﾁﾅﾐﾆ ﾂｸｯﾀﾌﾟﾛｸﾞﾗﾑﾊ ｶﾞｯｺｳﾆﾎｳﾁ(ｿﾂｷﾞｮｳｺﾞ､DISKﾌｫｰﾏｯﾄｻﾚﾀｶﾓｼﾚﾝｶﾞ)"
140 DATA "ｺﾉｽﾚ､ﾐﾃﾙﾄﾅﾂｶｼｸﾅﾙﾅ｡ﾋｻﾋﾞｻﾆ98のBASICﾀﾁｱｹﾞﾙｶ。"
150 DATA ""
160 DATA ">>200ｻﾝ"
170 DATA "PC8001Mk2ﾃﾞﾊ ｸﾞﾗﾌｨｯｸ ﾊ ｶｸﾁｮｳﾒｲﾚｲ ﾀﾞｯﾀﾉﾃﾞｽﾈ｡"
180 DATA "END"
217 : FM77AV : 02/04/01 11:49
1 REM Oh!FM ﾖﾘ
10 PLAYHG "o4l4CDEFGAB>C"
218 : ナイコンさん : 02/04/15 22:32
こんなの発見

CQ出版「トランジスタ技術　ＳＰＥＣＩＡＬ　No.７８」
特集：技術者のためのExcel活用研究
　　第８章　N88BASICプログラムのリユース法

昔のBASICプログラムを、ExcelのVBAにコピペして使うというもの。
もちろん、文法の修正は必要だし、グラフィックも使えない。
ま、ご参考までに。
219 : ナイコンさん : 02/04/16 01:21
How many files(0-15)?
NEC N-88 BASIC Version 1.1
Copyright (C) 1981 by Microsoft
56799 Bytes free
Ok
220 : ナイコンさん : 02/04/16 01:28
run "format.nip"
新しいディスクをドライブにセットして下さい
フォーマットするドライブは？ 2
物理フォーマッティングを行いますか (y/n) ？ y
ディスクタイプ (1. 1MB　2. 640KB) ？ 1

ドライブ 2 を物理フォーマット中です

システムディスクを作成しますか？ (y/n) ？ n
処理中です
終了しました
221 : ナイコンさん[sage] : 02/04/24 15:22
100 SCREEN1,1,1:CLS
110 X=10:Y=10
120 A$=INKEY$
130 IF X<1 THEN X=1:else
140 IF X>20 THEN X=20:else
150 IF Y<1 THEN Y=1:else
160 IF Y>20 THEN Y=20:else
170 LOCATE X,Y-1:PRINT "　　　　　　　"
180 LOCATE X,Y:PRINT "　（・∀・）　"
190 LOCATE X,Y+1:PRINT "　　　　　　　"
200 IF A$="A" OR A$="a" THEN X=X-1
210 IF A$="S" OR A$="s" THEN X=X+1
220 IF A$="W" OR A$="w" THEN Y=Y-1
230 IF A$="Z" OR A$="z" THEN Y=Y+1
240 IF A$=" " THEN GOTO 260
250 GOTO 120
260 LOCATE X,Y:PRINT "　（・∀・）ｲｲ!!"
270 FOR I=0 TO 500 :NEXT
280 LOCATE X,Y:PRINT "　　　　　　　　"
290 GOTO 120

MSX　BASICダＹＯ！
222 : age[age] : 02/04/24 22:53
How many files(0-15)?
NEC N-08 BASIC Version 0.0b
Copyright (C) 1901 by Miraclesoft
1 Bytes free
Ok
223 : syntax eroor : 02/04/24 23:10
IDENTY FICATION DIVISION
PROGURAM ID SEX

ENVIRONMENT DIVISION

DATA DIVISION
PRIVATE SEX VTR

PROCIDUER DIVISION
SEIJOI
KIJOUI
BACK
KUKKYOKUI
DAKKO
224 : ナイコンさん : 02/04/24 23:25
コボルってこうみると頭悪い言語だね
225 : 99 : 02/04/24 23:27

-------風俗の総合商社・ＭＴＴどこでも-------

〇デリバリーヘルス〇デートクラブ〇女性専用ホストクラブ〇
〇ハードＳＭ奴隷クラブ〇レズビアン倶楽部〇ホモ・オカマ倶楽部
〇変態痴女と遊ぶ会〇痴漢・覗き趣味の会〇変態同好会・各種！
●楽しく遊べます！　090-8002-8356番
-----------美男・美女会員など多数在籍中-----------
　 http://www.mttdocomo.jp/
-----女性アルバイト随時募集・高収入（日払い）月100万円可能-----
-----レズビアン・スタッフ●ホモスタッフ●女性専用ホストスタッフ同募-----
http://www.mttdocomo.jp/
------------------------------------------------
226 : ナイコンさん : 02/04/25 22:02
>>221

130 IF X<1 THEN X=1:else
140 IF X>20 THEN X=20:else
150 IF Y<1 THEN Y=1:else
160 IF Y>20 THEN Y=20:else

…後ろの「:else」ってナニ？
「:else」ってことは、「:」でつなげて「else」っていう命令を実行しろってことに
なるけど、「else」は単体の命令じゃ使えないYO!
227 : ナイコンさん[sage] : 02/04/26 23:11
>>221はHSPと記憶がごっちゃになっているのではないかと言ってみるテスト。
228 : ナイコンさん[sage] : 02/05/13 20:43
10 SCREEN 0:WIDTH 1:CLS
20 DEFUSR(0)=&H0;
30 PRINT "ｱﾎﾞｰﾝ"
40 FOR I=0 TO 10000:NEXT I
50 A=USR(0)
60 END
229 : ナイコンさん[sage] : 02/06/05 09:12
保全
230 : ナイコンさん[sage] : 02/06/11 01:17
10 CLEAR
20 FOR I=0 TO 50000:NEXT I
30 FOR X=0 TO 50000
40 FOR Y=0 TO 50000
50 BEEP 1
60 NEXT Y
70 NEXT X
80 END

・・・厨房の頃ショップのあらゆるパソコンでやった時限機能付きの悪戯。
もちろんボリューム最大してから逃げた（w
この程度しかBASICが分からなかったアホな俺。
231 : ナイコンさん : 02/06/30 15:13
10 SCREEN 1
20 FOR I=&H100; TO &H107;
30 VPOKE I,INT(RND(1)*256)
40 NEXT I
50 VPOKE &H2004;,&HC1;

ＭＳＸでコレを実行すると背景がゼビウスマップになったりする
昔よくやってた（ちなみにコレをはじめて知ったとき感動した）

232 : ナイコンさん : 02/06/30 15:23
ここの管理人最高
http://isweb43.infoseek.co.jp/play/ta-bo-z/
233 : ナイコンさん : 02/06/30 17:07
10 '色番号の表示
20 CLS
30 DIM A(7)
40 P=0
50 PRINT "色番号"
60 FOR I=1 TO 7
70 P=P+1
80 A(I)=P
90 COLOR P
100 PRINT A(I);
110 NEXT I
120 END
234 : ナイコンさん : 02/06/30 17:16
10 PRINT "ﾎﾞｸﾊﾃﾝｻｲﾀﾞ"
20 GOTO 10

ポプラ社の絵本サイズのやつに乗ってたやつ。
PRINT文の中身を嫌いなやつの悪口に変えて遊んだ小学低学年の冬・・・
235 : ナイコンさん : 02/07/01 09:18
>>233

10 '色番号の表示
20 CLS
30 PRINT "色番号"
40 FOR I=1 TO 7
50 COLOR I
60 PRINT I;
70 NEXT I
80 END

これでもいいんじゃない？
236 : ナイコンさん : 02/07/01 09:41
10 NEW

RUN
Ok
237 : ナイコンさん : 02/07/01 10:59
はじめて見たプログラムというもの
（たしかこんなのだったと思う）

10 INPUT A
20 INPUT B
30 C = A + B
40 INPUT D
50 IF C=D THEN GOTO 80
60 PRINT "ﾏﾁｶﾞｲ"
70 GOTO 40
80 PRINT "ｾｲｶｲ"
90 END

心当たりある奴修正しる
238 : ナイコンさん[sage] : 02/07/01 14:52
10 INPUT A
20 INPUT B
30 INPUT C
40 INPUT D
50 INPUT E
60 INPUT F
70 INPUT G
80 INPUT H
90 PRINT "ご苦労様"
239 : ナイコンさん : 02/07/01 16:25
>>238
付け足し
95 print "ｵﾏｴｶﾞﾅ"
240 : ナイコンさん[sage] : 02/07/01 16:32
>>237
こんにちはマイコンかYO!
あってんじゃネーノ？
241 : ナイコンさん : 02/07/01 19:44
10 CLS
20 FOR I=1 TO 1000
30 PRINT "金よこせ";
40 NEXT I
50 END
242 : ナイコンさん : 02/07/02 16:10
10 CLS
20 PRINT "N88BASIC(dosﾊﾞﾝ)ﾃﾞJPEGｴﾂﾗﾝ&ｲﾝｻﾂﾌﾟﾛｸﾞﾗﾑｻｸｾｲﾎｳｷﾎﾞﾝ"
30 END
243 : ナイコンさん : 02/07/02 21:35
1 ' ｼﾂﾓﾝ
2 CLS
100 PRINT "ﾑｶｼ ﾃｷﾄｳﾆ N88-BASIC ｦ ｲｼﾞｯﾃﾀﾝﾀﾞｹﾄﾞ"
110 PRINT "ｷﾄﾞｳｼﾞﾆ 'How many files?(0-15)' ﾄ ﾋｮｳｼﾞｻﾚﾙﾉｶﾞ"
120 PRINT "ｾﾞﾝｾﾞﾝ ｲﾐｶﾞ ﾜｶﾗﾅｶｯﾀ"
130 PRINT "0 ｦ ﾆｭｳﾘｮｸｼﾃﾓ 15 ｦ ﾆｭｳﾘｮｸｼﾃﾓ"
140 PRINT "ﾄﾞｺｶﾞ ﾁｶﾞｳﾉｶ ﾜｶﾗﾅｶｯﾀ"
150 PRINT "ｺﾚｯﾃ ﾄﾞｳｲｳ ｲﾐ ﾅﾝﾃﾞｽｶ?"
160 INPUT A$
170 PRINT A$
180 END
244 : ナイコンさん[sage] : 02/07/02 21:45
100 OPEN "TEST.DAT" FOR OUTPUT AS #1
110 PRINT #1, "OPENﾒｲﾚｲ ﾉ ﾃｽﾄ"
120 CLOSE #1
130 REM
140 REM この文を実行してエラーになるかどうかの話。
150 REM ...?(0-15) で、15を入力すれば #1 の部分に、#1～#15を指定できる。
160 REM だったよね？
245 : ナイコンさん[sage] : 02/07/02 22:05
GOTO 236
246 : ナイコンさん : 02/07/05 20:18
10 CLS
20 PRINT "2ch2ﾆN88BASICｲﾀﾂｸﾘﾏｼﾀ"
30 PRINT "http://www.2ch2.net/bbs/n88basic/index2.html"
40 END
247 : ナイコンさん : 02/07/05 23:55
How many files(0-15)?
Microsoft Windows 98 Version 4.10.2222A
Copyright (C) 1999 by Microsoft
401604608 Bytes free
Ok

うちのＰＣ（スペック的に古いけど）
それでも昔から考えるとアホみたいにメモリあるな
248 : ナイコンさん : 02/07/05 23:59
DEFINT A-Z

処理速度アップする魔法の呪文
249 : ナイコンさん : 02/07/06 11:18
RANDOMIZE(VAL(RIGHT$(TIME$,2))

昔はよくプログラムの頭につけたもんだ…
250 : ナイコンさん : 02/07/06 12:17
new on 12
251 : ナイコンさん : 02/07/06 14:08
>>242
10 RESTORE *D
20 READ A$:IF A$="*end" then end
30 PRINT A$
40 GOTO 20
100 *D
110 DATA ドーデモイイガ、ハンカク カナ ハ、タンマツ ニ ヨッテ
120 DATA ヒョウジデキナイノデ、ゼンカク デ オナガイシマス。
130 DATA *end
252 : 251[sage] : 02/07/06 14:12
print ">>242は余分ですた"
253 : ナイコンさん[sage] : 02/07/06 14:53
10 REM >>251
20 REM ワシならこう書く。
30 REM 20 READ A$:IF A$<>"*end" THEN PRINT A$:GOTO 20
254 : ナイコンさん[sage] : 02/07/06 20:52
10 REM --- N88BASIC ---
100 RANDOMIZE ( VAL(LEFT$(TIME$,2)+RIGHT$(TIME$,2)) )
110 WHILE (INKEY$<>""):WEND
120 WHILE (INKEY$=""):I=RND(1):WEND
130 REM RANDOMIZEと、キー入力待ちに仕込みをしてました。
255 : ナイコンさん : 02/07/06 23:17
10 PRINT CHR$($0E);"ﾊﾝﾃﾝｽﾏｽﾀ"
15 MUSIC "V3L4ﾄﾐｿﾄ"
20 IF INKEY$="" THEN GOTO 30
30 PRINT CHR$($0F);CHR$($07);"ﾓﾄﾞｼﾏｽﾀ"
256 : ナイコンさん : 02/07/06 23:19
↑
間違えますた

20 IF INKEY$="" THEN GOTO 20
257 : ナイコンさん : 02/07/07 00:54
>>255
MZﾕｰｻﾞｰﾊｹｰﾝ
258 : ナイコンさん[sage] : 02/07/07 01:17
>>254
100 RANDOMIZE TIME-65536!
なんてどうよ。
259 : ナイコンさん : 02/07/07 03:15
?"飽きずによくやってるね
260 : ナイコンさん[sage] : 02/07/07 17:44
10 FOR I=0 TO 10000
20 NEXT I
30 TALK "f4 ^iq +te +yo- si."
40 FOR I=0 TO 1000
50 NEXT I
60 TALK "m4 ^O +mae +mo +na-."
70 GOTO 10
261 : 254[sage] : 02/07/14 08:56
100 '>>258 機種はなんでしょ？
110 'N88は文字列関数 TIME$ ("hh:mm:ss"が返る)しかないんで。
120 'TIMEは実数型の関数？それとも変数かな？
130 'でもN88だとエラーになるなあ。
140 'RANDOMIZEの引数がINTEGERしか使えんから。
150 '>>259オマエモナー
160 END
262 : ナイコンさん[sage] : 02/07/14 22:47
ﾊﾆﾘｲﾄ
ok
263 : ナイコンさん : 02/07/19 08:05
ﾃﾆｼｶｸ
Ok
264 : ナイコンさん : 02/07/19 12:07
>>262
>>263
２人とも
Syntax error
を忘れてるという罠。
265 : ナイコンさん : 02/07/19 12:33
10 '>>264
20 print "N88BASIC系はカナでリターンするとOkがでるな"
30 end

266 : ナイコンさん : 02/07/19 13:31
10 '>>265
20 C=(C=7)*7+C+1
30 COLOR C
40 PRINT"ﾅﾏﾊﾝｶﾅﾁｼｷﾃﾞｶｷｺﾝﾃﾞｽﾏｿ";
50 GOTO 20
267 : 258 : 02/07/19 23:43
10 '>>254
20 PRINT "ｽﾏｿ､ﾓﾚ F-BASIC ﾕｰｻﾞｰ ﾃﾞｼﾀ｡"
30 PRINT CHR$(34);"TIME";CHR$(34);"ﾊ､0ｼﾞ ｶﾗﾉ ｾｷｻﾝ ﾋﾞｮｳｽｳｦｱﾀｴﾙ ｶﾝｽｳﾅﾝﾀﾞ｡"
40 PRINT "N88ﾀﾞﾀｰﾗ､"
50 TM=VAL(LEFT$(TIME$,2))*3600+VAL(MID$(TIME$,4,2))*60+VAL(RIGHT$(TIME$,2))-65536!
60 PRINT "...ﾅﾝﾃﾔｯﾀﾗﾄﾞｳｶﾅｧ｡"
70 PRINT "ﾋﾞｮｳｽｳﾉ maxｶﾞ86400ﾀﾞｶﾗ､65536ﾋｲﾃ ｵｹﾊﾞ ｶﾅﾗｽﾞ integerﾉﾊﾝｲﾆ ｵｻﾏﾙﾃﾞｼｮ｡"
80 NEW
268 : ナイコンさん[sage] : 02/07/19 23:51
10 ' >>267
20 PRINT "ｹｼﾁｬｳﾉｶﾖ!!(By ﾐﾑﾗ)"
30 PRINT "ﾝｼﾞｬ､ｵﾚﾓ･･･"
40 NEW
269 : 254[sage] : 02/07/21 00:40
100 'N88漢字BASIC
110 '>>258 (>>267)
120 '時刻 09:06:08 より前だとエラーになるよ。
130 '09:06:08 = 9*3600 + 6*60 + 7 = 32767、
140 '32767 - 65536 = -32769 で Out of Range だ。
150 '積算秒数が0～86399だから、INTEGERの16ビット
160 '(正数で表現すると0～65535)に収まらないんですよ。
170 'ま、ランダムシードをまぜまぜしたいだけだから、
180 'TIME=(中略) / 2 とかしとけばOKかな。
190 'でも深夜や、朝は起動させないという罠で、それはそれでいいかも。
270 : 六本木パソコン[武田@てつや] : 02/07/21 02:28
10 ' >>260
20 INPUT "PC6601SR ﾕｰｻﾞｰﾃﾞｽｶ?(Y/N)",A$
30 IF A$="Y" or A$="y" THEN 100
40 IF A$="N" or A$="N" THEN PRINT "(･w･)ｼｮﾎﾞｰﾝ":END
100 '
110 TALK "f2# mo'remo:cec"
120 END
271 : 260[sage] : 02/07/21 05:03
5 REM >>270 ｽﾏｿ
10 TALK"m2 ^zi +tu wa."
20 TALK"f4 ^Pi- +roku."
30 TALK"f4 ^Ma-kutu-."
40 TALK"m4 no +yu- +za- desita."
50 FORI=0TO4096:NEXTI
60 PRINT"ｺﾞﾒﾝﾈ......"

272 : ナイコンさん : 02/07/25 22:25
10 REM このスレも　よろしくおながいします
20 REM BBSがちょっと違うけどね。ヨロシコ！
30 PRINT"http://www.alfheim.jp/~narikiri/narikiri/test/read.cgi?bbs=TheSun&key;=1026442095"
273 : 267[sage] : 02/07/26 00:13
60000 '>>254=269
60010 PRINT "ｽﾙﾄﾞｲ!!"
60020 PRINT "ｿｳｲｴﾊﾞ ﾋﾞｮｳｽｳｦ 2ﾃﾞﾜｯﾃｲﾀｶﾓｼﾚﾅｲ｡"
60030 PRINT "ﾖｯﾃ､"
60040 TM=(VAL(LEFT$(TIME$,2))*3600+VAL(MID$(TIME$,4,2))*60+VAL(RIGHT$(TIME$,2))-65536!)/2
60050 PRINT TM; "ｱﾀﾘ ﾃﾞ ｶｲｹﾂ ﾃﾞｽﾈ｡"
60060 PRINT "ﾂｯｺﾐ ｱﾘｶﾞﾄｳ｡"
60070 LINE INPUT "--> ｺｺﾃﾞ ｶﾝｼｬﾉｺﾄﾊﾞｦ; ", A$
60080 PRINT ">>254=269"
60090 PRINT A$
60100 BEEP
60110 NEW
274 : ナイコンさん : 02/07/26 23:45
10 CLS
20 RESTORE *DAT
30 READ A$
40 IF A$="*END" THEN END
50 PRINT A$
60 GOTO 30
1000 *D
1010 DATA "半角カナ、見えない端末だとこのスレに書かれたネタの一部が見えないという罠。"
1020 DATA "それと、プログラムの組み方でどのレスが同一人物かがわかったりして。"
1030 DATA "さて、私は誰でしょう？(w"
1100 DATA "*END"
275 : 274 : 02/07/26 23:46
バグﾊｯｹｿ

1000 *DAT
276 : ナイコンさん[sage] : 02/07/27 22:32
100 RESTORE *I.DAT
110 READ ES$, OD$
120 S$=ES$+"@"
125 '
130 RESTORE *M.DAT
140 OPEN OD$ FOR OUTPUT AS #1
150 WHILE (S$<>ES$)
160 　READ S$
170 　IF S$<>ES$ THEN PRINT #1,S$
180 WEND
190 END
200 '
210 *I.DAT
220 DATA ""
230 DATA "SCRN:"
240 '
250 *M.DAT
260 DATA ">>274 = >>251テ゛ハナイテ゛ショウカ？"
270 DATA "ソレテ゛ハ　ワタシハ　タ゛レテ゛ショウ？"
280 DATA "ヒントハ、go toステートメントヲ キョクリョク"
290 DATA "サケルコト、while～wendカ゛タ゛イスキナコトテ゛ス。"
300 DATA "モウ、ハ゛レハ゛レテ゛スネ。"
310 DATA "ア、セ゛ンカクカタカナハ、ノウナイヘンカンテ゛"
320 DATA "ハンカクカタカナニ　ヘンカンオネカ゛イシマス。"
330 DATA ""
277 : ナイコンさん[sage] : 02/07/30 20:40
10　RANDOMIZE CSRLIN+FRE("(^_^)")
20　'ｺﾚｶﾞｻｲｺｳ
278 : ナイコンさん : 02/07/30 20:56
行番号が何千行もあるプログラム作って(内容は適当でＯＫ)，
list

だぁーっと表示されているうちに先行入力．
new

「お前はもう死んでいる」って言って喜んでた (阿呆
279 : ナイコンさん[sage] : 02/07/31 11:37
kill "1-278"
280 : ナイコンさん : 02/07/31 18:08
>>279
syntax error

dim kakiko$(1000)
a$="DQN"
kakiko$(279)=a$
print kakiko$(279);



281 : ナイコンさん : 02/07/31 20:31
load "274.bas"
OK
1000 *DAT
1010 DATA "そういえば、自分の書いたプログラムを呼び出して書き直してる人いないね。"
1020 DATA ">>276 正解。自分で書いておきながら半角を自己レスで使ってる（鬱"
1030 DATA ">>279 これみて気がついたが、スレ番号をファイル名と取るか、リスト番号と取るか人それぞれだね"
1040 DATA "関係ないですが、ウチのBASICのディスク見ると、時代を感じるネタが満載だわ。"
1050 DATA "なんか、オウムネタ入ってるし、PLAY文での尊師のマーチもあるし。"
282 : ナイコンさん : 02/07/31 22:27
NEW
OK
AUTO
10 'スレ管理.BAS
20 CLS
30 IF スレッド$="糞スレ" THEN NEW
40 IF スレッド$="DAT落ち" THEN SAVE "DAT.TXT":END
50 IF スレッド$="良スレ" THEN SAVE "GOOD.BAS":GOTO 30
60 ^CSAVE "スレ管理.BAS"
OK
NEW
OK
AUTO
10 '荒し対応.BAS
20 IF 書き込み$="優良書き込み" THEN age
30 IF 書き込み$="荒し書き込み" THEN 40 '無視
40 IF 書き込み$="ネタ" THEN sage
50 GOTO 20
60 ^C
SAVE "荒し対応.BAS"
OK
283 : ナイコンさん[sage] : 02/08/19 00:51
>>282
バグかな？
荒らし対応パッチファイルです

15 LINE INPUT スレッド$
30 IF 書き込み$="荒し書き込み" THEN 9000 '無視
48 LABEL "優良書き込み"
9000 NEW
10000 LABEL "sage"
10010 NEW

284 : ナイコンさん[sage] : 02/10/03 15:29
65535 REM ------- HOSHU -------

list :'N88-BASIC 1.1

　6553 5 REM ------- HOSHU -------

Ok

list :'N88-BASIC 1.0

285 : ナイコンさん : 02/11/24 02:57
10 FOR I=0 TO 10000
20 NEXT I
30 TALK "f4 ^iq +te +yo- si."
40 FOR I=0 TO 1000
50 NEXT I
60 TALK "m4 ^O +mae +mo +na-."
70 GOTO 10
286 : どうよ？1 : 02/12/15 23:03
10 CONSOLE 0,25,0:SCREEN 3:CLS 3:COLOR 7:LOCATE ,,0:RANDOMIZE TIME:' PLAY "CDERCDER","EFGREFGR"
20 LOCATE 30,10:PRINT "KEYBOARD OLYMPIC 99":LOCATE 26,15:PRINT "***** PUSH SPACE KEY *****":WAIT 10
30 FOR I=0 TO 1:I=-(INKEY$=" "):J=RND:NEXT:PLAY "V100L16O4CDERCDERCDER","V100L16O4EFGREFGREFGR":WAIT 400
40 FOR J=0 TO 180:FOR I=0 TO 6:COLOR I+1:LOCATE 26,15:PRINT"***** PUSH SPACE KEY *****":WAIT 8:NEXT:NEXT
50 CLS 3:ST=1:SC=0
55 RESTORE 1000:FOR J=0 TO 3:FOR I=0 TO 2:READ KD$(I,J):NEXT:NEXT
60 LOCATE 30,10:PRINT "100m DASH STAGE=";ST:LOCATE 28,13:PRINT "Y O U R S C O R E = "SC:WAIT 1000
70 CLS 3:X=0:TX=0:KT$=KD$(RND*3,ST-1):KC=0:STM=TIME:LOCATE X,12:PRINT "　Ω";:LOCATE TX,15:PRINT "　γ";
80 K$=INKEY$:KC$=MID$(KT$,KC+1,1):IF KC$=K$ THEN PLAY "V100O5L128GC","V100O5L128BG":X=X+2:KC=KC+1:SC=SC+1:LOCATE X,12:PRINT"　Ω";:GOSUB 200:IF KC>LEN(KT$) THEN KC=0
82 IF K$<>"" AND KC$<>K$ THEN PLAY "V100O2L128GC","V100O2L128BG":SC=SC-5:IF SC<1 THEN SC=0
85 LOCATE 8,4:PRINT "次はこのキーを押せ！：";KC$:LOCATE 42,4:PRINT "B O N U S :"1000-(TIME-STM):LOCATE 26,6:PRINT"Y O U R S C O R E = ";SC
88 IF RND<ST/1000 THEN TX=TX+2:LOCATE TX,15:PRINT"　γ";:IF TX>75 THEN 300
90 GOTO 80
287 : どうよ？2 : 02/12/15 23:05
200 ' GOAL ?
210 IF X>75 THEN PLAY "L16O4CDERCDERCDGGGR","L16O4EFGREFGREFBBBR":WAIT 400 ELSE RETURN
220 FOR J=0 TO 180:FOR I=0 TO 6:COLOR I+1:LOCATE 26,18:PRINT "******** GOAL *********":WAIT 8:NEXT:NEXT:ST=ST+1:SC=SC+1000-(TIME-STM):CLS:GOTO 60
300 ' GAME OVER
310 PLAY "V100L8O2BGFECDCCC","V100O3(BFE)(DCG)(BFE)(DCG)O2(BGE)(GGF)(EDC)(CCCCCC)"
320 FOR J=0 TO 180:FOR I=0 TO 6:COLOR I+1:LOCATE 30,10:PRINT "GAME OVER STAGE=";ST:LOCATE 28,13:PRINT "Y O U R S C O R E = "SC:WAIT 8:NEXT:NEXT:WAIT 5000:CLS 3:COLOR 7:GOTO 20
1000 DATA WATASHIHA,OSYABERI,HAYAUCHI
1010 DATA HANASHIWOKIITA,NAZONOOOIKOTOBA,TUGINOYOUNIKATARU
1020 DATA KUWASHIIMEKANIZUMUHA,AKIRAKANINATTEINAIKOTOGARA,KONOKEKKAKARAKODOMONOHATUIKUNIHA
1030 DATA NICHANNERAANINATTEKARA,INTTERNETYARIHAJIMETEYOKATTA,IMAMADEFURUIKYUUHACHIDATTAKEDO

# 今日９９ＢＡＳＩＣをインストールして、その勢いで、その日にタイピングゲーをつくってしまった。。。（まだ４面しかないですが）
# こんなプログラムがマジで動いてしまう９９ＢＡＳＩＣはここからタダでGet!!しますた→ttp://www.sagami.ne.jp/tadaka/99Basic/download.html
288 : ナイコンさん : 02/12/15 23:35
９９ＢＡＳＩＣでｂ９９ファイルをＬＯＡＤして実行するやり方と
上のようなプログラムをコピペして実行するやり方を教えてちょんまげ
289 : どうよ？ : 02/12/16 00:15
>>288
LOAD"ファイル名.B99"

SAVE"ファイル名.TXT",A
290 : ナイコンさん : 02/12/18 02:23
10 CLS3
20 CLEAR
30 WIDTH 80,25
40 CONSOLE 0,25,0,1
50 COLOR 7,0,0,2
60 '
70 DEFSEG=&HA800;
80 FOR I=0 TO &H800;
90 POKE I,&HAA;
100 NEXT I

RENUM 100
291 : ナイコンさん : 02/12/19 01:32
10 REM >>149
20 REM ゼビウスのＢＧＭにしては、テンポ速すぎ、音程低すぎ。
30 REM オリジナルからの耳コピをここに書きまつ。
40 PLAY "T150V15L16"
50 PLAY "O5CO6CO5BO6CECO5BO6C"
60 PLAY "O5CO6CO5B-O6CECO5B-O6C"
70 PLAY "O5CO6CO5AO6CECO5AO6C"
80 PLAY "O5CO6CO5A-O6CECO5A-O6C"
90 GOTO 50
292 : ナイコンさん[sage] : 02/12/19 23:26
1 FOR I=1 TO 7
2 COLOR I:PRINT "COLOR";I
3 NEXT I

REMUN
Ok
LIST
1 FOR I=1 TO 7
2 COLOR I:PRINT "COLOR";I
3 NEXT I
Ok
293 : ナイコンさん[sage] : 02/12/20 00:09
Syntax Error(ﾟдﾟ)ｳﾏｰ
294 : ナイコンさん : 02/12/31 00:39
ｿﾘﾗﾁｼ
Syntax error
Ok
■
・・・し、しまった
295 : ナイコンさん : 02/12/31 00:46
>>293
恐らく292に対して言ってるのだろうが、292はエラーにならない。
よく見るとREM文だから。

>>294
カナ入れてもエラーにはならないよ。
296 : ナイコンさん : 02/12/31 00:51
・・・そ、そうだったか。もう覚えとらん。
297 : ナイコンさん : 02/12/31 00:53
mon
*L
■
298 : ナイコンさん : 02/12/31 02:04
>>295
機種によってカナ入力時の挙動が違う
299 : ナイコンさん[sage] : 02/12/31 10:20
入力
_
300 : ナイコンさん[sage] : 03/01/01 12:11
2003 PRINT "Happy New Year!"
RUN
Happy New Year!
Ok
■
301 : ナイコンさん : 03/01/03 23:41
すげぇ懐かしいなぁ
302 : ナイコンさん : 03/01/04 00:59
GOSUB 999
303 : 　[sage] : 03/01/04 01:08
http://www2a.kagoya.net/~adults-toybox/sample1.wmv
http://www2a.kagoya.net/~adults-toybox/sample2.wmv
http://www2a.kagoya.net/~adults-toybox/
304 : ナイコンさん : 03/01/04 10:27
初代88にPLAY文なんて無かったよ。つДT)
305 : NS : 03/01/07 18:06
NEC PC-8001 BASIC Ver 1.5
Copyright 1979 (C) by Microsoft

OK
10 REM PC-Reset
20 DEF USR=0
30 PRINT USR(0)
run
306 : ナイコンさん : 03/01/07 18:11
LOCATE 1,1000
307 : ナイコンさん : 03/01/07 22:26
Illegal function call
in >>306
Ok
■
308 : ナイコンさん : 03/01/07 22:39
1 GOTO 1000

1000 GOTO 1
309 : ナイコンさん : 03/01/08 11:04
LIST 1-309
http://pc.2ch.net/test/read.cgi/i4004/1009478372/1-309
Ok
■
310 : ナイコンさん : 03/01/08 12:43
100 motor 0 : motor 1 : goto 100
311 : ナイコンさん : 03/01/08 18:59
CLS
Ok
■
312 : NS : 03/01/08 21:54
10 REM HINOMARU:PC-8801/9801
20 SCREEN 0,1
30 LINE (0,0)-(639,199),7,BF
40 CIRCLE (320,100),100,2
50 PAINT (320,100),2,2
60 I$=INPUT$(1)
70 CLS 3
80 END
313 : ナイコンさん : 03/01/09 21:47
Dangerous person in >>310
Ok
Delete 310
Ok
■
314 : 山崎渉[（＾＾）sage] : 03/01/13 21:34
（＾＾）
315 : ナイコンさん : 03/01/22 17:10
大学入試センター試験にまだBASICって出てるの？
316 : ナイコンさん : 03/01/22 21:31
漏れ、興亡の頃、数学でBASICなんて教わらなかったぞ
数学Ⅰに代数幾何と微分積分、それに基礎解析のみだ
ちうか、文系のﾔｼﾗもやらんかったらしい
もう13年前の話だが、数学Ⅱの教科書にはBASICの章が載っていたらしい
317 : ナイコンさん : 03/01/23 18:38
>>315
新聞を見れ！
318 : X1 : 03/01/23 20:23
10 APSS 1
20 APSS -1
30 goto 10

夜中にやると家中の人が激怒するぞ。
319 : ナイコンさん[sage] : 03/01/23 22:14
>>316:
CLS
PRINT "リアル高房だが今でも載ってるぞ。"
PRINT "当時のBASICを知る俺としては激しく希望する授業だ。"
PRINT
INPUT "OK?", a$
320 : ナイコンさん : 03/02/03 22:41
10 'SHASEI
20 screen 3: cls 3
30 line(0,160)-(330,160)
40 line(0,240)-(330,240)
50 for S=-1 to 1 step 2
60 for T=int(-sqr(2000)) to 60
70 X1=T: Y1=sqr(3600-X1^2)
80 X=X1+330+int(sqr(2000)): Y=-Y1*S+200
90 pset (X,Y)
100 next: next
110 for R=1 to 10
120 for S=0 to 14
130 for T=7 to 0 step -7
140 for U=0 to 15
150 circle (460+S*25,200+2*S^2),U,T
160 next: next: next: next
170 line input "CLS 3 OK?";A$
180 cls 3
190 end
321 : 山崎渉[（＾＾）] : 03/03/13 17:12
（＾＾）
322 : ナイコンさん : 03/04/04 14:38
10 DEFSEG=&H0;
20 FOR I=0 TO 1000: POKE I,0: NEXT I
323 : ナイコンさん : 03/04/04 20:38
昔、ヒューベーシックてえのがあったな
おまいら若造はしらんだろ
324 : 山崎渉[（＾＾）] : 03/04/17 12:13
（＾＾）
325 : 山崎渉[（＾＾）sage] : 03/04/20 06:08
　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）
326 : ナイコンさん[sage] : 03/05/10 15:03
10 CLS
20 CLEAR
30 PRINT "ベーシックで語り合いましょう"
40 FOR I=2 TO 999
50 "１０００取るぞ！ごるぁ！！"
60 NEXT
70 PRINT "１０００ゲット！"
70 PRINT "このスレッドは１０００を超えました。"
80 PRINT "もう書けないので、新しいスレッドを立ててくださいです。。。"
327 : ナイコンさん[sage] : 03/05/10 17:40
?SN Error in 50
328 : 326[sage] : 03/05/10 21:37
正解(--;;;
329 : 山崎渉[（＾＾）] : 03/05/22 02:11
━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―
330 : ナイコンさん : 03/05/28 16:15
10 goto 50
20 data "こうやってDataを頭に持ってきて"
30 data "読み込み速度を高速化するということしたよね～"
40 data "それ以外にもサブルーチンを先頭に持ってくるとか。"
50 data "end"
60 'Init
70 defstr s
80 read s
90 if s<>"end" then print s else end
100 goto 80
331 : 山崎 渉[（＾＾）] : 03/07/15 11:10

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣
332 : ナイコンさん[sage] : 03/07/20 16:43
1' RENSYA NOURYOKU SOKUTEI
10 FOR I=1 10 1000
20 IF INKEY$=" " THEN A=A+1
30 NEXT:PRINT A
333 : なまえをいれてください[sage] : 03/07/22 12:28
ハッキリ言ってアメリカなどの多民族国家では黒人の方がアジア人よりもずっと立場は上だよ。
貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。
黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。
(黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。
また、日本女はすぐヤラせてくれる肉便器としてとおっている。
「○ドルでどうだ？(俺を買え）」と逆売春を持ちかける黒人男性も多い。）
彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。
334 : なまえをいれてください[sage] : 03/07/22 12:44
ハッキリ言ってアメリカなどの多民族国家では黒人の方がアジア人よりもずっと立場は上だよ。
貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。
黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。
(黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。
また、日本女はすぐヤラせてくれる肉便器としてとおっている。
「○ドルでどうだ？(俺を買え）」と逆売春を持ちかける黒人男性も多い。）
彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。
335 : ナイコンさん : 03/07/29 08:49
>>332
Syntax error in 10

釣りか？
336 : HiNT商品 : 03/07/29 09:09
というか、このプログラムだと「連射」かどうかわからんだろ。
押しっぱなしでもカウントしてしまう。
337 : _[sage] : 03/07/29 09:53
http://homepage.mac.com/hiroyuki44/
338 : ナイコンさん : 03/07/29 10:02
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
☆★☆★☆★　新商品　ゾク・ゾク　入荷　☆★☆★☆
★☆　　　　　　　　　　　　　　　　　　　　　　　
☆★　送料激安！！　　送料激安！！　　送料激安！！
★☆　　　　　　http://www.get-dvd.com　　　　　　
☆★　　激安アダルトＤＶＤショップ　　　　　　　　
★☆　　　　お買い得！！　1枚500円～　急げ！　　　
☆★　　　　インターネット初！「きたぐに割引」　　
★☆　　　　北海道・東北の皆様は送料も激安！　　　
☆★　　　　　　http://www.get-dvd.com　　　　　　
★☆　　　　　　　　スピード発送！　　　　　　　　
☆★　　　　　　http://www.get-dvd.com　　　　　　
★☆　　　　　　　　商品が豊富！　　　　　　　　　
☆★　　　　　　http://www.get-dvd.com　　　　　　
★☆　　　　　　　　　　　　　　　　　　　　　　　
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
339 : ナイコンさん : 03/07/29 10:03
http://www.39001.com/cgi-bin/cpc/gateway.cgi?id=ookazujp
http://www.39001.com/cgi-bin/cpc/welcome.cgi?id=ookazujp

!!!!! ━━━━━━(ﾟ∀ﾟ)━━━━━━ ｷﾀｰ!!!!!
340 : ナイコンさん[sage] : 03/07/29 16:23
1' RENSYA NOURYOKU SOKUTEI
10 FOR I=1 10 1000
20 IF INKEY$=" " THEN A=A+1
25 EXEC&H1058;
30 NEXT:PRINT A


341 : 　[sage] : 03/07/29 20:38
1'MUGEN LOOP
10 RUN
342 : ナイコンさん[sage] : 03/07/30 02:59
1 ' RENSYA NOURYOKU SOKUTEI for PC88
10 DIM K(2):K(0)=255:K(2)=191:F=1
20 FOR I=1 TO 1000
30 IF INP(9)=K(F+1) THEN F=-F:A=A+.5
40 NEXT:PRINT INT(A)
343 : ナイコンさん[sage] : 03/08/01 18:21
1 ' RADAR GAME for PC8801 N88BASIC
10 WIDTH 40:CONSOLE 0,25,0:DEFINT A-Z:RANDOMIZE VAL(RIGHT$(TIME$,2)):DIM V(8)
20 CLS:GOSUB 230:P=8:F=2:EX=INT(RND(1)*9):EY=INT(RND(1)*9)
30 PRINT "M123456789 E123456789"
40 FOR I=1 TO 9:PRINT USING "#･････････ #･････････";I;I:NEXT:CONSOLE 12,13
50 CLS:PRINT "ﾐｶﾀ ｸﾁｸｶﾝ ﾊｲﾋﾞ":GOSUB 180:MX=X:MY=Y:LOCATE MX+1,MY+1:PRINT "D"
60 CLS:PRINT "ﾃｷﾉ ｺｳｹﾞｷ":GOSUB 200:ON F GOTO 70,80
70 X=AX+X:Y=AY+Y:GOSUB 210:IF A THEN PRINT "ﾔﾊﾞｰｰ":GOTO 100 ELSE 100
80 X=X*3+1:Y=Y*3+1:HX=MX:HY=MY:GOSUB 210
90 IF A THEN PRINT "ﾔﾊﾞｰ":F=1:AX=X-1:AY=Y-1:GOSUB 230:V(4)=V(8):P=7
100 LOCATE X+1,Y+1:PRINT "+":LOCATE 0,16:PRINT "ﾐｶﾀﾉ ｺｳｹﾞｷ":GOSUB 180
110 IF (EX=X)*(EY=Y) THEN X=X+12:Y=Y+1:PRINT "ﾔｯﾀｰｰ!!":GOTO 160
120 HX=EX:HY=EY:GOSUB 220:M$="+":R$="ｶｽﾘﾓｼﾈｰｮ":IF A THEN M$="O":R$="(ﾟﾛﾟ)ｳﾏｰ"
130 PRINT R$:LOCATE X+12,Y+1:PRINT M$
140 LOCATE 0,22:PRINT "ﾅﾆｶ ｷｰｦ ｵｼﾃ":A$=INPUT$(1):GOTO 60
150 X=X+1:Y=Y+1:PRINT "ｸﾞﾊｯ ﾔﾗﾚﾀｰｰ!!":LOCATE EX+12,EY+1:PRINT "E"
160 LOCATE X,Y:PRINT "*":BEEP:BEEP:CONSOLE 0,25:LOCATE 0,22
170 INPUT "Replay? (Y/N)";A$:IF INSTR("Yy",A$) THEN 20 ELSE WIDTH 80:END
180 INPUT "X=";X:INPUT "Y=";Y:IF (X<1)+(Y<1)+(X>9)+(Y>9) THEN 180
190 X=X-1:Y=Y-1:RETURN
200 A=INT(RND(1)*(P+1)):Y=V(A)\3:X=V(A)-Y*3:V(A)=V(P):P=P-1:RETURN
210 PRINT USING "ﾃｷｶﾞ #ｰ# ｦ ｺｳｹﾞｷ";X+1;Y+1:IF (MX=X)*(MY=Y) THEN RETURN 150
220 A=0:FOR I=-1 TO 1:FOR J=-1 TO 1:A=A+(HX=X+J)*(HY=Y+I):NEXT:NEXT:RETURN
230 FOR I=0 TO 8:V(I)=I:NEXT:RETURN
344 : ナイコンさん[sage] : 03/08/01 18:36
2 ' DEBUG ROOM
70 X=AX+X:Y=AY+Y:HX=MX:HY=MY:GOSUB 210:IF A THEN PRINT "ﾔﾊﾞｰｰ":GOTO 100 ELSE 100
345 : ぼるじょあ ◆ySd1dMH5Gk [（＾＾）] : 03/08/02 04:51
　　　 　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　 ・３・） (　　＾＾ ） ＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ
346 : ナイコンさん : 03/08/15 05:59
1 'HANABI - PC8801 N88-BASIC
10 SCREEN 0:CLS 3:CONSOLE ,,0:DEFINT A-Z:DIM Y(639)
20 A=170:F=1:RANDOMIZE VAL(RIGHT$(TIME$,2))
30 FOR I=0 TO 639
40 Y(I)=A-1:PSET (I,A),1:A=A+F:IF A<150 OR A>190 OR RND(1)>.5 THEN F=-F
50 NEXT
60 X=INT(RND(1)*560)+40:Y=INT(RND(1)*70)+40
70 C=INT(RND(1)*7)+1:R=INT(RND(1)*60)+20:S=INT(RND(1)*4)+3
80 FOR I=C TO 0 STEP -C
90 FOR J=Y(X) TO Y STEP -1
100 PSET (X,J),I
110 NEXT:NEXT
120 FOR I=C TO 0 STEP -C
130 FOR J=1 TO R STEP S
140 CIRCLE(X,Y),J,I
150 NEXT:NEXT
160 GOTO 60
347 : ナイコンさん : 03/08/15 07:16
オチンチンを大きくするには
根元を締め付けて毎日マッサージすると大きくなるんだって
http://homepage3.nifty.com/manko/
348 : 山崎 渉[（＾＾）] : 03/08/15 22:14
　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン
349 : 山崎 渉[（＾＾）] : 03/08/15 22:33
　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン
350 : ナイコンさん[sage] : 03/09/10 23:00
http://211.18.214.210/cgi-bin/parcel-detail?tr_num=91-3593-05516
351 : ナイコンさん[さげ] : 03/09/13 09:05
halt
352 : ナイコンさん : 03/09/13 20:11
昔「MOD」って命令を初めてみたとき、
なんて便利な命令だって驚いたよ。
C=A-INT(A/B)*B
とかやってたから（ｗ
353 : ナイコンさん[sage] : 03/11/19 10:23
10 S$="10 S$="@@@,Q$:Q$=CHR$(34):PRINT USING S$;Q$,S$,Q$",Q$:Q$=CHR$(34):PRINT USING S$;Q$,S$,Q$
354 : 353[sage] : 03/11/20 12:13
おや、間違えてる……

10 S$="10 S$=@@@,Q$:Q$=CHR$(34):PRINT USING S$;Q$,S$,Q$",Q$:Q$=CHR$(34):PRINT USING S$;Q$,S$,Q$
355 : ナイコンさん[sage] : 03/11/23 01:08
1010 CLS
1020 INPUT ">>352 MODって関数じゃないか? (Y/N)";I$
1030 IF I$="Y" OR "y" THEN P$="ｲｯﾃﾖｼ!":GOTO 1060
1040 IF I$="N" OR "n" THEN P$="ｽﾏﾝｶｯﾀ":GOTO 1060
1050 GOTO 1020
1060 PRINT P$
1070 END
356 : ナイコンさん[sage] : 03/12/04 23:39
>>355
ORの後に「I$=」が抜けてるよ。
357 : ナイコンさん : 04/02/20 23:37
>>27
１００　ＰＲＩＮＴ”Ｐ６ケイはスナミた゛とＯＫか゛て゛るよ！”
358 : ナイコンさん : 04/02/20 23:44
>>357
１１０　ＰＲＩＮＴ”カナと、かな　か゛と゛うし゛につか”；
１２０　ＰＲＩＮＴ”えるのは、Ｐ６とＭＳＸのみ？”

359 : ナイコンさん : 04/02/20 23:50
>>358
10 SCREEN ,,0
20 PRINT "ﾍﾞｰｼｯｸﾏｽﾀｰﾚﾍﾞﾙ3も つかえるよ｡"
30 PRINT "でもｸﾞﾗﾌｷｬﾗが だせない"
40 END
360 : ナイコンさん[sage] : 04/02/21 00:00
訂正
30 PRINT "て゛もｸﾞﾗﾌｷｬﾗが た゛せない"
361 : ナイコンさん : 04/02/21 08:13
>>360
１０　ＲＥＭ　はんかくとセ゛ンカクませ゛ちゃあ、た゛めて゛しょ。”
362 : ナイコンさん : 04/02/21 10:52
10 CONSOLE,,,1
20 CLS 3
30 X=INT(RND(1)*7+1)
40 Y=INT(RND(1)*7+1)
50 Z=INT(RND(1)*7+1)
60 LOCATE 10,10:COLOR X:PRINT X
70 LOCATE 15,10:COLOR Y:PRINT Y
80 LOCATE 20,10:COLOR Z:PRINT Z
90 IF INKEY$=" " THEN GOTO 100 ELSE 30
100 IF X=Y AND Y=Z THEN PRINT "OOATARI!!":END
110 IF X=Y OR Y=Z OR Z=X THEN PRINT "ATARI!":END
363 : ナイコンさん[sage] : 04/02/21 11:30
>>361
10 ' ｢はんかくひらかﾞな｣か゛ しﾞょうほうこうかんよう もしﾞｺｰﾄﾞとして
20 ' ひろく りゅうつうしている きかくかﾞ あれはﾞな。
30 ' LEVEL3は､ｸﾞﾗﾌｷｬﾗにはんかくひらかﾞなかﾞわりあてられていて､
40 ' SCREENふﾞんの たﾞい3はﾟらめーたで　きりかえします｡
50 ' ちなみに､ﾄﾞｯﾄﾊﾟﾀｰﾝは 8x16ﾄﾞｯﾄて゛した｡
364 : ナイコンさん : 04/03/05 08:29
1 ' PC-8801
10 SCREEN 0:CONSOLE 0,25,0,1:CLS:DEFINT A-Z:DIM F(127)
20 FOR I=0 TO 127:READ A$:F(I)=VAL("&H;"+A$):NEXT
30 CLS 2:FOR I=1 TO 50:X=RND(1)*590:Y=RND(1)*170:PUT (X,Y),F:NEXT:GOTO 30
40 DATA 002B,000E,0002,0000,4000,0002,0000,4000,0002,0000,4000,0002,017F,A000,0002,017F
50 DATA A000,0002,017F,A000,0002,0102,4000,0002,0102,4000,0002,0102,4000,C087,0204,E01F
60 DATA C087,0204,E01F,C087,0204,E01F,309A,0208,8000,309A,0208,8000,309A,0208,8000,10A2
70 DATA 0210,8000,10A2,0210,8000,10A2,0210,8000,0842,823F,E01F,0842,823F,E01F,0842,823F
80 DATA E01F,0844,4260,8000,0844,4260,8000,0844,4260,8000,08A4,2280,8000,08A4,2280,8000
90 DATA 08A4,2280,8000,0994,2200,8000,0994,2200,8000,0994,2200,8000,0888,2218,800F,0888
100 DATA 2218,800F,0888,2218,800F,E894,4224,C010,E894,4224,C010,E894,4224,C010,1061,C122
110 DATA A010,1061,C122,A010,1061,C122,A010,E800,011F,000F,E800,011F,000F,E800,011F,000F
365 : うんこ[sage] : 04/03/06 01:44
auto 10
10 REM #########
20 REM # BASIC #
30 REM #########
40 DEF INT I
50 PRINT "ﾓﾏｴﾗ ﾉ ﾓｯﾃﾀ PCﾊ?"
60 INPUT "1:FM7 2:PC6001mkII 3:PC8001mkII 4:MZ-700 5:MSX";I
70 IF I > 5 OR I < 1 THEN GOTO 60
80 IF I = 1 THEN PRINT "ﾓﾚﾓ ﾎｼｶｯﾀﾖ"
90 IF I = 5 THEN PRINT "ﾓﾚﾊ ｾｲｺﾁｬﾝﾀﾞｯﾀﾖ"
100 IF I > 1 OR I < 5 THEN GOTO 120
110 GOTO 150
120 PRINT "ｳﾝｺｰ"
130 IF INKEY$=CHR$(13) THEN GOTO 150
140 GOTO 120
150 END
366 : ナイコンさん : 04/03/06 12:23
10 SCREEN 0:WIDTH 40:CLS 3:DEFINT A-Z:PI!=3.14159:PC=4
20 FOR I=1 TO 4:X=COS(PI!*I/4)*120:Y=SIN(PI!*I/4)*60
30 LINE(300+X,80+Y)-(300-X,80-Y),I
40 CIRCLE(300+X,80+Y),16,I:CIRCLE(300-X,80-Y),16,I:NEXT
50 LINE(290,75)-(310,150),7,B
60 CIRCLE(390,110),20,1,PI!*1.5,PI!*2:CIRCLE(430,110),20,1,PI!,PI!*1.5
70 CIRCLE(390,130),20,1,0,PI!/2:CIRCLE(430,130),20,1,PI!/2,PI!
80 LOCATE 24,16:PRINT "(･w･)/":LOCATE 24,17:PRINT "/";SPC(3);"/>>364"
90 FOR I=1 TO 4:COLOR=(I,7):COLOR=(PC,0):PC=I:FOR J=1 TO 200:NEXT:NEXT
100 GOTO 90
367 : ナイコンさん[sage] : 04/03/07 09:10
10 PRINT"ｸｰﾚﾅｲｰ ﾆ ｿｰﾏｯﾀｰ ｺｰﾉｵｰﾚｰｦｰ"
20 PRINT"ﾅｰｸﾞｻﾒｰﾙ ﾔｰﾂｰﾊｰ ﾓｳｲｰﾅｰｲｰ"
368 : ナイコンさん[sage] : 04/03/07 23:31
>>332
>>335
>>336
漏れもかつて連射ゲームを作ったけど、このようにした。

1' RENSYA NOURYOKU SOKUTEI
10 TIM=10 '　制限時間（秒）
20 SC=0 ' スコア
30 C=0
40 TI$=TIME$:WHILE TI$=TIME$:WEND ' 時間調整
50 print "START!"
60 TI$=TIME$
110 WHILE TIM>0
120 I$=INKEY$
130 IF I$=" " AND C=0 THEN SC=SC+1:C=1:I$=""
140 IF I$="" AND C=1 THEN C=0:I$=" "
150 IF TI$<>TIME$ THEN TIM=TIM-1:TI$=TIME$
160 WEND
210 PRINT "Score=";SC
220 END
1010 ' 作ろうとしたときに漏れも336と同じような疑問を抱いたよ。
1020 ' けど、ナムコのニューマンアスレチックの「交互に連打」というのを見て
1030 ' スペースと空文字を交互に認識させればいいじゃないの？とひらめいた
1040 ' でもINKEY$はそれでも押しっぱなしに弱いんで
1050 ' 漏れはI/Oポートからキースキャンしてた
1060 ' (N88-BASICだったから)
369 : ナイコンさん[sage] : 04/03/07 23:48
1 ' >>368
2 ' >>342
370 : ナイコンさん : 04/03/08 12:15
10 PRINT "ｲﾏｻﾗﾀﾞｹﾄﾞ"
20 PRINT ">>128"

DATA "QUICK BASICってのは、行番号がいらずサブルーチンを関数化できる"
DATA "その代わりグローバル変数とローカル変数の違いがある、これ。”
DATA "そして、master.lib組み込み。これ最強。"
DATA "しかしこれをやると、次から恋塚氏にシェアウェア代金3,500円を払わなければならないという"
DATA "諸刃の剣。素人にはお勧めできない。"
371 : ナイコンさん[sage] : 04/04/20 23:49
PRINT "Omaera QBasic wo sitte iruka ?"
PRINT "More wa kore de BASIC wo mananda."
372 : ナイコンさん[sage] : 04/05/03 01:17
? 2^13
8192.01
Ok
373 : ナイコンさん[sage] : 04/05/13 17:38
10 PRINT"2ﾈﾝﾌﾞﾘ ﾆ ｺﾉ ｽﾚ ﾆ ｷﾀYO..."
20 PRINT"ﾏﾀﾞ ｱｯﾀ ﾄﾊ ｼｮｳｼﾞｷ ﾋﾞｸｰﾘ(w"
374 : その１ : 04/06/07 15:19
100 '3ｹﾀﾉ ｽｳｼﾞｱﾃ ｹﾞｰﾑ
103 *--------------------
105 *MAE-SHORI
107 *--------------------
110　CLS 3
115　ANS%=0
117　WHILE ANS%<100 OR ANS%>999
120　 ANS%=INT((RANDOMIZE(TIME)*999)+1)
130　 ANS$=RIGHT$(STR$(ANS%),3)
140　 IF MID$(ANS$,1,1)=MID$(ANS$,2,1) OR MID$(ANS$,2,1)=MID$(ANS$,3,1) OR MID$(ANS$,1,1)=MID$(ANS$,3,1) THEN ANS%=0
150　WEND
375 : その２ : 04/06/07 15:20
200 *--------------------
210 *MAIN-SHORI
220 *--------------------
230　PRINT "ｽｳｼﾞｱﾃｦ ｼﾏｼｮｳ"
235　CT%=0
233　YU$=SPACE$(3)
234　WHILE YU$<>ANS$
235　 *M1
240　 INPUT "ｶｸｹﾀﾉ ｽｳｼﾞｶﾞ ｵﾅｼﾞﾆﾅﾗﾅｲﾖｳﾆ 3ｹﾀﾉ ｽｳｼﾞｦ ﾆｭｳﾘｮｸｼﾃ ｸﾀﾞｻｲ",YU$
245　 IF LEN(YU$)<>3 THEN BEEP:GOTO *M1
250　 IF VAL(YU$)<100 OR VAL(YU$)>999 THEN BEEP:GOTO *M1
260　 IF MID$(YU$,1,1)=MID$(YU$,2,1) OR MID$(YU$,2,1)=MID$(YU$,3,1) OR MID$(YU$,1,1)=MID$(YU$,3,1) THEN BEEP:GOTO *M1
270　 *M2
280　 HT%=0:BL%=0
290　 IF MID$(YU$,1,1)=MID$(ANS$,1,1) THEN HT%=HT%+1
300　 IF MID$(YU$,1,1)=MID$(ANS$,2,1) THEN BL%=BL%+1
310　 IF MID$(YU$,2,1)=MID$(ANS$,2,1) THEN HT%=HT%+1
320　 IF MID$(YU$,2,1)=MID$(ANS$,1,1) THEN BL%=BL%+1
330　 IF MID$(YU$,2,1)=MID$(ANS$,3,1) THEN BL%=BL%+1
340　 IF MID$(YU$,3,1)=MID$(ANS$,3,1) THEN HT%=HT%+1
350　 IF MID$(YU$,3,1)=MID$(ANS$,2,1) THEN BL%=BL%+1
355　 PRINT STR$(HT%)+"ﾋｯﾄ"+" "+STR$(BL%)+"ﾎﾞｰﾙ"
357　 CT%=CT%+1
360　WEND
376 : その３ : 04/06/07 15:21
400 *--------------------
410 *ATO-SHORI
420 *--------------------
430　PRINT "*** ｵｵｱﾀﾘ ***"
440　PRINT STR$(CT%)+"ｶｲﾃﾞ ｱﾃﾏｼﾀ"
450　IF CT%<=1 THEN PRINT "ｽｺﾞｸ ｲｲ ｶﾝ ｼﾃﾏｽﾈ!"
455　*A1
460　INPUT "ﾓｳ1ﾄﾞ ﾁｮｳｾﾝ ｼﾏｽｶ(Y/N)",HN$
470　IF HN$="Y" OR HN$="y" THEN GOTO *MAE-SHORI
480　IF HN$="N" OR HN$="n" THEN END ELSE BEEP:GOTO *A1
490　END
377 : ナイコンさん : 04/06/07 15:31
あらら、行番号間違えちゃったｆ（＾＾）
３桁の数字当てを作ってみました。
懐かしい
378 : ナイコンさん[sage] : 04/06/25 02:48
10 SCREEN0:WIDTH40:KEYOFF:COLOR15,4,7
20 PRINT"ぬるぽ";
30 GOTO 20
379 : ナイコンさん[sage] : 04/06/26 17:00
1 ' （　・∀・）つ━■ ｶﾞｯ☆`Д´)ﾉ>>378
380 : ナイコンさん[sage] : 04/07/06 22:21
これはどーだ

10 PRINT CHR$(0);
20 GOTO 10
381 : ナイコンさん[sage] : 04/08/02 16:03
LP:
PRINT "お前ら、半角カナはブラウザーによって化けるから使うなよ"
PRINT "自分が見えてるから人にも見えると思うのは間違いだぞ"
PRINT "半角カナで書きたい気持ちもわかるがな"
GOTO LP
382 : ナイコンさん[sage] : 04/08/02 23:22
>>381
PRINT "的はずれな指摘をする前に、2chのread.cgiの出力するHTMLソースを読もう。"
PRINT "ちゃんとMETAタグでcharset=Shift_JISとしてあるよ。"
PRINT "つまり、これを正しく解釈・表示しないブラウザがあるとしたら、そのほうが問題。"
383 : ナイコンさん : 04/10/11 10:35:08
ＲＥＭ
ＲＥＭ　にっほ゜んのこっき　ひのまる
ＲＥＭ
ＳＣＲＥＥＮ　３，２，２：ＣＯＬＯＲ　３，１５：ＣＬＳ
ＣＩＲＣＬＥ（１６０，１００），１７０，１５
ＰＡＩＮＴ（１６０，１００），２
ＲＥＭ
ＲＥＭ　からーこーと゛おほ゛えてない！
ＲＥＭ

　
384 : 517の人 : 04/10/11 10:54:55
べーしｯ君
385 : ナイコンさん : 04/10/11 13:26:58
ノブナガ
　　　　　　　　　　　　　|二|
　　　　　　　　　　　　　|二| 　　　　　　　　　　　／￣￣￣＼
　　　　　　　　 ,, -─-┴-┴- ─-、 　　　　　 | 　　　 ク　　|
　　　　　　　／::::::::::::::::::::::::::::::::::::::::::＼　　　　　| 　　　 ソ　　|
　　　　　　/:::::::::::::::::::::::::::::::::::::::::::::::::::::ヽ、　　　| 　　　 ス 　 |
　　　　　 /::::::/`'"'`'""'`"''"`''"`""`ヽ,::`、　　 | 　立　レ　 │
　　　　　 !::::/　　　　　　　　　　　　 　 、::| 　 ＜　 て　　 　 │
　　　　　l::,/　　　 　　 _ 　 ,　　　　　　ヽ::::| 　　| 　た　　　　 |
　　　　 i::::!　,--──'"　　 `──--、　|::::! 　　| 　ら　　　　 |
　　　 へ| 　　, --─、ヽ　／, --─､ 　　|へ, 　 ＼＿＿＿／
　　　 | ヽ| 　　,--─ ヽ　　　 ,─--、　　|ヽ |
　　　 | ｙ |　　 ､__ ﾟ__.　 |　|　 ､_ﾟ___, 　　 | ζ| 　／￣￣＼
　　　　i 'ヽi　 　 　　　　l 　l　　　　　　　i.　`i　 | 　 切　　|
　　　　 | 　| 　　 　　　　|　| 　　　 　　　|.,　| 　 |　　る　　|
　　　　 `" |ヽ、 　 　 　 |　| 　　　　　/ /`'"　＜　　ぜ　　|
　　　　　　ヽ　、　　 ,,,,, ヽ/,,,,,　　　 ,' ,/ 　　　　| 　　　　　|
　　　　　　　ヽヽ """　 ＿__　`""`,' / 　　　　　＼＿＿／
　　　　　　　　|ヽ、　　 `-─'　　　/,´|
　　　　,r--,,__|::: `ヽ、　　,,,,　　,,,／ :::|__,r─-、
　-─く　　＼i::　: 　 '゛--llll--'゜ ,　　 :i／　　／`─--
　　　　 ＼　　＼　ヽ、　　　　: '　　／　　／　
　　　　　　＼　　＼　　　　　:　　／　　／　
　　　　　　　 ＼　　＼　　　　 ／　　／
　　　　　　　　　＼　　＼　 ／　　／
　　　　　　　　　　 ＼　　／　　／
　　　　　　　　　　　　 ／　　／


386 : ナイコンさん[sage] : 04/10/15 11:41:47
>>380 ｻﾞｿﾈｿ

10 a=peek(0)
20 goto 10
387 : ナイコンさん : 04/10/31 09:25:42
if no388=aori or no388=arashi then ｼﾞｺﾞｸ　else ﾃﾝｺﾞｸ
388 : ナイコンさん[sage] : 04/10/31 11:53:27
? "ﾇﾙﾎﾟ"
389 : EXCULTer's / Active PC ◆CF/ockjcoQ : 04/10/31 11:57:42
print chr$(12)+"new";
390 : ナイコンさん[sage] : 04/10/31 12:44:37
10 WHILE 1
20 INPUT A$
30 IF INSTR(A$, "ﾇﾙﾎﾟ") OR INSTR(A$, "NULLPO") THEN ? "ｶﾞｯ"
40 WEND
391 : ナイコンさん : 04/11/08 07:42:25
>>318

100 beep
110 goto 100

これやったらもっと激怒すると思う
392 : ナイコンさん : 04/11/11 11:31:02
100 BEEP 1
110 END
393 : ナイコンさん[sage] : 04/11/14 14:49:05
【リスト1】 CHAOS.BAS のプログラム・リスト
100 PLAY "t240l32o5cdbefbagcbfgdbegabfgcbfgabdgfbegcbfgdbagebfggcbdgf", "l32o7cdbefbagcbfgdbegabfgcbfgabdgfbegcbfgdbagebfggcbdgf", "l32o4gagcbdgabfgdagfbcgdbfgebagdbfgcbagdbfgebdgcbagdbfgd", "l32o3acbagdbfgdbagebfgdbefagdbcgafdgebgffdgabegf"
110 GOTO 100
394 : ナイコンさん : 04/11/15 00:36:37
>>393
４和音ってどの機種で？
395 : ナイコンさん : 04/11/15 05:04:52
10 CLS:RES=1
20 PRINT RES;":ナイコンさん"
30 IF RES=1 THEN PRINT"新スレ立てました":GOTO 50
40 PRINT:INPUT A$:PRINT:PRINT A$:PRINT
50 RES=RES+1:IF RES>1000 THEN PRINT"このスレは1000を越えました。
新しいスレを立ててくださいです……" ELSE 20
396 : ナイコンさん[sage] : 04/11/22 12:15:56
>>394
ピー
TOWNSで動作確認したので和音数適当だった Error in >>393
397 : ナイコンさん[sage] : 04/12/09 22:35:30
>>392
ﾌﾟ
398 : ナイコンさん : 04/12/11 19:37:07
100 REM
110 GOSUB 100
RUN
Out Of Memory
Ok
399 : ナイコンさん : 05/02/20 23:35:11
PRINT命令入れずに”？”で代用していたなぁ。
PRINT "*";
で画面いっぱいに星を表示したりしていたけど、昔のパソコンって本当にやれる事が限定されていた。
400 : ナイコンさん[sage] : 05/02/21 00:10:39
10 REM >>399
20 PRINT "ASTERISK FEVERというTK-80BS用4行のゲームを思い出した"
401 : ナイコンさん : 05/02/21 00:59:09
注釈のREM使わずに’で済ませていた。
昔、友達が雑誌のプログラム入れてる時にREMに書いてある*の数を必死になって数えていた。
作者の名前まで正確に打ちこんでどうするんだよ！
402 : ナイコンさん[sage] : 05/02/21 07:30:56
REMの中身がﾏﾁﾝ語になってる素敵なコードもあたｱﾙ

# MSX BASICだと中間コードで REM が1バイト ' が3バイトになる不思議
403 : ナイコンさん[sage] : 05/02/21 11:20:39
REM文でも、BASIC実行時には処理の邪魔になる。
プログラムが分かりやすいだろうとコメント入れていたが、全部カタカナだったりで読みにくかった。
MSXでもSCREEN0だと”かな文字”が一部切れて表示されていた。
404 : ナイコンさん[sage] : 05/02/21 22:52:53
そんなわけでscreen0用フォント自作したです。
メインメモリ2KBも食うけど。
turboRのDRAMモードでフォントパターンを直接書き替えるという技も思い付いたが、挫折。
405 : ナイコンさん[sage] : 05/02/22 04:24:36
1 rem やい、おまいら
2 rem BASIC「を」語るスレじゃなくて、BASIC「で」語るスレですよ
406 : ナイコンさん[sage] : 05/02/26 14:04:24
10 PRINT"REMﾌﾞﾝ ｼﾞｬ
20 PRINT"RUNｼﾃﾓ ﾋｮｳｼﾞ ｻﾚﾅｲﾖ｡
407 : ナイコンさん[sage] : 05/02/26 17:16:18
100 data "　　　 |ヽ　,,|,~'i､　 .,_　　　,ri､　　　　　.lﾞ‐'"'i､　　　 ,，　,i､　　　　　,、　　 ｖi､
110 data "　　　 | ｋ, ヽ广　　| |　　'l''ﾞl┘　　　　 .`'ｸﾞ/　　　　|ﾞl.,ｨ |.|　　　　 ）ﾞl　　/'ﾞl″、　　　r-,、　 、　　 .:c､、
120 data "　　ｯ┘｀,lﾞ　　　　,ﾉ ヽ ,,,,,`'′　　　　 .,/,,,!‐''，　 ,ノ う゜.| |　　　 .,ﾉ ヽ ,,,,,`'′ |ﾞl　　　 ﾞl,ヽ　.|ﾞl　　　 ヽﾞi､
130 data "　　 ﾞi､/ﾞ,-'''i､　.く, .,巛 ‘r＼　　　　 ／.'ﾟ_ ／　 ./‐I /　 | |　　 .〈、,l］ﾞl `',＼　 | |　 ,｡　.,i´ﾞl　| |　 .〟 ilﾞ ﾞl
140 data "　　 lﾞ.lﾞ ﾞlｯ'"　　././ | |　.,,) ﾞl　　　　.!／］/　　　 丿 |　 .lﾞ.|、　　/丿| |　.,,〉.）　| ﾞl .,ﾘ　 .`-" .lﾞ | .,l〕　 .ヽ"
150 data "　　/.lﾞ j,i´　　　lﾞ,E.,lﾞ.|　 ｀'''′　　　　　lﾞ｛　　　 /,,| |　　ﾞl,ヽ　 .ﾞl,d,,lﾞ |　 ｀'''ﾞ　 ﾞl ﾞ‐'|　　　　　ﾞl ﾞ‐'|
160 data "　 / lﾞ　ﾞl,~ﾞ'''i､　 .ﾞl´丿　　　　　　　　　 | ﾞl,　　 '(/|゜|　　 .ﾞ-ﾞl　　.ﾞl｀丿　　　　　＼.,}　　　　　 ＼.,}
170 data "　 ∨　　`''ｰ"　　 ﾞ'"　　　　　　　　　　 ヽ ﾞl　　　 ヽ}　　　　　　　`"　　　　　　　 ｀
180 new
408 : ナイコンさん[sage] : 05/02/27 00:44:08
10 print ">>407"
20 print "ﾜﾛﾀ"
409 : sage : 05/03/11 01:04:16
SYSTEM

A:\>
410 : ナイコンさん[sage] : 05/03/13 08:50:50
10 cls:X=10:y=10
20 a$=input$
30 X=X+(a$="4")*(x>1)-(a$="6")*(x<20)
40 Y=Y+(a$="8")*(y>1)-(a$="2")*(y<20)
50 cls:locate x,y:print "(ﾟдﾟ)"
60 goto 20

INPUT関係忘れた上にclsが強引だけど
Dr.Dの教えを守ったら、こんな感じだっけか？
411 : ナイコンさん : 05/03/20 23:28:32
１０００　ＰＲＩＮＴ
１００４　ＰＲＩＮＴ”＞＞４０７
１００５　ＰＲＩＮＴ”むかしのＰＣでフ゜ロホ゜ーショナルフォント
１０１０　ＰＲＩＮＴ”は、ないて゛しょう
１０２０　ＰＲＩＮＴ”フ゜リンタならた゛せるけと゛
１０３０　ＰＲＩＮＴ
１０４０　ＰＲＩＮＴ”これか゛ひらか゛なまし゛りなのか゛おかしい？
１０５０　ＰＲＩＮＴ”いえＰ６て゛すから
１９９０　ＰＲＩＮＴ
９９９０　ＥＮＤ


412 : ナイコンさん : 2005/03/21(月) 10:49:48
1000 PRINT "ｽｺﾞｲﾅ P6ｯﾃ 2ﾊﾞｲﾄﾓｼﾞﾃﾞ ﾌﾟﾛｸﾞﾗﾑﾆｭｳﾘｮｸ ﾃﾞｷﾙﾝﾀﾞ｡"
413 : ナイコンさん : 2005/07/10(日) 19:41:27
１０００　ＰＲＩＮＴ　”Windowsって半角ひらがな出せないんだ　ふ～ん
１０１０　ＰＲＩＮＴ　”Ｐ６ってｽｺﾞｲﾀﾞﾛ
414 : ナイコンさん[sage] : 2005/07/10(日) 21:19:10
1 _kanji3
3396 PRINT "MSXでもできるよん。でも表示遅いし、電池切れると
5963 PRINT "変換した瞬間にハングアップするという諸刃の剣。
415 : ナイコンさん : 2005/07/14(木) 09:59:11
10 RESTORE
20 READ A
30 IF A<>0 THEN PRINT CHR$(A);:GOTO 20
90 END
100 DATA 178,175,195,214,188,33,0

416 : ナイコンさん : 2005/07/28(木) 23:58:57
10 "A":RANDOM:WAIT 0
20 S=0, T=100,R=127,
A$="000003E491C36",
B$="1C493E000000"
30 C$="1C2241",
D$="41221C"
40 PRINT">>STAR WARS<<"
RESTORE
50 FOR A=1TO 16:READ

某アニメのオープニングで出るリストなんだが、何がしたいんだ？
417 : ナイコンさん[sage] : 2005/07/31(日) 14:17:17
ラベルの書き方,RANDOMコマンド,WAIT 0…


SHARP系ポケコン？
418 : ナイコンさん[sage] : 2005/08/10(水) 17:31:09
ﾘﾄﾆｶ
ﾊﾆﾘｲﾄ
419 : ナイコンさん[sage] : 2005/08/12(金) 12:19:07
ﾘﾆﾄｶ　だろ
syntax error
ok
ﾘﾄﾆｶ　だとLSIT　じゃん
syntax error
ok
420 : ナイコンさん[sage] : 2005/08/18(木) 21:03:48
READY
DATA ERROR
READY
421 : 73[sage] : 2006/01/09(月) 18:06:12
10 PRINT"うわ、まだこのスレあったんだ"
20 PRINT"ﾃﾗﾅﾂｶｼｽ"
30 PRINT"また何年か経ったら来てみようｗ"
422 : ナイコンさん : 2006/01/12(木) 20:36:13
CMD NEW
423 : ナイコンさん[sage] : 2006/01/15(日) 10:42:13
>>422
syntax error
Ok

NEW CMD
Ok
424 : ナイコンさん[sage] : 2006/01/18(水) 16:07:34
ﾘﾆﾄｶ ﾊ ﾐﾎｺﾁﾄﾆｿ ﾃﾞﾊ ｴﾗｰ ﾆ ﾅﾗﾅｲﾖ ﾀｼｶ
Ok
PC88 uo new on 1 dw qdt/w h;
Syntax Error
Ok
425 : ナイコンさん : 2006/04/18(火) 23:09:52
REM
REM　最近、昔みたいなパソ通ＢＢＳをやりたくて仕方が無い。
REM　インターネットの公開掲示板って誰に見られてるか
REM　わからないのが怖い
REM　２ちゃんの名無しもなんか疲れた
REM
426 : ナイコンさん : 2006/04/19(水) 10:06:01
10 CLEAR:DIM A(13,3)
20 D=0:HP=5
30 CLS:X=0:Y=0:XX=0:YY=0:IF DD=<D THEN DD=D+1
40 D=D+1:IF D=10 GOTO 220
50 FOR I=0 TO 3:FOR J=0 TO 12:LOCATE J,I:PRINT CHR$(134);:A(J,I)=0:NEXT:NEXT
60 LOCATE 14,0:PRINT"*ﾄｲﾚﾃﾞ ｳﾝｺｽﾙ ｹﾞｰﾑ*";
70 FOR I=0 TO 3:LOCATE 13,I:PRINT MID$("ﾄｲﾚ@",I+1,1);:NEXT:GOSUB 210
80 FOR I=0 TO D:RX=INT(RAN#*12)+1:RY=INT(RAN#*4):A(RX,RY)=1:NEXT
90 LOCATE XX,YY:PRINT CHR$(133);
100 I$=INKEY$:IF I$="" GOTO 100
110 X=(I$="4" AND XX>0)-(I$="6" AND XX<13)
120 Y=(I$="8" AND YY>0)-(I$="2" AND YY<3)
130 IF X+Y=0 GOTO 90
140 LOCATE XX,YY:PRINT CHR$(134);
150 XX=XX+X:YY=YY+Y
160 IF A(XX,YY)=1 THEN LOCATE XX,YY:PRINT "*";:LOCATE 15,1:PRINT "ｷﾞｬｰｽ,ｺﾕﾋﾞﾌﾞﾂｹﾀ!":GOSUB 200:A(XX,YY)=0:HP=HP-1:GOSUB 210
170 IF HP=0 GOTO 230
180 IF XX=13 THEN LOCATE XX,YY:PRINT CHR$(232);:LOCATE 15,1:PRINT "OK,ﾌﾟﾘﾌﾟﾘｳﾝｺﾌｫｰ!":GOSUB 200:GOTO 30
190 GOTO 90
200 FOR W=0 TO 800:NEXT:LOCATE 15,1:PRINT " ":RETURN
210 LOCATE 15,3:PRINT USING "ｶ:# #ﾆﾁﾒ HI:#ﾆﾁ";HP,D,DD;:RETURN
220 PRINT "ｵﾒｽ!":PRINT "ｵﾏｴﾊ ｷｮｳﾓ ｶｲﾍﾞﾝﾀﾞ!":END
230 CLS:PRINT "ﾔﾊﾞｽ,ﾁｶﾗﾂｷﾃ":PRINT "ｳﾝｺ ﾓﾗｼﾀ...":END
427 : ナイコンさん[sage] : 2006/04/19(水) 10:08:02
**** ﾄｲﾚﾃﾞ ｳﾝｺｽﾙ ｹﾞｰﾑ ****
　　　　FOR CASIO VX-4

　　　　push space key !
428 : ナイコンさん : 2006/04/20(木) 22:08:50
1000 名前：ナイコンさん 投稿日：yyyy/mm/dd (＊) hh:MM:ss
>1-999
?Redo from start
429 : ナイコンさん : 2006/04/26(水) 23:42:35

cload "ﾐｯｶ ｶﾞｶﾘﾃﾞ　ｳﾁｺﾝﾀﾞ ｹﾞｰﾑ"
Found "ﾐｯｶ ｶﾞｶﾘﾃﾞ　ｳﾁｺﾝﾀﾞ ｹﾞｰﾑ"
Tape read error
Ok
■

　ＯＴＬ

430 : yosi : 2006/04/30(日) 03:08:25
10 'OP-FAKE80
20 ?"NEC PC-8001 BASIC Ver 2.0"
30 ?"Copyright 1979 (C) by Microsoft"
40 ?
50 ?"Ok"
60 GOTO 60

何か作ってみました…
N80BASIC偽起動画面です。
431 : ナイコンさん[sage] : 2006/05/07(日) 15:46:28
>>430

10 CONSOLE 0,20,1,0
20 PRINT CHR$(12)
30 PRINT "NEC PC-8001 BASIC Ver 1.0"
40 PRINT "Copyright 1979 (C) by Microsoft"
50 PRINT
60 PRINT "Ok"
70 INPUT A$;
80 PRINT "Syntax Error"
90 PRINT
100 GOTO 60

これでどう？
432 : ナイコンさん[sage] : 2006/05/07(日) 15:48:15
85　BEEP

を忘れた。
433 : yosi : 2006/05/13(土) 20:42:33
>>432
ありがとうございます、これでイタズラできそうですね。
434 : ナイコンさん : 2006/05/14(日) 01:48:28
10 REM >>425
20 PRINT "ﾐｸｼﾆ ｿﾚﾆ ﾁｶｲﾓﾉｶﾞ ｱﾙﾖ"
30 PRINT "ﾋﾄﾓ ﾌｴﾀｼ ｵﾝﾅﾓ ｲﾙｼ ｹｯｺｳ ｵｽｽﾒ"
40 GOTO http://mixi.jp/
435 : ナイコンさん : 2006/05/20(土) 00:39:26
FOR I=0 TO 1:BEEP:I=0:NEXT:
436 : ナイコンさん[sage] : 2006/06/11(日) 15:59:04
>>429
set prompt "or2=3"
or2=3
■
437 : ナイコンさん : 2007/01/14(日) 18:40:37
1 motor:run
run
438 : ナイコンさん : 2007/01/15(月) 19:09:28
10 REM N88ｺﾞｶﾝBASIC For Windowsﾊｲｲｿﾞ
20 BEEP
30 GOTO 20
439 : ナイコンさん[sage] : 2007/04/02(月) 18:19:11
[重要]
＜＜＜＜＜　ＢＵＧ情報　＞＞＞＞＞
>>431
70 LINE INPUT A$;
に換えて下さい！
　　　　　　　　　　　　　　以上
＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾
440 : ナイコンさん : 2007/12/30(日) 11:38:57
難しいですね。
441 : ナイコンさん : 2007/12/30(日) 18:12:05
http://click.j-a-net.jp/1006827/223692/
442 : ナイコンさん : 2008/02/17(日) 21:55:48
Syntax Error in 1
OK
OK
Syntax Error in 1
OK
OK
Syntax Error in 1
OK
OK
Syntax Error in 1
OK
OK
Syntax Error in 1
OK
ｼﾈ
Syntax Error in 1
OK
■
443 : ナイコンさん : 2008/02/19(火) 16:57:04
そろそろ誰かサブルーチンを…
444 : ナイコンさん[sage] : 2008/02/22(金) 22:18:01
10 LET SC=0
20 LET HS=10000
30 LET MS=5
40 LET MX=20 : LET MY=24
50 LET EX=20 : LET EY=1
60 LET SH$=" =A= "
70 LET EN$=" +O+ "

あ、これ初期設定だ...
445 : ナイコンさん[sage] : 2008/02/23(土) 17:16:33
64999 REM -----
65000 BEEP1:BEEP0:RETURN
65010 FOR II=0TO CN:GOSUB65000:RETURN
65100 PRINT "*":RETURN
65110 FOR II=0TO CN:GOSUB65100:RETURN
446 : WeedGuy ◆G2dQup2JrM [sage] : 2008/04/16(水) 21:27:27
10 CLS
20 REM ASKING
30 PRINT ">>193"
40 INPUT "BASIC OS PLEASE",AX$
50 IF AX$="n88"THEN PRINT "OK ｼﾞｬｱﾏﾀ":END
60 IF AX$="n66SR"THEN 120
70 IF AX$="MSX"THEN 120
80 IF AX$="n60"THEN 120
90 PRINT"ｱｲﾖ ｼﾞｬｱﾏﾀ｡"
100 END
110 REM ???
120 PRINT"ｱﾚ ｳｺﾞｶﾅｲｹﾄﾞﾅ?"
130 END
447 : ナイコンさん[sage] : 2008/05/18(日) 07:30:22
'サンプルプログラム（星移動）
SCREEN 224,288,16
WHILE (TRUE)
FOR I=1 TO 3
PAGE I
X=INT(RND*224)
C=INT(RND*16)
PSET(X,0),C
SCROOL 0,I
NEXT
WEND

こんな感じで昔のギャプラスみたく星が多重スクロールしてくれればな．．．
448 : ナイコンさん[sage] : 2008/05/18(日) 07:31:11
インデント消えちまった

SCREEN 224,288,16
WHILE (TRUE)
　FOR I=1 TO 3
　　PAGE I
　　X=INT(RND*224)
　　C=INT(RND*16)
　　PSET(X,0),C
　　SCROOL 0,I
　NEXT
WEND
449 : ナイコンさん[sage] : 2009/08/06(木) 23:46:13
このスレ見てたら懐かしすぎて胸がときめいてしまった
450 : ナイコンさん[sage] : 2009/09/22(火) 01:22:13
100 ' evaluate "string" ver.1.4
110 CLEAR 200,&HDDFF;
120 FOR I=0 TO 61: READ A$
130 POKE &HDE00;+I,VAL ("&h;"+A$): NEXT
140 DEF USR =&HDE00;
160 DATA FE,03,C0,21,30,00,22,5E
170 DATA F5,1A,B7,28,10,06,00,4F
180 DATA 13,1A,6F,13,1A,67,11,5E
190 DATA F5,ED,B0,AF,12,21,1F,F4
200 DATA 11,75,F9,01,3E,01,ED,B0
210 DATA 21,5E,F5,CD,B2,42,23,CD
220 DATA 64,4C,21,75,F9,11,1F,F4
230 DATA 01,3E,01,ED,B0,C9

使用例
a=usr("4*atn(1)") : ? a
3.1415926535898
Ok
我が愛機MSXでは動作したが、他人のMSXで動くかは知らん
451 : ナイコンさん[sage] : 2010/06/20(日) 03:23:19
10 CLS
20 FOR I=0 TO 255
30 PRINT CHR$(I);
40 NEXT
50 END
452 : ナイコンさん : 2010/06/20(日) 11:44:15
2get
453 : 93.182.137.96[sage] : 2011/02/28(月) 22:39:33.67
hoshu
454 : ナイコンさん[sage] : 2011/04/09(土) 16:59:48.53
ﾄﾝﾄｶｲﾓ
455 : ￣∨￣￣￣￣￣￣￣￣￣ : 2011/04/22(金) 19:21:42.53
てすと
456 : ナイコンさん[sage] : 2011/05/02(月) 16:02:23.59
100000　mon
457 : ナイコンさん[sage] : 2011/10/21(金) 17:41:36.69
http://toki.2ch.net/test/read.cgi/i4004/1010380813/123
教えてくれ
458 : ナイコンさん : 2011/10/21(金) 17:45:44.93
とんとかいもっすぅ
459 : ナイコンさん[sage] : 2012/06/24(日) 22:40:07.17
99BASIC
460 : ナイコンさん[sage] : 2012/09/16(日) 21:10:01.88
PC-9821で使っていたHDDの保存データを見ていたら、昔作ったこんなプログラムが出てきた。
確か連射ゲームだったと思うが、PC-98実機がないうえに何のキーを連射すべきだったか忘れた。
それにしても汚いプログラムだｗ

10 CLS 3:LOCATE 0,0:INPUT "1 or 2P";PL:IF PL<>2 THEN PL=1
20 LOCATE 0,1:INPUT "LEVEL";LV
21 IF PL=1 THEN LOCATE 0,5:PRINT "Rapid Fire!!"
30 CONSOLE 0,25,1,1: SCREEN 3,0:COLOR ,,,,2:CLS 3:LOCATE 0,5:PRINT ""
40 LOCATE 0,7:PRINT "HIGH SCORE";HI;:TIM$=TIME$:WHILE TIME$=TIM$:WEND
50 LOCATE 0,0:PRINT ""
60 BEEP:TIME=10:SC(1)=0:SC(2)=0
70 A1(1)=239:A1(2)=239:NH=4:TIM$=TIME$
80 FOR A=1 TO 2
90 ON PL*2+A GOTO 110,110,100,110
100 ON -(LV<INT(RND*21)) GOTO 120:SC(1)=SC(1)+1:PW(1)=PW(1)+20-(PW(1)\50):PW(2)=PW(2)-5:IF HPW(1)<PW(1) THEN HPW(1)=PW(1):GOTO 120 :ELSE 120
110 A2(2)=INP(&HE0;):A2(1)=INP(&HE6;):ON -(A1(A)<>A2(A)) GOTO 100:BEEP 1:BEEP 0:PW(A)=PW(A)+20-(PW(A)\50):PW(3-A)=PW(3-A)-5:A1(A)=494-A1(A):SC(A)=SC(A)+1:IF HPW(A)<PW(A) THEN HPW(A)=PW(A):GOTO 120 :ELSE 120
120 LOCATE 10,10+A:PRINT "Score";SC(A);" Power";PW(A);:NEXT:LOCATE 8,8:COLOR -6*(TIME<5)+4*(TIME<3)-7*(TIME>4):PRINT " Time";TIME;:COLOR 7:ON -(TIM$=TIME$) GOTO 80
130 TIME=TIME-1:IF TIME=0 THEN BEEP:FOR U=1 TO 2:LOCATE 10,10+U:PRINT "Score";SC(U);" Power";PW(U);" High Power";HPW(U);:NEXT :ELSE TIM$=TIME$:GOTO 80
140 IF INKEY$="" THEN 140 :ELSE IF HI<SC(1) THEN HI=SC(1):LOCATE 10,20:PRINT "HIGH SCORE!"
150 FOR A=1 TO 2:LOCATE 0,20+A:PRINT STR$(A);"PRESENTS ";STR$((SC(A))\5*1000);:NEXT:FOR T=1 TO 5000:NEXT
151 IF SC(1)<SC(2) AND PL=1 THEN LV=LV+1:TOSC=TOSC+(SC(2)\5)*1000:LOCATE 50,0:PRINT "TOTAL";STR$(TOSC);:LOCATE 0,1:PRINT "PUSH RETURN";
152 IF INKEY$<>CHR$(13) THEN 152
153 GOTO 30
160 TIM$=TIME$:RETURN


461 : ナイコンさん[sage] : 2012/09/16(日) 21:46:10.76
>>460
公表するならコメントくらい付けろよな
[471res] 全部 1- 101- 201- 301- 401- 最新50
リンク抽出 : URL[＋] スレッド[＋] 画像[＋]