h64087
s 00000/00000/00043
d D 1.4 83/03/02 22:40:01 mjb 4 3
c get hshini.r
e
s 00001/00001/00042
d D 1.3 83/02/02 11:17:14 tes 3 2
c Added DIF interfaces
e
s 00002/00001/00041
d D 1.2 83/01/28 19:20:18 mjb 2 1
c modified for error reporting
e
s 00042/00000/00000
d D 1.1 83/01/20 11:15:07 tes 1 0
c date and time created 83/01/20 11:15:07 by tes
e
u
tes
mjb
U
t
T
I 1
subroutine rdmenu
########################################################################
#                                                                      #
#          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: Read in menu common from disk                          #
#                                                                      #
#     Input Parameters:                                                #
#            None                                                      #
#                                                                      #
#     Output Parameters:                                               #
#            None                                                      #
#                                                                      #
#     Routines Called:                                                 #
#            gdseek - diskio routine to seek to a given position       #
#            gdread - read n bytes from a file                         #
#                                                                      #
########################################################################
integer menufd

integer length, itemp

integer gdseek, gdread

include(`mnucom')

common /mnfdcm/ menufd

   itemp =  gdseek (menufd, 0, 0)
D 3
   length = gdread (menufd, floc, MNUCOMxSIZE)
E 3
I 3
   length = gdread (menufd, mnuid, MNUCOMxSIZE)
E 3
     if (length != MNUCOMxSIZE) {
D 2
	pause 1234
E 2
I 2
        call chgmod (EXITxGRAPHICSxMODE)
	call errmsg (STOP, CORRUPTxMENUxERROR)
E 2
	}

return
end
E 1
