R>
set global object creation 0<BR>
set dir "models"<BR>
load object "ast4.x",ObjectNumber<BR>
set object specular ObjectNumber,0<BR>
rotate object ObjectNumber,270,0,0<BR>
set dir ".."<BR>
set cube mapping on ObjectNumber,11,12,13,14,15,16<BR>
while mouseclick()<>2<BR>
set cursor 0,0<BR>
print "press 1 to set object wireframe";wire:if inkey$()="1" then wire=1-wire:set object wireframe ObjectNumber,wire<BR>
print "press 2 to set object transparency";trans:if inkey$()="2" then trans=1-trans:set object transp