フォントデータなどの2種類の文字で構成された文字列を圧縮します。文字数が8の倍数の用途を想定しているため、圧縮する文字列がそれ以外の文字数だと、圧縮、解凍すると末尾の数文字が消えるようです。対策として文字数が8の倍数になるように調整してください。@ASYUBするとB$に圧縮された文字列が入ります。@KAIBするとN$に解凍された文字列が入ります。QRコードプチコンmkII向けのQRコードです。(ひとことコメント)この作品に対するコメントがあれば一言どうぞ。ルーチンの組み込みはご自由にどうぞ。圧縮ルーチンは同梱のDATA文を読み込まないとうまく動かないのでAPPENDの際はご注意ください。解凍ルーチンはそのような心配はありません。あとCHR$(9)やCHR$(13)のように別の色を用いている場合はASF$を書き換えてください。平均圧縮率は「(計測予定)」になっています。errorが出ています。組み込んで使うためのものなので、そのまま実行するとエラーが出ます。(動作確認サンプルはまだ出ていません。あとこの圧縮で00000000ffffffff(0とfが8文字ずつ)を入れると13行目CHR$でC+Lの値が256になりエラーが出ます。あれ、DATA文が付属されてない模様。修正版を今日中に上げておきますね。徹底的に無駄(おもにコロン)を省いたのでDATA文が増えたにもかかわらずファイルサイズは12Bくらい減ってます。その代わり画面からはみ出る部分ができました。◆1sxkymI8ji30。