das mir leider nur einen Syntaxfehler bei Declare und Procedure liefert.
Nach über einer Stunde herumprobiererei bin ich nun hier ...

Code: Alles auswählen
Structure tParticle
lRadius .l
fAngle .f
lPartSize.l
EndStructure
Declare.l CreateBlackHole ( Particles.tParticle () , lAmount.l )
Procedure.l CreateBlackHole ( Particles.tParticle () , lAmount.l )
ProcedureReturn #Null
EndProcedure
