h16731
s 00000/00000/00049
d D 1.7 83/03/03 23:39:14 mjb 7 6
c fixed for existing data for graph -- graph etc
e
s 00002/00000/00047
d D 1.6 83/03/03 22:32:21 mjb 6 5
c 
e
s 00002/00000/00045
d D 1.5 83/02/18 18:11:01 mjb 5 4
c fixed bug with interaction between text charts and multi charts
e
s 00008/00000/00037
d D 1.4 83/02/17 12:27:21 mjb 4 3
c fixed chkdef problem on anotation
e
s 00003/00000/00034
d D 1.3 83/02/14 14:17:04 mjb 3 2
c added code to remember current locator position
e
s 00002/00000/00032
d D 1.2 83/02/14 14:07:29 mjb 2 1
c added sflag to tell when absolutely necessary to save current graph
e
s 00032/00000/00000
d D 1.1 83/02/04 12:51:54 mjb 1 0
c date and time created 83/02/04 12:51:54 by mjb
e
u
mjb
tes
U
t
T
I 1
subroutine inamem
########################################################################
#                                                                      #
#          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: initialize anotation graph common                      #
#                                                                      #
#     Input Parameters:                                                #
#            None                                                      #
#                                                                      #
#     Output Parameters:                                               #
#            None                                                      #
#                                                                      #
#     Routines Called:                                                 #
#            None                                                      #
#                                                                      #
########################################################################
integer i

include(`gphcom')

do i=1, 1000                 # Initialize the annotation buffer
   anobuf(i) = NUL

I 3
ginx = 13107                 # Initialize locator positions
giny = 19660

I 5
multfg = 1
mfrmat = 6
E 5
I 4
do i = 1, 56 {
   mfname(i) = NUL
   }
do i = 1, 5 {
   bgddef(i) = NUL
   }
bpddef = NUL

E 4
E 3
I 2
bgsave = YES                 # Set save flag to YES

I 6
krmain = 1

E 6
E 2
   return
end
E 1
