We are using our tool kix401strip.exe which you can find on our site
http://home.wanadoo.nl/scripting
Output of call kix400strip input.kix output.kix /block_check /show_structure

code:

---

 IF INGROUP("Administrators")<0
       ? " - Admin Drives"
       USE i: \\joshua\students$
       ? " - Drive I: mapped (Student Webs on \\JOSHUA)"
       USE s: \\joshua\teachers
       ? " - Drive S: mapped (Teacher Webs on \\JOSHUA)"
       USE h: \\fcsinternet\mtpro_students
       ? " - Drive H: mapped (Keyboarding Class Data Location)"
       USE j: \\fcsinternet\autoacct
       ? " - Drive J: mapped (Accounting Class Data Location)"
       USE u: \\joshua\d$
       ? " - Drive U: mapped (\\JOSHUA Drive D  "
       USE X: \\fcsinternet\D$
       ? " - Drive X: mapped (\\FCSINTERNET Drive D  "
       USE T: \\fcsinternet\C$
       ? " - Drive T: mapped (\\FCSINTERNET Drive C  "
       USE p: \\fcsinternet\netlogon
       ? " - Drive P: mapped (Netlogon Location)"
       USE q: \\fcsinternet\users
       ? " - Drive Q: mapped (Fac/Staff Folders)"
       USE r: \\fcsinternet\students
       ? " - Drive R: mapped (Student Folders)"
 ENDIF
 ?" - Additional Drives"
 ?"teacher"
 IF INGROUP("Teacher")
       USE v: \\fcsinternet\office_2000_server
       ? " - Drive V: mapped (Office 2000 Server Folder)"
       USE o: \\fcsinternet\common
       ? " - Drive O: mapped (Campus-Wide Common Drive)"
 ENDIF
 ? "rs4"
 IF INGROUP("RS4")
       USE g: \\fcsinternet\RS4
       ? " - Drive G: mapped (Admin Plus)                            ; <+++++
 ENDIF
 ? "reader"
 IF INGROUP("Reader")
       USE f: \\fcsinternet\reader
       ? " - Drive F: mapped (Accelerated Reader)"
 ENDIF
 ? "unison"
 IF INGROUP("Unison")
       USE h: \\fcsinternet\library
       ? " - Drive H: mapped (Library Card Catalog)"
 ENDIF
 ?" students"
 IF INGROUP("Students")
       USE o: \\fcsinternet\common
       ? " - Drive O: mapped (Campus-Wide Common Drive)"
 ENDIF
;($begin)
;
;                       sun 17-feb-2002 00:14:27       (kix 4.00 vs 2.33e)
;
;Summary     KIXSTRIP:      block structures
;                           - do:until                 [0:0]
;                           - for|each:in|to:step|next [0|0:0|0:0|0]
;                           - function:endfunction     [0:0]
;                           - if:else:endif            [6:0:6]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP:    1 line is incompleted.
;                           rerun program with option "/block_check /show_errors".
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;                         1 line incomplete "double quotation".
;                         1 line incompleted.
;Informative KIXSTRIP:    6 block_structures found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:   16 USE
;
;($end)
;($begin)
;
;Warning KIXSTRIP: 35 line incomplete "double quotation".
;Warning KIXSTRIP: 35 line incompleted.
;
;($end)

---

btw: we advice to using [b]Ingroup("...") <> 0 instead of INGROUP("...") < 0. Also
INGROUP doesn't return a negative value.
KiXtart 3.x returns: 0/1/2 as values. (1 = global groups/2 = local groups)
KiXtart 4.x returns: 0/1 as values. (1 = local/global groups)