Setvirtualresolution(640,480)
ResetTimer()
//Create and display a Backdrop
For x=0 to 1024 Step 10
    DrawLine(0,0,x,600,Random(0,255),Random(0,255),Random(0,255))
    Update(0)
    Render()
Next x
GetImage(1,0,0,640,480)
CreateSprite(1,1)

id = CreateParticles(150,150)
SetParticlesSize(id,2.0)
SetParticlesLife(id,5)

FixParticlesToScreen(id,1)
//FixParticlesToScreen(id,0)

//Move the screen viewport to see the effect on the Particle Emitter.
Repeat
    For s=1 to 10 step 2
        SetViewOffset(0,s)
        Sleep(500)
        Sync()
    Next s
    Sync()
Until Timer()>16
End