令和 (IchigoCake BASIC)/Kidspod;

2019/04/18 16:14:42

GOOD!0
PLAY!0
VIEW639

: ふうせん FU-SEN

令和 (IchigoCake BASIC)

IchigoCake BASIC 用です。IchigoJam BASIC は ID=780 です。

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

CLS:'

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

'OK