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

[1 デフォルトの名無しさん NG NG]

忘れない内に皆に伝授しときましょう。

・多色刷り、
・ドット単位横スクロール、
・エスケープシークエンス・・・
色々ありましたよね。
思い出したらなんでも書き込みよろしく。

[31 デフォルトの名無しさん NG NG]

>>30
配列つかうと行数とメモリ使用量増えるから

[32 デフォルトの名無しさん NG NG]

１画面プログラムとか向けの手法だな＞論理式

[33 デフォルトの名無しさん NG NG]

>>31
なんとなくかっこいいからという理由もあったかも。

[34 デフォルトの名無しさん NG NG]

行番号０の行を作る
↓
LISTで表示
↓
表示された0行にカーソル移動
↓
RETURNキー押す
↓
もう一度LIST
↓
行番号直後の空白が１つ増える
↓
（゜д゜）ﾊﾞｸﾞｰ

[35 1 NG NG]

というワケで（？）、簡単にスカッシュを作ってみました（ｗ
（所要時間４０分）

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 デフォルトの名無しさん NG NG]

>>35
こんな時間になにやっとるんだ（藁
ｵﾚﾓﾅｰ

[37 1 NG NG]

補足

またエミュ上でプログラムをアスキーセーブすれば（save"*****.bas",a)
Win上でプログラムの閲覧、編集等ができます。

手順は、そのプログラムを・・・
・DISK-MANEGERでEXTRACTを選択してデスクトップ等に出す。
・拡張子をTXTに変更
・メモ帳で開く
という手順です。
その際プログラム末尾に”　”が付きますが、
これはアスキーセーブを有効にする為に必要なので削除しないで下さい。

[38 1 NG NG]

>>36
ぐは！ソレは突っ込まないで・・・（ｗ

[39 デフォルトの名無しさん NG NG]

おぉ！！
つー事は２ｃｈで簡単な自作プログラムの公開なんかもできるワケですな！
まぁ、漏れは公開するようなブツは持ち合わせてないんﾀﾞｶﾞﾅ…（藁
皆さんの日の目を見なかった作品のうｐをｷﾎﾞﾝしてよいですか？

[40 デフォルトの名無しさん NG NG]

ところで>>35のプログラムの４０行は
###と###の間に１２個のスペースが入ると解釈してよいんですね？
そうしないとﾜｹﾜｶﾗﾝ画面になりましたぜ〜。

[41 デフォルトの名無しさん NG NG]

つーかムズ過ぎ！
ラリー１０回すら続かない…
鬱駄氏脳

[42 デフォルトの名無しさん NG NG]

ファンダムの１画面ﾓﾉとか勝手に２ｃｈに載せたらｽﾞｲﾏｰかなー？
著作権関係の問題ってやっぱあるよなー。

[43 デフォルトの名無しさん NG NG]

Disk-Managerってなんじゃらホイ？

[44 デフォルトの名無しさん NG NG]

>>42
時効。気にすんな。

[45 デフォルトの名無しさん NG NG]

今ごろMSXPGで著作権を気にする奴はいないだろ

[46 デフォルトの名無しさん NG NG]

>>43
ココを読むべし。
ttp://www.msxnet.org/gtinter/diskmgrj.htm

[47 デフォルトの名無しさん NG NG]

>>44>>45
いや、でも著作権云々よりも、作者さんが気分悪くしたりしねーの？
（俺ならむしろ嬉しいけどネ）

[48 デフォルトの名無しさん NG NG]

age
Syntax error
Ok
■

[49 デフォルトの名無しさん NG NG]

先生！暴走してます、カーソルが点滅していません

[50 デフォルトの名無しさん NG NG]

>49
先生！　MSXはカーソル点滅しないと思います！

[51 デフォルトの名無しさん NG NG]

VDPコマンドとか、懐かしいフレーズだけど、全部忘れちゃったよ。
実家に帰れば、MSXテクニカルハンドブックがまだあるかな。
あのころは、3500円が激高価におもえたよ(リアル厨房だったし)。
いまなら、専門書で3500円ならやすい！とおもうが。

[52 デフォルトの名無しさん NG NG]

Illegal function call in >>49

[53 デフォルトの名無しさん NG NG]

MSXは凄いぜ！
なんたって、カーソルが斜めに動ける。

[54 デフォルトの名無しさん NG NG]

>>53
３つ以上のキーを押しても
マトリクス上不都合なければいくらでも
キーリピートが可能だったのは
優秀な設計の証なのか
優れた手抜きなのか

[55 デフォルトの名無しさん NG NG]

コスト削減のためとか

[56 デフォルトの名無しさん NG NG]

M5の方がずーーーっといいのにな
４０桁表示だし
グラフィック画面とテキスト画面は独立しているし
カーソルが点滅しているし
Z80CTCを積んでるし
VDPの使い方がアンポンタンだぞ>>MSX

[57 デフォルトの名無しさん NG NG]

>>56
アンポンタンぶりが却って良い結果を生んでたと思う。

[58 デフォルトの名無しさん NG NG]

>>56
MSXにも40桁の表示モード（VDPのTEXT1モード）はあるよ。
あと、MSX２以降なら80桁の表示モード（VDPのTEXT2モード）もある。
※MSXクリエイターズガイドブックで確認

[59 デフォルトの名無しさん NG NG]

なんかどうにかして 25行表示にすることってできなかったですかね
勘違いかな・・・

[60 デフォルトの名無しさん NG NG]

まあ、MSXのVDPがクソなのは何を置いても認めよう。

[61 デフォルトの名無しさん NG NG]

>>60
でもあれってぴゅう太にも使われてるし
安くて安定してて使いやすくて
適当に使う分にはそこそこ速い
妥協するポイントとしてはまあ良かったんじゃないかな？

[62 デフォルトの名無しさん NG NG]

>>59
POKE &HF3B1,25

[63 デフォルトの名無しさん NG NG]

>>61
ぴゅう太に使われてるってのは評価する所じゃなかろう(藁
個人的にはスピードに不満があるなぁ、やっぱり。

[64 デフォルトの名無しさん NG NG]

>>63
あれってさ、VDPに命令投げたらあとはほったらかしでオッケーじゃん
だからCPUも遅かったからそこだけマルチタスクって感じで
よかったんじゃないかなぁ？
と適当なことを言ってみる

[65 親切な人 NG NG]

ヤフーオークションで、凄い人気商品、発見！！！

コピーガードキャンセラー↓
http://page2.auctions.yahoo.co.jp/jp/auction/b18032656

注目のオークションに適用される事、
間違いないですね。

私も買いました。

皆も買いましょう。

[66 デフォルトの名無しさん NG NG]

>>64
もちろんそういう面で便利な代物なんだけど、あのVDPに
まかせると結構遅くなってしまうんですよ。

[67 デフォルトの名無しさん NG NG]

Z80のアセンブラ表にない隠し命令ってどこまで発見されてましたっけ？

[68 デフォルトの名無しさん NG NG]

>>67
隠し命令とは、初耳。

[69 デフォルトの名無しさん NG NG]

>>68
http://www.geocities.com/SiliconValley/Peaks/3938/z80undoc.htm
全部かどうかは知らない。けど、turboRのR800では「正式」な命令になったはず。

[70 デフォルトの名無しさん NG NG]

10 'MSX物理的劣化プログラム(MSX,MSX2,MSX2+用)
20 'このプログラムは決して実機で動かさないで下さい。
30 ON STOP GOSUB 60
40 STOP ON
50 MOTOR:GOTO 50
60 RETURN

[71 デフォルトの名無しさん NG NG]

>>70
ミシンだな。

[72 デフォルトの名無しさん NG NG]

>>70
ガガガガガガ・・・・
ＡＶフォーラムでは禁じ手でしたね。

[73 デフォルトの名無しさん NG NG]

そういえばMOTOR使ったお遊びプログラムを店頭展示マシンで実行してたな。
何かキーを押すと始動か時限式かで（ｗ

[74 デフォルトの名無しさん NG NG]

>>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 名梨産 NG NG]

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 デフォルトの名無しさん NG NG]

奥義

1 'CSAVE "TEST.BAS"

[77 デフォルトの名無しさん NG NG]

>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 名梨産 NG NG]

あの頃ってファンダムの影響で行番号を１行刻み、コロンでひたすらネスト
っていう書き方のプログラムばっかだったな（藁

[79 デフォルトの名無しさん NG NG]

>>77
「バイナリで」ってどういう意味？

[80 デフォルトの名無しさん NG NG]

>>79
「左右から雌雄のペンギンで挟み込んで」の意

[81 三村 NG NG]

バイナリーランドかよ！

[82 デフォルトの名無しさん NG NG]

バシシのほうがｲｲ

[83 77 NG NG]

>>79
機械語のゲームだったのだ。

[84 デフォルトの名無しさん NG NG]

がんばれ、ゲイツ君

むかしから中村さんって気に入らなかったんだけど
よくよんでたらこの人、MSXを馬鹿にしまくってるのな。

頃すぞ！ と思った夕食時でした

[85 デフォルトの名無しさん NG NG]

中村さんってなんだ？
間違えたよ宇津田詩嚢

[86 デフォルトの名無しさん NG NG]

>85
まあトノサキって中村のコピーみたいなもんだし

[87 デフォルトの名無しさん NG NG]

中村さん？
なんのこと？（what's？）

[88 BASICER NG NG]

>>77
２進数
>>ALL
UBASICでAUTOでプログラムリストを書いてその後そこから出る方法
教えて下さい。

[89 デフォルトの名無しさん NG NG]

UBASIC？

[90 デフォルトの名無しさん NG NG]

>>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 デフォルトの名無しさん NG NG]

昔のPC板ができております。おいでませい。
http://pc.2ch.net/i4004/

[92 デフォルトの名無しさん NG NG]

ここまで、DEFINTが１度ものってないなんて・・・

[93 デフォルトの名無しさん NG NG]

DEFINTA -Z です。

[94 デフォルトの名無しさん NG NG]

DEFSTRってFM音楽館（だっけ？）のプログラムで良く使われてたよね。
$無しの変数に文字列入ってたのにはｶﾅｰﾘﾋﾞｸｰﾘしたよ。

[95 もう忘れました NG NG]

@Niftyでは、MSX-BASICで年賀状作るコーナーがあったな。
そろそろ干支が1周して再利用できるようになる、かも。

[96 デフォルトの名無しさん NG NG]

保全sage

[97 デフォルトの名無しさん NG NG]

TurboRのMIDI関係の命令が解りません。
何処かに資料は無いでしょうか？
最近、MSXユーザーになったばかりであります。

[98 デフォルトの名無しさん NG NG]

>>97
こっちの掲示板で聞いた方がいいよん。
http://www.baboo.net/

[99 デフォルトの名無しさん NG NG]

エミュってキーボードのエミュレーションに不具合があるの？
なんか打ち込めない文字があるんだけど。

[100 ⊂(ﾟдﾟ⊂ NG NG]

今だ！１００ｹﾞｯﾄｫｫ

[101 デフォルトの名無しさん NG NG]

奥義もっと伝授しる！

[102 デフォルトの名無しさん NG NG]

POKE&HFBB1,1でCTRL-STOPの禁止。0で解除。
但しこの方法だとCTRL-STOPが押されたときにPSGが初期化される。

ただON STOP GOSUBだとプログラム移動時にスキが出るので
TPOで使い分ける。

[103 デフォルトの名無しさん NG NG]

DOS1ディスクから起動していない場合は call system が出来ないが
poke &hf346,1 を実行すると call system が出来るようになる。
DOS2は無条件で出来るのでする必要が無い。

[104 デフォルトの名無しさん NG NG]

age

[105 デフォルトの名無しさん NG NG]

奥義！ﾊｧﾊｧ

[106 デフォルトの名無しさん NG NG]

行番号は10、20、30ではなく1、2、3と使え。

[107 デフォルトの名無しさん NG NG]

プロポシェの１行プログラム、投稿燃えたよね〜
常連と称されたときは嬉しくてマジ涙出た。

[108 デフォルトの名無しさん NG NG]

作ったプログラムを保存するのって
やっぱりデーターレコーダーですよね♪
(フロッピーなんて野暮な機器は使わない方向で)
で、最近、そのデーターレコーダーは、手に入らないじゃないですか
(普通にラジカセ使うって野暮な話は無しの方向で)
そんな時は、MDを使ってみましょう♪
最初は、非可逆圧縮なので駄目かと思ったんですが
何となくやってみると、さすが1200(2400)ボー
上手く録音レベルを調節すれば、使えるんですね
(自分のがLPx非対応の為、標準でしか試してませんが)
と言う訳で、Rは、ほぼ確実に使えると思うので
チャレンジャーな方は、MP3やLPxモードに挑戦してみてください♪
(普通に(？)データを吸い出すって野暮な話は無しの方向で…)
また、ビデオデッキも試してみたのですが
Hi-Fiだと、ヘッドの回転ノイズが大きい為、上手くいかないようです
もしかしたら、ノーマル音声なら上手くいくかも知れないので
同じく、チャレンジャーな方は挑戦してみてください

って、こんな奥義じゃないのかな…。（＾＾；

[109 デフォルトの名無しさん NG NG]

デーレコ今でも大切に保管してます
しかも、なぜかこいつだけ、箱や発泡スチロールごと残っている。
PHC-DR2。倍速読み込みモード付き。

しかし、本体はすでに捨ててたりするし。

[110 NG NG]

[111 デフォルトの名無しさん NG NG]

はやく免許皆伝ください

[112 デフォルトの名無しさん NG NG]

auto 10

[113 デフォルトの名無しさん NG NG]

TRON

[114 デフォルトの名無しさん NG NG]

KEY OFF:FOR I=1 TO 10:KEY I,"NEW"+CHR$(13):NEXT I

[115 デフォルトの名無しさん NG NG]

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 デフォルトの名無しさん NG NG]

へー、おめでたいな。厨房くん
MSX-BASICだって？なんじゃそりゃ
そんな過去の遺物の話してんのかい。板違いじゃねーの？
昔のパソコン板逝けば？
http://pc.2ch.net/i4004/
おまえら今話題のこれ知らないのかよ
これだよこれ
http://www.sharp.co.jp/corporate/news/011105.html

[117 デフォルトの名無しさん NG NG]

test

[118 デフォルトの名無しさん NG NG]

test

[119 デフォルトの名無しさん NG NG]

（　´,_ゝ｀）

[120 デフォルトの名無しさん NG NG]

>>116
basicは立派なプログラム言語ですが？
つか、やられてるし…（ｗ

[121 デフォルトの名無しさん NG NG]

>>115
0から255を画面に出したらコントロールコードまで吐いちゃうよ！

[122 成毛 真 NG NG]

10 DEFUSR = &H0 : A = USR(0)

[123 デフォルトの名無しさん NG NG]

CALL TURBO ON

[124 デフォルトの名無しさん NG NG]

プログラムを速くするおまじない。
DEFINT A-Z

[125 デフォルトの名無しさん NG NG]

>>122
ホットブートかよ！
>>123
俺、ＭＳＸべーしっ君持ってねーもん！

[126 デフォルトの名無しさん NG NG]

>>125
俺はWAVYなので内蔵でしたのじゃ。

[127 デフォルトの名無しさん NG NG]

関連スレ：
http://pc.2ch.net/test/read.cgi/i4004/1008754675/l50

[128 デフォルトの名無しさん NG NG]

フォントを太字にします。

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 デフォルトの名無しさん NG NG]

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 デフォルトの名無しさん NG NG]

>128
わざわざマシン語でやることもないじゃん。

って書いてさらに思ったが、「マシン語」っていう言葉の響きそのものが
すでに懐かしく感じた今日この頃。