_UPDATE2.ZIP.x/TEXT/JGROUP.SCR

VARIABLE GROUP CHAR
NL
PUTNL "`07<1> Current main group: `0F~CG `09<`0E~CC`09>"
PUTNL "`07<2> Current file group: `0F~CK `09<`0E~CH`09>"
GET GROUP "`09Change which group? [12Q]: `0B" "12Q^M"
IF "$GROUP$" "1"
    MENU OR
ENDIF
IF "$GROUP$" "2"
    MENU OQ
ENDIF