PanCake に備わっている色パレットおよび画像を表示します。
全画面表示になります。
実行時はリセットを行うため、
画像 00(PanCake 起動時の画面)を表示します。
その後キー入力になります。
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
内蔵画像が多いので、別プログラムにしてあります。
また IchigoCake 専用コマンド PC.~ やBASIC 1.3 に対応した記載に変更してあります。
キーの割り当ては次のとおりです。
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
SkyBerryJAM は 栃木県立栃木工業高等学校 が管理する登録商標であり、
SkyBerryJAM は 栃木県立栃木工業高等学校 の商標です。
Raspberry Pi は
Raspberry Pi 財団 の登録商標です。
Raspberry Pi is a registered trademark or
trademark of
the Raspberry Pi Foundation.
"RISC-V" の商品名は RISC-Vインターナショナル が管理する登録商標です。
The “RISC-V” trade name is a registered trade mark of
RISC-V International.