1*-----------------------------------------------------------------------
2      SUBROUTINE SGTXXR(RX,RY,CHARS,RSIZE,IROTA,ICENT,INDEX,ICOLOR)
3
4      CHARACTER CHARS*(*)
5      LOGICAL   LFCATR
6
7      CALL SWQFCC(LFCATR)
8      IF(.NOT.LFCATR) THEN
9        CALL MSGDMP('M','SGTXXR','FULL COLOR MODE IS NOT SUPPORTED.')
10      END IF
11
12      IF (RSIZE.EQ.0) THEN
13        CALL MSGDMP('M','SGTXXR','TEXT HEIGHT IS 0 / DO NOTHING.')
14        RETURN
15      END IF
16      IF (RSIZE.LT.0) THEN
17        CALL MSGDMP('E','SGTXXR','TEXT HEIGHT IS LESS THAN ZERO.')
18      END IF
19      IF (.NOT.(-1.LE.ICENT .AND. ICENT.LE.1)) THEN
20        CALL MSGDMP('E','SGTXXR','CENTERING OPTION IS INVALID.')
21      END IF
22      IF (INDEX.EQ.0) THEN
23        CALL MSGDMP('M','SGTXXR','TEXT INDEX IS 0 / DO NOTHING.')
24        RETURN
25      END IF
26      IF (INDEX.LT.0) THEN
27        CALL MSGDMP('E','SGTXXR','TEXT INDEX IS LESS THAN 0.')
28      END IF
29
30      CALL SWSFCM(.TRUE.)
31      CALL SWSLCL(ICOLOR)
32
33      CALL SZTXOP(RSIZE,IROTA,ICENT,INDEX)
34      CALL SZTXZR(RX,RY,CHARS)
35      CALL SZTXCL
36
37      CALL SWSFCM(.FALSE.)
38
39      END
40