;************************************************************************
;                                                                       *
;   DEVDM2.GLU - Special functions menu for Developers' Example System  *
;                                                                       *
;************************************************************************
;
;
;                                NOTICE
;
;        COPYRIGHT (C) 1987 Distributed Management Systems, Inc.
;        ALL RIGHTS RESERVED.
;
; THIS PROGRAM HAS BEEN DONATED TO THE PUBLIC DOMAIN FOR EDUCATIONAL PURPOSES.
; RECEIPT OR POSSESSION OF THIS PROGRAM DOES NOT CONVEY ANY RIGHTS TO SELL
; OR OTHERWISE USE THIS PROGRAM FOR COMMERCIAL GAIN. ALL RIGHTS REMAIN VESTED
; IN THE COPYRIGHT HOLDER.
;
;
; Edit History:
;
;[101] 06/01/88 Release via AMUS./CAE
;[100] 11/14/88 Designed and implemented by Creed Erickson.
;
TITLE "Developers' DART/GLUE/BASIC Example Special Functions Menu"

SELECTION "Clear record key accumulator"
EXECUTE :S|BASIC|XCALL SETUSR,10000+300,0|BYE|:R|
EXIT

SELECTION "Display memory map"
EXECUTE :R|XY 8 1|MAP
EXIT

SELECTION "Clear memory map"
EXECUTE :S|BASIC|XCALL SETUSR,0,0|BYE|DEL*|:R|
EXIT

SELECTION "Maintain the DEVDMO main menu"
EXECUTE VUE DEVDMO.GLU
EXIT

SELECTION "Erase demo files"
EXECUTE ERASE *.BAK,*.BK?,DEVDMO.TIP,DEVDMO.ID?,DEVDRP.LST,DEVDMO.RUN
EXIT