Setvirtualresolution(640,480)
ResetTimer()
id = CreateParticles(150,150)
SetParticlesLife(id,5)
SetParticlesSize(id,2.0)
SetParticlesVisible(id,Random(0,1))
Do
    If GetParticlesVisible(id)=1
        Print("Particles Visible")
    EndIf
    If GetParticlesVisible(id)=0
        Print("Particles In-Visible")
        If Timer()>3 Then SetParticlesVisible(id,1)
    EndIf
    If Timer()>12 Then Exit
    Sync()
Loop
End