h30017
s 00042/00000/00000
d D 1.1 83/03/23 16:15:31 bog 1 0
c date and time created 83/03/23 16:15:31 by bog
e
u
4
U
t
T
I 1
#############################################################################
#									    #
#	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:  							    #
#		CHARACTER Function EmCFet (C)				    #
#			Output	C:	CHARACTER value at <variable>	    #
#					 [MenuPc+1] in <common> [MenuPc].   #
#				EmCFet:	CHARACTER value at <variable>	    #
#					 [MenuPc+1] in <common> [MenuPc].   #
#		    Return as function value the variable pointed to by	    #
#		    the next two words in the Menu instruction stream.	    #
#		    As side effect, bump the MenuPc.			    #
#									    #
#	Called By:							    #
#									    #
#	Routines Called:						    #
#									    #
#############################################################################
 
CHARACTER Function EmCFet(C)
CHARACTER C
 
CHARACTER Common,EmOFet,EmCGet
External EmOFet,EmCGet
INTEGER EmPFet,V
External EmPFet
 
Common = EmOFet(Common)			# Get <Common>
EmCFet = EmCGet(Common,EmPFet(V))	# Get <variable>, variable
C = EmCFet
 
Return
End
E 1
