FIREWORK.BAS

' fireworks | IchigoJam BASIC 0.9.9- (recommend: 1.0.0-)
' Copyright (c) 2015 Keiichi Shiga (BALLOON | FU-SEN)
' The MIT License (MIT) - https://mit.balloon.net.eu.org/#2015
10 'ÊÅËÞ
20 CLV:CLS
30 LET [0],6,1,4,4
40 LET [4],9,5,10,3
50 LET [8],10,1,7,7
60 T=RND(11)+10
70 LC T,23:? "."
80 FOR Y=22 TO 11 STEP -1
90 LC T,23:?:WAIT 15
100 NEXT
110 FOR I=0 TO 10
120 FOR J=0 TO 10 STEP 2
130 LET A,[J]*I/10
140 LET B,[J+1]*I/10
150 LET X,A:LET Y,B
160 LET C,42:GOSUB 260
170 LET X,[J+50]:LET Y,[J+51]
180 LET C,32:GOSUB 260
190 LET [J+50],A:LET [J+51],B
200 NEXT:NEXT
210 FOR J=0 TO 10 STEP 2
220 LET X,[J+50]:LET Y,[J+51]
230 LET C,32:GOSUB 260
240 NEXT
250 WAIT RND(120):GOTO 50
260 LET D,X:LET E,Y:GOSUB 290
270 LET E,X:LET D,Y:GOSUB 290
280 RETURN
290 POKE #900+T+D+(10+E)*32,C
300 POKE #900+T+D+(10-E)*32,C
310 POKE #900+T-D+(10+E)*32,C
320 POKE #900+T-D+(10-E)*32,C
330 RETURN