SubExplosionIfexploding=truethen' Move along with groundexplosionSize=explosionSize+2IfexplosionSize>70thenexploding=falseexplosionSize=0' Move parts off screenShapes.HideShape(Array.GetValue("explosion",1))Shapes.HideShape(Array.GetValue("explosion",2))Shapes.HideShape(Array.GetValue("explosion",3))Shapes.HideShape(Array.GetValue("explosion",4))else' Move all pieces of explosion in four directionsShapes.ShowShape(Array.GetValue("explosion",1))Shapes.ShowShape(Array.GetValue("explosion",2))Shapes.ShowShape(Array.GetValue("explosion",3))Shapes.ShowShape(Array.GetValue("explosion",4))temp=Array.GetValue("explosion",1)Shapes.Move(temp,explosionX+explosionSize,explosionY+explosionSize)temp=Array.GetValue("explosion",2)Shapes.Move(temp,explosionX+explosionSize,explosionY-explosionSize)temp=Array.GetValue("explosion",3)Shapes.Move(temp,explosionX-explosionSize,explosionY+explosionSize)temp=Array.GetValue("explosion",4)Shapes.Move(temp,explosionX-explosionSize,explosionY-explosionSize)Program.Delay(DT)endifendifEndSub'Explosion