h25073
s 00041/00000/00000
d D 1.1 83/03/23 16:21:45 bog 1 0
c date and time created 83/03/23 16:21:45 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:  							    #
#		EmXSwt							    #
#		    Emulator Switches Common Definitions		    #
#									    #
#	Called By:							    #
#		included in most Emulator modules			    #
#									    #
#	Routines Called:						    #
#									    #
#############################################################################
',`dnl
CommonOrg
# Keyboard switches
 # Line/Local
 CommonLVar(`MOnLine')		LOGICAL OnLine
 
 # True:
 #   <Cr> always returns to margin 1; no margin 2
 #   Page Full at bottom of margin 1
 # False:
 #   <Cr> returns to margin 1 if not Margn2, margin 2 if Margn2
 #   No Page Full until bottom of margin 2
 CommonLVar(`MPFMar1')		LOGICAL PFMar1
 
CommonLArray(`LSwtch')
',`dnl
Common /Switch/ LSwtch
',`dnl
Equivalence	(OnLine,	LSwtch(MOnLine))
Equivalence	(PFMar1,	LSwtch(MPFMar1))
'dnl
E 1
