I posted this a long time ago, it never came up, actually, I'm pretty sure it was twice.
sync on
sync rate 70
autocam off
REM naming integers
sqspd#=1
REM positioning camera
position camera -255, 0, 0
rotate camera 0, 90, 0
REM making objects
make object sphere 1, 10
position object 1, 0, 30, 0
make object sphere 2, 14
position object 2, 15, 40, 0
make object sphere 3, 14
position object 3,-15,40,0
for a=4 to 9
make object cone a, 15
next a
make object sphere 10, 15
for b=11 to 14
make object cube b, 12
next b
position object 4, 0, 10, 0
rotate object 5, 90,0,0
position object 5, 0,0,10
rotate object 6, 180,0,0
position object 6, 0, -10, 0
rotate object 7, 270,0,0
position object 7, 0,0,-10
rotate object 8, 0, 0, 90
position object 8, -10, 0, 0
rotate object 9, 0, 0, 270
position object 9, 10, 0, 0
position object 11, 25, 25, 0
position object 12, 25, -25, 0
position object 13, 25, 25, 0
position object 14, 25, -25, 0
rotate object 11, 45, 0, 0
rotate object 12, 45, 0, 0
REM main loop
DO
move object 1, 1
pitch object down 1, 1
move object 2, 2
pitch object down 2, 2
move object 3, 2
pitch object down 3, 2
rotate object a, 0, 1, 0
pitch object down 11, 10
pitch object down 12, 10
pitch object down 13, 5
pitch object down 14, 5
position object 11, 0-sqspd#, 0, 0
position object 12, 0-sqspd#, 0, 0
position object 13, 0-sqspd#, 0, 0
position object 14, 0-sqspd#, 0, 0
if sqspd# = < 1 dec sqspd#, 0.02
if sqspd# = > -1 inc sqspd#, 0.02
if sqspd# = 1 dec sqspd#, 0.02
sync
LOOP
