アマビエ


江戸時代の話。ところは肥後(現在の熊本県)

夜、海に光っているものを見つけ、役人が行ったところ、
そこには 妖怪アマビエ がいました。

 

「今後 6 年は豊作が続きます。
 しかし疫病も流行するかもしれません。

 その時は私の姿を描き写した絵を
 人々へ早々に見せて下さい」

 

2020 年、新型コロナウイルスの世界的な流行と共に

日本では疫病退散にご利益がある
アマビエも各所で見られる状況になりました。

 

IchigoJam でもコロナの影響が見られますが、
IchigoJam らしくアマビエを出しておこうと

運営者は仮想グラフィックでアマビエを描いてみました。

IchigoJam でアマビエを表示させて疫病退散しましょう!

 

メモリマップよりプログラム領域が

IchigoJam BASIC と IchigoCake BASIC で異なるため、別々のプログラムで公開しています。

更に IchigoJam BASIC 1.0 以降・IJUtilities などのモニタに対応したバージョンと

IchigoJam BASIC 1.2 以降で COPY を用いて一瞬で表示するバージョンを用意しました。


IchigoJam BASIC 0.9.9-RC6~・モニタ対応

多くの IchigoJam で動作できるようにしたバージョンです。正式版 IchigoJam BASIC 1.0.0 以降で動作可能です。

IJUtilities などのモニタ表示にも対応しています。

 

POKE #E40,#20,#20,#20,#20,#20,#20,#20,#20
POKE #E48,#20,#20,#20,#20,#20,#8C,#83,#89
POKE #E50,#86,#89,#84,#20,#20,#20,#20,#20
POKE #E58,#20,#20,#20,#20,#20,#20,#20,#20
POKE #E60,#20,#20,#20,#20,#20,#20,#20,#20
POKE #E68,#20,#20,#20,#20,#86,#88,#83,#89
POKE #E70,#86,#89,#86,#89,#20,#20,#20,#20
POKE #E78,#20,#20,#20,#20,#20,#20,#20,#20
POKE #E80,#20,#20,#20,#20,#20,#20,#20,#20
POKE #E88,#20,#20,#20,#8A,#88,#81,#8C,#83
POKE #E90,#83,#8C,#82,#84,#89,#20,#20,#20
POKE #E98,#20,#20,#20,#20,#20,#20,#20,#20
POKE #EA0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #EA8,#20,#20,#20,#85,#85,#86,#20,#20
POKE #EB0,#20,#20,#89,#82,#84,#85,#20,#20
POKE #EB8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #EC0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #EC8,#20,#20,#8A,#8E,#8C,#81,#86,#84
POKE #ED0,#20,#20,#86,#84,#85,#8A,#20,#20
POKE #ED8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #EE0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #EE8,#20,#20,#86,#89,#8C,#8D,#82,#20
POKE #EF0,#20,#88,#81,#85,#85,#8A,#20,#20
POKE #EF8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F00,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F08,#20,#20,#8A,#89,#8C,#81,#20,#20
POKE #F10,#20,#8A,#8A,#8A,#8A,#8A,#20,#20
POKE #F18,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F20,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F28,#20,#20,#8A,#8A,#8A,#89,#89,#89
POKE #F30,#89,#89,#89,#8B,#8A,#82,#84,#20
POKE #F38,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F40,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F48,#20,#20,#85,#8A,#89,#89,#89,#89
POKE #F50,#89,#89,#89,#89,#8B,#20,#85,#20
POKE #F58,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F60,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F68,#20,#20,#85,#8D,#89,#89,#89,#89
POKE #F70,#89,#89,#89,#89,#89,#85,#85,#20
POKE #F78,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F80,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F88,#20,#20,#85,#8D,#89,#89,#89,#89
POKE #F90,#89,#89,#89,#89,#89,#85,#85,#20
POKE #F98,#20,#20,#20,#20,#20,#20,#20,#20
POKE #FA0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #FA8,#20,#8A,#8A,#20,#85,#8A,#20,#85
POKE #FB0,#20,#85,#8A,#20,#85,#8A,#8A,#20
POKE #FB8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #FC0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #FC8,#20,#20,#81,#8B,#81,#8A,#88,#81
POKE #FD0,#84,#89,#8A,#20,#8B,#81,#81,#20
POKE #FD8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #FE0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #FE8,#20,#20,#20,#20,#83,#83,#81,#83
POKE #FF0,#83,#81,#83,#83,#81,#20,#20,#20
POKE #FF8,#20,#20,#20,#20,#20,#20,#20,#20

10 'アマビエ
20 CLS
30 LC0,5
40 FOR A=#E40 TO #FFF
50 ? CHR$(PEEK(A));
60 NEXT
70 IF !INKEY() GOTO 70
80 CLS

IchigoJam web でプログラムを実行します。

このQRコードはアクセス解析のためにCookieを使用しています。

アクセス解析は匿名で収集されており、個人を特定するものではありません。

この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。

MixJuice ダウンロード ?"MJ GET 15J.IN/971

MicJack ダウンロード ?”MJ SPW 30 → ?"MJ GKP 971



IchigoJam BASIC 1.2.0~

IchigoJam BASIC 1.2 より採用されている COPY を用いてすぐ表示するようにしたバージョンです。

 

POKE #E40,#20,#20,#20,#20,#20,#20,#20,#20
POKE #E48,#20,#20,#20,#20,#20,#8C,#83,#89
POKE #E50,#86,#89,#84,#20,#20,#20,#20,#20
POKE #E58,#20,#20,#20,#20,#20,#20,#20,#20
POKE #E60,#20,#20,#20,#20,#20,#20,#20,#20
POKE #E68,#20,#20,#20,#20,#86,#88,#83,#89
POKE #E70,#86,#89,#86,#89,#20,#20,#20,#20
POKE #E78,#20,#20,#20,#20,#20,#20,#20,#20
POKE #E80,#20,#20,#20,#20,#20,#20,#20,#20
POKE #E88,#20,#20,#20,#8A,#88,#81,#8C,#83
POKE #E90,#83,#8C,#82,#84,#89,#20,#20,#20
POKE #E98,#20,#20,#20,#20,#20,#20,#20,#20
POKE #EA0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #EA8,#20,#20,#20,#85,#85,#86,#20,#20
POKE #EB0,#20,#20,#89,#82,#84,#85,#20,#20
POKE #EB8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #EC0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #EC8,#20,#20,#8A,#8E,#8C,#81,#86,#84
POKE #ED0,#20,#20,#86,#84,#85,#8A,#20,#20
POKE #ED8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #EE0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #EE8,#20,#20,#86,#89,#8C,#8D,#82,#20
POKE #EF0,#20,#88,#81,#85,#85,#8A,#20,#20
POKE #EF8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F00,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F08,#20,#20,#8A,#89,#8C,#81,#20,#20
POKE #F10,#20,#8A,#8A,#8A,#8A,#8A,#20,#20
POKE #F18,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F20,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F28,#20,#20,#8A,#8A,#8A,#89,#89,#89
POKE #F30,#89,#89,#89,#8B,#8A,#82,#84,#20
POKE #F38,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F40,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F48,#20,#20,#85,#8A,#89,#89,#89,#89
POKE #F50,#89,#89,#89,#89,#8B,#20,#85,#20
POKE #F58,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F60,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F68,#20,#20,#85,#8D,#89,#89,#89,#89
POKE #F70,#89,#89,#89,#89,#89,#85,#85,#20
POKE #F78,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F80,#20,#20,#20,#20,#20,#20,#20,#20
POKE #F88,#20,#20,#85,#8D,#89,#89,#89,#89
POKE #F90,#89,#89,#89,#89,#89,#85,#85,#20
POKE #F98.#20,#20,#20,#20,#20,#20,#20,#20
POKE #FA0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #FA8,#20,#8A,#8A,#20,#85,#8A,#20,#85
POKE #FB0,#20,#85,#8A,#20,#85,#8A,#8A,#20
POKE #FB8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #FC0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #FC8,#20,#20,#81,#8B,#81,#8A,#88,#81
POKE #FD0,#84,#89,#8A,#20,#8B,#81,#81,#20
POKE #FD8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #FE0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #FE8,#20,#20,#20,#20,#83,#83,#81,#83
POKE #FF0,#83,#81,#83,#83,#81,#20,#20,#20
POKE #FF8,#20,#20,#20,#20,#20,#20,#20,#20

10 'アマビエ
20 CLS
30 COPY #9A0,#E40,448
40 IF !INKEY() CONT
50 CLS

IchigoJam web でプログラムを実行します。

このQRコードはアクセス解析のためにCookieを使用しています。

アクセス解析は匿名で収集されており、個人を特定するものではありません。

この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。

MixJuice ダウンロード ?"MJ GET 15J.IN/969

MicJack ダウンロード ?”MJ SPW 30 → ?"MJ GKP 969



IchigoCake BASIC

IchigoCake BASIC はプログラム領域の番地が異なるので、別のプログラムにしました。

 

POKE #19A0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #19A8,#20,#20,#20,#20,#20,#8C,#83,#89
POKE #19B0,#86,#89,#84,#20,#20,#20,#20,#20
POKE #19B8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #19C0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #19C8,#20,#20,#20,#20,#86,#88,#83,#89
POKE #19D0,#86,#89,#86,#89,#20,#20,#20,#20
POKE #19D8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #19E0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #19E8,#20,#20,#20,#8A,#88,#81,#8C,#83
POKE #19F0,#83,#8C,#82,#84,#89,#20,#20,#20
POKE #19F8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1A00,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1A08,#20,#20,#20,#85,#85,#86,#20,#20
POKE #1A10,#20,#20,#89,#82,#84,#85,#20,#20
POKE #1A18,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1A20,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1A28,#20,#20,#8A,#8E,#8C,#81,#86,#84
POKE #1A30,#20,#20,#86,#84,#85,#8A,#20,#20
POKE #1A38,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1A40,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1A48,#20,#20,#86,#89,#8C,#8D,#82,#20
POKE #1A50,#20,#88,#81,#85,#85,#8A,#20,#20
POKE #1A58,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1A60,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1A68,#20,#20,#8A,#89,#8C,#81,#20,#20
POKE #1A70,#20,#8A,#8A,#8A,#8A,#8A,#20,#20
POKE #1A78,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1A80,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1A88,#20,#20,#8A,#8A,#8A,#89,#89,#89
POKE #1A90,#89,#89,#89,#8B,#8A,#82,#84,#20
POKE #1A98,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1AA0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1AA8,#20,#20,#85,#8A,#89,#89,#89,#89
POKE #1AB0,#89,#89,#89,#89,#8B,#20,#85,#20
POKE #1AB8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1AC0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1AC8,#20,#20,#85,#8D,#89,#89,#89,#89
POKE #1AD0,#89,#89,#89,#89,#89,#85,#85,#20
POKE #1AD8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1AE0,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1AE8,#20,#20,#85,#8D,#89,#89,#89,#89
POKE #1AF0,#89,#89,#89,#89,#89,#85,#85,#20
POKE #1AF8,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1B00,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1B08,#20,#8A,#8A,#20,#85,#8A,#20,#85
POKE #1B10,#20,#85,#8A,#20,#85,#8A,#8A,#20
POKE #1B18,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1B20,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1B28,#20,#20,#81,#8B,#81,#8A,#88,#81
POKE #1B30,#84,#89,#8A,#20,#8B,#81,#81,#20
POKE #1B38,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1B40,#20,#20,#20,#20,#20,#20,#20,#20
POKE #1B48,#20,#20,#20,#20,#83,#83,#81,#83
POKE #1B50,#83,#81,#83,#83,#81,#20,#20,#20
POKE #1B58,#20,#20,#20,#20,#20,#20,#20,#20

10 'アマビエ
20 CLS
30 COPY #9A0,#19A0,448
40 IF !INKEY() CONT
50 CLS

MixJuice ダウンロード ?"MJ GET 15J.IN/970

MicJack ダウンロード ?"MJ SPW 30 → ?"MJ GKP 970


IchigoJam BASIC+MixJuice

?"MJ GET 15J.IN/A
?"MJ GETS 15J.IN/A (IchigoJam web タイオウ)

プログラムではなく、コメントで直接表示させています。そのため行頭(画面左)に ' が表示されます。


IchigoJam 関連で他に公開されているアマビエ

IchigoJam 関連では他に次のアマビエが公開されています。

  • AmabieDakeペンダント | PCN
    IchigoDake のアマビエ形状。DakeCap+ネックストラップ付です。
    初期状態では目が光るプログラムが入っていて、胸にぶらさげて目を光らせて疫病退散できます。