y = CNTPAD('_msysmenu') v = 0 FOR x = 1 TO y IF SKPPAD('_msysmenu', GETPAD('_msysmenu', x-v)) RELEASE PAD (GETPAD('_msysmenu', x-v)) of _msysmenu v = v + 1 ENDIF ENDFOR y = CNTPAD('_msysmenu') v = 0 FOR x = 1 TO y bn = LOWER(LEFT(STRTRAN(PRMPAD('_msysmenu',GETPAD('_msysmenu',x)), [ ]),10)) bb = CNTBAR(bn) bv = 0 FOR bx = 1 TO bb IF SKPBAR(bn, GETBAR(bn, bx-bv)) RELEASE BAR (GETBAR(bn, bx-bv) ) OF &bn bv = bv + 1 ENDIF ENDFOR ENDFOR