背景色・画像表示

PanCake に備わっている色パレットおよび画像を表示します。

全画面表示になります。

実行時はリセットを行うため、
画像 00(PanCake 起動時の画面)を表示します。

その後キー入力になります。

  • 0〜9・A〜F → 色パレット 0〜f へ変更します。
  • G〜N → 画像 0〜7 へ変更します。
  • スペース・Enter(return) → プログラムを終了します。

PanCake 公式サイト や製品の紙面に
色・画像の一覧表示がありますが、

実際に表示させていないと
分からない色・画像もあるものです。

実行して、色・画像を確認していただければと思います。

 

HEX$() を使用せず、
キー入力を生かして CHR$() で出力しているため、
IchigoJam BASIC 対応も広くしてあります。

 


10 'PanCake Output Background
20 CLV:IF VER()>11000 UART 1
30 ?"PANCAKE RESET
40 VIDEO 0:?"PANCAKE VIDEO 01
50 K=INKEY():L=0
60 IF(K>47)*(K<58)L=1
70 IF(K>64)*(K<79)L=1
80 IF(K>96)*(K<111)K=K-32:L=1
90 IF(K=10)+(K=32)GOTO 150
100 IF L=0 GOTO 50
110 ?"PANCAKE ";
120 IF K<71 ?"CLEAR ";:GOTO 140
130 ?"IMAGE ";:K=K-23
140 ?"0";CHR$(K):GOTO 50
150 VIDEO 1:?"PANCAKE VIDEO 00

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/614

MicJack ダウンロード ?"MJ GKP 614


CakeRes✕レトロゲームズ版

内蔵画像が多いので、別プログラムにしてあります。
また IchigoCake 専用コマンド PC.~ やBASIC 1.3 に対応した記載に変更してあります。

キーの割り当ては次のとおりです。

  • 0~F → 色パレット 0~f
  • G~V → 画像 00~0f
  • SPACE・Enter → プログラム終了
10 'ResXレトロ Output Background
20 CLV:?:UART 1:PC.RESET
30 VIDEO 0:PC.VIDEO 1
40 K=INKEY():L=0
50 IF K=10 OR K=32 GOTO 120
60 IF K>47 AND K<58 K=K-48:L=1
70 IF K>64 AND K<87 K=K-55:L=1
80 IF K>96 AND K<119 K=K-87:L=1
90 IF !L GOTO 40
100 IF K<16 PC.CLEAR K:GOTO 40
110 K=K-16:PC.IMAGE K:GOTO 40
120 VIDEO 1:PC.VIDEO 0

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/820

MicJack ダウンロード ?"MJ GKP 820