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

2021/04/01 20:51:23

MixJuice GET URL : kidspod.club/mj/2063

IchigoJam 7 周年(BASIC RISC-V)

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

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

SOURCE CODE

CLS:'
 
NEW
 
POKE #F88,15,21,15,25,19,23,17,23
POKE #F90,17,23,17,25,17,25,19,25
POKE #F98,21,21,21,25,21,23,23,23
POKE #FA0,23,23,23,25,25,21,25,21
POKE #FA8,25,23,25,25,29,25,27,25
POKE #FB0,27,25,27,23,27,23,29,23
POKE #FB8,29,23,29,27,29,27,27,27
POKE #FC0,31,23,33,23,33,23,33,25
POKE #FC8,33,25,31,25,31,25,31,23
POKE #FD0,37,21,37,25,37,25,35,25
POKE #FD8,41,25,41,23,41,23,39,23
POKE #FE0,39,23,39,25,39,25,42,25
POKE #FE8,43,23,48,23,44,23,44,25
POKE #FF0,46,23,46,25,48,23,48,25
POKE #FF8,15,27,25,27,31,27,48,27

100 'IchigoJam 7th Aniversary!
110 S=50
120 FOR C=S*30 TO S STEP -10
130 CLS
140 FOR A=#F88 TO #FFC STEP 4
150 FOR B=0 TO 3
160 [B]=PEEK(A+B)
170 IF B%2 D=24 ELSE D=32
180 [B]=((D*(S-C))+([B]*C))/S
190 NEXT
195 IF[0]=[2]AND[1]=[3]GOTO 205
200 DRAW [0],[1],[2],[3]
201 GOTO 210
205 DRAW [0],[1]
210 NEXT
220 NEXT
230 LC 9,15:?"7th Aniversary!
 
'OK

COMMENT

Kidspod運営チーム
Kidspod運営チーム2021/04/12 17:28:16

IchigoJam 7周年、ありがとうございます。演出カッコいいです。じわじわと全体が見えてきて、正体に気づいたときの「ハッ!」という感じがとてもナイス。