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

1 ：01/12/28 〜 最終レス ：11/10/21

10 COLOR 7
20 PRINT ("BASIC ﾉｺﾏﾝﾄﾞﾀﾞｹﾃﾞｶﾀﾙｽﾚｯﾄﾞ｡")
30 PRINT ("ﾊﾝｶｸﾓｼﾞ ｲｶﾞｲﾃﾞﾓ ｶ｡")
40 PRINT ("C ｹﾞﾝｺﾞ ﾄｶ ﾂｶｲﾀｹﾚﾊﾞ ﾂｶｯﾃﾓﾖｼ｡")
50 PRINT ("ﾏﾀｰﾘ ｶﾀﾘｱｲﾏｾｳ")
60 END

2 ：

今気が付いた。
関数（） はＣ言語の構文だった。
マジ、鬱。

3 ：

>>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 ：

10 REM ｿﾓｿﾓ　ｼｯﾊﾟｲ ｲｾﾞﾝﾆ 2ﾃﾞ ｻﾞｾﾂｼﾃﾙ ｽﾚｯﾄﾞ

5 ：

5 PRINT "5ｹﾞｯﾄ- ｽﾞｻﾞｻﾞｻﾞ"

6 ：

cload "konosure.bas"
OK
run
Syntax Error in 1
OK
■

7 ：

NEW

8 ：

NEW
OK
10 COLOR 7
20 PRINT "BASIC ﾉｺﾏﾝﾄﾞﾀﾞｹﾃﾞｶﾀﾙｽﾚｯﾄﾞ｡"
30 PRINT "ﾊﾝｶｸﾓｼﾞ ｲｶﾞｲﾃﾞﾓ ｶ｡"
40 PRINT "C ｹﾞﾝｺﾞ ﾄｶ ﾂｶｲﾀｹﾚﾊﾞ ﾂｶｯﾃﾓﾖｼ｡"
50 PRINT "ﾏﾀｰﾘ ｶﾀﾘｱｲﾏｾｳ"
60 END
40
RUN

9 ：

1 REM 1000ｹﾞｯﾄ ver0.1
10 DEFINT A-Z
20 IF LN=1000 THEN 40
30 GOTO 20
40 PRINT "1000 !!!!!";
50 END

10 ：

>>9
いつまでも1000ゲットできないと思われ。
あ、変数クリアしないBASICなら可能性はあるか・・・。

11 ：

#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 ：

10 for I=1 to 4
20 print mid("ﾏﾀｰﾘ",I,1);
30 for J=0 to 10000:next J
40 next I

13 ：

? "FORTRANｦ ﾂｶﾜｾﾛ｡ ｺﾞﾙｧ!"

14 ：

10 PRINT"QuickBASICﾔBASIC09ﾊ OK?"

15 ：

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 ：

NEW
OK
10 PRINT "80ｷﾞｮｳﾉｳｼﾛﾆOKﾅﾝﾃﾃﾞﾈｰ"
20 PRINT "ｳﾂﾀﾞｼﾉｳ"
30 BOOT

17 ：

10 PRINT "ｺﾏﾝﾄﾞﾏﾁﾉﾄｷ OKﾄﾃﾞﾙｷｼｭﾄREADYﾄﾃﾞﾙｷｼｭｦｵｼｴﾛ"
20 PRINT "BASICﾉｼｭﾙｲﾆﾓﾖﾙﾊｽﾞ"

18 ：

10 REM ｺﾁﾗﾓﾖﾛｼｸ
20 GOSUB http://pc.2ch.net/test/read.cgi/i4004/1008847300/

19 ：

10 PRINT"MZﾊ ﾘｮｳﾎｳｱｯﾀｿﾞ"
20 PRINT"S-BASICﾊREADYﾃﾞWICSﾊOKﾀﾞｯﾀｷｵｸｶﾞ"
30 END

20 ：

10 PRINT ">>19 ｿｳｶ S-BASICｶﾞREADYﾀﾞｯﾀｶ"
20 PRINT "WICSｯﾃﾅﾝﾀﾞ?"
30 PRINT "Hu-BASICﾅﾗｼｯﾃｲﾙｶﾞ"
40 PRINT "ﾎｶｼﾞｮｳﾎｳﾓﾄﾑ！!"
50 GOTO 40

21 ：

>>20
GOTO *Google

22 ：

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 ：

10 INPUT "F-BASIC ﾓ Ready ﾀﾞｯﾀﾄｵﾓｳﾝﾀﾞｹﾄﾞ｡"
20 PRINT "ｱﾄ､ HuBASIC ﾊﾌﾟﾛｸﾞﾗﾑｼﾞｯｺｳﾁｭｳﾆ BREAK ｼﾃ､"
30 PRINT "CONT ﾃﾞｷﾙｼﾞｮｳﾀｲﾉﾄｷﾊ Ok. ﾄﾅﾙﾃﾞｽﾖ｡"
40 END

24 ：

ｼｯｶｼ、半角ｶﾅ ﾊ 読ﾐﾂﾞﾗｲﾅｱ（ﾜﾗｲ）
ﾑｶｼﾊ ﾅﾝﾄﾓ ﾅｶｯﾀﾉﾆ

25 ：

ON ERROR GOTO ｲｯﾃﾖｼ

26 ：

ﾆｶｶｲﾝﾗﾄﾆ!(藁

27 ：

ｽﾅﾐ
?SN Error
Ok
■

28 ：

ﾐｲﾃ
Ready
ﾘﾆﾄ■

29 ：

10 FOR I=1 TO 7
20 PRINT "ﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈ"
30 NEXT I
50 GOTO 10

30 ：

RUN
ﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈﾅｾﾞｶNECﾉBASICﾀﾞﾄ､ｳﾏｸｲｶﾅｲﾝﾀﾞﾖﾈ
BREAK IN 30
OK
25 COLOR I
コレ忘れてたよ。

31 ：

10 DEFINT A-Z
20 PRINT "N-88 BASIC(86)とか";
30 PRINT "BASIC 98では";
40 PRINT "全角が使えて助かったな"
50 REM
60 PRINT "X1turboもそうじゃなかったっけ?"
70 END

32 ：

10 CLS
20 PRINT "if800model50だってMS-DOSだからＯＫだよ。"
30 PRINT "でも、変換がローマ字onlyなので、仮名入力バリバリの";
40 PRINT "8Bitユーザーには辛かった。"

33 ：

10 PRINT ">>31"
20 PRINT "MZ-2500も忘れるなｺﾞﾙｧ"
30 PRINT "辞書ＲＯＭオプションだったけどな"
40 PRINT "単漢字入力うざい"
50 I$=INKEY$:IF I$="" THEN 50
60 END

34 ：

ﾊﾆﾘｲﾄ
OK
■

35 ：

10 STOP ON
20 ON STOP GOSUB 40
30 GOTO 30
40 RETURN
RUN■

36 ：

DIR
?SN Error
■

37 ：

ｾｽﾆﾐｶ ﾌｺﾝﾅｺﾄﾓｱｯﾀﾅ･･･ﾌ
Syntax Error
OK
■

38 ：

10 PRINT">>33"
20 変数="MZ-2500はこんなことまで出来たっけ?"
30 PRINT 変数

39 ：

10 PRINT">>31"
20 [変数]="X1turbo の場合は [ ] で囲む必要がありました。"
30 PRINT [変数]

40 ：

>>35
10 STOP ON 'ﾀﾞｹﾃﾞ可

41 ：

MONｱｰ
h]■

42 ：

10 PRINT ">>38"
20 変数$="$が要るぞ、忘れるなｺﾞﾙｧ!!"
30 PRINT 変数$

43 ：

[for N88-BASIC(86)]
LIST
10 WIDTH 80,25:CONSOLE 0,25,0,1,0
20 PRINT "正直、うらやましいな、変数に漢字使えるの・・・"
Ok
RUN
正直、うらやましいな、変数に漢字使えるの・・・
Ok
■

44 ：

10 ON ERROR GOTO 40
20 SCREEN,
30 PRINT"98!":END
40 PRINT"88!":END
50 REM N88-BASIC ﾉ　ﾅｿﾞ

45 ：

printf("
イマダ！45ゲットォォォォワショーイ！！\n
￣￣￣￣￣∨￣￣￣　　　　　　　(´´\n
　　　　 ／■＼　　　　　　　(´⌒(´\n
　　⊂（´∀｀ ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡\n
　　　　　　 ￣￣　 (´⌒(´⌒;;\n
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ\n
");

46 ：

PRINT"未だ工事！"

47 ：

2 ｹﾞｯﾄｫｫｫ
3 ｹﾞｯﾄｫｫｫ
RENUM

48 ：

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 ：

PRINT SEARCH(I4004%,"ﾏﾀｰﾘﾉｶﾐ@")

50 ：

NEW
Ready
RUN
*ERROR 19
Ready
■

51 ：

POKE$952,0
Ready
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAA■

52 ：

800 ?"懐かしいねぇ。GW-BASIC"

53 ：

>>51
POKE$952,166
Ready
■

54 ：

1000 REM MS-BASICﾃﾞﾏﾀｰﾘ
4380 GOSUB >>52:PRINT"ｳﾏｰ"
5550 PRINT"S-BASIC vs CBS-BASIC"
5560 IF INKEY$="" THEN 5560

55 ：

55 CHAIN "FORMAT /P /G"
RUN
Syntax Error in 55
OK
NEW
10 PRINT "そういや，領域確保が必要だったんだっけ・・・"
20 PRINT "どんなコマンドだっけ．もうすっかり忘れちゃったなあ．"

56 ：

>>40
10 PRINT "ｳｵ､ｳﾔﾗﾚﾀ"
20 PRINT "ﾃﾞﾅｵｼﾃｷﾏｽ"
30 GOTO 30

57 ：

=40=54
若いということは良いことだ。(^^)

58 ：

57 GOTO >>1

59 ：

BOOT
Aer you sure?(y/n) Y

60 ：

KEY 5,"new"+chr$(13)

61 ：

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 ：

100 REM >>60
110 PRINT "ﾋﾃﾞｴ(w";

63 ：

RETURN

64 ：

load "60.bas"
OK
run
OK
KEY 1,"save "+chr$(&H22)
OK
CLS 3

65 ：

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 ：

ｼﾞｮｳｷ ﾉ ﾌﾟﾛｸﾞﾗﾑ ｴﾗｰ ﾃﾞ ﾄﾏﾙ ｽﾏｿ
OK

67 ：

ﾔﾊﾘ ﾄﾏﾗｽﾞ ﾅﾆｦﾔｯﾃﾝﾀﾞ ｵﾚ

68 ：

NEW ON 1

69 ：

TRON

70 ：

MON

71 ：

ｶﾀｶﾅﾊﾅｾﾞｴﾗｰﾆﾅﾗﾅｲｶ
Ok

72 ：

100 GOSUB >>65
110 INPUT "ｲﾂｶﾗﾂｲﾀﾝﾀﾞﾛｳﾈ、ｵｾｰﾃﾖ";A$

73 ：

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 ：

　　　DO 100 I=0,0
　　　　　WRITE (*,*) '読みにきーよ'
100 CONTINUE
　　　END

75 ：

Hit Any Key!

76 ：

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 ：

100 REM うわ。せっかくインデントしたのに半角スペースが消えてるよ（;´Д｀

78 ：

>>74
これFORTRANじゃん…

79 ：

10 PRINT "MSX-BASIC ﾅﾂｶｼｲ"
20 GOTO10

80 ：

CALL FORMAT

81 ：

100 GOSUB>>73
110 PRINT"ﾖｼﾉﾔﾈﾀﾄﾞｯｶﾃﾞﾐﾀｿﾞ

82 ：

1000 PRINT"小泉孝太郎は佐藤藍子がお鍋してる時の姿
1010 PRINT"佐藤藍子は小泉孝太郎がお釜してる時の姿
1020 PRINR"だまされるなよ

83 ：

>>82
Syntax Error

84 ：

>>83
1020
?"信託す偉い人、もういない

85 ：

10 CLS:CLEAR
20 PRINT "なぜに最初にＣＬＳする奴が少ないのだ？"
30 END

86 ：

1 REM ｳｹｹ
5 CLS
10 ON STOP GOSUB 30
20 PRINT "ﾍﾍﾍ"
30 RETURN

87 ：

>>86
ﾍﾍﾍ
RETURN without GOSUB in 30

88 ：

guha---
1 REM ｳｹｹ
5 CLS
10 ON STOP GOSUB 30
20 PRINT "ﾍﾍﾍ":GOTO 20
30 RETURN

89 ：

>>88
6 PRINT ">>35 ﾃﾞ ｶﾞｲｼｭﾂ":END

90 ：

>>73
WIDTH 80,25:LOCATE 12,36:PRINT "ﾊｹﾞｼｸﾜﾗﾀ"

91 ：

ﾏﾁｶﾞｲｽﾏｿ m(__)m
WIDTH 80,25:LOCATE 35,12:PRINT "ﾊｹﾞｼｸﾜﾗﾀ"

92 ：

KEY 5,"DEFUSR=0:A=USR(0)"+CHR$(13)

93 ：

10 REM >>88
20 PRINT "ﾐﾝﾅｵﾅｼﾞｺﾄｦｶﾝｶﾞｴﾙﾉﾈ(w"

94 ：

'printするなら;をつけたほうが楽しいと思う

95 ：

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 0100read 1read

1read 100read

TOP カテ一覧 スレ一覧 削除依頼 ▲
・　次のスレ
x68の「SSS」知ってる人いませんか?ヽ(´Д`；)ﾉ
☆　激論！　Ｘ６８０００　ｖｓ　□□□□□　☆
■お前ら！実は沖電気のIF800に憧れていただろー
超漢字