1*-----------------------------------------------------------------------
2      SUBROUTINE SGTXXV(VX,VY,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','SGTXXV','FULL COLOR MODE IS NOT SUPPORTED.')
10      END IF
11
12
13      IF (RSIZE.EQ.0) THEN
14        CALL MSGDMP('M','SGTXXV','TEXT HEIGHT IS 0 / DO NOTHING.')
15        RETURN
16      END IF
17      IF (RSIZE.LT.0) THEN
18        CALL MSGDMP('E','SGTXXV','TEXT HEIGHT IS LESS THAN ZERO.')
19      END IF
20      IF (.NOT.(-1.LE.ICENT .AND. ICENT.LE.1)) THEN
21        CALL MSGDMP('E','SGTXXV','CENTERING OPTION IS INVALID.')
22      END IF
23      IF (INDEX.EQ.0) THEN
24        CALL MSGDMP('M','SGTXXV','TEXT INDEX IS 0 / DO NOTHING.')
25        RETURN
26      END IF
27      IF (INDEX.LT.0) THEN
28        CALL MSGDMP('E','SGTXXV','TEXT INDEX IS LESS THAN 0.')
29      END IF
30
31      CALL SWSFCM(.TRUE.)
32      CALL SWSLCL(ICOLOR)
33
34      CALL SZTXOP(RSIZE,IROTA,ICENT,INDEX)
35      CALL SZTXZV(VX,VY,CHARS)
36      CALL SZTXCL
37
38      CALL SWSFCM(.TRUE.)
39
40      END
41