h04695
s 00004/00001/00077
d D 1.5 83/02/09 21:55:15 tes 5 4
c Added move legend menu handler
e
s 00002/00001/00076
d D 1.4 83/02/08 20:12:38 mjb 4 3
c restructured for overlaying menus
e
s 00001/00001/00076
d D 1.3 83/02/03 00:49:24 tes 3 2
c modified apdata interface to include last item to display
e
s 00008/00003/00069
d D 1.2 83/01/28 23:28:17 tes 2 1
c modified apmenu interface to include a clear screen flag
e
s 00072/00000/00000
d D 1.1 83/01/20 11:12:39 tes 1 0
c date and time created 83/01/20 11:12:39 by tes
e
u
tes
mjb
U
t
T
I 1
subroutine mnugae (item)
########################################################################
#                                                                      #
#          THIS MATERIAL IS CONFIDENTIAL AND IS FURNISHED UNDER        #
#          A WRITTEN LICENSE AGREEMENT.  IT MAY NOT BE USED,           #
#          COPIED OR DISCLOSED TO OTHERS EXCEPT IN ACCORDANCE          #
#          WITH THE TERMS OF THAT AGREEMENT.                           #
#                                                                      #
#          COPYRIGHT (C) 1982 GRAPHIC SOFTWARE SYSTEMS INC.            #
#          ALL RIGHTS RESERVED.                                        #
#                                                                      #
#     Function: Graph Advanced Edit menu manager                       #
#                                                                      #
#     Input Parameters:                                                #
#            item  - selected menu item                                #
#                                                                      #
#     Output Parameters:                                               #
#            None                                                      #
#                                                                      #
#     Routines Called:                                                 #
#            None                                                      #
#                                                                      #
########################################################################
SHORTINT item

SHORTINT jump
I 2
integer iclear
E 2

include(`gphcom')

I 2
data iclear /YES/

E 2
jump = item + 1
go to (DIG0,DIG1,DIG2,DIG3,DIG4,DIG5,DIG6,DIG7,DIG8,DIG9), jump

   DIG0 continue  # EXIT to Main Menu
      call ggaatt
D 2
      call apmenu (MAINxMENU)
E 2
I 2
D 4
      call apmenu (MAINxMENU, iclear)
E 4
I 4
      mid = MAINxMENU
      action = BREAKxOVERLAY
E 4
E 2
      go to OTHERxWISE

   DIG1 continue  # Annotate Graph  
      call ggaatt
      lastid = mid
D 2
      call apmenu (ANNOTATE)
E 2
I 2
      mid = ANNOTATE
      action = ANNOTATE
      device = CRT
E 2
      go to OTHERxWISE

   DIG2 continue  # MOVE LEGENDS
      call ggaatt
D 5
      # move legends postions with gin
E 5
I 5
      lastid = mid
      mid = MOVExLEGEND
      action = MOVExLEGEND
      device = CRT
E 5
      go to OTHERxWISE

   DIG3 continue
   DIG4 continue
   DIG5 continue
   DIG6 continue
   DIG7 continue
      go to OTHERxWISE

   DIG8 continue  # Return to last menu
      call ggaatt
D 2
      call apmenu (GRAPHxEDIT)
E 2
I 2
      call apmenu (GRAPHxEDIT, iclear)
E 2
      call cgeatt
D 3
      call apdata (1)
E 3
I 3
      call apdata (1, FOREVER)
E 3
      go to OTHERxWISE

   DIG9 continue  # Display Graph
      call ggaatt
      mid = ADVANCEDxGRAPHxEDIT
      action = SHOWxCHART
      device = CRT

   OTHERxWISE continue

   return
end
E 1
