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

2019/04/01 13:12:16

MixJuice GET URL : kidspod.club/mj/780

令和 (IchigoJam BASIC 1.2.0~)

Ichigojam BASIC 用です。IchigoCake BASIC は ID=789 です。

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

SOURCE CODE

CLS:'

NEW

POKE #D4A,#88
POKE #D69,#88,#8F,#85
POKE #D89,#8F,#8F,#85
POKE #D95,#88,#8C
POKE #DA8,#8A,#8F,#8F,#85
POKE #DB5,#8E,#8F,#8F,#8C,#8E,#84
POKE #DC8,#8E,#8F,#8F,#81
POKE #DD4,#8A,#8F,#8F,#8F,#8F,#8F,#85
POKE #DE7,#8E,#8F,#8F,#87
POKE #DF5,#8B,#87,#83,#8B,#8F,#85
POKE #E06,#8E,#8F,#8F,#8F
POKE #E15,#8A,#85,0,0,#8F,#8F
POKE #E25,#8E,#8F,#8F,#8F,#8F,#8F,#8C,#84
POKE #E35,#8A,#8F,0,#8C,#8F,#85
POKE #E44,#8E,#8F,#83,0,#8F,#8F,#8F,#8F,#8F,#8F,#84
POKE #E55,#8A,#8B,#8F,#8F,#8F,#8F,#84
POKE #E62,#84,#8E,#87,#81,#8E,#8D,#8B,#8F,0,#83,#8B,#8F,#81
POKE #E75,#88,#8F,#8F,#87,#83,#81
POKE #E81,#8E,#8F,#8F,0,0,#8F,#8F,#82,#8F,#8F,#8F,#8F,#8F,#8F,#8D
POKE #E92,#8C,0,#8A,#8F,#87,#8B,#8C
POKE #EA1,#8F,#8F,#8F,#8D,#8C,#8F,#85,0,#8B,#8F,#83,0,#82,#87,#81
POKE #EB1,#8E,#8F,#84,#8E,#8F,#8D,#8E,#8F,#8C,#8C,#8C,#8C,#8C
POKE #EC3,#83,#8F,#8F,#8D,0,0,#8A,#8F,#85
POKE #ED1,#8F,#8F,#8F,#8F,#8F,#8F,#8F,#8F,#87,#8F,#8F,#8F,#8F,#81
POKE #EE5,#8B,#8F,#8F,#84,#8A,#8F,#81
POKE #EF1,#83,#8F,#8F,0,#8A,#8F,#8F,#8F,#8F,#84
POKE #F06,#82,#8F,#8F,#84
POKE #F12,#8B,#85,0,#8A,#8F,#8D,#82,#8F,#8F
POKE #F28,#8B,#8F
POKE #F33,#8F,0,0,#8F,#8F,#84,0,#8B,#84
POKE #F49,#8B,#8D
POKE #F53,#82,0,0,#8A,#8F,#8F,0,#82,#81
POKE #F6A,#83,#84
POKE #F76,#8A,#8F,#85
POKE #F96,#8A,#83

10 'Reiwa
20 VIDEO 2
30 COPY #900,#D00,768
40 IF !INKEY() CONT
50 VIDEO 1
60 CLS

'OK

COMMENT

Kidspod運営チーム
Kidspod運営チーム2019/04/01 17:51:59

元号の発表から2時間ほど。仕事が早い! 書体もこだわっていて、いい感じですね。さて、どんな時代になるでしょうか……。