2NUMBERSE SET EXACT ON FIND &SELECTION SET EXACT OFF IF # = 0 @ 23,10 SAY SELECTION+" is not a valid code - please try again." ELSE STORE F TO LOGICAL ENDIF ENDIF ENDDO IF SELECTION = " " LOOP ENDIF IF CATEGORY = "MNU" STORE MENU:CODE TO OLDMENU GOTO 1 REPLACE PROGRAM WITH OLDMENU ELSE STORE CATEGORY TO CAT STORE &CAT TO DEFA STORE SY00195 00199 00207 00234 00242 00255 00362 00456 00492 00539 00675 00749 00826 00845 00864 00869 00909 00937 00987 01098 01834 01864 02318 RE CATEGORY TO CAT STORE &CAT TO DEFA STORE SYS + TRIM(PROGRAM) TO PROG SET DEFAULT TO &DEFA DO &PROG SET DEFAULT TO &SYS SELECT PRIMARY STORE "DSPROG" TO DSFILE USE &SYS&DSFILE REPLACE PROGRAM WITH OLDMENU CL