Just change the image to something you like. Though sphere mapping on a sphere won't look like much. The way the object gets its effect is by its rotation. Rotating a sphere will always look the same from every angle.
sync on
backdrop on
autocam off
obj_num = 1
tex_num = 1
load image "spacesphere.bmp", 1
make object sphere obj_num, 50
position object obj_num, 0,0,200
set sphere mapping on obj_num, tex_num
do
rem Rotate object
ay#=wrapvalue(ay#+0.10)
ax#=wrapvalue(ax#+0.03)
az#=wrapvalue(az#+0.01)
rotate object 1,ax#,ay#,az#
sync
loop