TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
PC-9821は板違いだろ
PC9801RX2をよみがえらせる
三菱パソコンＭＵＬＴＩ−８
JR-100/JR-200/JR-300/JR-800総合スレ
8BIT最終型でゲーム
●こたつで　PC-9821　・・・あえてXc16M7など
Pascalのいた時代
【マルチペイント】【似非キース】
学研のＢＩＧＭＯＵＳＥを語ろう！
MS-DOS総合スレッド ２

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


1 ：01/12/28 〜 最終レス ：2019/02/10
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.sc/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 0
100 NEXT N
110 CLS:NEW
120 REM ﾔﾊﾞｲ､ｹｯｺｳﾜｽﾚﾃﾙﾖ(ｳﾂ
130 END

96 ：
100 GOSUB>>95
110 REM ｺﾚﾊﾄﾞﾉﾏｼﾝﾃﾞｼﾞｯｺｳｽﾚﾊﾞｲｲﾉﾀﾞ

97 ：
10 PRINT"YOUNG JUMP":GOTO10
20 REM ｺﾝﾅ ｲﾁｷﾞｮｳ ﾌﾟﾛｸﾞﾗﾑ ｦ
30 REM ﾔﾝｼﾞｬﾝ ﾉ ﾗﾝｶﾞｲﾆ
40 REM ﾄｳｺｳ ｼﾃ
50 REM ｹｲｻｲ ｻﾚﾀ ｺﾄｶﾞ ｱﾙﾖ

98 ：
10 GOTO>>96
20 PRINT"N BASIC　ﾐﾀｲﾀﾞﾖ"
30 PRINT"ﾀﾌﾞﾝ PC-8001 ﾃﾞｼｮｳ"
40 NEW

99 ：
100 GOSUB>>98
110 PRINT"なんでSCREENあんの

100 ：
10 DEFINT A-Z
20 ON KEY GOSUB >>99
30 ON STOP GOSUB >>98
40 GOTO >>1


100〜のスレッドの続きを読む
真・ワンボードマイコン総合スレ　第五章
●　　　　不思議の森のｱﾄﾞﾍﾞﾝﾁｬｰ　　　　●
【mz_X1】ｸﾘｰﾝVSその他【pc88】
FMシリーズを語るスレ Part 15
X68000･FM-TOWNSユーザーが仲良くするスレ
バボさんについて語るスレ
そんなふうに考えていた時期が俺にもありました
MSXが発売されなかったらこうなっていた
☆　試験に出るレトロＰＣ　☆
結局のところIBM PC以外全部負け犬だけど？
--------------------
丸山夕佳
ヘイトツイートをtwitterから追放するんだ Part15
フィッシングアパレルについて語ろうぜぇ♪２
【Switch】ファイアーエムブレム風花雪月 Part546
VSR-10,L96AWS,M40A5 45ｷﾙ目
■17インチ液晶モニター■2台目
■■「使えない大学」　特集1位に法政大学　2位が日本大学 ■■
■　天皇皇族制の完全廃止を実施せよ10
●福井・ｷﾑｻﾞﾜ・富山●駅前&市街地発展度調査12
【朗報】かみこ「アンジュルムが大好き！アンジュルムを世に広めたい！私にはアンジュルムしかないんです！！！」
ロト6 その665
てす
一色正春「私は…2010年、検察に政治が介入して被疑者を釈放させたとき、何を言っていたのかを知っています」　ネット「民主党政権下… [Felis silvestris catus★]
【厨】四季サイトをまたーりヲチ【ﾎｲﾎｲ】 Part185
【悲報】NHKが大ｽｸｰﾌﾟ！ 愛媛県が国会提出した新文書に3年前、安倍と加計の面談記録
【xtrap】不正プロテクトの回避や解析方法4【npro】
【韓国】韓国ネチズン、韓国気象庁より日本気象庁を信頼･･･アクセス殺到[08/20]
FC Twente 中村敬斗【イケメン】
結局生き残ったのはプロレスだった。
【コロナ】1月からずっと警告を発していたのは高須院長や保守系の人々。リベラル系の人々はデマだと言っていた。実はイギリスでも同じ
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼