哪们兄台指点一下这段代码

awnusspgy

怎么写才能隐藏它们相同体积的实体，谢谢！！
+ D, A& K) C! F- I) Q' I

awnusspgy

   ENTITY /body,obj(1000)
7 |  j- H: |5 v% Y/ w2 C    NUMBER /n(42),r(42),density,d,dd

density=1

( E8 l1 i3 u8 a9 W3 I( v& K( ~l10:
   mask/70
2 L9 K1 S' V. R( G   ident/'选择实体',body,resp
   jump /l10:,end:,,,resp
6 [. y" f% P: F2 H5 c" b. w   &sdens(body)=density
$ U" [; U& }7 b" w8 p   anlsis/solid,body,gcm,n
+ C& B2 X4 O$ r- n! u: t& s  y- z   d=n(3)*1000
   $$messg/'该物体的重量为'+fstr(d)+'克'
$ i* x4 Y2 K8 R- {  t0 a% C/ Q; f
   $$--------------
' z6 E; h3 y9 Y( ]4 |2 U3 W* H0 k3 Wl20:
! C6 k' ]  X' w) t3 V' R9 k   mask/70
   ident/'选择实体',obj,cnt,u,resp
- ~8 c) z: Q( H5 ^   jump /l10:,end:,,,resp

' ?% K7 ]$ q1 }8 a4 Ml30:
# s) E7 {- K( e1 d( l, H   do/l40:,i,1,u
0 s1 V, {. z* @& |   &sdens(obj(i))=density
   anlsis/solid,obj(i),gcm,r
7 u6 @, F0 I) [4 K$ j( y( n6 f   dd=r(3)*1000
   print/'该物体的重量为'+fstr(dd)+'克'
. G+ [" Z* u' B: I+ Q1 H, pl40:
l50:
. E' ~4 d& C) |! _( x8 _   do/l60:,v,1,u
   ifthen/dd==d
   blank/obj(v)
     else
   jump /l50:
( t6 M! {0 h3 w     endif
' `8 A: F, J# ~/ N4 ml60:




1 I* q, ]# y3 r  \% Y, }1 uend:  $$ 跳到此处结束
# l9 L" F9 c% M& ~( f% Z     HALT