綺麗な花火 - abwiki @ ウィキ (ActiveBasic非公式wiki)

N88BASICでグラフィック命令を覚えたら
最初に作るのが花火

'綺麗な花火
#N88BASIC
CONST PI = 3.1416
Const BASE = 380
Dim x As Long, y As Long
Dim yy As Long, r As Long
Dim c As Long, k As Double
Dim p As Long
Dim ax As Long, ay As Long
Randomize
Cls 3
Line(0,BASE)-(640,BASE)

*LLL
x = 70+Rnd()*500
yy = 50+Rnd()*50
'
For y=BASE-2 To yy Step -1
Circle(x,y),2,7
Sleep(5)
Circle(x,y),2,0

Next


p = Rnd() * 4

Select Case p
Case 0
For r=10 To 50 Step 2
Circle(x,y),r,Rnd()*7+1
Sleep(40)
Circle(x,y),r,0
Next
Case 1
For k=0 To PI*2 Step PI/15
ax = x + 10*k * Cos(k)
ay = y - 10*k * Sin(k)
Line(x,y)-(ax,ay),Rnd()*7+1
Sleep(40)
Line(x,y)-(ax,ay),0
Next
Case 2
For k=0 To PI*2 Step PI/15
ax = x + 10*k * Cos(k)
ay = y + 10*k * Sin(k)
Line(x,y)-(ax,ay),Rnd()*7+1
Sleep(40)
Line(x,y)-(ax,ay),0
Next
Case 3
For k=0 To 100
ax = x + 100 * Rnd() -50
ay = y + 100 * Rnd() -50
Circle(ax,ay),2,Rnd()*7+1
Sleep(10)
Circle(ax,ay),2,0
Next
End Select
Goto *LLL