大雨に注意！ 東京湾で地震 ＭＳＸのPL?（パレット）ファイルローダの作り方

　今日の昼休みに九州からメールが届いていました！
日田と耶馬渓が大雨で日田は花月川、耶馬渓は山国川の堤防が決壊しました。
日田は四方が山に囲まれていて、大雨が降ると北は花月川、東は玖珠川、南は大山川の
水が日田で合流して筑後川に流れます。
今回は北の山から流れる花月川（かげつがわ）の水が決壊しました。
　耶馬渓は多くの支流からの水が集中して流れて中流域は大量の水になります。
本耶馬渓付近は床上浸水が酷い話でした。
　どちらも午前10時頃がピークで今は川の水量は減ってきたようですね。
いつどこで大雨になるか、わかりませんので、リアルタイムな情報が見れる
サイトを紹介しておきます。
　数時間前の情報を見ることができますので、避難などの目安に
お役立てください。

国土交通省　川の防災情報：
http://www.river.go.jp/

さらに今日は11時30分頃に地震がありました。震度4の地震で館山付近の東京湾です。
震源の深さは100キロ、地震の規模を示すマグニチュードは5.4ということです。
「同時刻に別の地震」ということで見てみると福島でも少し大きな震度ですね。
まだ相模湾を震源とする地震がすぐに起こる可能性は少ないと思いますが、
地震への備えは心がけましょう。

　さて、ＭＳＸはパレットファイルの色データを見ることができるような
プログラムを書きます。例えばTEST.PL7の場合は

10 SCREEN 7
20 BLOAD"TEST.PL7",S
30 COLOR=RESTORE
40 I$=INPUT$(1)
50 END

このようになります。もし、パレットを見たい場合は

100 SCREEN 7
110 FORI=0TO15
120 LINE(480,I*13+15)-STEP(18,6),I,BF
130 LINE(480,I*13+15)-STEP(18,6),14,B
140 NEXT
150 BLOAD"TEST.PL7",S
170 COLOR=RESTORE
180 I$=INPUT$(1)
190 END

となります。SCREEN5の場合はＸが半分ですから、480を240にして、
STEP(18,6)をSTEP(9,6)に書き直します。

 MSXVRAMマップ：
http://www.big.or.jp/~saibara/msx/data/vram_map.html

これで前回のカラーデータがロードできる、というわけじゃな？

そのとおりです！いろいろなカラーデータを見ることができるようになります。

100 LINEINPUT"FILENAME:";F$
110 SCREEN 7
120 FORI=0TO15
130 LINE(480,I*13+15)-STEP(18,6),I,BF
140 LINE(480,I*13+15)-STEP(18,6),14,B
150 NEXT
160 BLOAD F$ ,S
170 COLOR=RESTORE
180 I$=INPUT$(1)
190 END

またSCREEN5のPL5の場合は

100 LINEINPUT"FILENAME:";F$
110 SCREEN 5
120 FORI=0TO15
130 LINE(240,I*13+15)-STEP(9,6),I,BF
140 LINE(240,I*13+15)-STEP(9,6),14,B
150 NEXT
160 BLOAD F$ ,S
170 COLOR=RESTORE
180 I$=INPUT$(1)
190 END

こうすれば、ファイル名を指定して表示させることができますね。
　これで使ってみたいカラーをうまく使うことができます。まーるっ。