;****************************************************************************
;*  ESCC.WAS                                                                *
;*  Copyright (C) 1994 Datastorm Technologies, Inc.                         *
;*  All rights reserved.                                                    *
;*                                                                          *
;*  Written by:  Larry Dorman                                               *
;*                                                                          *
;*  PROCOMM PLUS for Windows 2.0, in the IBM 3270 emulation, will enter     *
;*  half duplex mode when the host system issues the sequence <ESC><C>.     *
;*                                                                          *
;*  This script will monitor for the <ESC><C> sequence and reset the        *
;*  terminal to full duplex.  On some systems it will only be necessary to  *
;*  run this script during logon.  However, the script will continue to     *
;*  function as long as it is executing.                                    *
;*                                                                          *
;*  This ASPECT SCRIPT is intended only as a sample of ASPECT               *
;*  programming. DATASTORM makes no warranty of any kind, express or        *
;*  implied, including without limitation, any warranties of                *
;*  merchantability and/or fitness for a particular purpose.  Use of        *
;*  this program is at your own risk.                                       *
;****************************************************************************

;****************************************************************************
;* Main ()                                                                  *
;*                                                                          *
;* This procedure will set up a trap for the <ESC><C> sequence and call a   *
;* procedure to switch to full duplex when triggered.                       *
;*                                                                          *
;*     Calls:  GotIt                                                        *
;*                                                                          *
;* Modifies Globals:  None                                                  *
;****************************************************************************

proc Main
   when target 0 "^[C" call GotIt               ;Watch for <ESC><C>
   set aspect RXDATA OFF UNTIL WHENTARGET 0     ;Process after WHEN triggered
   while 1                                      ;Endless loop
   endwhile
endproc

;****************************************************************************
;* GotIt()                                                                  *
;*                                                                          *
;* This procedure is called once an <ESC><C> has been received.  The port   *
;* is first set to half duplex and then back to full duplex.  This is       *
;* necessary for the operation to return to normal.  The script will then   *
;* return to an endless loop and continue monitoring for <ESC><C>.          *
;*                                                                          *
;*     Calls:  None                                                         *
;* Called by:  Main                                                         *
;* Modifies Globals:  None                                                  *
;****************************************************************************

proc GotIt
   set port duplex HALF                         ;Turn on half duplex  
   set port duplex FULL                         ;Turn on full duplex
   set aspect RXDATA OFF UNTIL WHENTARGET 0     ;Return to monitoring
endproc