Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2020/05/24 22:07:24

MixJuice GET URL : kidspod.club/mj/969

アマビエ(IchigoJam BASIC 1.2.0~)

COPY を用いて一瞬で表示するバージョンです。
IchigoJam BASIC 1.0~1,1 は id=971 を使用できます。

詳細は イチゴジャム レシピ で公開しています。
「プログラムをみる」を参照して下さい。

SOURCE CODE

CLS:'

NEW

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 'Amabie
20 CLS
30 COPY #9A0,#E40,448
40 IF !INKEY() CONT
50 CLS

'OK

COMMENT

Kidspod運営チーム
Kidspod運営チーム2020/05/27 11:34:18

噂の妖怪ですね。本当に、はやくコロナ禍が治まってほしいものです。医療従事者の方々に最大限の感謝を。