C                  INTERNATIONAL AVS CENTER
C        (This disclaimer must remain at the top of all files)
C
C WARRANTY DISCLAIMER
C
C This module and the files associated with it are distributed free of charge.
C It is placed in the public domain and permission is granted for anyone to use,
C duplicate, modify, and redistribute it unless otherwise noted.  Some modules
C may be copyrighted.  You agree to abide by the conditions also included in
C the AVS Licensing Agreement, version 1.0, located in the main module
C directory located at the International AVS Center ftp site and to include
C the AVS Licensing Agreement when you distribute any files downloaded from
C that site.
C
C The International AVS Center, MCNC, the AVS Consortium and the individual
C submitting the module and files associated with said module provide absolutely
C NO WARRANTY OF ANY KIND with respect to this software.  The entire risk as to
C the quality and performance of this software is with the user.  IN NO EVENT
C WILL The International AVS Center, MCNC, the AVS Consortium and the individual
C submitting the module and files associated with said module BE LIABLE TO
C ANYONE FOR ANY DAMAGES ARISING FROM THE USE OF THIS SOFTWARE, INCLUDING,
C WITHOUT LIMITATION, DAMAGES RESULTING FROM LOST DATA OR LOST PROFITS, OR ANY
C SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES.
C
C This AVS module and associated files are public domain software unless
C otherwise noted.  Permission is hereby granted to do whatever you like with
C it, subject to the conditions that may exist in copyrighted materials. Should
C you wish to make a contribution toward the improvement, modification, or
C general performance of this module, please send us your comments:  why you
C liked or disliked it, how you use it, and most important, how it helps your
C work. We will receive your comments at avs@ncsc.org.
C
C Please send AVS module bug reports to avs@ncsc.org.
C
      subroutine cgbexept(x,y,schaal)
*                ========
*     Special Calcomp symbols
*     -----------------------
C   IAC CODE CHANGE :       include 'cgblock.f'
	INCLUDE 'cgblock.f'
      logical case
*
* ... To superscript:
      case=iys(1).eq.1 .and. .not.sup .and. .not.sub
      if(case) then
         x=x-hys(7)
         y=y+hyc(7)
         schaal=0.7
         sup=.true.
      endif
* ... To subscript:
      case=iys(1).eq.2 .and. .not.sup .and. .not.sub
      if(case) then
         x=x+hys(5)
         y=y-hyc(5)
         schaal=0.7
         sub=.true.
      endif
* ... From superscript:
      case=iys(1).eq.2 .and. sup
      if(case) then
         x=x+hys(7)
         y=y-hyc(7)
         schaal=1.
         sup=.false.
      endif
* ... From subscript:
      case=iys(1).eq.1 .and. sub
      if(case) then
         x=x-hys(5)
         y=y+hyc(5)
         schaal=1.
         sub=.false.
      endif
* ... Carriage Return + Line feed:
      if(iys(1).eq.3) then
         x=xt+hys(12)
         y=yt-hyc(12)
      endif
* ... Backspace:
      if(iys(1).eq.4) then
         x=x-hxc(10)
         y=y-hxs(10)
      endif
* ... Null:
*     if(iys(1).eq.5) then
*        DO NOTHING
*     endif
* ... Line feed only:
      if(iys(1).eq.6) then
         x=x+hys(12)
         y=y-hyc(12)
      endif
* ... Carriage Return only:
      if(iys(1).eq.7) then
         x=xt
         y=yt
      endif
      return
      end