Don't forget your returns at the and of each sub. Otherwise if the top most sub is called, all subs are executed (before the next sub there isn't a return)

Also try following
code:
$rc=INGROUP ("MOVED_USERS")
? "RC MOVED_USERS" + chr(9) + chr(9) + "= $rc"
;
$rc=INGROUP ("GRAMPIAN-GRP")
? "RC GRAMPIAN-GRP" + chr(9) + chr(9) + "= $rc"
;
$rc=INGROUP ("GRANDD-GRP")
? "RC GRANDD-GRP" + chr(9) + chr(9) + "= $rc"
;
SELECT
  CASE INGROUP ("MOVED_USERS")
    ? "Jump 2 gla"
    GOSUB gla
    ? "Back from gla"
;
  CASE INGROUP ("GRAMPIAN-GRP")
    ? "Jump 2 gra"
    GOSUB gra
    ? "Back from gra"
;
  CASE INGROUP ("PANDD-GRP")
    ? "Jump 2 pan"
    GOSUB pan
    ? "Back from pan"
;
  CASE 1
    ? "Jump 2 nothing"
    ; not in any of the above groups
ENDSELECT
;
exit (0)
;
:gra
  ? "in gra"
return
;
:pan
  ? "in pan"
return
;
:gla
  ? "in gla"
return


[ 17 July 2002, 07:47: Message edited by: MightyR1 ]
_________________________
Greetz,
Patrick Rutten

- We'll either find a way or make one...
- Knowledge is power; knowing how to find it is more powerful...
- Problems don't exist; they are challenges...