MSX-BASICの奥義を伝授するスレ

1 名前：デフォルトの名無しさん [01/11/25 02:53] 忘れない内に皆に伝授しときましょう。 ・多色刷り、 ・ドット単位横スクロール、 ・エスケープシークエンス・・・ 色々ありましたよね。 思い出したらなんでも書き込みよろしく。 30 名前：デフォルトの名無しさん [01/11/26 17:54] >>27-29 配列使った方が読みやすいしスピードが少しはあがるんじゃない？ なんでみんなこの方法を使ったんだろ。 31 名前：デフォルトの名無しさん mailto:sage [01/11/26 18:05] >>30 配列つかうと行数とメモリ使用量増えるから 32 名前：デフォルトの名無しさん mailto:sage [01/11/26 18:35] １画面プログラムとか向けの手法だな＞論理式 33 名前：デフォルトの名無しさん mailto:sage [01/11/26 20:40] >>31 なんとなくかっこいいからという理由もあったかも。 34 名前：デフォルトの名無しさん mailto:sage [01/11/27 01:58] 行番号０の行を作る ↓ LISTで表示 ↓ 表示された0行にカーソル移動 ↓ RETURNキー押す ↓ もう一度LIST ↓ 行番号直後の空白が１つ増える ↓ （゜д゜）ﾊﾞｸﾞｰ 35 名前：1 [01/11/27 05:17] というワケで（？）、簡単にスカッシュを作ってみました（ｗ （所要時間４０分） 10 SCREEN1,0,0:WIDTH32:KEYOFF:COLOR1,14,1 20 X=112:BX=112:BY=4:MX=2:MY=2:SC=0 40 FOR J=0 TO 23:PRINT"########## ##########";:NEXT J 60 SPRITE$(0)="����" 70 SPRITE$(2)="ﾀﾀ" 80 REM =========ball move===== 90 BX=BX+MX:BY=BY+MY 100 MX=MX*((BX=78)*2+1)*((BX=174)*2+1) 110 PUTSPRITE2,(BX,BY),1 120 REM =======key input======== 130 T=STRIG(0) 140 X=X-(T=0)*(X>78)+(T=-1)*(X<166) 150 PUTSPRITE0,(X,160),1 160 REM =======judge========= 170 IF BY=158 AND BX>X-1 AND BX<X+9 THEN MY=-2:SC=SC+1 180 IF BY=170 THEN 220 190 IF BY=2 THEN MY=2 200 GOTO 90 210 REM ===========game over======= 220 PRINT"SCORE=";SC*10:FOR I=0 TO 500:NEXT 230 FOR I=0 TO 1:I=-STRIG(0):NEXT I:GOTO 10  Ruでのみ動作確認してます。 （まぁ、動作確認とるまでもないショボプログラムだがｗ） ちなみに最後の　までを含めたリストをメモ帳等にコピってSAVEした後、 そのＴＸＴファイルをDISK-manegerでDSKイメージに突っ込んでsaveすれば、 いちいちプログラムを入力しなくてもＯＫなんで楽チンです。 36 名前：デフォルトの名無しさん [01/11/27 05:25] >>35 こんな時間になにやっとるんだ（藁 ｵﾚﾓﾅｰ 37 名前：1 [01/11/27 05:26] 補足 またエミュ上でプログラムをアスキーセーブすれば（save"*****.bas",a) Win上でプログラムの閲覧、編集等ができます。 手順は、そのプログラムを・・・ ・DISK-MANEGERでEXTRACTを選択してデスクトップ等に出す。 ・拡張子をTXTに変更 ・メモ帳で開く という手順です。 その際プログラム末尾に”　”が付きますが、 これはアスキーセーブを有効にする為に必要なので削除しないで下さい。 38 名前：1 [01/11/27 05:29] >>36 ぐは！ソレは突っ込まないで・・・（ｗ 39 名前：デフォルトの名無しさん mailto:sage [01/11/27 06:37] おぉ！！ つー事は２ｃｈで簡単な自作プログラムの公開なんかもできるワケですな！ まぁ、漏れは公開するようなブツは持ち合わせてないんﾀﾞｶﾞﾅ…（藁 皆さんの日の目を見なかった作品のうｐをｷﾎﾞﾝしてよいですか？ 40 名前：デフォルトの名無しさん mailto:sage [01/11/27 06:44] ところで>>35のプログラムの４０行は ###と###の間に１２個のスペースが入ると解釈してよいんですね？ そうしないとﾜｹﾜｶﾗﾝ画面になりましたぜ〜。 41 名前：デフォルトの名無しさん mailto:sage [01/11/27 06:46] つーかムズ過ぎ！ ラリー１０回すら続かない… 鬱駄氏脳 42 名前：デフォルトの名無しさん [01/11/27 10:41] ファンダムの１画面ﾓﾉとか勝手に２ｃｈに載せたらｽﾞｲﾏｰかなー？ 著作権関係の問題ってやっぱあるよなー。 43 名前：デフォルトの名無しさん [01/11/27 10:43] Disk-Managerってなんじゃらホイ？ 44 名前：デフォルトの名無しさん mailto:sage [01/11/27 14:36] >>42 時効。気にすんな。 45 名前：デフォルトの名無しさん mailto:sage [01/11/27 15:51] 今ごろMSXPGで著作権を気にする奴はいないだろ 46 名前：デフォルトの名無しさん [01/11/27 17:05] >>43 ココを読むべし。 ttp://www.msxnet.org/gtinter/diskmgrj.htm 47 名前：デフォルトの名無しさん [01/11/28 09:23] >>44>>45 いや、でも著作権云々よりも、作者さんが気分悪くしたりしねーの？ （俺ならむしろ嬉しいけどネ） 48 名前：デフォルトの名無しさん [01/11/29 19:59] age Syntax error Ok ■ 49 名前：デフォルトの名無しさん mailto:sage [01/11/29 20:41] 先生！暴走してます、カーソルが点滅していません 50 名前：デフォルトの名無しさん [01/11/29 21:50] >49 先生！　MSXはカーソル点滅しないと思います！ 51 名前：デフォルトの名無しさん [01/11/29 22:13] VDPコマンドとか、懐かしいフレーズだけど、全部忘れちゃったよ。 実家に帰れば、MSXテクニカルハンドブックがまだあるかな。 あのころは、3500円が激高価におもえたよ(リアル厨房だったし)。 いまなら、専門書で3500円ならやすい！とおもうが。 52 名前：デフォルトの名無しさん [01/11/29 22:55] Illegal function call in >>49 53 名前：デフォルトの名無しさん mailto:sage [01/11/29 23:05] MSXは凄いぜ！ なんたって、カーソルが斜めに動ける。 54 名前：デフォルトの名無しさん mailto:sage [01/11/29 23:45] >>53 ３つ以上のキーを押しても マトリクス上不都合なければいくらでも キーリピートが可能だったのは 優秀な設計の証なのか 優れた手抜きなのか 55 名前：デフォルトの名無しさん mailto:sage [01/11/30 00:17] コスト削減のためとか 56 名前：デフォルトの名無しさん mailto:sage [01/11/30 00:43] M5の方がずーーーっといいのにな ４０桁表示だし グラフィック画面とテキスト画面は独立しているし カーソルが点滅しているし Z80CTCを積んでるし VDPの使い方がアンポンタンだぞ>>MSX 57 名前：デフォルトの名無しさん mailto:sage [01/11/30 00:57] >>56 アンポンタンぶりが却って良い結果を生んでたと思う。 58 名前：デフォルトの名無しさん mailto:sage [01/11/30 01:16] >>56 MSXにも40桁の表示モード（VDPのTEXT1モード）はあるよ。 あと、MSX２以降なら80桁の表示モード（VDPのTEXT2モード）もある。 ※MSXクリエイターズガイドブックで確認 59 名前：デフォルトの名無しさん [01/11/30 01:29] なんかどうにかして 25行表示にすることってできなかったですかね 勘違いかな・・・ 60 名前：デフォルトの名無しさん mailto:sage [01/11/30 01:37] まあ、MSXのVDPがクソなのは何を置いても認めよう。 61 名前：デフォルトの名無しさん mailto:sage [01/11/30 02:09] >>60 でもあれってぴゅう太にも使われてるし 安くて安定してて使いやすくて 適当に使う分にはそこそこ速い 妥協するポイントとしてはまあ良かったんじゃないかな？ 62 名前：デフォルトの名無しさん [01/11/30 02:34] >>59 POKE &HF3B1,25 63 名前：デフォルトの名無しさん mailto:sage [01/11/30 17:49] >>61 ぴゅう太に使われてるってのは評価する所じゃなかろう(藁 個人的にはスピードに不満があるなぁ、やっぱり。 64 名前：デフォルトの名無しさん [01/11/30 18:09] >>63 あれってさ、VDPに命令投げたらあとはほったらかしでオッケーじゃん だからCPUも遅かったからそこだけマルチタスクって感じで よかったんじゃないかなぁ？ と適当なことを言ってみる 65 名前：親切な人 mailto:zfm25644@biglobe.ne.jp [01/11/30 18:14] ヤフーオークションで、凄い人気商品、発見！！！ コピーガードキャンセラー↓ page2.auctions.yahoo.co.jp/jp/auction/b18032656 注目のオークションに適用される事、 間違いないですね。 私も買いました。 皆も買いましょう。 66 名前：デフォルトの名無しさん [01/11/30 18:39] >>64 もちろんそういう面で便利な代物なんだけど、あのVDPに まかせると結構遅くなってしまうんですよ。 67 名前：デフォルトの名無しさん [01/12/03 13:30] Z80のアセンブラ表にない隠し命令ってどこまで発見されてましたっけ？ 68 名前：デフォルトの名無しさん mailto:sage [01/12/03 16:56] >>67 隠し命令とは、初耳。 69 名前：デフォルトの名無しさん mailto:sage [01/12/04 02:00] >>68 www.geocities.com/SiliconValley/Peaks/3938/z80undoc.htm 全部かどうかは知らない。けど、turboRのR800では「正式」な命令になったはず。 70 名前：デフォルトの名無しさん mailto:sage [01/12/05 16:45] 10 'MSX物理的劣化プログラム(MSX,MSX2,MSX2+用) 20 'このプログラムは決して実機で動かさないで下さい。 30 ON STOP GOSUB 60 40 STOP ON 50 MOTOR:GOTO 50 60 RETURN 71 名前：デフォルトの名無しさん mailto:sage [01/12/06 03:53] >>70 ミシンだな。 72 名前：デフォルトの名無しさん [01/12/06 19:37] >>70 ガガガガガガ・・・・ ＡＶフォーラムでは禁じ手でしたね。 73 名前：デフォルトの名無しさん mailto:sage [01/12/06 19:49] そういえばMOTOR使ったお遊びプログラムを店頭展示マシンで実行してたな。 何かキーを押すと始動か時限式かで（ｗ 74 名前：デフォルトの名無しさん mailto:sage [01/12/06 20:03] >>73 こんな感じ？ A$=INPUT$(1):FOR I=0 TO 1:I=0:MOTOR:NEXT TIME=0:FOR I=0 TO 10000:I=TIME:NEXT:FOR I=0 TO 1:I=0:MOTOR:NEXT 75 名前：名梨産 [01/12/07 01:01] 10 CLEAR:DIM SX(8),SY(8),TX(9),TY(9) 20 RESUME 30:FOR A=1 TO 8:READ SX(A),SY(A):NEXT 30 RESUME 40:FOR A=1 TO 9:READ TX(A),TY(A):NEXT 40 DATA 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1 50 DATA -1,1,0,1,1,1,-1,0,0,0,1,0,-1,-1,0,-1,1,-1 60 X=X+SX(STICK(0))+TX(VAL(INKEY$)) 70 Y=Y+SY(STICK(0))+TY(VAL(INKEY$)) ジョイスティックの番号あってるかな？ちと自信無し。 上が１だったらこれで動く・・・はず。誰か検証して。 76 名前：デフォルトの名無しさん mailto:sage [01/12/07 01:04] 奥義 1 'CSAVE "TEST.BAS" 77 名前：デフォルトの名無しさん mailto:sage [01/12/07 01:22] >40 DATA 0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1 >50 DATA -1,1,0,1,1,1,-1,0,0,0,1,0,-1,-1,0,-1,1,-1 MSX-FANに載ってたシューティングの自機移動速度が遅かったので バイナリで上のテーブル見つけ出して書き換えたことがあるな。 78 名前：名梨産 [01/12/07 01:26] あの頃ってファンダムの影響で行番号を１行刻み、コロンでひたすらネスト っていう書き方のプログラムばっかだったな（藁 79 名前：デフォルトの名無しさん mailto:sage [01/12/07 14:43] >>77 「バイナリで」ってどういう意味？ 80 名前：デフォルトの名無しさん [01/12/07 17:37] >>79 「左右から雌雄のペンギンで挟み込んで」の意 81 名前：三村 mailto:sage [01/12/07 17:43] バイナリーランドかよ！ 82 名前：デフォルトの名無しさん mailto:sage [01/12/07 18:24] バシシのほうがｲｲ 83 名前：77 mailto:sage [01/12/07 19:25] >>79 機械語のゲームだったのだ。 84 名前：デフォルトの名無しさん [01/12/07 19:39] がんばれ、ゲイツ君 むかしから中村さんって気に入らなかったんだけど よくよんでたらこの人、MSXを馬鹿にしまくってるのな。 頃すぞ！ と思った夕食時でした 85 名前：デフォルトの名無しさん mailto:sage [01/12/07 19:40] 中村さんってなんだ？ 間違えたよ宇津田詩嚢 86 名前：デフォルトの名無しさん mailto:sage [01/12/09 00:21] >85 まあトノサキって中村のコピーみたいなもんだし 87 名前：デフォルトの名無しさん mailto:sage [01/12/18 05:14] 中村さん？ なんのこと？（what's？） 88 名前：BASICER mailto:pantie@age.com [01/12/19 15:38] >>77 ２進数 >>ALL UBASICでAUTOでプログラムリストを書いてその後そこから出る方法 教えて下さい。 89 名前：デフォルトの名無しさん [01/12/19 15:55] UBASIC？ 90 名前：デフォルトの名無しさん mailto:sage [01/12/19 16:07] >>89 二千数百桁までの数値が使えるPC-98やDOS/V用のBASICだよ。 まぁ、このスレとは関係ないけど。 ちなみに、MSX-BASICの浮動小数点型の内部表現は 10進で持ってるんだよね。 だから、他の大多数のマシンでは浮動小数点値を 内部では2進で値を持ってる。だから、 　FOR I= 0.1 TO 1 STEP 0.1:NEXT I とやると無限ループになるけどMSXではちゃんと10回回って抜ける。 ＃無限ループするのは0.1を2進数で表すと循環小数になるので ＃切捨て誤差が発生して10回足してもきっちり１にはならない為。 この辺は直感に反しないし、変な誤差も出ないから良いよね。 91 名前：デフォルトの名無しさん mailto:sage [01/12/19 17:29] 昔のPC板ができております。おいでませい。 pc.2ch.net/i4004/ 92 名前：デフォルトの名無しさん [01/12/19 23:27] ここまで、DEFINTが１度ものってないなんて・・・ 93 名前：デフォルトの名無しさん mailto:sage [01/12/30 01:29] DEFINTA -Z です。 94 名前：デフォルトの名無しさん mailto:sage [01/12/30 01:39] DEFSTRってFM音楽館（だっけ？）のプログラムで良く使われてたよね。 $無しの変数に文字列入ってたのにはｶﾅｰﾘﾋﾞｸｰﾘしたよ。 95 名前：もう忘れました [02/01/05 17:58] @Niftyでは、MSX-BASICで年賀状作るコーナーがあったな。 そろそろ干支が1周して再利用できるようになる、かも。 96 名前：デフォルトの名無しさん mailto:sage [02/01/25 09:46] 保全sage 97 名前：デフォルトの名無しさん [02/02/20 06:33] TurboRのMIDI関係の命令が解りません。 何処かに資料は無いでしょうか？ 最近、MSXユーザーになったばかりであります。 98 名前：デフォルトの名無しさん mailto:sage [02/02/20 10:06] >>97 こっちの掲示板で聞いた方がいいよん。 www.baboo.net/ 99 名前：デフォルトの名無しさん [02/03/04 17:08] エミュってキーボードのエミュレーションに不具合があるの？ なんか打ち込めない文字があるんだけど。 100 名前：⊂(ﾟдﾟ⊂ [02/03/04 17:36] 今だ！１００ｹﾞｯﾄｫｫ 101 名前：デフォルトの名無しさん [02/03/21 07:14] 奥義もっと伝授しる！ 102 名前：デフォルトの名無しさん mailto:sage [02/03/21 11:45] POKE&HFBB1,1でCTRL-STOPの禁止。0で解除。 但しこの方法だとCTRL-STOPが押されたときにPSGが初期化される。 ただON STOP GOSUBだとプログラム移動時にスキが出るので TPOで使い分ける。 103 名前：デフォルトの名無しさん mailto:sage [02/03/29 11:51] DOS1ディスクから起動していない場合は call system が出来ないが poke &hf346,1 を実行すると call system が出来るようになる。 DOS2は無条件で出来るのでする必要が無い。 104 名前：デフォルトの名無しさん [02/04/14 03:09] age 105 名前：デフォルトの名無しさん [02/04/28 01:01] 奥義！ﾊｧﾊｧ 106 名前：デフォルトの名無しさん [02/04/29 22:56] 行番号は10、20、30ではなく1、2、3と使え。 107 名前：デフォルトの名無しさん [02/04/30 01:45] プロポシェの１行プログラム、投稿燃えたよね〜 常連と称されたときは嬉しくてマジ涙出た。 108 名前：デフォルトの名無しさん mailto:sage [02/04/30 04:07] 作ったプログラムを保存するのって やっぱりデーターレコーダーですよね♪ (フロッピーなんて野暮な機器は使わない方向で) で、最近、そのデーターレコーダーは、手に入らないじゃないですか (普通にラジカセ使うって野暮な話は無しの方向で) そんな時は、MDを使ってみましょう♪ 最初は、非可逆圧縮なので駄目かと思ったんですが 何となくやってみると、さすが1200(2400)ボー 上手く録音レベルを調節すれば、使えるんですね (自分のがLPx非対応の為、標準でしか試してませんが) と言う訳で、Rは、ほぼ確実に使えると思うので チャレンジャーな方は、MP3やLPxモードに挑戦してみてください♪ (普通に(？)データを吸い出すって野暮な話は無しの方向で…) また、ビデオデッキも試してみたのですが Hi-Fiだと、ヘッドの回転ノイズが大きい為、上手くいかないようです もしかしたら、ノーマル音声なら上手くいくかも知れないので 同じく、チャレンジャーな方は挑戦してみてください って、こんな奥義じゃないのかな…。（＾＾； 109 名前：デフォルトの名無しさん mailto:sage [02/04/30 23:12] デーレコ今でも大切に保管してます しかも、なぜかこいつだけ、箱や発泡スチロールごと残っている。 PHC-DR2。倍速読み込みモード付き。 しかし、本体はすでに捨ててたりするし。 110 名前： mailto: [02/05/29 01:00] 111 名前：デフォルトの名無しさん [02/05/29 01:21] はやく免許皆伝ください 112 名前：デフォルトの名無しさん [02/06/14 16:20] auto 10 113 名前：デフォルトの名無しさん mailto:sage [02/06/14 17:38] TRON 114 名前：デフォルトの名無しさん mailto:sage [02/06/14 17:50] KEY OFF:FOR I=1 TO 10:KEY I,"NEW"+CHR$(13):NEXT I 115 名前：デフォルトの名無しさん [02/06/14 22:27] 10 SCREEN 1:WIDTH 32:CLS 20 FOR I=0 TO 255:PRINT CHR$(I);:NEXT I:PRINT 30 FOR AD=1*8 TO 255*8-1:VPOKE AD-8,VPEEK(AD):NEXT AD 40 LIST 50 END 116 名前：デフォルトの名無しさん [02/06/14 22:34] へー、おめでたいな。厨房くん MSX-BASICだって？なんじゃそりゃ そんな過去の遺物の話してんのかい。板違いじゃねーの？ 昔のパソコン板逝けば？ pc.2ch.net/i4004/ おまえら今話題のこれ知らないのかよ これだよこれ www.sharp.co.jp/corporate/news/011105.html 117 名前：デフォルトの名無しさん mailto:test [02/06/14 22:40] test 118 名前：デフォルトの名無しさん mailto:test [02/06/14 22:44] test 119 名前：デフォルトの名無しさん mailto:sage [02/06/14 22:46] （　´,_ゝ｀） 120 名前：デフォルトの名無しさん [02/06/15 00:17] >>116 basicは立派なプログラム言語ですが？ つか、やられてるし…（ｗ 121 名前：デフォルトの名無しさん [02/06/15 00:43] >>115 0から255を画面に出したらコントロールコードまで吐いちゃうよ！ 122 名前：成毛 真 [02/06/15 00:43] 10 DEFUSR = &H0 : A = USR(0) 123 名前：デフォルトの名無しさん mailto:sage [02/06/15 01:12] CALL TURBO ON 124 名前：デフォルトの名無しさん mailto:sage [02/06/15 01:15] プログラムを速くするおまじない。 DEFINT A-Z 125 名前：デフォルトの名無しさん [02/06/15 01:17] >>122 ホットブートかよ！ >>123 俺、ＭＳＸべーしっ君持ってねーもん！ 126 名前：デフォルトの名無しさん mailto:sage [02/06/15 01:24] >>125 俺はWAVYなので内蔵でしたのじゃ。 127 名前：デフォルトの名無しさん mailto:sage [02/06/15 01:29] 関連スレ： pc.2ch.net/test/read.cgi/i4004/1008754675/l50 128 名前：デフォルトの名無しさん mailto:sage [02/06/16 23:15] フォントを太字にします。 100 CLEAR 128,&HCF7F 110 ' 120 FOR AD=&HCF80 TO &HCFCF 130 READ DT$:POKE AD,VAL("&H"+DT$) 140 NEXT AD 150 ' 160 DEFUSR=&HCF80:A=USR(0) 170 ' 180 'BSAVE "FONTBOLD.BIN",&HCF80,&HCFCF,&HCF80 190 'BLOAD "FONTBOLD.BIN",R 200 ' 1000 DATA F3,DB,A8,F5,DD,21,1F,F9,DD,5E,00,E6,F0,B3,CB,23 1010 DATA CB,23,B3,D3,A8,DD,6E,01,DD,66,02,11,00,D0,01,00 1020 DATA 08,ED,B0,F1,D3,A8,FB,21,00,D0,01,00,08,7E,5F,CB 1030 DATA 3B,B3,77,23,0B,78,B1,20,F4,21,00,D0,DD,36,00,03 1040 DATA DD,75,01,DD,74,02,3A,AF,FC,CD,5F,00,C9,00,00,00 129 名前：デフォルトの名無しさん [02/06/17 02:26] 10 SCREEN 0:WIDTH 80:CLS 20 FOR AD=0 TO 65535! STEP 16 30 PRINT RIGHT$(("000" + HEX$(AD)), 4);":"; 40 FOR OF=0 TO 15 50 PRINT RIGHT$(("0" + HEX$(PEEK(AD+OF))), 2);" "; 60 NEXT OF:PRINT 70 NEXT AD 80 END 130 名前：デフォルトの名無しさん [02/06/18 00:16] >128 わざわざマシン語でやることもないじゃん。 って書いてさらに思ったが、「マシン語」っていう言葉の響きそのものが すでに懐かしく感じた今日この頃。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef