REM 944BASIC '花火（？）'

*INIT
COLORBG 255,255,255: COLORFG 0,0,0
DIM DX(15)=0,1,2,2,3,2,2,1,0,-1,-2,-2,-3,-2,-2,-1
DIM DY(15)=-3,-2,-2,-1,0,1,2,2,3,2,2,1,0,-1,-2,-2
C=0: X=112: Y=128: R=0: DR=((RND+TIME)%2)*2-1
BOXFILL 112,128,127,159
BOXFILL 104,160,135,164
PRINT '     [決定]キーで点火'

*WAIT
SYNC
IF PADONA THEN GOTO *LOOP
GOTO *WAIT

*LOOP
SYNC
X=X+DX(R):Y=Y+DY(R)
IF X<0 THEN X=0
IF X>223 THEN X=223
IF Y<16 THEN Y=16
IF Y>223 THEN Y=223
COLORFG 96,96,96: BOXFILL X,Y,X+16,Y+16
COLORFG 72,72,72: BOXFILL X+10,Y+10,X+16,Y+16
COLORFG 0,0,0: BOXFILL X+13,Y+13,X+16,Y+16
COLORFG 128,128,128: BOXFILL X,Y,X+6,Y+6
COLORFG 192,192,192: BOXFILL X,Y,X+3,Y+3
A=(RND+TIME)%10
IF A>8 THEN DR=0-DR
IF A>3 THEN R=R+DR
IF R=-1 THEN R=15
IF R=16 THEN R=0
C=C+1: IF C>300 THEN GOTO *FINISH
GOTO *LOOP

*FINISH
SYNC
MESSAGE '以上､ヘビ花火でした｡'
END