h06043
s 00043/00000/00000
d D 1.1 83/03/23 16:14:46 bog 1 0
c date and time created 83/03/23 16:14:46 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:  							    #
#		Program Em4010						    #
#		    Tektronix 4010 Series Terminal Emulator		    #
#									    #
#	Routines Called:						    #
#		Subroutine EmInit ()					    #
#		    Environment initializer				    #
#									    #
#		Subroutine EmPoll ()					    #
#		    4012/4014 Emulator Main Polling Loop		    #
#									    #
#############################################################################
 
PROGRAM Em4010
 
INTEGER Error
 
BEGINCOMMON
COMMON(DRIVER)
COMMON(INITIALIZATION)
ENDCOMMON
 
Call EmInit
Call EmPoll
 
STOPCOMM
STOPGRAPHICS
 
EOJ
 
End
E 1
