position light 0,0,100,0<BR>
color light 0,512,512,255<BR>
set light range 0,1000<BR>
while inkey$()<>"x"<BR>
set cursor 0,0<BR>
print "LIGHT COMMANDS (X to Exit)"<BR>
print "position x:";light position x(0)<BR>
print "position y:";light position y(0)<BR>
print "position z:";light position z(0)<BR>
sync<BR>
endwhile<BR>
delete object 1<BR>
set normalization on<BR>
end<BR>
</pre>
</font>
<!-- See Also -->
<table width="590" cellpadding="3">
<tr><td bgcolor="#0d4283"><font color="#ffffff" size="3"><b>&nbsp;
S