Ｑ．プチコンでベーシックおぼえて役に立ちますか？ Ａ．役に立ちます。 ８０年代や９０年代のパソコンでBASICでプログラム覚えた人は、ゲーム系やプログラムのお仕事してる人が多いです。 BASICはBASIC言語を勉強するだけじゃなく、他の言語でも使える「プログラムの作り方」も勉強できるので、お手ごろな開発環境（プチコン以外でもHSPやJavaScriptなどなど）があるなら、まずはなにかプログラムを作ってみて見るのがいいかも。 ちなみにBASICに出てくるIF判定、FOR繰り返し、文字操作、数学計算などは他のどの言語でもでてきます。 プチコンはゲームつくるために向いているので、ゲームを作ってみたいならまずはプチコンでBASICを覚えるのがいいかも。

初心者向けとしてまとめるならこんな感じ？ ・DEFは関数定義で、関数とは何かを渡して計算結果を返す ・DEFの中はプライベート空間なので、変数宣言しても外部には影響しない ・DEFの中でグローバル変数は参照できる、ただし変数名はプライベート変数が優先される ・DEFでの計算結果は必ず返すこと、OUTであってもRETURNであっても ・DEFの中からDEFの外のラベル参照はしちゃいけない ・DEFに渡す値、返す値の型（整数、実数、文字列）はちゃんと意識すること、呼び方を間違えると予期しない動きをするのでちゃんと型を守ること GOSUBと何が違うの？と言われると、どっちも同じようなことができるけど、GOSUBが関数の考えがなかった昔からのなごりで、DEFの方がRND()とかと同じような呼び方が作れていろいろ楽。 ※厳密にはいろいろ細かいことあったりするけど、使う側の概念としてはこんな感じ？

いろいろプログラム勉強しながらだと思うので、それで動いていればそれが今は正解ですよ。 もっとプログラムなれてきたらGOTOじゃなくてWHILEとWEND、REPEATとUNTILでループして、GOTOをあんまり使わないようにすると、あとから見たときにプログラムが見やすくなるかも。 （GOTOだらけになると、プログラム追いかけるのも大変だし、気づかないところでバグを入れてしまったりすることがあるので）

「もういちどやる？」のあとのBUTTON命令ではプログラムは一時停止しないので、BUTTON命令とIFの判定で無限ループするようにすると動くかも。 プログラムでボタンの入力を待つ場合は基本的には無限ループの中でBUTTON関数でボタンの状態を取って処理をふりわけるようにします。 （プチコンで作られたゲームも無限ループ中にキャラ動かしたりして、ゲームオーバー条件になったら無限ループからぬけるようなつくりが多いです）

wikipediaの例だと 文字列 DAEBCBACBBBC は１２文字でプチコンだと１文字16bitなので192bit これをハフマン符号化すると それぞれの文字の数から A=110, B=0, C=10, D=1110, E=1111 とハフマンツリーを作って、これを元の文字列にあてはめて 1110 110 1111 0 10 0 110 10 0 0 0 10 となって 25bit ハフマンツリーも一緒にデータとして持っておかないと元の文字列に変換できないので、符号化した25bitのデータと一緒に保存しておく必要があります（どのように保存するかはプログラムやデータ形式次第） おもいっきりバイト単位(8bit)のビット操作なので、プチコンだとビット操作はできてもバイト単位が扱いづらいので、ちょっといろいろ大変なのです。(整数型32bitに４バイト(4x8bit)持つのが一般的)

（MIKIさんのコードちゃんとみれてないので説明だけ） ハフマン符号化のアルゴリズムそのものはwikipediaにあるとおりで、 補足するなら「文章中に出てくる回数が多い文字(プチコンの1文字＝16bit固定(UTF-16))を、可変ビット(文字の種類によって1bitから数bitに変化)に割り当てて、最初の文章より短くする」な感じです。 同じ文字が沢山繰り返されて１文字16bit使ってる文章があれば、その文字が1bitや2bitになればデータ量が少なくなるので圧縮できるという感じです。 可変bitに変換された結果は２進数のバイナリデータでしかなくて、 これを元の文章に戻すために、どの可変bitがどの文字に対応しているかの一覧をツリーにしたのがハフマンツリー 文字も画像データ１ドットも16bitや32bitのデータなので、同じように画像をハフマン符号化すると圧縮できるという仕組みです。

訂正と補足。 ×　右３シフトするとは８で掛け算するのと同じなので ○　左３シフトするとは８で掛け算するのと同じなので 右にＮシフトは２のＮ乗で割り算 左にＮシフトは２のＮ乗で掛け算になります AND は２進数でビット演算した結果、どちらも 1であるところが有効になります。 &HFFF8F8F8 AND &H00FF0000 が &H00F80000 になるのは &HFFF8F8F8 が２進数で 1111 1111 1111 1000 1111 1000 1111 1000 &H00FF0000 が２進数で 0000 0000 1111 1111 0000 0000 0000 0000 &H00F80000 が２進数で 0000 0000 1111 1000 0000 0000 0000 0000 で、どちらも 1 であるところが残ります。

BACKCOLORは単一の色を設定してるので、プチコン内部メモリに持っていて、それをOUT で返しているように推測してます。 SPCOLORも設定する色をプチコン内部で持っていて、プチコン内部で計算された結果が3DS画面に書かれているように推測してます。 GSPOITの説明にあるように「内部で色変換を経由するため描画時と同じ数値が返らない可能性があります」とあるので、 あんまり８の倍数とか細かいことは気にせずに、「同じじゃないことがある」「基本的にRGB関数の32bitで色を扱う」と思っていればそれでいいかもしれません。 どうしても本当に厳密に色8bitで管理したければ画面サイズ854x480分の配列を用意して配列に色を書いて、それを画面に書く方法があります、が当然それだけの更新は時間がかかるので重たいです 全部理解して各5bit(0～32)で色を管理してしまうのも方法かもしれません

ちなみに32bit(RGB=8bit)と16bit(RGB=5bit)の色が混在している理由。 実際の3DSで表示している色は16bitなのです。 (GSAVE/GLOAD/FONTDEFあたりが16bit定義です) プチコンの命令として色を指定するところはすべて32bitで指定するようになっていますが、これはプチコンが仕様としてそういうふうにしてます。 実際はプチコン内部で32bitを16bitに変換して3DSの画面に表示していて、 GSPOIT は 3DSの画面から取得した16bitの色をプチコン内部で32bitに変換されて返されます。 なので、どうがんばっても3DSの画面から取得したRGB=5bitしか取れないのです。 8bitなのに5bitしかなくて、3bit足りないので、左３シフトした値で表現されます 右３シフトするとは８で掛け算するのと同じなので、必ず８の倍数になります。

ちなみに考え方としては「32bitの値」などビットで表記されていたら、１０進数ではなく１６進数で考えるといいです。 そして１６進数は２進数に簡単に置き換えでき、２進数は１６進数に簡単に置き換えできます。 さらにWiiUや3DSなどの機械は２進数が基本で動作しているので「ビット操作」などで検索してみるといいかもしれません。 （色コードの00FF0000部分が赤、というのもプチコン内部でその部分を赤と判断してるからです）

ここで２進数で計算するとうまい具合にいきます。 &h00FF0000 は２進数で 0000 0000 1111 1111 0000 0000 0000 0000 です &h000000FF は２進数で 0000 0000 0000 0000 0000 0000 1111 1111 です 1 が全体的に右に１６個ずれています。 なので「右に１６シフト」するので、シフト命令を使って &h00FF0000 >> 16 となります。 全部まとめるとこうなります R = (C AND &H00FF0000) >> 16 緑は 0000FF00 で 右８シフト、青も同じように 000000FFで右０シフト（しなくていい）で計算できます。 色を計算してる公開キーのプログラムで似たようなことをしている人は多いので参考にしてみてください。

-460552 となっていて、HEX$してなさそうだったので１６進数変換すると FFF8F8F8 となりました。 まず、１０進数も２進数も１６進数も、値が１０進数で「-460552」であることは変わらなくて、 -460552を１６進数で表記すると FFF8F8F8 となります。 この値のうち、１６進数で 00FF0000 の部分が赤の色になるので、この部分を取り出そうとすると -460552 AND &h00FF0000 とすれば赤の部分の色がとりだせます、がプログラムでこれを &hFF として解釈したいので、&h00FF0000 を &h000000FF に計算しなおす必要があります。

ちなみに音ゲープレイ中に画面で動いてるものは全部プログラムが必要なので、ノートの動き、コンボ表示、曲がプレイ中の何秒目かのバー、ノートを叩いたときに消えるエフェクトなどなど、ほんとにたくさん考えないとなのです。 マルチタッチはできないけど、Wiiリモコンにつなげてるクラシックコントローラを改造して１６個のボタンが横並びなコントローラを作ればチュウニズムっぽいこともできるかも。 今のバージョンだとプログラム実行中にUSBキーボードのキー入力情報がとれないけどそのうちとれるようになるので(INKEY$が動かない問題)、USBキーボード自体をコントローラだと思えばそれらしくできたりするので、そういったアイデアもプログラムの考えるうちだったりします。

本気で作るならこんな感じ（ちなみにIIDXとDDRはプレイしてます） ・どんな風にノート（音楽にあわせて判定ラインで叩く・触る系全部の意味）を画面に表示するかを考える（ゲームの設計） ・音楽をMML（プチコンで音楽を鳴らす言語）で作成する、自分で作るか誰かに作ってもらう（MP3やWAVは使えない） ・MMLに書かれたBPMからノートを動かす速度を計算する方法を考える ・ゲーム設計どおりと、BPMにあわせた速度でノートを移動させる方法を考える ・入力方法（ボタン、タッチ）がノートとタイミングによって点数やゲージを計算する方法を考える ・プレイ画面と選曲画面のBGを作成する ・曲一覧からプレイする曲を選択する選曲画面をプログラムする。 ・ゲームプレイ中の動作をプログラムする もっともっと考えることはいっぱいあるけど、思った以上にいっぱい考えていっぱいプログラム作れば音ゲーも作れますよ。

Q.プログラムってなに？ A.命令表に定義されている命令を組み合わせて思い描いた動きを組み立てることです。 すごくおおざっぱなイメージ ・遊戯王で、コンボであれ発動したら次はこれ発動して、相手がカウンターしたらこれ発動するって流れ、デッキ構築もあわせてプログラムに近い感じ。 ・ピタゴラ装置を用意された積み木セットで組み立てる感じ。 すなわち、できることがきまってる部品をいろいろ組み合わせると、１つのコンボや、１つのピタゴラ装置ができる、これがプログラム。 なのでまずはプチコンの命令が単独でどんなことができるかを調べ、どのように組み立てるかをいろんな人の例を見て知ると、命令を組み合わせてどんなことができるかがわかるようになります。 何かを作りたいのであれば、それがどんな命令の組み合わせでできるかを考えていくことになります。

すでにWiiUに接続できるUSBキーボードがあるならWiiUをオススメ。 WiiUが自分のものじゃない（兄弟が使ってて使えない時がある）なら3DS版をオススメかな。 ゲームと違って、画面をずっと開いて考えたりすることが多いから、ちょっと中断してあとで再開ってすると、中断前の考えが飛んだりして勉強しづらいってのもあるにはあるので、できればずっとプチコンをさわれる状態がおすすめ。 WiiUをずっと使える環境があるならプログラムの勉強もいろんな意味でやりやすいWiiU(大画面でプログラムがみやすい、世界標準であるパソコンのキーボードが使える) どこでもプログラムがしたいとか、自宅の外でプログラムすること（学校とか部活とかプチコン持ってる友達の家とかプログラム詳しい人が集まる場所とか）があるなら3DSかなぁ。

１０進数の数字でだすとわけわからなくなるので、HEX$(C) で１６進数で表示するとちょっとわかりやすくなるかもです。 C=GSPOIT(X,Y) して、? HEX$(C) が たとえば FF0078A8 となったら FFが透明・不透明情報で 00が赤色で 78が緑色で A8が青色の値です １６進数の数字が２桁で８ビット（２進数で８桁）を表現しています。 プチコンでは基本的に色の情報は各８ビットとした３２ビットの数値(ARGB 各８ビットの色コード)で管理してるけど、RGBREAD を使えばあんまり意識しなくても大丈夫かもです。（RGBREAD命令があるので公式ではそっちを推奨してるはず） ちなみにカラーを白黒変換するのは「白黒変換　アルゴリズム」あたりで検索するといろいろ方法があります（プチコンの命令１つで簡単にはできない）

（行数制限で修正してたら一部コメントおかしいけどキニシナイ） 書き込みするときに文字を１文字ずつASC()命令でDAT形式用(文字コード)に変換して 読み込むときはCHR$()命令でDAT形式用(文字コード)から文字に変換してます。 そのうちプチコンBIGが更新されて、こんなことしなくても済むようになるので、どうしてもTXT形式で今すぐ保存したいってことじゃなければ更新まで待つのがいいかもだけど、いつになるかわからないのがね。 （この変換処理をDEF定義にしてみるのも勉強にもなったり）

DATは平気でTXT 形式での保存がプチコンBIGではできないみたいなので、公式サイトで↓のような対応方法がのっていたりします。 文字をバイナリ形式に自分で変換して保存して、読み込むときはバイナリ形式から文字に自分で変換する方法です。（行数制限なので一部コード変更） ・書き込み（XTをDATへ変換 A$="ABCDEあいうえお" :L=LEN(A$): DIM O[L] FOR I=0 TO L-1 C$=MID$(A$,I,1): O[I]=ASC(C$) NEXT SAVE "DAT:TEST",O ・読み込み：DATをTXT変換 DIM P[1]: LOAD "DAT:TEST",P : M=LEN(P): B$="" FOR J=0 TO M-1 B$=B$+CHR$(P[J]) NEXT ? B$

すでに回答があるとおりの原因でエラーが起きているので、ループ変数名をサブルーチンごと変更するか、ロジック的にそれぞれのサブルーチンで本当にループが必要か(呼出時点のMOB変数の値をサブルーチン先で使いまわせないか、FORをぬけたあとでも呼べるか)を検討するといいかもです。 ちなみに３９行目の IF THEN のあとに NEXTがあって、４１行目にもNEXTがあるので、 一応これでも動いてるかもしれないですが、FORとNEXTは１対１にしておいたほうが、コードが入り組んだときの思わぬ原因不明バグに陥るのを防げたりします。 ながれからこんな感じになるかなと。 FOR CHKMOBCNT=0 TO 90 IF xx THEN MOBX[xx]=xxx IF xx THEN S[CHKMOBCNT]=1 ELSE GOSUB @MOB1VSCPU1 ENDIF NEXT