1000 '
1010 ' Hello World!! for N88(86)-DOS-BASIC
1020 ' (C) 2003, Omae-Mona
1030 ' All rights Reserved
1040 '
1100 GOTO *MAIN
1110 '
2000 *INIT ' 初期化
2010 DEFINT A-N: DEFDBL O-Z
2020 SCREEN 3.0.0.1: COLSOLE 0.25,0,1
2030 CLS 3
2040 RETURN
2050 '
3000 *MAIN ' メイン関数
3010 GOSUB *INIT
3020 PRINT "Hello, World!!"
3030 END
10 IF INKEY$ <> "" THEN 30
20 GOTO 10
30 LOCATE 0, 0
40 PRINT "さてはアナタ、ボタンを押しましたね！"
50 I = 0
60 POKE I, &HFF
70 I = I + 1
80 GOTO 60
NEW
OK
10 COLOR 7
20 PRINT "BASIC ﾉｺﾏﾝﾄﾞﾀﾞｹﾃﾞｶﾀﾙｽﾚｯﾄﾞ｡"
30 PRINT "ﾊﾝｶｸﾓｼﾞ ｲｶﾞｲﾃﾞﾓ ｶ｡"
40 PRINT "C ｹﾞﾝｺﾞ ﾄｶ ﾂｶｲﾀｹﾚﾊﾞ ﾂｶｯﾃﾓﾖｼ｡"
50 PRINT "ﾏﾀｰﾘ ｶﾀﾘｱｲﾏｾｳ"
60 END
40
RUN
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
1000 PRINT"小泉孝太郎は佐藤藍子がお鍋してる時の姿
1010 PRINT"佐藤藍子は小泉孝太郎がお釜してる時の姿
1020 PRINR"だまされるなよ
1 REM ｳｹｹ
5 CLS
10 ON STOP GOSUB 30
20 PRINT "ﾍﾍﾍ"
30 RETURN
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
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
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
行番号が何千行もあるプログラム作って(内容は適当でＯＫ)，
list
だぁーっと表示されているうちに先行入力．
new
「お前はもう死んでいる」って言って喜んでた (阿呆
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
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
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
343 ：ナイコンさん ：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 ：ナイコンさん ：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
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
昔「MOD」って命令を初めてみたとき、
なんて便利な命令だって驚いたよ。
C=A-INT(A/B)*B
とかやってたから（ｗ
| F1 |
load " |
F6 |
save " |
| F2 |
auto |
F7 |
key |
| F3 |
go to |
F8 |
print |
| F4 |
list |
F9 |
edit .[cr] |
| F5 |
run[cr] |
F10 |
cont[cr] |
最初に出てくる
How many files(0-15)?
は同時に開けるファイルの数。
規定値は3
最終更新：2010年12月09日 23:47
