'This little program shows the speed between passing parameters to Psprite's   
'in a loop and the new command that needs no loop. 
'
Screen Open 0,320,200,4,L
Curs Off : Flash Off 
Cls 0
Box 0,0 To 15,15
Get Bob 1,0,0 To 16,16
Dim X(30),Y(30),Z(30)
For I=1 To 30
   X(I)=Rnd(300)+128
   Y(I)=Rnd(150)+50
   Z(I)=1
Next 
Set Psprite Colours 4
Convert Sprites 1
T=Timer
For I=1 To 1000
   For L=1 To 30
      Psprite L,X(L),Y(L),1
   Next 
Next 
Print Timer-T
T=Timer
For I=1 To 1000
   Psprite Varptr(X(1)),Varptr(Y(1)),Varptr(Z(1)),1 To 30
Next 
Print Timer-T
Psprite Update 
Wait Key 
End