该程序是用CIRCLE语句画出六个圆弧模拟烟花。为了使效果更逼真，使用一个一维数组存放圆弧半径，因此，烟花出现时，圆弧由小到大扩散，扩散速度由快到慢，圆环由厚到薄，最后消失。图案表现出多维变化的效果。
　　程序清单如下：
　　SCREEN 13
　　DIM col(10)
　　col(0)=9:col(1)=10:col(2)=11
　　col(3)=12:col(4)=13:col(5)=14
　　DIM a(150)
　　b=150
　　FOR i=1 TO 150
　　b=b*0.95
　　a(i)=150－b
　　NEXT i
　　rept:
　　x=INT(319*RND(1))
　　y=INT(100*RND(1))
　　z=INT(6*RND(1))
　　FOR i=1 TO 75
　　IF i>68 THEN GOTO sk
　　CIRCLE (x,y),a(i),col(z),0,0.6
　　CIRCLE (x,y),a(i),col(z),1.046,1.646
　　CIRCLE (x,y),a(i),col(z),2.094,2.694
　　CIRCLE (x,y),a(i),col(z),3.139,3.739
　　CIRCLE (x,y),a(i),col(z),4.187,4.787
　　CIRCLE (x,y),a(i),col(z),5.232,5.832
　　sk:
　　fOR k=1 TO 3000 STEP 10:NEXT k
　　IF i<10 THEN GOTO skip
　　CIRCLE (x,y),a(i－10),0
　　skip:
　　NEXT i
　　FOR k=1 TO 10000 STEP 1:NEXT k
　　GOTO rept
　　END