:redo
CLEAR
CLEARSEL 1
int a, i, x, k
SET collsel, 0
ulong entid[0]
i=1
k=1

:start
GETMENU "Select option...", "Collect", "Burst", , , , , , , , 0, 0
IF (@key==2)
   GOTO burst
IF (@error==1)
   GOTO end

:kev
GETMENU "Select entities to COLLECT:", "Single", "Chain", "Window", "Polygon", "Group", "Plane", "All Dsp", , , 0, 1
IF (@key==-3)
   GOTO end
IF (@key==-2)
   GOTO start
GETENTM @key, a
IF (@key==-2)
   GOTO kev
ARRAY entid[a]

:loop1
IF (@key==-3)
   GOTO end
GETNEXT x, i, entid[i-1]
i=i+1
IF (i<=a)
   GOTO loop1
MAKECOLL a, entid
REDRAW -1
GOTO redo

:burst
GETMENU "Select entities to BURST:", "Single", "Chain", "Window", "Polygon", "Group", "Plane", "All Dsp", , , 0, 1
IF (@key==-3)
   GOTO end
IF (@key==-2)
   GOTO start
GETENTM @key, a
IF (@key==-2)
   GOTO burst
ARRAY entid[a]
:loop2
IF (@key==-3)
   GOTO end
GETNEXT x, i, entid[i-1]
i=i+1
IF (i<=a)
   GOTO loop2

:loop3
BURSTCOLL entid[k-1]
k=k+1
IF (k<=a)
   GOTO loop3
REDRAW -1
GOTO redo
:end
CLEAR
CLEARSEL 1
EXIT