This works:
Gosub Setup
Make Object Plain 1,10,10
XRotate Object 1,90
Color Object 1,0
For N=2 To 11
Make Object Box N,.2,.1,.6
Color Object N,RGB(255,0,0)
Position Object N,Rnd(10)-5,1,Rnd(10)-5
Point Object N,0,1,0
Next N
Position Camera 0,20,0
Point Camera 0,0,0
Do
If SpaceKey()=1 And SpriteShowing=0
Sprite 1,272,172,1
SpriteShowing=1
Endif
Gosub MoveShips
Sync
Center Text 400,0,"Press Space To Add Mask Sprite"
Loop
MoveShips:
For N=2 To 11
R=Rnd(1)
If R=0
YRotate Object N,WrapValue(Object Angle Y(N)+1)
Else
YRotate Object N,WrapValue(Object Angle Y(N)-1)
Endif
Move Object N,.001
If Object Position X(N)<-4.5 Then Point Object N,0,1,0
If Object Position X(N)>4.5 Then Point Object N,0,1,0
If Object Position Z(N)<-4.5 Then Point Object N,0,1,0
If Object Position Z(N)>4.5 Then Point Object N,0,1,0
Next N
Return
Setup:
Set Display Mode 800,600,32
Sync On
Sync Rate 0
CLS
Create Bitmap 1,640,480
CLS RGB(128,128,128)
Ink 0,0
For N=1 To 100
Circle 128,128,N
Circle 128,129,N
Next N
Get Image 1,0,0,256,256
Set Current Bitmap 0
Delete Bitmap 1
Ink RGB(255,255,255),0
Return
TDK_Man