令和


2019年4月1日昼前、運営者は NYAN CAT のプログラム公開作業をしていました。

その時に発表された日本の新元号「令和」です。

……やはりこれ、手に持ちたいですよね?

ではせっかくなので、IchigoJam で表示させて、持ってみてはいかがでしょうか?

という事で NYAN CAT の処理を GOSUB させて、ササッと作ってしまいました。

 

プログラムを実行して表示します。時計回り 90° で右の表示にできます。

IchigoJam web でも実行できるので、

タブレット端末で表示させれば本物気分で手に持つ事ができます。

 

次のテクニックを使用していますが、データ転送を短くするため、

VIDEO 2 で反転させ、NEW で 0 リセットする事で、

0 のところは POKE で置かないようにしています。

 

IchigoJam BASIC で画面キャプチャ。| ふうせん🎈 Fu-sen.

 

そのため、必ず NEW を実行し、直後に POKE 以降を入れて下さい。
ダイレクトモードで入れてますが、POKE で入れている先がプログラム領域のため、
LIST で表示できませんが、SAVE・LOAD・LRUN が有効です。

 

IchigoJam BASIC と IchigoCake BASIC では仮想メモリ領域が異なるため、異なるプログラムにしています。ご注意下さい。


IchigoJam BASIC 1.2.0~ (除 IchigoCake BASIC)

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

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

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

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

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

MixJuice ダウンロード ?"MJ GET 15JM.LI/K/780

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



IchigoCake BASIC

NEW

POKE #104A,#88
POKE #1069,#88,#8F,#85
POKE #1089,#8F,#8F,#85
POKE #1095,#88,#8C
POKE #10A8,#8A,#8F,#8F,#85
POKE #10B5,#8E,#8F,#8F,#8C,#8E,#84
POKE #10C8,#8E,#8F,#8F,#81
POKE #10D4,#8A,#8F,#8F,#8F,#8F,#8F,#85
POKE #10E7,#8E,#8F,#8F,#87
POKE #10F5,#8B,#87,#83,#8B,#8F,#85
POKE #1106,#8E,#8F,#8F,#8F
POKE #1115,#8A,#85,0,0,#8F,#8F
POKE #1125,#8E,#8F,#8F,#8F,#8F,#8F,#8C,#84
POKE #1135,#8A,#8F,0,#8C,#8F,#85
POKE #1144,#8E,#8F,#83,0,#8F,#8F,#8F,#8F,#8F,#8F,#84
POKE #1155,#8A,#8B,#8F,#8F,#8F,#8F,#84
POKE #1162,#84,#8E,#87,#81,#8E,#8D,#8B,#8F,0,#83,#8B,#8F,#81
POKE #1175,#88,#8F,#8F,#87,#83,#81
POKE #1181,#8E,#8F,#8F,0,0,#8F,#8F,#82,#8F,#8F,#8F,#8F,#8F,#8F,#8D
POKE #1192,#8C,0,#8A,#8F,#87,#8B,#8C
POKE #11A1,#8F,#8F,#8F,#8D,#8C,#8F,#85,0,#8B,#8F,#83,0,#82,#87,#81
POKE #11B1,#8E,#8F,#84,#8E,#8F,#8D,#8E,#8F,#8C,#8C,#8C,#8C,#8C
POKE #11C3,#83,#8F,#8F,#8D,0,0,#8A,#8F,#85
POKE #11D1,#8F,#8F,#8F,#8F,#8F,#8F,#8F,#8F,#87,#8F,#8F,#8F,#8F,#81
POKE #11E5,#8B,#8F,#8F,#84,#8A,#8F,#81
POKE #11F1,#83,#8F,#8F,0,#8A,#8F,#8F,#8F,#8F,#84
POKE #1206,#82,#8F,#8F,#84
POKE #1212,#8B,#85,0,#8A,#8F,#8D,#82,#8F,#8F
POKE #1228,#8B,#8F
POKE #1233,#8F,0,0,#8F,#8F,#84,0,#8B,#84
POKE #1249,#8B,#8D
POKE #1253,#82,0,0,#8A,#8F,#8F,0,#82,#81
POKE #126A,#83,#84
POKE #1276,#8A,#8F,#85
POKE #1296,#8A,#83
 
10 'Reiwa
20 VIDEO 2
30 COPY #900,#1000,768
40 IF !INKEY() CONT
50 VIDEO 1
60 CLS

MixJuice ダウンロード ?"MJ GET 15JM.LI/K/789

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