( Example which creates spiral by using given number of spheres

VARIABLE fCnt
0.1 FCONSTANT fSize

: CrSpiral ( iHowmany )
    iLOCK_EXCL O_LOCK
    0 DO
	( position for the sphere to be created
        I 0.1 F* SIN I 100 F/ F*
        I 0.1 F* COS I 100 F/ F*
        I 100 F/

	( size of the sphere
        fSize 0     0  ( a )
        0     fSize 0   ( b )
        0     0     fSize ( c )

	( other attributes
        255 255 255 0  ( RGBA )
        "ellipsoid" 
        0 ( flags )
        "CEND"
        C_ELLIPSOID DROP
    LOOP
    iLOCK_REMOVE O_LOCK
;

: Spiral
    ( ask the number of spheres
    fCnt "Enter Number of Spheres" GET_FLT

    ( if user clicked OK, create spiral
    IF
        fCnt F@ CrSpiral
    ENDIF
;