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



行番号が何千行もあるプログラム作って(内容は適当でOK),
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

# 今日99BASICをインストールして、その勢いで、その日にタイピングゲーをつくってしまった。。。(まだ4面しかないですが)
# こんなプログラムがマジで動いてしまう99BASICはここからタダで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
とかやってたから(w



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