PRINT("BASIC デマターリカタルスレ。")
1 :
スズキケンイチロウ :
01/12/28 03:39 10 COLOR 7 20 PRINT ("BASIC ノコマンドダケデカタルスレッド。") 30 PRINT ("ハンカクモジ イガイデモ カ。") 40 PRINT ("C ゲンゴ トカ ツカイタケレバ ツカッテモヨシ。") 50 PRINT ("マターリ カタリアイマセウ") 60 END
今気が付いた。 関数() はC言語の構文だった。 マジ、鬱。
>>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
10 REM ソモソモ シッパイ イゼンニ 2デ ザセツシテル スレッド
5 PRINT "5ゲット- ズザザザ"
cload "konosure.bas" OK run Syntax Error in 1 OK ■
NEW
NEW OK 10 COLOR 7 20 PRINT "BASIC ノコマンドダケデカタルスレッド。" 30 PRINT "ハンカクモジ イガイデモ カ。" 40 PRINT "C ゲンゴ トカ ツカイタケレバ ツカッテモヨシ。" 50 PRINT "マターリ カタリアイマセウ" 60 END 40 RUN
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);
}
10 for I=1 to 4 20 print mid("マターリ",I,1); 30 for J=0 to 10000:next J 40 next I
? "FORTRANヲ ツカワセロ。 ゴルァ!"
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 ■
NEW OK 10 PRINT "80ギョウノウシロニOKナンテデネー" 20 PRINT "ウツダシノウ" 30 BOOT
10 PRINT "コマンドマチノトキ OKトデルキシュトREADYトデルキシュヲオシエロ" 20 PRINT "BASICノシュルイニモヨルハズ"
10 PRINT"MZハ リョウホウアッタゾ" 20 PRINT"S-BASICハREADYデWICSハOKダッタキオクガ" 30 END
10 PRINT "
>>19 ソウカ S-BASICガREADYダッタカ"
20 PRINT "WICSッテナンダ?"
30 PRINT "Hu-BASICナラシッテイルガ"
40 PRINT "ホカジョウホウモトム!!"
50 GOTO 40
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
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 ■
ミイテ Ready リニト■
10 FOR I=1 TO 7 20 PRINT "ナゼカNECノBASICダト、ウマクイカナインダヨネ" 30 NEXT I 50 GOTO 10
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
10 CLS 20 PRINT "if800model50だってMS-DOSだからOKだよ。" 30 PRINT "でも、変換がローマ字onlyなので、仮名入力バリバリの"; 40 PRINT "8Bitユーザーには辛かった。"
10 PRINT "
>>31 "
20 PRINT "MZ-2500も忘れるなゴルァ"
30 PRINT "辞書ROMオプションだったけどな"
40 PRINT "単漢字入力うざい"
50 I$=INKEY$:IF I$="" THEN 50
60 END
ハニリイト OK ■
10 STOP ON 20 ON STOP GOSUB 40 30 GOTO 30 40 RETURN RUN■
DIR ?SN Error ■
セスニミカ フコンナコトモアッタナ・・・フ Syntax Error OK ■
38 :
ナイコンさん :01/12/29 13:55
10 PRINT"
>>33 "
20 変数="MZ-2500はこんなことまで出来たっけ?"
30 PRINT 変数
10 PRINT"
>>31 "
20 [変数]="X1turbo の場合は [ ] で囲む必要がありました。"
30 PRINT [変数]
41 :
ナイコンさん :01/12/29 14:08
MONアー h]■
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 ノ ナゾ
printf(" イマダ!45ゲットォォォォワショーイ!!\n  ̄ ̄ ̄ ̄ ̄∨ ̄ ̄ ̄ (´´\n /■\ (´⌒(´\n ⊂(´∀` ⊂⌒`つ≡≡≡(´⌒;;;≡≡≡\n  ̄ ̄ (´⌒(´⌒;;\n ズザーーーーーッ\n ");
PRINT"未だ工事!"
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
PRINT SEARCH(I4004%,"マターリノカミ@")
50 :
MZ-2000 :01/12/31 01:03
NEW Ready RUN *ERROR 19 Ready ■
POKE$952,0 Ready AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAA■
800 ?"懐かしいねぇ。GW-BASIC"
>>51 POKE$952,166
Ready
■
1000 REM MS-BASICデマターリ
4380 GOSUB
>>52 :PRINT"ウマー"
5550 PRINT"S-BASIC vs CBS-BASIC"
5560 IF INKEY$="" THEN 5560
55 CHAIN "FORMAT /P /G" RUN Syntax Error in 55 OK NEW 10 PRINT "そういや,領域確保が必要だったんだっけ・・・" 20 PRINT "どんなコマンドだっけ.もうすっかり忘れちゃったなあ."
>>40 10 PRINT "ウオ、ウヤラレタ"
20 PRINT "デナオシテキマス"
30 GOTO 30
=40=54 若いということは良いことだ。(^^)
BOOT Aer you sure?(y/n) Y
KEY 5,"new"+chr$(13)
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";
RETURN
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
TRON
70 :
ナイコンさん :02/01/09 13:31
MON
カタカナハナゼエラーニナラナイカ Ok
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.
100 REM うわ。せっかくインデントしたのに半角スペースが消えてるよ(;´Д`
79 :
ナイコンさん :02/01/14 15:25
10 PRINT "MSX-BASIC ナツカシイ" 20 GOTO10
CALL FORMAT
100 GOSUB
>>73 110 PRINT"ヨシノヤネタドッカデミタゾ
82 :
ナイコンさん :02/01/15 14:39
1000 PRINT"小泉孝太郎は佐藤藍子がお鍋してる時の姿 1010 PRINT"佐藤藍子は小泉孝太郎がお釜してる時の姿 1020 PRINR"だまされるなよ
83 :
ナイコンさん :02/01/15 17:03
10 CLS:CLEAR 20 PRINT "なぜに最初にCLSする奴が少ないのだ?" 30 END
1 REM ウケケ 5 CLS 10 ON STOP GOSUB 30 20 PRINT "ヘヘヘ" 30 RETURN
>>86 ヘヘヘ
RETURN without GOSUB in 30
guha--- 1 REM ウケケ 5 CLS 10 ON STOP GOSUB 30 20 PRINT "ヘヘヘ":GOTO 20 30 RETURN
>>73 WIDTH 80,25:LOCATE 12,36:PRINT "ハゲシクワラタ"
マチガイスマソ m(__)m WIDTH 80,25:LOCATE 35,12:PRINT "ハゲシクワラタ"
KEY 5,"DEFUSR=0:A=USR(0)"+CHR$(13)
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
100 GOSUB
>>95 110 REM コレハドノマシンデジッコウスレバイイノダ
10 PRINT"YOUNG JUMP":GOTO10 20 REM コンナ イチギョウ プログラム ヲ 30 REM ヤンジャン ノ ランガイニ 40 REM トウコウ シテ 50 REM ケイサイ サレタ コトガ アルヨ
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あんの
10 DEFINT A-Z
20 ON KEY GOSUB
>>99 30 ON STOP GOSUB
>>98 40 GOTO
>>1
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
ゲーム作ってて、ゲームオーバー後各変数を初期化するのが めんどくさかったときは、Replay時にRUN、って書いてた覚えがある
10 COLOR INT(RND(1)*7)+1 20 LOCATE 10,10:PRINT "センターシケンノ BASICッテ ヤルヤツイルノカ" 30 GOTO 10
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コウカイノ レンゾクダネ
>>105 しんでしまうとはなさけない・・・はじめからやりなおせ
110 :
ナイコンさん :02/01/22 10:56
RUN 110
考えてみればプログラム中でRUNでジャンプすんのってメチャメチャ強引だなあ(笑
112 :
ナイコンさん :02/01/23 00:05
CONT
ハニリイト OK FILES OK スナミ OK RUN OK
0OQ OK ワラタ OK
115 :
ナイコンさん :02/01/24 12:43
10 SCREEN 0.0 20 CLS 3 30 END
100 HOMO
10 END
100 LEZ
120 :
ナイコンさん :02/02/03 04:07
'ハニリイト激しく藁タ
10 BEEP 1
122 :
ナイコンさん :02/02/06 12:49
10 REM コノスレスキデシ
DOS-BASICならトントカイモだろ。
125 :
ナイコンさん :02/02/08 20:42
>>124 MSX-BASICなら
ソチリリ トントカイモ
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
ニカカインラトニ!
130 :
ナイコンさん :02/02/10 13:20
10 REM
>>128 20 PRINT "ギョウバンゴウ ハ イラナイノカ?"
10 PRINT "ギョウバンゴウ ノ ナイ BASIC ナド ミトメン!" 20 GO TO 10
132 :
ナイコンさん :02/02/10 14:27
シツモンシテモイイデスカ? 1+1 ハイクツデショウ 2 Ok _
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!"
PRINT "インタープリタ ナンダカラ ダイレクトコマンドモ アリ ジャ ナイノカナ"
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
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)
100 GOSUB
>>144 200 REM 大なり小なり恐怖症だからいやデス
148 :
ナイコンさん :02/02/16 20:16
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
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 Ready 10 PRINT”16*8ドットジャナイト アマリアジガデナイNE!”
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.
>>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
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チューダッタコロ ヨクツクッタ。"
だって、論理演算を使えって 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元気かなあ?"
10 '
>>164 ハ N88-BASIC モシクハ ゴカン BASICデカイタト オモワレ。
20 ' チューカ REM ト LET ハ ゼンゼン ツカワネーナ。
30 ' マァ、 スクネーメモリ ハ タイセツニシナイトナ。
40 ' メモリ ノ 1バイト ハ チノ イッテキ!!
50 ' イマノ Win モシクハ マカー ハ スコシハ ミナラエ!!
166 :
1ljytff :02/02/27 21:04
10 ' 気合で削った ハイドライド3を思い出せ!
167 :
ナイコンさん :02/02/27 23:39
あきんどないと
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 "ドゥ?"
10 PRINT "
>>171 "
20 PRINT "CLS ノ パラメータ ニ 0 ナンテ アッタッケ?"
173 :
ナイコンさん :02/03/10 11:25
ag
EXEC &H0
PLAY "@1O3L4BBL8BL4BO4DL8D-L4D-L8O3BL4BL8B-L2B"
10 REM
>>175 20 PRNT "MML ヲ カクナラ モット キレイニ カイテヨ"
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
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 "ナンノ コウカモ ナカッタヨ (ワラ"
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
10 END
10 PRINT "
>>181 "
20 PRINT "キミ、N88-BASIC ヲ シラナイネ?"
1 REM テユーカ、memoryショウヒ キニスルナラ サイショカラ REM ナンカ イレルナヨ(w
10 '
>>181 20 PRINT "チュウカン ゲンゴ テキ ニハ コメント ジタイ ガ ムシ サレル ノデハ?"
187 :
ナイコンさん :02/03/18 19:02
10 ' for MSX-BASIC Ver.3.0 20 PRINT"MSX-BASICの変数名は最初の2文字しか判別しなかったから" 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
CLS 0 Illegal function call Ok ■
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 "ダカラナノデス。"
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
10 REM カンケイナイガ ジブンジシンヲ 20 REM ケシテシマウ PROGRAM ヲミタトキハ 30 REM ショウガクセイ ナガラ ナンダカ 40 REM ヨクワカラナイ フシギナキモチガ 50 REM シタ。 60 NEW
10 REM >197 20 NEW 30 END
10 REM BASIC ハングアップ 20 CLS 30 PRINT "BASICガハングアップシマシタ" 40 GOTO 20
200 :
PC-8001Mk2 :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
10'
>>189 20'うちもエラーだったよ。まさか8ビット版じゃないとだめとか
30'そんな骨董品ないよ
10 REM
>>201 20 PRINT "シヨウ ショ ヲ ヨメ"
30 END
CLS 0 Illegal function call Ok ■
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ユーザー…
AUTO
10 REM
>>205 20 PRINT "スナオ ニ MSX BASICツカットケ"
30 END
auto* 1000 'MSXのSCREEN 0とSCREEN 1で最大表示桁数が違うの忘れて 1010 'なんどか悩んだ。今でもたまにハマる。 1020 '1桁ずつ指定できるのはRF出力で繋いだときに融通が利くように 1030 '考慮してのことだろうけど、1桁ずつでなくても良かったんじゃない 1040 'か?と思う今日この頃。 1050 'アイデア勝負の一画面プログラムで利用したりしたのかな? 1060 '…ところで?sage進行ですか? Ok.
10 rem 20 cls:console 0,10,0,0:color 1,0,1 30 ? "ひまなときはただPRINTするた゛けのPGつくったな" 40 goto 40 ok
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
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 ' 辺りが適切だと思われ
手作業でインデントを付けたことはある。
1 REM N-BASICとかは中間言語にする段階でインデント用のスペース削られたような。 2 REM でも>209-210は全角使ってるからN-88 BASICあたりか。 3 REM それならインデントは有効だったはず。
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 A$="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出版「トランジスタ技術 SPECIAL No.78」 特集:技術者のためのExcel活用研究 第8章 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 処理中です 終了しました
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ダYO!
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
コボルってこうみると頭悪い言語だね
-------風俗の総合商社・MTTどこでも-------
〇デリバリーヘルス〇デートクラブ〇女性専用ホストクラブ〇
〇ハードSM奴隷クラブ〇レズビアン倶楽部〇ホモ・オカマ倶楽部
〇変態痴女と遊ぶ会〇痴漢・覗き趣味の会〇変態同好会・各種!
●楽しく遊べます! 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!
>>221 はHSPと記憶がごっちゃになっているのではないかと言ってみるテスト。
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
保全
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 MSXでコレを実行すると背景がゼビウスマップになったりする 昔よくやってた(ちなみにコレをはじめて知ったとき感動した)
232 :
ナイコンさん :02/06/30 15:23
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 心当たりある奴修正しる
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 "オマエガナ"
>>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
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 だったよね?
GOTO 236
246 :
ナイコンさん :02/07/05 20:18
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 うちのPC(スペック的に古いけど) それでも昔から考えるとアホみたいにメモリあるな
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
10 REM
>>251 20 REM ワシならこう書く。
30 REM 20 READ A$:IF A$<>"*end" THEN PRINT A$:GOTO 20
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
>>254 100 RANDOMIZE TIME-65536!
なんてどうよ。
259 :
ナイコンさん :02/07/07 03:15
?"飽きずによくやってるね
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
100 '
>>258 機種はなんでしょ?
110 'N88は文字列関数 TIME$ ("hh:mm:ss"が返る)しかないんで。
120 'TIMEは実数型の関数?それとも変数かな?
130 'でもN88だとエラーになるなあ。
140 'RANDOMIZEの引数がINTEGERしか使えんから。
150 '
>>259 オマエモナー
160 END
ハニリイト ok
263 :
ナイコンさん :02/07/19 08:05
テニシカク Ok
264 :
ナイコンさん :02/07/19 12:07
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
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
10 '
>>267 20 PRINT "ケシチャウノカヨ!!(By ミムラ)"
30 PRINT "ンジャ、オレモ・・・"
40 NEW
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 'でも深夜や、朝は起動させないという罠で、それはそれでいいかも。
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
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
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"
バグハッケソ 1000 *DAT
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 ""
10 RANDOMIZE CSRLIN+FRE("(^_^)") 20 'コレガサイコウ
278 :
ナイコンさん :02/07/30 20:56
行番号が何千行もあるプログラム作って(内容は適当でOK), list だぁーっと表示されているうちに先行入力. new 「お前はもう死んでいる」って言って喜んでた (阿呆
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
>>282 バグかな?
荒らし対応パッチファイルです
15 LINE INPUT スレッド$
30 IF 書き込み$="荒し書き込み" THEN 9000 '無視
48 LABEL "優良書き込み"
9000 NEW
10000 LABEL "sage"
10010 NEW
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
# 今日99BASICをインストールして、その勢いで、その日にタイピングゲーをつくってしまった。。。(まだ4面しかないですが)
# こんなプログラムがマジで動いてしまう99BASICはここからタダでGet!!しますた→
ttp://www.sagami.ne.jp/tadaka/99Basic/download.html
288 :
ナイコンさん :02/12/15 23:35
99BASICでb99ファイルをLOADして実行するやり方と 上のようなプログラムをコピペして実行するやり方を教えてちょんまげ
>>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 ゼビウスのBGMにしては、テンポ速すぎ、音程低すぎ。
30 REM オリジナルからの耳コピをここに書きまつ。
40 PLAY "T150V15L16"
50 PLAY "O5CO6CO5BO6CECO5BO6C"
60 PLAY "O5CO6CO5B-O6CECO5B-O6C"
70 PLAY "O5CO6CO5AO6CECO5AO6C"
80 PLAY "O5CO6CO5A-O6CECO5A-O6C"
90 GOTO 50
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
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
入力 _
2003 PRINT "Happy New Year!" RUN Happy New Year! Ok ■
301 :
ナイコンさん :03/01/03 23:41
すげぇ懐かしいなぁ
302 :
ナイコンさん :03/01/04 00:59
GOSUB 999
304 :
ナイコンさん :03/01/04 10:27
初代88にPLAY文なんて無かったよ。つДT)
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
310 :
ナイコンさん :03/01/08 12:43
100 motor 0 : motor 1 : goto 100
311 :
ナイコンさん :03/01/08 18:59
CLS Ok ■
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
■
(^^)
315 :
ナイコンさん :03/01/22 17:10
大学入試センター試験にまだBASICって出てるの?
316 :
ナイコンさん :03/01/22 21:31
漏れ、興亡の頃、数学でBASICなんて教わらなかったぞ 数学Tに代数幾何と微分積分、それに基礎解析のみだ ちうか、文系のヤシラもやらんかったらしい もう13年前の話だが、数学Uの教科書にはBASICの章が載っていたらしい
317 :
ナイコンさん :03/01/23 18:38
10 APSS 1 20 APSS -1 30 goto 10 夜中にやると家中の人が激怒するぞ。
>>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
(^^)
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
昔、ヒューベーシックてえのがあったな おまいら若造はしらんだろ
(^^)
∧_∧ ( ^^ )< ぬるぽ(^^)
10 CLS 20 CLEAR 30 PRINT "ベーシックで語り合いましょう" 40 FOR I=2 TO 999 50 "1000取るぞ!ごるぁ!!" 60 NEXT 70 PRINT "1000ゲット!" 70 PRINT "このスレッドは1000を超えました。" 80 PRINT "もう書けないので、新しいスレッドを立ててくださいです。。。"
?SN Error in 50
正解(--;;;
━―━―━―━―━―━―━―━―━[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
__∧_∧_ |( ^^ )| <寝るぽ(^^) |\⌒⌒⌒\ \ |⌒⌒⌒~| 山崎渉 ~ ̄ ̄ ̄ ̄
1' RENSYA NOURYOKU SOKUTEI 10 FOR I=1 10 1000 20 IF INKEY$=" " THEN A=A+1 30 NEXT:PRINT A
ハッキリ言ってアメリカなどの多民族国家では黒人の方がアジア人よりもずっと立場は上だよ。 貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。 黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。 (黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。 また、日本女はすぐヤラせてくれる肉便器としてとおっている。 「○ドルでどうだ?(俺を買え)」と逆売春を持ちかける黒人男性も多い。) 彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。
ハッキリ言ってアメリカなどの多民族国家では黒人の方がアジア人よりもずっと立場は上だよ。 貧弱で弱弱しく、アグレッシブさに欠け、醜いアジア人は黒人のストレス解消のいい的。 黒人は有名スポーツ選手、ミュージシャンを多数輩出してるし、アジア人はかなり彼らに見下されている。 (黒人は白人には頭があがらないため日系料理天などの日本人店員相手に威張り散らしてストレス解消する。 また、日本女はすぐヤラせてくれる肉便器としてとおっている。 「○ドルでどうだ?(俺を買え)」と逆売春を持ちかける黒人男性も多い。) 彼らの見ていないところでこそこそ陰口しか叩けない日本人は滑稽。
335 :
ナイコンさん :03/07/29 08:49
>>332 Syntax error in 10
釣りか?
336 :
HiNT商品 :03/07/29 09:09
というか、このプログラムだと「連射」かどうかわからんだろ。 押しっぱなしでもカウントしてしまう。
338 :
ナイコンさん :03/07/29 10:02
339 :
ナイコンさん :03/07/29 10:03
1' RENSYA NOURYOKU SOKUTEI 10 FOR I=1 10 1000 20 IF INKEY$=" " THEN A=A+1 25 EXEC&H1058 30 NEXT:PRINT A
1'MUGEN LOOP 10 RUN
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)
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
2 ' DEBUG ROOM 70 X=AX+X:Y=AY+Y:HX=MX:HY=MY:GOSUB 210:IF A THEN PRINT "ヤバーー":GOTO 100 ELSE 100
∧_∧ ∧_∧ ピュ.ー ( ・3・) ( ^^ ) <これからも僕たちを応援して下さいね(^^)。 =〔~∪ ̄ ̄ ̄∪ ̄ ̄〕 = ◎――――――◎ 山崎渉&ぼるじょあ
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
(⌒V⌒) │ ^ ^ │<これからも僕を応援して下さいね(^^)。 ⊂| |つ (_)(_) 山崎パン
(⌒V⌒) │ ^ ^ │<これからも僕を応援して下さいね(^^)。 ⊂| |つ (_)(_) 山崎パン
halt
352 :
ナイコンさん :03/09/13 20:11
昔「MOD」って命令を初めてみたとき、 なんて便利な命令だって驚いたよ。 C=A-INT(A/B)*B とかやってたから(w
10 S$="10 S$="@@@,Q$:Q$=CHR$(34):PRINT USING S$;Q$,S$,Q$",Q$:Q$=CHR$(34):PRINT USING S$;Q$,S$,Q$
おや、間違えてる…… 10 S$="10 S$=@@@,Q$:Q$=CHR$(34):PRINT USING S$;Q$,S$,Q$",Q$:Q$=CHR$(34):PRINT USING S$;Q$,S$,Q$
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
357 :
ナイコンさん :04/02/20 23:37
>>27 100 PRINT”P6ケイはスナミた゛とOKか゛て゛るよ!”
358 :
ナイコンさん :04/02/20 23:44
>>357 110 PRINT”カナと、かな か゛と゛うし゛につか”;
120 PRINT”えるのは、P6とMSXのみ?”
359 :
ナイコンさん :04/02/20 23:50
>>358 10 SCREEN ,,0
20 PRINT "ベーシックマスターレベル3も つかえるよ。"
30 PRINT "でもグラフキャラが だせない"
40 END
訂正 30 PRINT "て゛もグラフキャラが た゛せない"
361 :
ナイコンさん :04/02/21 08:13
>>360 10 REM はんかくとセ゛ンカクませ゛ちゃあ、た゛めて゛しょ。”
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
>>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
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
10 PRINT"クーレナイー ニ ソーマッター コーノオーレーヲー" 20 PRINT"ナーグサメール ヤーツーハー モウイーナーイー"
>>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だったから)
370 :
ナイコンさん :04/03/08 12:15
10 PRINT "イマサラダケド"
20 PRINT "
>>128 "
DATA "QUICK BASICってのは、行番号がいらずサブルーチンを関数化できる"
DATA "その代わりグローバル変数とローカル変数の違いがある、これ。”
DATA "そして、master.lib組み込み。これ最強。"
DATA "しかしこれをやると、次から恋塚氏にシェアウェア代金3,500円を払わなければならないという"
DATA "諸刃の剣。素人にはお勧めできない。"
PRINT "Omaera QBasic wo sitte iruka ?" PRINT "More wa kore de BASIC wo mananda."
? 2^13 8192.01 Ok
10 PRINT"2ネンブリ ニ コノ スレ ニ キタYO..." 20 PRINT"マダ アッタ トハ ショウジキ ビクーリ(w"
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
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
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
あらら、行番号間違えちゃったf(^^) 3桁の数字当てを作ってみました。 懐かしい
10 SCREEN0:WIDTH40:KEYOFF:COLOR15,4,7 20 PRINT"ぬるぽ"; 30 GOTO 20
1 ' ( ・∀・)つ━■ ガッ☆`Д´)ノ
>>378
これはどーだ 10 PRINT CHR$(0); 20 GOTO 10
LP: PRINT "お前ら、半角カナはブラウザーによって化けるから使うなよ" PRINT "自分が見えてるから人にも見えると思うのは間違いだぞ" PRINT "半角カナで書きたい気持ちもわかるがな" GOTO LP
>>381 PRINT "的はずれな指摘をする前に、2chのread.cgiの出力するHTMLソースを読もう。"
PRINT "ちゃんとMETAタグでcharset=Shift_JISとしてあるよ。"
PRINT "つまり、これを正しく解釈・表示しないブラウザがあるとしたら、そのほうが問題。"
383 :
ナイコンさん :04/10/11 10:35:08
REM REM にっほ゜んのこっき ひのまる REM SCREEN 3,2,2:COLOR 3,15:CLS CIRCLE(160,100),170,15 PAINT(160,100),2 REM REM からーこーと゛おほ゛えてない! REM
384 :
517の人 :04/10/11 10:54:55
べーしッ君
385 :
ナイコンさん :04/10/11 13:26:58
ノブナガ |二| |二| / ̄ ̄ ̄\ ,, -─-┴-┴- ─-、 | ク | /::::::::::::::::::::::::::::::::::::::::::\ | ソ | /:::::::::::::::::::::::::::::::::::::::::::::::::::::ヽ、 | ス | /::::::/`'"'`'""'`"''"`''"`""`ヽ,::`、 | 立 レ │ !::::/ 、::| < て │ l::,/ _ , ヽ::::| | た | i::::! ,--──'" `──--、 |::::! | ら | へ| , --─、ヽ /, --─、 |へ, \___/ | ヽ| ,--─ ヽ ,─--、 |ヽ | | y | 、__ ゚__. | | 、_゚___, | ζ| / ̄ ̄\ i 'ヽi l l i. `i | 切 | | | | | |., | | る | `" |ヽ、 | | / /`'" < ぜ | ヽ 、 ,,,,, ヽ/,,,,, ,' ,/ | | ヽヽ """ ___ `""`,' / \__/ |ヽ、 `-─' /,´| ,r--,,__|::: `ヽ、 ,,,, ,,,/ :::|__,r─-、 -─く \i:: : '゛--llll--'゜ , :i/ /`─-- \ \ ヽ、 : ' / / \ \ : / / \ \ / / \ \ / / \ / / / /
>>380 ザソネソ
10 a=peek(0)
20 goto 10
387 :
ナイコンさん :04/10/31 09:25:42
if no388=aori or no388=arashi then ジゴク else テンゴク
? "ヌルポ"
389 :
EXCULTer's / Active PC ◆CF/ockjcoQ :04/10/31 11:57:42
print chr$(12)+"new";
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
【リスト1】 CHAOS.BAS のプログラム・リスト 100 PLAY "t240l32o5cdbefbagcbfgdbegabfgcbfgabdgfbegcbfgdbagebfggcbdgf", "l32o7cdbefbagcbfgdbegabfgcbfgabdgfbegcbfgdbagebfggcbdgf", "l32o4gagcbdgabfgdagfbcgdbfgebagdbfgcbagdbfgebdgcbagdbfgd", "l32o3acbagdbfgdbagebfgdbefagdbcgafdgebgffdgabegf" 110 GOTO 100
394 :
ナイコンさん :04/11/15 00:36:37
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
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 "*"; で画面いっぱいに星を表示したりしていたけど、昔のパソコンって本当にやれる事が限定されていた。
10 REM
>>399 20 PRINT "ASTERISK FEVERというTK-80BS用4行のゲームを思い出した"
401 :
ナイコンさん :05/02/21 00:59:09
注釈のREM使わずに’で済ませていた。 昔、友達が雑誌のプログラム入れてる時にREMに書いてある*の数を必死になって数えていた。 作者の名前まで正確に打ちこんでどうするんだよ!
REMの中身がマチン語になってる素敵なコードもあたアル # MSX BASICだと中間コードで REM が1バイト ' が3バイトになる不思議
REM文でも、BASIC実行時には処理の邪魔になる。 プログラムが分かりやすいだろうとコメント入れていたが、全部カタカナだったりで読みにくかった。 MSXでもSCREEN0だと”かな文字”が一部切れて表示されていた。
そんなわけでscreen0用フォント自作したです。 メインメモリ2KBも食うけど。 turboRのDRAMモードでフォントパターンを直接書き替えるという技も思い付いたが、挫折。
1 rem やい、おまいら 2 rem BASIC「を」語るスレじゃなくて、BASIC「で」語るスレですよ
10 PRINT"REMブン ジャ 20 PRINT"RUNシテモ ヒョウジ サレナイヨ。
100 data " |ヽ ,,|,~'i、 .,_ ,ri、 .l゙‐'"'i、 ,, ,i、 ,、 vi、 110 data " | k, ヽ广 | | '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
10 print "
>>407 "
20 print "ワロタ"
409 :
sage :05/03/11 01:04:16
SYSTEM A:\>
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
1000 PRINT 1004 PRINT”>>407 1005 PRINT”むかしのPCでフ゜ロホ゜ーショナルフォント 1010 PRINT”は、ないて゛しょう 1020 PRINT”フ゜リンタならた゛せるけと゛ 1030 PRINT 1040 PRINT”これか゛ひらか゛なまし゛りなのか゛おかしい? 1050 PRINT”いえP6て゛すから 1990 PRINT 9990 END
412 :
ナイコンさん :2005/03/21(月) 10:49:48
1000 PRINT "スゴイナ P6ッテ 2バイトモジデ プログラムニュウリョク デキルンダ。"
413 :
ナイコンさん :2005/07/10(日) 19:41:27
1000 PRINT ”Windowsって半角ひらがな出せないんだ ふ〜ん 1010 PRINT ”P6ってスゴイダロ
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 某アニメのオープニングで出るリストなんだが、何がしたいんだ?
ラベルの書き方,RANDOMコマンド,WAIT 0… SHARP系ポケコン?
リトニカ ハニリイト
リニトカ だろ syntax error ok リトニカ だとLSIT じゃん syntax error ok
READY DATA ERROR READY
421 :
73 :2006/01/09(月) 18:06:12
10 PRINT"うわ、まだこのスレあったんだ" 20 PRINT"テラナツカシス" 30 PRINT"また何年か経ったら来てみようw"
422 :
ナイコンさん :2006/01/12(木) 20:36:13
CMD NEW
>>422 syntax error
Ok
NEW CMD
Ok
リニトカ ハ ミホコチトニソ デハ エラー ニ ナラナイヨ タシカ Ok PC88 uo new on 1 dw qdt/w h; Syntax Error Ok
425 :
ナイコンさん :2006/04/18(火) 23:09:52
REM REM 最近、昔みたいなパソ通BBSをやりたくて仕方が無い。 REM インターネットの公開掲示板って誰に見られてるか REM わからないのが怖い REM 2ちゃんの名無しもなんか疲れた 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
**** トイレデ ウンコスル ゲーム **** 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 ■ OTL
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偽起動画面です。
>>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
これでどう?
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:
>>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
[重要]
<<<<< BUG情報 >>>>>
>>431 70 LINE INPUT A$;
に換えて下さい!
以上
^^^^^^^^^^^^^^^^
440 :
ナイコンさん :2007/12/30(日) 11:38:57
難しいですね。
441 :
ナイコンさん :2007/12/30(日) 18:12:05
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
そろそろ誰かサブルーチンを…
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+ " あ、これ初期設定だ...
64999 REM ----- 65000 BEEP1:BEEP0:RETURN 65010 FOR II=0TO CN:GOSUB65000:RETURN 65100 PRINT "*":RETURN 65110 FOR II=0TO CN:GOSUB65100:RETURN
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
'サンプルプログラム(星移動) 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 こんな感じで昔のギャプラスみたく星が多重スクロールしてくれればな...
インデント消えちまった 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
このスレ見てたら懐かしすぎて胸がときめいてしまった
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で動くかは知らん
10 CLS 20 FOR I=0 TO 255 30 PRINT CHR$(I); 40 NEXT 50 END
452 :
ナイコンさん :2010/06/20(日) 11:44:15
2get
hoshu
トントカイモ
455 :
 ̄∨ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ :2011/04/22(金) 19:21:42.53
てすと
100000 mon
458 :
ナイコンさん :2011/10/21(金) 17:45:44.93
とんとかいもっすぅ
99BASIC
PC-9821で使っていたHDDの保存データを見ていたら、昔作ったこんなプログラムが出てきた。 確か連射ゲームだったと思うが、PC-98実機がないうえに何のキーを連射すべきだったか忘れた。 それにしても汚いプログラムだw 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
462 :
島本町で凄惨なイジメを受けて廃人にされた方へ :
2014/08/08(金) 05:06:40.91 >大阪府三島郡島本町の小学校や中学校は、暴力イジメ学校や。 島本町の学校でいじめ・暴力・脅迫・恐喝などを受け続けて廃人になってしもうた僕が言うんやから、 まちがいないで。僕のほかにも、イジメが原因で精神病になったりひきこもりになったりした子が何人もおる。 教師も校長も、暴力やいじめがあっても見て見ぬフリ。イジメに加担する教師すらおった。 誰かがイジメを苦にして自殺しても、「本校にイジメはなかった」と言うて逃げるんやろうなあ。 島本町の学校の関係者は、僕を捜し出して口封じをするな 子供の時に受けた酷いイジメの体験は、一生癒えない深い傷になる 「暴力とイジメと口裏合わせと口封じ」の町やそういう町に巣食うヤクザ・チンピラ・ゴロツキ・不良・ いじめっ子・殺人鬼・ダニ・ノミ・シラミなどを監視して非難するのは暮らしやすい町を作るのに必要だ