JJJ:
Setpoint "Pick the next item to number" 1
pointval x,y,z 1
>Pointselect
     {
         <PointXYZ [x,y,0]
         <Type 0
     }
>SetHandle
{
      <PointXYZ [x,y,0]
}
getselect 1, OldNum  'Get the entity number of the currently selected item
Input "Enter object number: ", NewNum

if NewNum > Sys(9) then
     print "Dumdum, there are only ",Sys(9)," objects in your drawing! 
(Hit a key)"
     anykey
     goto JJJ
endif
if NewNum = OldNum then goto JJJ
if NewNum < OldNum then
     gosub CaseL
     goto JJJ
else
     gosub CaseG
     goto JJJ
endif
Goto JJJ

CaseL:
Total = Sys(9) 'The total number of entities in the drawing
>Copy
{
}
>Paste
{'Pastes the entity (at the first point, right on top of the source)
     <PointXYZ [x,y,0]
     <Type 1
}
Putattr Total+1,1,0
For t = (NewNum) to Total
     Entity t        'Make entity nubmer t the current entity and put 
it into memory
     Pointval a,b,c 1
     Putattr t,1,1   'Select enetity number t
     >Copy
     {
     }
     Putattr t,1,0
     If t <> OldNum then
         >Paste
         {
             <PointXYZ [a,b,0]
             <Type 1
         }
         getselect 1, toun
         entity toun
         Pointval d,e,f 1
         >SetHandle
         {
          <PointXYZ [d,e,0]
         }
         >Move
         {
             <PointXYZ [a,b,0]
             <Type 1
         }
         putattr toun,1,0
     endif
     Next
For s = (NewNum) to Total
     Entity NewNum        'Make entity nubmer t the current entity and 
put it into memory
     putattr NewNum,1,1
     >Cut
     {
     }
Next
>Regenerate
{
}
return

CaseG:
Total = Sys(9) 'The total number of entities in the drawing
>Cut
{
}
>Paste
{'Pastes the entity (at the first point, right on top of the source)
     <PointXYZ [x,y,0]
     <Type 1
}
putattr Total,1,0
OldNum = Total
For t = (NewNum) to (Total-1)
     Entity t        'Make entity nubmer t the current entity and put 
it into memory
     Pointval a,b,c 1
     Putattr t,1,1   'Select enetity number t
     >Copy
     {
     }
     Putattr t,1,0
     >Paste
     {
         <PointXYZ [a,b,0]
         <Type 1
     }
     getselect 1, toun
     entity toun
     Pointval d,e,f 1
     >SetHandle
     {
       <PointXYZ [d,e,0]
     }
     >Move
     {
         <PointXYZ [a,b,0]
         <Type 1
     }
     putattr toun,1,0
Next
For s = (NewNum) to (Total-1)
     Entity NewNum        'Make entity nubmer t the current entity and 
put it into memory
     putattr NewNum,1,1
     >Cut
     {
     }
Next
>Regenerate
{
}
return