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/18 22:26:03

MixJuice GET URL : kidspod.club/mj/796

IchigoJam 5 周年（IchigoCake BASIC）

IchigoJam officially logo - CC BY IchigoJam https://ichigojam.net/ Licensed by jig.jp

IchigoCake BASIC 専用です。IchigoJam 向けは ID=728 です。

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

SOURCE CODE

CLS:'
 
NEW
 
POKE#1000,0,0,0,0,0,0,0,138,0,0,138,0,130,0,0,0
POKE#1010,0,0,138,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#1020,0,0,0,0,0,0,0,138,138,131,138,139,138,138,139,138
POKE#1030,139,0,138,138,139,130,135,135,133,0,0,0,0,0,0,0
POKE#1040,0,0,0,0,0,0,0,130,130,131,130,130,130,130,139,130
POKE#1050,131,130,131,130,131,129,129,129,129,0,0,0,0,0,0,0
POKE#1060,0,0,0,0,0,0,0,130,131,131,131,131,131,130,131,130
POKE#1070,131,131,131,131,131,131,131,131,129,0,0,0,0,0,0,0
POKE#1080,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#1090,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#10A0,0,0,0,0,0,143,143,143,143,143,143,143,143,143,143,0
POKE#10B0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#10C0,0,0,0,0,0,143,143,143,143,143,143,143,143,143,143,0
POKE#10D0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#10E0,0,0,0,0,0,143,143,0,0,0,0,0,0,0,0,0
POKE#10F0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#1100,0,0,0,0,0,143,143,0,0,0,0,0,0,0,0,0
POKE#1110,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#1120,0,0,0,0,0,143,143,143,143,143,143,143,143,0,0,0
POKE#1130,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#1140,0,0,0,0,0,143,143,143,143,143,143,143,143,0,0,0
POKE#1150,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#1160,0,0,0,0,0,0,0,0,0,0,0,0,0,143,143,0
POKE#1170,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#1180,0,0,0,0,0,0,0,0,0,0,0,0,0,143,143,0
POKE#1190,0,143,0,0,0,0,143,0,0,0,0,0,0,0,0,0
POKE#11A0,0,0,0,0,0,0,0,0,0,0,0,0,0,143,143,0
POKE#11B0,0,143,0,0,0,0,143,0,0,0,0,0,0,0,0,0
POKE#11C0,0,0,0,0,0,0,0,0,0,0,0,0,0,143,143,0
POKE#11D0,143,143,143,143,143,0,143,0,143,143,0,0,0,0,0,0
POKE#11E0,0,0,0,0,0,143,143,0,0,0,0,0,0,143,143,0
POKE#11F0,0,143,0,0,0,0,143,143,0,0,143,0,0,0,0,0
POKE#1200,0,0,0,0,0,143,143,0,0,0,0,0,0,143,143,0
POKE#1210,0,143,0,0,0,0,143,0,0,0,143,0,0,0,0,0
POKE#1220,0,0,0,0,0,0,0,143,143,143,143,143,143,0,0,0
POKE#1230,0,143,0,0,0,0,143,0,0,0,143,0,0,0,0,0
POKE#1240,0,0,0,0,0,0,0,143,143,143,143,143,143,0,0,0
POKE#1250,0,0,143,143,0,0,143,0,0,0,143,0,0,0,0,0
POKE#1260,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#1270,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#1280,134,131,132,0,0,0,0,0,0,130,0,0,0,0,0,0
POKE#1290,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
POKE#12A0,133,0,133,135,131,132,135,131,132,139,0,133,0,133,134,131
POKE#12B0,132,141,131,132,134,131,129,130,131,132,138,134,137,138,0,138
POKE#12C0,135,131,133,133,0,133,133,0,133,138,0,138,138,0,135,131
POKE#12D0,129,133,0,0,130,131,132,134,131,133,138,0,0,0,133,133
POKE#12E0,129,0,129,129,0,129,129,0,129,130,0,0,129,0,130,131
POKE#12F0,0,129,0,0,131,131,0,130,131,130,130,0,0,136,134,0

10 '5th Anniversary 
20 R=RND(768)
30 COPY#900+R,#1000+R,1
40 GOTO 20

'OK

COMMENT