7TH.BAS

' IchigoJam 7th Anniversaty | IchigoJam BASIC 1.5b+ / RISC-V
' Copyright (c) 2021 Keiichi Shiga (BALLOON | FU-SEN)
' IchigoJam officially logo - CC BY IchigoJam http://ichigojam.net/ Licensed by jig.jp
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2021

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!