Update 3d.bas