'GFA Punch 31
'Feu d'artifice
Cls
Dim X%(15),Y%(15),Vco%(15),Vsi%(15),T%(15)
Do
  Exit If Getkey
  Plot X%(I%),Y%(I%)
  Add X%(I%),Vco%(I%)
  Sub Y%(I%),Vsi%(I%)-T%(I%)
  If X%(I%)>0 And X%(I%)<240 And Y%(I%)>0 And Y%(I%)<128 Then
    Plot X%(I%),Y%(I%)
    Add T%(I%),1
  Else
    X%(I%)=120
    Y%(I%)=64
    K%=2.+(Rnd*12.)
    Vco%(I%)=K%*(-0.5+Rnd)
    Vsi%(I%)=K%*(0.86+Rnd*0.13)
    T%(I%)=0
  Endif
  I%=(-I%-1)*(I%<15)
  Inc Count%
  If Count%>=70 Then
    Cls
    Count%=0
  Endif
Loop