PROGRAM GPE5
	CHARACTER TITLE*200
	TITLE(1:) = 'SEPD2331  YB!A#LH.8!2#EXHX!C!U#LH.8!3#EXHX!O#LH.8!7'//
	1	    '#EXHX! (295K, 2*Z! = 150#EH.6!O#EXHX!)  '//
	2	    'O?RTHORHOMBIC !P!MMM  (12/21/87)!$'

      DATA XORIG,DX,XMAX/0.0,100.,1000./,YORIG,DY,YMAX/0.0,100.0,1000.0/
      CALL GSTART          
      CALL PAGE(11.0,8.5)
      CALL AREA2D(9.0,6.5)         ! Define Subplot area
      CALL HEIGHT(0.16)		! Set text size
! Define text features
      CALL DUPLX
      CALL MX1ALF('STANDARD','!')
      CALL MX2ALF('L/CSTD','?')
      CALL MX3ALF('GREEK','*')
      CALL MX4ALF('INSTRUCTION','#')	! Define instruction switch
      CALL MX5ALF('GERMAN','&')		! Define instruction switch
      CALL MX6ALF('ITALIAN','~')	! Define instruction switch
      CALL KBMAP('^',140)
      CALL KBMAP('\',176)
      CALL ZUSE('LH.7')
      CALL Z1USE('EH.7')
      CALL Z2USE('EXHX')
      CALL Z3USE('EH.5!O#EXHX')
! Set up the plot with axis labels and title using special features
      CALL XNAME('TOF *l#MX! Sec$',100)   ! Define X Axis label
      CALL YNAME('Y LABEL$',100)   	! Define Y Axis label
      CALL HEADIN('Example Plot 5$',100,1.5,2)	! Output heading lines
      CALL HEADIN('Test Special Text Features$',100,1.5,2)
      CALL YINTAX	! Use integers to label y-axis
      CALL YAXANG(0.0)	! Use horizontal numbering on y-axis
      CALL GRAF (XORIG,DX,XMAX,YORIG,DY,YMAX)
! Add more text to the plot
      CALL CHRMSG(0.5,0.5,'FeOCl(ppy)#z!0.34#z2!, 90#Z3')
      CALL CHRMSG(0.5,1.0,'FeOCl(pth)#z!0.34#z2!, 90#Z3')
      CALL CHRMSG(0.5,1.5,'Degree Test#EH.5!O#EXHX')
      CALL CHRMSG(0.5,2.5,'Italian:~ABCDEabcde!')
      CALL CHRMSG(0.5,3.0,'German: &ABCDEabcde!')
      CALL CHRMSG(0.5,3.5,'Greek:  *ABCDEabcde!')
      CALL MX6ALF('RUSSIAN','~')	! Define instruction switch
      CALL CHRMSG(0.5,2.0,'RUSSIAN:~ABCDEabcde!')
      CALL MX6ALF('MATH','~')	! Define instruction switch
      CALL CHRMSG(4.5,0.5,'MATH:~ABCDEabcde!')
      CALL MX6ALF('MUSIC','~')	! Define instruction switch
      CALL CHRMSG(4.5,1.0,'MUSIC:~ABCDEabcde!')
      CALL MX6ALF('SIGNS','~')	! Define instruction switch
      CALL CHRMSG(4.5,1.5,'SIGNS:~ABCDEabcde!')
      CALL MX6ALF('SPECIAL','~')	! Define instruction switch
      CALL CHRMSG(4.5,2.0,'SPECIAL:~ABCDEabcde!')
      CALL MESSAG(TITLE,100,0.1,6.0)
      CALL CHRMSG(0.25,5.0,'Overstrike h#B1!/')
      CALL CHRMSG(0.25,4.5,'Superscript 1.0 x 10#EH.7!-2#EXHX!')
      CALL ANGLE(90.)
      CALL CHRMSG(4.0,3.0,'Overstrike h#B1!/')
      CALL CHRMSG(4.5,3.0,'Superscript 1.0 x 10#EH.7!-2#EXHX!')
      CALL CHRMSG(5.0,3.0,'Subscript Al#LH.7!2#EXHX!O#LH.7!3')
      CALL ANGLE(45.0)
      CALL CHRMSG(5.5,3.0,'Subscript Al#LH.7!2#EXHX!O#LH.7!3')
      CALL ANGLE(0.0)
      CALL CHRMSG(0.25,4.0,'Subscript Al#LH.7!2#EXHX!O#LH.7!3')
      CALL SCMPLX
      CALL CHRMSG(0.1,5.5,
     1 '(A DEC-GKS 4.1 bug makes software characters too small.)')
      CALL ENDPL(1)
      CALL GSTOP
 
      CALL EXIT
      END