1      SUBROUTINE DRTIL1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
2     1                  IBUGD2,IFOUND,IERROR)
3C
4C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
5C              FOR ROMAN TRIPLEX ITALIC LOWER CASE (PART 1).
6C     WRITTEN BY--JAMES J. FILLIBEN
7C                 STATISTICAL ENGINEERING DIVISION
8C                 CENTER FOR APPLIED MATHEMATICS
9C                 NATIONAL BUREAU OF STANDARDS
10C                 WASHINGTON, D. C. 20234
11C                 PHONE--301-921-3651
12C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
13C           OF THE NATIONAL BUREAU OF STANDARDS.
14C     LANGUAGE--ANSI FORTRAN (1977)
15C     VERSION NUMBER--87/4
16C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
17C     UPDATED         --MAY       1982.
18C     UPDATED         --MARCH     1987.
19C
20C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
21C
22      CHARACTER*4 IOP
23      CHARACTER*4 IBUGD2
24      CHARACTER*4 IFOUND
25      CHARACTER*4 IERROR
26C
27      CHARACTER*4 IOPERA
28C
29C---------------------------------------------------------------------
30C
31      DIMENSION IOP(*)
32      DIMENSION X(*)
33      DIMENSION Y(*)
34C
35      DIMENSION IOPERA(300)
36      DIMENSION IX(300)
37      DIMENSION IY(300)
38C
39      DIMENSION IXMIND(30)
40      DIMENSION IXMAXD(30)
41      DIMENSION IXDELD(30)
42      DIMENSION ISTARD(30)
43      DIMENSION NUMCOO(30)
44C
45C-----COMMON----------------------------------------------------------
46C
47      INCLUDE 'DPCOP2.INC'
48C
49C-----DATA STATEMENTS-------------------------------------------------
50C
51C     DEFINE CHARACTER   3151--LOWER CASE A
52C
53      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',   5,   5/
54      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',   3,  -2/
55      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',   3,  -6/
56      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',   4,  -8/
57      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',   5,  -9/
58      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',   7,  -9/
59      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',   9,  -7/
60      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',  10,  -5/
61      DATA IOPERA(   9),IX(   9),IY(   9)/'MOVE',   6,   5/
62      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',   4,  -2/
63      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',   4,  -8/
64      DATA IOPERA(  12),IX(  12),IY(  12)/'MOVE',   5,   5/
65      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',   7,   5/
66      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',   5,  -2/
67      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',   4,  -6/
68      DATA IOPERA(  16),IX(  16),IY(  16)/'MOVE',   3,  -2/
69      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW',   3,   1/
70      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',   2,   4/
71      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',   0,   5/
72      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',  -2,   5/
73      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',  -5,   4/
74      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',  -7,   1/
75      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',  -8,  -2/
76      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',  -8,  -4/
77      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',  -7,  -7/
78      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',  -6,  -8/
79      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',  -4,  -9/
80      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',  -2,  -9/
81      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',   0,  -8/
82      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',   1,  -7/
83      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',   2,  -5/
84      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',   3,  -2/
85      DATA IOPERA(  33),IX(  33),IY(  33)/'MOVE',  -4,   4/
86      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',  -6,   1/
87      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',  -7,  -2/
88      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',  -7,  -5/
89      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',  -6,  -7/
90      DATA IOPERA(  38),IX(  38),IY(  38)/'MOVE',  -2,   5/
91      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',  -4,   3/
92      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',  -5,   1/
93      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',  -6,  -2/
94      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',  -6,  -5/
95      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',  -5,  -8/
96      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',  -4,  -9/
97C
98      DATA IXMIND(   1)/ -11/
99      DATA IXMAXD(   1)/  11/
100      DATA IXDELD(   1)/  22/
101      DATA ISTARD(   1)/   1/
102      DATA NUMCOO(   1)/  44/
103C
104C     DEFINE CHARACTER   3152--LOWER CASE B
105C
106      DATA IOPERA(  45),IX(  45),IY(  45)/'MOVE',  -2,  12/
107      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',  -4,   5/
108      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',  -5,  -1/
109      DATA IOPERA(  48),IX(  48),IY(  48)/'DRAW',  -5,  -5/
110      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',  -4,  -7/
111      DATA IOPERA(  50),IX(  50),IY(  50)/'DRAW',  -3,  -8/
112      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',  -1,  -9/
113      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',   1,  -9/
114      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',   4,  -8/
115      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',   6,  -5/
116      DATA IOPERA(  55),IX(  55),IY(  55)/'DRAW',   7,  -2/
117      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',   7,   0/
118      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',   6,   3/
119      DATA IOPERA(  58),IX(  58),IY(  58)/'DRAW',   5,   4/
120      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',   3,   5/
121      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW',   1,   5/
122      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',  -1,   4/
123      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',  -2,   3/
124      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',  -3,   1/
125      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',  -4,  -2/
126      DATA IOPERA(  65),IX(  65),IY(  65)/'MOVE',  -1,  12/
127      DATA IOPERA(  66),IX(  66),IY(  66)/'DRAW',  -3,   5/
128      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',  -4,   1/
129      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',  -4,  -5/
130      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',  -3,  -8/
131      DATA IOPERA(  70),IX(  70),IY(  70)/'MOVE',   4,  -7/
132      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',   5,  -5/
133      DATA IOPERA(  72),IX(  72),IY(  72)/'DRAW',   6,  -2/
134      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',   6,   1/
135      DATA IOPERA(  74),IX(  74),IY(  74)/'DRAW',   5,   3/
136      DATA IOPERA(  75),IX(  75),IY(  75)/'MOVE',  -5,  12/
137      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',   0,  12/
138      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',  -2,   5/
139      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',  -4,  -2/
140      DATA IOPERA(  79),IX(  79),IY(  79)/'MOVE',   1,  -9/
141      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',   3,  -7/
142      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',   4,  -5/
143      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',   5,  -2/
144      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',   5,   1/
145      DATA IOPERA(  84),IX(  84),IY(  84)/'DRAW',   4,   4/
146      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',   3,   5/
147      DATA IOPERA(  86),IX(  86),IY(  86)/'MOVE',  -4,  12/
148      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',  -1,  11/
149      DATA IOPERA(  88),IX(  88),IY(  88)/'MOVE',  -3,  12/
150      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',  -2,  10/
151C
152      DATA IXMIND(   2)/  -9/
153      DATA IXMAXD(   2)/  10/
154      DATA IXDELD(   2)/  19/
155      DATA ISTARD(   2)/  45/
156      DATA NUMCOO(   2)/  45/
157C
158C     DEFINE CHARACTER   3153--LOWER CASE C
159C
160      DATA IOPERA(  90),IX(  90),IY(  90)/'MOVE',   5,   1/
161      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',   5,   2/
162      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',   4,   2/
163      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',   4,   0/
164      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',   6,   0/
165      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',   6,   2/
166      DATA IOPERA(  96),IX(  96),IY(  96)/'DRAW',   5,   4/
167      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW',   3,   5/
168      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',   0,   5/
169      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',  -3,   4/
170      DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW',  -5,   1/
171      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',  -6,  -2/
172      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',  -6,  -4/
173      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',  -5,  -7/
174      DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW',  -4,  -8/
175      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',  -2,  -9/
176      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',   0,  -9/
177      DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW',   3,  -8/
178      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',   5,  -5/
179      DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE',  -3,   3/
180      DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW',  -4,   1/
181      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',  -5,  -2/
182      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',  -5,  -5/
183      DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW',  -4,  -7/
184      DATA IOPERA( 114),IX( 114),IY( 114)/'MOVE',   0,   5/
185      DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW',  -2,   3/
186      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',  -3,   1/
187      DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW',  -4,  -2/
188      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',  -4,  -5/
189      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',  -3,  -8/
190      DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW',  -2,  -9/
191C
192      DATA IXMIND(   3)/  -9/
193      DATA IXMAXD(   3)/   9/
194      DATA IXDELD(   3)/  18/
195      DATA ISTARD(   3)/  90/
196      DATA NUMCOO(   3)/  31/
197C
198C     DEFINE CHARACTER   3154--LOWER CASE D
199C
200      DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE',   7,  12/
201      DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW',   4,   1/
202      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',   3,  -3/
203      DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW',   3,  -6/
204      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',   4,  -8/
205      DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW',   5,  -9/
206      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',   7,  -9/
207      DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW',   9,  -7/
208      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',  10,  -5/
209      DATA IOPERA( 130),IX( 130),IY( 130)/'MOVE',   8,  12/
210      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',   5,   1/
211      DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW',   4,  -3/
212      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',   4,  -8/
213      DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE',   4,  12/
214      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',   9,  12/
215      DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW',   5,  -2/
216      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',   4,  -6/
217      DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE',   3,  -2/
218      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',   3,   1/
219      DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW',   2,   4/
220      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',   0,   5/
221      DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW',  -2,   5/
222      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',  -5,   4/
223      DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW',  -7,   1/
224      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',  -8,  -2/
225      DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW',  -8,  -4/
226      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',  -7,  -7/
227      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',  -6,  -8/
228      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',  -4,  -9/
229      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',  -2,  -9/
230      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',   0,  -8/
231      DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW',   1,  -7/
232      DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW',   2,  -5/
233      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',   3,  -2/
234      DATA IOPERA( 155),IX( 155),IY( 155)/'MOVE',  -5,   3/
235      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',  -6,   1/
236      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',  -7,  -2/
237      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',  -7,  -5/
238      DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW',  -6,  -7/
239      DATA IOPERA( 160),IX( 160),IY( 160)/'MOVE',  -2,   5/
240      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',  -4,   3/
241      DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW',  -5,   1/
242      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',  -6,  -2/
243      DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW',  -6,  -5/
244      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',  -5,  -8/
245      DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW',  -4,  -9/
246      DATA IOPERA( 167),IX( 167),IY( 167)/'MOVE',   5,  12/
247      DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW',   8,  11/
248      DATA IOPERA( 169),IX( 169),IY( 169)/'MOVE',   6,  12/
249      DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW',   7,  10/
250C
251      DATA IXMIND(   4)/ -11/
252      DATA IXMAXD(   4)/  11/
253      DATA IXDELD(   4)/  22/
254      DATA ISTARD(   4)/ 121/
255      DATA NUMCOO(   4)/  50/
256C
257C     DEFINE CHARACTER   3155--LOWER CASE E
258C
259      DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE',  -5,  -4/
260      DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW',  -1,  -3/
261      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',   2,  -2/
262      DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW',   5,   0/
263      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',   6,   2/
264      DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW',   5,   4/
265      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW',   3,   5/
266      DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW',   0,   5/
267      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',  -3,   4/
268      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',  -5,   1/
269      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',  -6,  -2/
270      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',  -6,  -4/
271      DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW',  -5,  -7/
272      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',  -4,  -8/
273      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',  -2,  -9/
274      DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW',   0,  -9/
275      DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW',   3,  -8/
276      DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW',   5,  -6/
277      DATA IOPERA( 189),IX( 189),IY( 189)/'MOVE',  -3,   3/
278      DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW',  -4,   1/
279      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',  -5,  -2/
280      DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW',  -5,  -5/
281      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',  -4,  -7/
282      DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE',   0,   5/
283      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',  -2,   3/
284      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',  -3,   1/
285      DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW',  -4,  -2/
286      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',  -4,  -5/
287      DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW',  -3,  -8/
288      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',  -2,  -9/
289C
290      DATA IXMIND(   5)/  -9/
291      DATA IXMAXD(   5)/   9/
292      DATA IXDELD(   5)/  18/
293      DATA ISTARD(   5)/ 171/
294      DATA NUMCOO(   5)/  30/
295C
296C     DEFINE CHARACTER   3156--LOWER CASE F
297C
298      DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE',   8,  10/
299      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',   8,  11/
300      DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW',   7,  11/
301      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',   7,   9/
302      DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW',   9,   9/
303      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',   9,  11/
304      DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW',   8,  12/
305      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',   6,  12/
306      DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW',   4,  11/
307      DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW',   2,   9/
308      DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW',   1,   7/
309      DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW',   0,   4/
310      DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW',  -1,   0/
311      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',  -3,  -9/
312      DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW',  -4, -12/
313      DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW',  -5, -14/
314      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',  -7, -16/
315      DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE',   2,   8/
316      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW',   1,   5/
317      DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW',   0,   0/
318      DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW',  -2,  -9/
319      DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW',  -3, -12/
320      DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE',   6,  12/
321      DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW',   4,  10/
322      DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW',   3,   8/
323      DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW',   2,   5/
324      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',   1,   0/
325      DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW',  -1,  -8/
326      DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW',  -2, -11/
327      DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW',  -3, -13/
328      DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW',  -5, -15/
329      DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW',  -7, -16/
330      DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW',  -9, -16/
331      DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW', -10, -15/
332      DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW', -10, -13/
333      DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW',  -8, -13/
334      DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW',  -8, -15/
335      DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW',  -9, -15/
336      DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW',  -9, -14/
337      DATA IOPERA( 240),IX( 240),IY( 240)/'MOVE',  -4,   5/
338      DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW',   7,   5/
339C
340      DATA IXMIND(   6)/  -8/
341      DATA IXMAXD(   6)/   8/
342      DATA IXDELD(   6)/  16/
343      DATA ISTARD(   6)/ 201/
344      DATA NUMCOO(   6)/  41/
345C
346C     DEFINE CHARACTER   3157--LOWER CASE G
347C
348      DATA IOPERA( 242),IX( 242),IY( 242)/'MOVE',   6,   5/
349      DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW',   2,  -9/
350      DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW',   1, -12/
351      DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW',  -1, -15/
352      DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW',  -3, -16/
353      DATA IOPERA( 247),IX( 247),IY( 247)/'MOVE',   7,   5/
354      DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW',   3,  -9/
355      DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW',   1, -13/
356      DATA IOPERA( 250),IX( 250),IY( 250)/'MOVE',   6,   5/
357      DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW',   8,   5/
358      DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW',   4,  -9/
359      DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW',   2, -13/
360      DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW',   0, -15/
361      DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW',  -3, -16/
362      DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW',  -6, -16/
363      DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW',  -8, -15/
364      DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW',  -9, -14/
365      DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW',  -9, -12/
366      DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW',  -7, -12/
367      DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW',  -7, -14/
368      DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW',  -8, -14/
369      DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW',  -8, -13/
370      DATA IOPERA( 264),IX( 264),IY( 264)/'MOVE',   4,  -2/
371      DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW',   4,   1/
372      DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW',   3,   4/
373      DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW',   1,   5/
374      DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW',  -1,   5/
375      DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW',  -4,   4/
376      DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW',  -6,   1/
377      DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW',  -7,  -2/
378      DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW',  -7,  -4/
379      DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW',  -6,  -7/
380      DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW',  -5,  -8/
381      DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW',  -3,  -9/
382      DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW',  -1,  -9/
383      DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW',   1,  -8/
384      DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW',   2,  -7/
385      DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW',   3,  -5/
386      DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW',   4,  -2/
387      DATA IOPERA( 281),IX( 281),IY( 281)/'MOVE',  -4,   3/
388      DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW',  -5,   1/
389      DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW',  -6,  -2/
390      DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW',  -6,  -5/
391      DATA IOPERA( 285),IX( 285),IY( 285)/'DRAW',  -5,  -7/
392      DATA IOPERA( 286),IX( 286),IY( 286)/'MOVE',  -1,   5/
393      DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW',  -3,   3/
394      DATA IOPERA( 288),IX( 288),IY( 288)/'DRAW',  -4,   1/
395      DATA IOPERA( 289),IX( 289),IY( 289)/'DRAW',  -5,  -2/
396      DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW',  -5,  -5/
397      DATA IOPERA( 291),IX( 291),IY( 291)/'DRAW',  -4,  -8/
398      DATA IOPERA( 292),IX( 292),IY( 292)/'DRAW',  -3,  -9/
399C
400      DATA IXMIND(   7)/ -10/
401      DATA IXMAXD(   7)/  11/
402      DATA IXDELD(   7)/  21/
403      DATA ISTARD(   7)/ 242/
404      DATA NUMCOO(   7)/  51/
405C
406C-----START POINT-----------------------------------------------------
407C
408      IFOUND='YES'
409      IERROR='NO'
410C
411      NUMCO=1
412      ISTART=1
413      ISTOP=1
414      NC=1
415C
416C               ******************************************
417C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
418C               **  HERSHEY CHARACTER SET CASE          **
419C               ******************************************
420C
421C
422      IF(IBUGD2.EQ.'OFF')GOTO90
423      WRITE(ICOUT,999)
424  999 FORMAT(1X)
425      CALL DPWRST('XXX','BUG ')
426      WRITE(ICOUT,51)
427   51 FORMAT('***** AT THE BEGINNING OF DRTIL1--')
428      CALL DPWRST('XXX','BUG ')
429      WRITE(ICOUT,52)ICHARN
430   52 FORMAT('ICHARN = ',I8)
431      CALL DPWRST('XXX','BUG ')
432      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
433   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
434      CALL DPWRST('XXX','BUG ')
435   90 CONTINUE
436C
437C               **************************************
438C               **  STEP 2--                        **
439C               **  EXTRACT THE COORDINATES         **
440C               **  FOR THIS PARTICULAR CHARACTER.  **
441C               **************************************
442C
443      ISTART=ISTARD(ICHARN)
444      NC=NUMCOO(ICHARN)
445      ISTOP=ISTART+NC-1
446      J=0
447      DO1100I=ISTART,ISTOP
448      J=J+1
449      IOP(J)=IOPERA(I)
450      X(J)=IX(I)
451      Y(J)=IY(I)
452 1100 CONTINUE
453      NUMCO=J
454      IXMINS=IXMIND(ICHARN)
455      IXMAXS=IXMAXD(ICHARN)
456      IXDELS=IXDELD(ICHARN)
457C
458      GOTO9000
459C
460C               *****************
461C               **  STEP 90--  **
462C               **  EXIT       **
463C               *****************
464C
465 9000 CONTINUE
466      IF(IBUGD2.EQ.'OFF')GOTO9090
467      WRITE(ICOUT,999)
468      CALL DPWRST('XXX','BUG ')
469      WRITE(ICOUT,9011)
470 9011 FORMAT('***** AT THE END       OF DRTIL1--')
471      CALL DPWRST('XXX','BUG ')
472      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
473 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
474      CALL DPWRST('XXX','BUG ')
475      WRITE(ICOUT,9013)ICHARN
476 9013 FORMAT('ICHARN = ',I8)
477      CALL DPWRST('XXX','BUG ')
478      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
479 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
480      CALL DPWRST('XXX','BUG ')
481      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
482      DO9015I=1,NUMCO
483      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
484 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
485      CALL DPWRST('XXX','BUG ')
486 9015 CONTINUE
487 9019 CONTINUE
488      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
489 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
490      CALL DPWRST('XXX','BUG ')
491 9090 CONTINUE
492C
493      RETURN
494      END
495      SUBROUTINE DRTIL2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
496     1IBUGD2,IFOUND,IERROR)
497C
498C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
499C              FOR ROMAN TRIPLEX ITALIC LOWER CASE (PART 2).
500C     WRITTEN BY--JAMES J. FILLIBEN
501C                 STATISTICAL ENGINEERING DIVISION
502C                 CENTER FOR APPLIED MATHEMATICS
503C                 NATIONAL BUREAU OF STANDARDS
504C                 WASHINGTON, D. C. 20234
505C                 PHONE--301-921-3651
506C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
507C           OF THE NATIONAL BUREAU OF STANDARDS.
508C     LANGUAGE--ANSI FORTRAN (1977)
509C     VERSION NUMBER--87/4
510C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
511C     UPDATED         --MAY       1982.
512C     UPDATED         --MARCH     1987.
513C
514C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
515C
516      CHARACTER*4 IOP
517      CHARACTER*4 IBUGD2
518      CHARACTER*4 IFOUND
519      CHARACTER*4 IERROR
520C
521      CHARACTER*4 IOPERA
522C
523C---------------------------------------------------------------------
524C
525      DIMENSION IOP(*)
526      DIMENSION X(*)
527      DIMENSION Y(*)
528C
529      DIMENSION IOPERA(300)
530      DIMENSION IX(300)
531      DIMENSION IY(300)
532C
533      DIMENSION IXMIND(30)
534      DIMENSION IXMAXD(30)
535      DIMENSION IXDELD(30)
536      DIMENSION ISTARD(30)
537      DIMENSION NUMCOO(30)
538C
539C---------------------------------------------------------------------
540C
541      INCLUDE 'DPCOP2.INC'
542C
543C-----DATA STATEMENTS-------------------------------------------------
544C
545C     DEFINE CHARACTER   3158--LOWER CASE H
546C
547      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',  -3,  12/
548      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',  -9,  -9/
549      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',  -7,  -9/
550      DATA IOPERA(   4),IX(   4),IY(   4)/'MOVE',  -2,  12/
551      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',  -8,  -9/
552      DATA IOPERA(   6),IX(   6),IY(   6)/'MOVE',  -6,  12/
553      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',  -1,  12/
554      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',  -7,  -9/
555      DATA IOPERA(   9),IX(   9),IY(   9)/'MOVE',  -5,  -2/
556      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',  -3,   2/
557      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',  -1,   4/
558      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',   1,   5/
559      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',   3,   5/
560      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',   5,   4/
561      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',   6,   2/
562      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',   6,  -1/
563      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW',   4,  -6/
564      DATA IOPERA(  18),IX(  18),IY(  18)/'MOVE',   5,   4/
565      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',   5,   0/
566      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',   4,  -4/
567      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',   4,  -8/
568      DATA IOPERA(  22),IX(  22),IY(  22)/'MOVE',   5,   2/
569      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',   3,  -3/
570      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',   3,  -6/
571      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',   4,  -8/
572      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',   5,  -9/
573      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',   7,  -9/
574      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',   9,  -7/
575      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',  10,  -5/
576      DATA IOPERA(  30),IX(  30),IY(  30)/'MOVE',  -5,  12/
577      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',  -2,  11/
578      DATA IOPERA(  32),IX(  32),IY(  32)/'MOVE',  -4,  12/
579      DATA IOPERA(  33),IX(  33),IY(  33)/'DRAW',  -3,  10/
580C
581      DATA IXMIND(   8)/ -11/
582      DATA IXMAXD(   8)/  11/
583      DATA IXDELD(   8)/  22/
584      DATA ISTARD(   8)/   1/
585      DATA NUMCOO(   8)/  33/
586C
587C     DEFINE CHARACTER   3159--LOWER CASE I
588C
589      DATA IOPERA(  34),IX(  34),IY(  34)/'MOVE',   1,  12/
590      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',   1,  10/
591      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',   3,  10/
592      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',   3,  12/
593      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',   1,  12/
594      DATA IOPERA(  39),IX(  39),IY(  39)/'MOVE',   2,  12/
595      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',   2,  10/
596      DATA IOPERA(  41),IX(  41),IY(  41)/'MOVE',   1,  11/
597      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',   3,  11/
598      DATA IOPERA(  43),IX(  43),IY(  43)/'MOVE',  -6,   1/
599      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',  -5,   3/
600      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',  -3,   5/
601      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',  -1,   5/
602      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',   0,   4/
603      DATA IOPERA(  48),IX(  48),IY(  48)/'DRAW',   1,   2/
604      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',   1,  -1/
605      DATA IOPERA(  50),IX(  50),IY(  50)/'DRAW',  -1,  -6/
606      DATA IOPERA(  51),IX(  51),IY(  51)/'MOVE',   0,   4/
607      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',   0,   0/
608      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',  -1,  -4/
609      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',  -1,  -8/
610      DATA IOPERA(  55),IX(  55),IY(  55)/'MOVE',   0,   2/
611      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',  -2,  -3/
612      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',  -2,  -6/
613      DATA IOPERA(  58),IX(  58),IY(  58)/'DRAW',  -1,  -8/
614      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',   0,  -9/
615      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW',   2,  -9/
616      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',   4,  -7/
617      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',   5,  -5/
618C
619      DATA IXMIND(   9)/  -7/
620      DATA IXMAXD(   9)/   6/
621      DATA IXDELD(   9)/  13/
622      DATA ISTARD(   9)/  34/
623      DATA NUMCOO(   9)/  29/
624C
625C     DEFINE CHARACTER   3160--LOWER CASE J
626C
627      DATA IOPERA(  63),IX(  63),IY(  63)/'MOVE',   3,  12/
628      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',   3,  10/
629      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',   5,  10/
630      DATA IOPERA(  66),IX(  66),IY(  66)/'DRAW',   5,  12/
631      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',   3,  12/
632      DATA IOPERA(  68),IX(  68),IY(  68)/'MOVE',   4,  12/
633      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',   4,  10/
634      DATA IOPERA(  70),IX(  70),IY(  70)/'MOVE',   3,  11/
635      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',   5,  11/
636      DATA IOPERA(  72),IX(  72),IY(  72)/'MOVE',  -5,   1/
637      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',  -4,   3/
638      DATA IOPERA(  74),IX(  74),IY(  74)/'DRAW',  -2,   5/
639      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',   0,   5/
640      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',   1,   4/
641      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',   2,   2/
642      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',   2,  -1/
643      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',   0,  -8/
644      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',  -1, -11/
645      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',  -2, -13/
646      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',  -4, -15/
647      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',  -6, -16/
648      DATA IOPERA(  84),IX(  84),IY(  84)/'DRAW',  -8, -16/
649      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',  -9, -15/
650      DATA IOPERA(  86),IX(  86),IY(  86)/'DRAW',  -9, -13/
651      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',  -7, -13/
652      DATA IOPERA(  88),IX(  88),IY(  88)/'DRAW',  -7, -15/
653      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',  -8, -15/
654      DATA IOPERA(  90),IX(  90),IY(  90)/'DRAW',  -8, -14/
655      DATA IOPERA(  91),IX(  91),IY(  91)/'MOVE',   1,   4/
656      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',   1,  -1/
657      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',  -1,  -8/
658      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',  -2, -11/
659      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',  -3, -13/
660      DATA IOPERA(  96),IX(  96),IY(  96)/'MOVE',   1,   2/
661      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW',   0,  -2/
662      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',  -2,  -9/
663      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',  -3, -12/
664      DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW',  -4, -14/
665      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',  -6, -16/
666C
667      DATA IXMIND(  10)/  -7/
668      DATA IXMAXD(  10)/   6/
669      DATA IXDELD(  10)/  13/
670      DATA ISTARD(  10)/  63/
671      DATA NUMCOO(  10)/  39/
672C
673C     DEFINE CHARACTER   3161--LOWER CASE K
674C
675      DATA IOPERA( 102),IX( 102),IY( 102)/'MOVE',  -3,  12/
676      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',  -9,  -9/
677      DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW',  -7,  -9/
678      DATA IOPERA( 105),IX( 105),IY( 105)/'MOVE',  -2,  12/
679      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',  -8,  -9/
680      DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE',  -6,  12/
681      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',  -1,  12/
682      DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW',  -7,  -9/
683      DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE',   7,   3/
684      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',   7,   4/
685      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',   6,   4/
686      DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW',   6,   2/
687      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',   8,   2/
688      DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW',   8,   4/
689      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',   7,   5/
690      DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW',   5,   5/
691      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',   3,   4/
692      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',  -1,   0/
693      DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW',  -3,  -1/
694      DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE',  -5,  -1/
695      DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW',  -3,  -1/
696      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',  -1,  -2/
697      DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW',   0,  -3/
698      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',   2,  -7/
699      DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW',   3,  -8/
700      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',   5,  -8/
701      DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE',  -1,  -3/
702      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',   1,  -7/
703      DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW',   2,  -8/
704      DATA IOPERA( 131),IX( 131),IY( 131)/'MOVE',  -3,  -1/
705      DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW',  -2,  -2/
706      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',   0,  -8/
707      DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW',   1,  -9/
708      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',   3,  -9/
709      DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW',   5,  -8/
710      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',   7,  -5/
711      DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE',  -5,  12/
712      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',  -2,  11/
713      DATA IOPERA( 140),IX( 140),IY( 140)/'MOVE',  -4,  12/
714      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',  -3,  10/
715C
716      DATA IXMIND(  11)/ -11/
717      DATA IXMAXD(  11)/  11/
718      DATA IXDELD(  11)/  22/
719      DATA ISTARD(  11)/ 102/
720      DATA NUMCOO(  11)/  40/
721C
722C     DEFINE CHARACTER   3162--LOWER CASE L
723C
724      DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE',   2,  12/
725      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',  -1,   1/
726      DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW',  -2,  -3/
727      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',  -2,  -6/
728      DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW',  -1,  -8/
729      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',   0,  -9/
730      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',   2,  -9/
731      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',   4,  -7/
732      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',   5,  -5/
733      DATA IOPERA( 151),IX( 151),IY( 151)/'MOVE',   3,  12/
734      DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW',   0,   1/
735      DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW',  -1,  -3/
736      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',  -1,  -8/
737      DATA IOPERA( 155),IX( 155),IY( 155)/'MOVE',  -1,  12/
738      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',   4,  12/
739      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',   0,  -2/
740      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',  -1,  -6/
741      DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE',   0,  12/
742      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',   3,  11/
743      DATA IOPERA( 161),IX( 161),IY( 161)/'MOVE',   1,  12/
744      DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW',   2,  10/
745C
746      DATA IXMIND(  12)/  -6/
747      DATA IXMAXD(  12)/   6/
748      DATA IXDELD(  12)/  12/
749      DATA ISTARD(  12)/ 142/
750      DATA NUMCOO(  12)/  21/
751C
752C     DEFINE CHARACTER   3163--LOWER CASE M
753C
754      DATA IOPERA( 163),IX( 163),IY( 163)/'MOVE', -17,   1/
755      DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW', -16,   3/
756      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -14,   5/
757      DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW', -12,   5/
758      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW', -11,   4/
759      DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', -10,   2/
760      DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW', -10,  -1/
761      DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -12,  -9/
762      DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE', -11,   4/
763      DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW', -11,  -1/
764      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW', -13,  -9/
765      DATA IOPERA( 174),IX( 174),IY( 174)/'MOVE', -11,   2/
766      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW', -12,  -2/
767      DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW', -14,  -9/
768      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW', -12,  -9/
769      DATA IOPERA( 178),IX( 178),IY( 178)/'MOVE', -10,  -1/
770      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',  -8,   2/
771      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',  -6,   4/
772      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',  -4,   5/
773      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',  -2,   5/
774      DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW',   0,   4/
775      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',   1,   2/
776      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',   1,  -1/
777      DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW',  -1,  -9/
778      DATA IOPERA( 187),IX( 187),IY( 187)/'MOVE',   0,   4/
779      DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW',   0,  -1/
780      DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW',  -2,  -9/
781      DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE',   0,   2/
782      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',  -1,  -2/
783      DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW',  -3,  -9/
784      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',  -1,  -9/
785      DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE',   1,  -1/
786      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',   3,   2/
787      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',   5,   4/
788      DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW',   7,   5/
789      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',   9,   5/
790      DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW',  11,   4/
791      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',  12,   2/
792      DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW',  12,  -1/
793      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',  10,  -6/
794      DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE',  11,   4/
795      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',  11,   0/
796      DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW',  10,  -4/
797      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',  10,  -8/
798      DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE',  11,   2/
799      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',   9,  -3/
800      DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW',   9,  -6/
801      DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW',  10,  -8/
802      DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW',  11,  -9/
803      DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW',  13,  -9/
804      DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW',  15,  -7/
805      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',  16,  -5/
806C
807      DATA IXMIND(  13)/ -18/
808      DATA IXMAXD(  13)/  17/
809      DATA IXDELD(  13)/  35/
810      DATA ISTARD(  13)/ 163/
811      DATA NUMCOO(  13)/  52/
812C
813C     DEFINE CHARACTER   3164--LOWER CASE N
814C
815      DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE', -11,   1/
816      DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW', -10,   3/
817      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',  -8,   5/
818      DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW',  -6,   5/
819      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW',  -5,   4/
820      DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW',  -4,   2/
821      DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW',  -4,  -1/
822      DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW',  -6,  -9/
823      DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE',  -5,   4/
824      DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW',  -5,  -1/
825      DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW',  -7,  -9/
826      DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE',  -5,   2/
827      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',  -6,  -2/
828      DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW',  -8,  -9/
829      DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW',  -6,  -9/
830      DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE',  -4,  -1/
831      DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW',  -2,   2/
832      DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW',   0,   4/
833      DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW',   2,   5/
834      DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW',   4,   5/
835      DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW',   6,   4/
836      DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW',   7,   2/
837      DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW',   7,  -1/
838      DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW',   5,  -6/
839      DATA IOPERA( 239),IX( 239),IY( 239)/'MOVE',   6,   4/
840      DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW',   6,   0/
841      DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW',   5,  -4/
842      DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW',   5,  -8/
843      DATA IOPERA( 243),IX( 243),IY( 243)/'MOVE',   6,   2/
844      DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW',   4,  -3/
845      DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW',   4,  -6/
846      DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW',   5,  -8/
847      DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW',   6,  -9/
848      DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW',   8,  -9/
849      DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW',  10,  -7/
850      DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW',  11,  -5/
851C
852      DATA IXMIND(  14)/ -12/
853      DATA IXMAXD(  14)/  12/
854      DATA IXDELD(  14)/  24/
855      DATA ISTARD(  14)/ 215/
856      DATA NUMCOO(  14)/  36/
857C
858C     DEFINE CHARACTER   3165--LOWER CASE O
859C
860      DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE',  -1,   5/
861      DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW',  -4,   4/
862      DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW',  -6,   1/
863      DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW',  -7,  -2/
864      DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW',  -7,  -4/
865      DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW',  -6,  -7/
866      DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW',  -5,  -8/
867      DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW',  -2,  -9/
868      DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW',   1,  -9/
869      DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW',   4,  -8/
870      DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW',   6,  -5/
871      DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW',   7,  -2/
872      DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW',   7,   0/
873      DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW',   6,   3/
874      DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW',   5,   4/
875      DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW',   2,   5/
876      DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW',  -1,   5/
877      DATA IOPERA( 268),IX( 268),IY( 268)/'MOVE',  -4,   3/
878      DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW',  -5,   1/
879      DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW',  -6,  -2/
880      DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW',  -6,  -5/
881      DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW',  -5,  -7/
882      DATA IOPERA( 273),IX( 273),IY( 273)/'MOVE',   4,  -7/
883      DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW',   5,  -5/
884      DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW',   6,  -2/
885      DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW',   6,   1/
886      DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW',   5,   3/
887      DATA IOPERA( 278),IX( 278),IY( 278)/'MOVE',  -1,   5/
888      DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW',  -3,   3/
889      DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW',  -4,   1/
890      DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW',  -5,  -2/
891      DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW',  -5,  -5/
892      DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW',  -4,  -8/
893      DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW',  -2,  -9/
894      DATA IOPERA( 285),IX( 285),IY( 285)/'MOVE',   1,  -9/
895      DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW',   3,  -7/
896      DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW',   4,  -5/
897      DATA IOPERA( 288),IX( 288),IY( 288)/'DRAW',   5,  -2/
898      DATA IOPERA( 289),IX( 289),IY( 289)/'DRAW',   5,   1/
899      DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW',   4,   4/
900      DATA IOPERA( 291),IX( 291),IY( 291)/'DRAW',   2,   5/
901C
902      DATA IXMIND(  15)/ -10/
903      DATA IXMAXD(  15)/  10/
904      DATA IXDELD(  15)/  20/
905      DATA ISTARD(  15)/ 251/
906      DATA NUMCOO(  15)/  41/
907C
908C-----START POINT-----------------------------------------------------
909C
910      IFOUND='YES'
911      IERROR='NO'
912C
913      NUMCO=1
914      ISTART=1
915      ISTOP=1
916      NC=1
917C
918C               ******************************************
919C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
920C               **  HERSHEY CHARACTER SET CASE          **
921C               ******************************************
922C
923C
924      IF(IBUGD2.EQ.'OFF')GOTO90
925      WRITE(ICOUT,999)
926  999 FORMAT(1X)
927      CALL DPWRST('XXX','BUG ')
928      WRITE(ICOUT,51)
929   51 FORMAT('***** AT THE BEGINNING OF DRTIL2--')
930      CALL DPWRST('XXX','BUG ')
931      WRITE(ICOUT,52)ICHARN
932   52 FORMAT('ICHARN = ',I8)
933      CALL DPWRST('XXX','BUG ')
934      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
935   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
936      CALL DPWRST('XXX','BUG ')
937   90 CONTINUE
938C
939C               **************************************
940C               **  STEP 2--                        **
941C               **  EXTRACT THE COORDINATES         **
942C               **  FOR THIS PARTICULAR CHARACTER.  **
943C               **************************************
944C
945      ISTART=ISTARD(ICHARN)
946      NC=NUMCOO(ICHARN)
947      ISTOP=ISTART+NC-1
948      J=0
949      DO1100I=ISTART,ISTOP
950      J=J+1
951      IOP(J)=IOPERA(I)
952      X(J)=IX(I)
953      Y(J)=IY(I)
954 1100 CONTINUE
955      NUMCO=J
956      IXMINS=IXMIND(ICHARN)
957      IXMAXS=IXMAXD(ICHARN)
958      IXDELS=IXDELD(ICHARN)
959C
960      GOTO9000
961C
962C               *****************
963C               **  STEP 90--  **
964C               **  EXIT       **
965C               *****************
966C
967 9000 CONTINUE
968      IF(IBUGD2.EQ.'OFF')GOTO9090
969      WRITE(ICOUT,999)
970      CALL DPWRST('XXX','BUG ')
971      WRITE(ICOUT,9011)
972 9011 FORMAT('***** AT THE END       OF DRTIL2--')
973      CALL DPWRST('XXX','BUG ')
974      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
975 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
976      CALL DPWRST('XXX','BUG ')
977      WRITE(ICOUT,9013)ICHARN
978 9013 FORMAT('ICHARN = ',I8)
979      CALL DPWRST('XXX','BUG ')
980      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
981 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
982      CALL DPWRST('XXX','BUG ')
983      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
984      DO9015I=1,NUMCO
985      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
986 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
987      CALL DPWRST('XXX','BUG ')
988 9015 CONTINUE
989 9019 CONTINUE
990      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
991 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
992      CALL DPWRST('XXX','BUG ')
993 9090 CONTINUE
994C
995      RETURN
996      END
997      SUBROUTINE DRTIL3(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
998     1IBUGD2,IFOUND,IERROR)
999C
1000C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
1001C              FOR ROMAN TRIPLEX ITALIC LOWER CASE (PART 3).
1002C     WRITTEN BY--JAMES J. FILLIBEN
1003C                 STATISTICAL ENGINEERING DIVISION
1004C                 CENTER FOR APPLIED MATHEMATICS
1005C                 NATIONAL BUREAU OF STANDARDS
1006C                 WASHINGTON, D. C. 20234
1007C                 PHONE--301-921-3651
1008C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
1009C           OF THE NATIONAL BUREAU OF STANDARDS.
1010C     LANGUAGE--ANSI FORTRAN (1977)
1011C     VERSION NUMBER--87/4
1012C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
1013C     UPDATED         --MAY       1982.
1014C     UPDATED         --MARCH     1987.
1015C
1016C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
1017C
1018      CHARACTER*4 IOP
1019      CHARACTER*4 IBUGD2
1020      CHARACTER*4 IFOUND
1021      CHARACTER*4 IERROR
1022C
1023      CHARACTER*4 IOPERA
1024C
1025C---------------------------------------------------------------------
1026C
1027      DIMENSION IOP(*)
1028      DIMENSION X(*)
1029      DIMENSION Y(*)
1030C
1031      DIMENSION IOPERA(300)
1032      DIMENSION IX(300)
1033      DIMENSION IY(300)
1034C
1035      DIMENSION IXMIND(30)
1036      DIMENSION IXMAXD(30)
1037      DIMENSION IXDELD(30)
1038      DIMENSION ISTARD(30)
1039      DIMENSION NUMCOO(30)
1040C
1041C-----COMMON----------------------------------------------------------
1042C
1043      INCLUDE 'DPCOP2.INC'
1044C
1045C-----DATA STATEMENTS-------------------------------------------------
1046C
1047C     DEFINE CHARACTER   3166--LOWER CASE P
1048C
1049      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE', -10,   1/
1050      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',  -9,   3/
1051      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',  -7,   5/
1052      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',  -5,   5/
1053      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',  -4,   4/
1054      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',  -3,   2/
1055      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',  -3,  -1/
1056      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',  -4,  -5/
1057      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',  -7, -16/
1058      DATA IOPERA(  10),IX(  10),IY(  10)/'MOVE',  -4,   4/
1059      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',  -4,  -1/
1060      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',  -5,  -5/
1061      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',  -8, -16/
1062      DATA IOPERA(  14),IX(  14),IY(  14)/'MOVE',  -4,   2/
1063      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',  -5,  -2/
1064      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',  -9, -16/
1065      DATA IOPERA(  17),IX(  17),IY(  17)/'MOVE',  -3,  -2/
1066      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',  -2,   1/
1067      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',  -1,   3/
1068      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',   0,   4/
1069      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',   2,   5/
1070      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',   4,   5/
1071      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',   6,   4/
1072      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',   7,   3/
1073      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',   8,   0/
1074      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',   8,  -2/
1075      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',   7,  -5/
1076      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',   5,  -8/
1077      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',   2,  -9/
1078      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',   0,  -9/
1079      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',  -2,  -8/
1080      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',  -3,  -5/
1081      DATA IOPERA(  33),IX(  33),IY(  33)/'DRAW',  -3,  -2/
1082      DATA IOPERA(  34),IX(  34),IY(  34)/'MOVE',   6,   3/
1083      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',   7,   1/
1084      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',   7,  -2/
1085      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',   6,  -5/
1086      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',   5,  -7/
1087      DATA IOPERA(  39),IX(  39),IY(  39)/'MOVE',   4,   5/
1088      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',   5,   4/
1089      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',   6,   1/
1090      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',   6,  -2/
1091      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   5,  -5/
1092      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',   4,  -7/
1093      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',   2,  -9/
1094      DATA IOPERA(  46),IX(  46),IY(  46)/'MOVE', -12, -16/
1095      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',  -4, -16/
1096      DATA IOPERA(  48),IX(  48),IY(  48)/'MOVE',  -8, -15/
1097      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW', -11, -16/
1098      DATA IOPERA(  50),IX(  50),IY(  50)/'MOVE',  -8, -14/
1099      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW', -10, -16/
1100      DATA IOPERA(  52),IX(  52),IY(  52)/'MOVE',  -7, -14/
1101      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',  -6, -16/
1102      DATA IOPERA(  54),IX(  54),IY(  54)/'MOVE',  -8, -15/
1103      DATA IOPERA(  55),IX(  55),IY(  55)/'DRAW',  -5, -16/
1104C
1105      DATA IXMIND(  16)/ -11/
1106      DATA IXMAXD(  16)/  11/
1107      DATA IXDELD(  16)/  22/
1108      DATA ISTARD(  16)/   1/
1109      DATA NUMCOO(  16)/  55/
1110C
1111C     DEFINE CHARACTER   3167--LOWER CASE Q
1112C
1113      DATA IOPERA(  56),IX(  56),IY(  56)/'MOVE',   5,   5/
1114      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',  -1, -16/
1115      DATA IOPERA(  58),IX(  58),IY(  58)/'MOVE',   6,   5/
1116      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',   0, -16/
1117      DATA IOPERA(  60),IX(  60),IY(  60)/'MOVE',   5,   5/
1118      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',   7,   5/
1119      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',   1, -16/
1120      DATA IOPERA(  63),IX(  63),IY(  63)/'MOVE',   3,  -2/
1121      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',   3,   1/
1122      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',   2,   4/
1123      DATA IOPERA(  66),IX(  66),IY(  66)/'DRAW',   0,   5/
1124      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',  -2,   5/
1125      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',  -5,   4/
1126      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',  -7,   1/
1127      DATA IOPERA(  70),IX(  70),IY(  70)/'DRAW',  -8,  -2/
1128      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',  -8,  -4/
1129      DATA IOPERA(  72),IX(  72),IY(  72)/'DRAW',  -7,  -7/
1130      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',  -6,  -8/
1131      DATA IOPERA(  74),IX(  74),IY(  74)/'DRAW',  -4,  -9/
1132      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',  -2,  -9/
1133      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',   0,  -8/
1134      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',   1,  -7/
1135      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',   2,  -5/
1136      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',   3,  -2/
1137      DATA IOPERA(  80),IX(  80),IY(  80)/'MOVE',  -5,   3/
1138      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',  -6,   1/
1139      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',  -7,  -2/
1140      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',  -7,  -5/
1141      DATA IOPERA(  84),IX(  84),IY(  84)/'DRAW',  -6,  -7/
1142      DATA IOPERA(  85),IX(  85),IY(  85)/'MOVE',  -2,   5/
1143      DATA IOPERA(  86),IX(  86),IY(  86)/'DRAW',  -4,   3/
1144      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',  -5,   1/
1145      DATA IOPERA(  88),IX(  88),IY(  88)/'DRAW',  -6,  -2/
1146      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',  -6,  -5/
1147      DATA IOPERA(  90),IX(  90),IY(  90)/'DRAW',  -5,  -8/
1148      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',  -4,  -9/
1149      DATA IOPERA(  92),IX(  92),IY(  92)/'MOVE',  -4, -16/
1150      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',   4, -16/
1151      DATA IOPERA(  94),IX(  94),IY(  94)/'MOVE',   0, -15/
1152      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',  -3, -16/
1153      DATA IOPERA(  96),IX(  96),IY(  96)/'MOVE',   0, -14/
1154      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW',  -2, -16/
1155      DATA IOPERA(  98),IX(  98),IY(  98)/'MOVE',   1, -14/
1156      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',   2, -16/
1157      DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE',   0, -15/
1158      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',   3, -16/
1159C
1160      DATA IXMIND(  17)/ -11/
1161      DATA IXMAXD(  17)/  10/
1162      DATA IXDELD(  17)/  21/
1163      DATA ISTARD(  17)/  56/
1164      DATA NUMCOO(  17)/  46/
1165C
1166C     DEFINE CHARACTER   3168--LOWER CASE R
1167C
1168      DATA IOPERA( 102),IX( 102),IY( 102)/'MOVE',  -8,   1/
1169      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',  -7,   3/
1170      DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW',  -5,   5/
1171      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',  -3,   5/
1172      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',  -2,   4/
1173      DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW',  -1,   2/
1174      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',  -1,  -2/
1175      DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW',  -3,  -9/
1176      DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE',  -2,   4/
1177      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',  -2,  -2/
1178      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',  -4,  -9/
1179      DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE',  -2,   2/
1180      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',  -3,  -2/
1181      DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW',  -5,  -9/
1182      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',  -3,  -9/
1183      DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE',   7,   3/
1184      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',   7,   4/
1185      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',   6,   4/
1186      DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW',   6,   2/
1187      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW',   8,   2/
1188      DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW',   8,   4/
1189      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',   7,   5/
1190      DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW',   5,   5/
1191      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',   3,   4/
1192      DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW',   1,   2/
1193      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',  -1,  -2/
1194C
1195      DATA IXMIND(  18)/  -9/
1196      DATA IXMAXD(  18)/   9/
1197      DATA IXDELD(  18)/  18/
1198      DATA ISTARD(  18)/ 102/
1199      DATA NUMCOO(  18)/  26/
1200C
1201C     DEFINE CHARACTER   3169--LOWER CASE S
1202C
1203      DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE',   6,   2/
1204      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',   6,   3/
1205      DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW',   5,   3/
1206      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',   5,   1/
1207      DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW',   7,   1/
1208      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',   7,   3/
1209      DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW',   6,   4/
1210      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',   3,   5/
1211      DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW',   0,   5/
1212      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',  -3,   4/
1213      DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW',  -4,   3/
1214      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',  -4,   1/
1215      DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW',  -3,  -1/
1216      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',  -1,  -2/
1217      DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW',   2,  -3/
1218      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',   4,  -4/
1219      DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW',   5,  -6/
1220      DATA IOPERA( 145),IX( 145),IY( 145)/'MOVE',  -3,   4/
1221      DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW',  -4,   1/
1222      DATA IOPERA( 147),IX( 147),IY( 147)/'MOVE',  -3,   0/
1223      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',  -1,  -1/
1224      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',   2,  -2/
1225      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',   4,  -3/
1226      DATA IOPERA( 151),IX( 151),IY( 151)/'MOVE',   5,  -4/
1227      DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW',   4,  -8/
1228      DATA IOPERA( 153),IX( 153),IY( 153)/'MOVE',  -4,   3/
1229      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',  -3,   1/
1230      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',  -1,   0/
1231      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',   2,  -1/
1232      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',   4,  -2/
1233      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',   5,  -4/
1234      DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW',   5,  -6/
1235      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',   4,  -8/
1236      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',   1,  -9/
1237      DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW',  -2,  -9/
1238      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',  -5,  -8/
1239      DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW',  -6,  -7/
1240      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',  -6,  -5/
1241      DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW',  -4,  -5/
1242      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW',  -4,  -7/
1243      DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW',  -5,  -7/
1244      DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW',  -5,  -6/
1245C
1246      DATA IXMIND(  19)/  -8/
1247      DATA IXMAXD(  19)/   9/
1248      DATA IXDELD(  19)/  17/
1249      DATA ISTARD(  19)/ 128/
1250      DATA NUMCOO(  19)/  42/
1251C
1252C     DEFINE CHARACTER   3170--LOWER CASE T
1253C
1254      DATA IOPERA( 170),IX( 170),IY( 170)/'MOVE',   2,  12/
1255      DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW',  -1,   1/
1256      DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW',  -2,  -3/
1257      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',  -2,  -6/
1258      DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW',  -1,  -8/
1259      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',   0,  -9/
1260      DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW',   2,  -9/
1261      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW',   4,  -7/
1262      DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW',   5,  -5/
1263      DATA IOPERA( 179),IX( 179),IY( 179)/'MOVE',   3,  12/
1264      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',   0,   1/
1265      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',  -1,  -3/
1266      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',  -1,  -8/
1267      DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE',   2,  12/
1268      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',   4,  12/
1269      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',   0,  -2/
1270      DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW',  -1,  -6/
1271      DATA IOPERA( 187),IX( 187),IY( 187)/'MOVE',  -4,   5/
1272      DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW',   6,   5/
1273C
1274      DATA IXMIND(  20)/  -7/
1275      DATA IXMAXD(  20)/   7/
1276      DATA IXDELD(  20)/  14/
1277      DATA ISTARD(  20)/ 170/
1278      DATA NUMCOO(  20)/  19/
1279C
1280C     DEFINE CHARACTER   3171--LOWER CASE U
1281C
1282      DATA IOPERA( 189),IX( 189),IY( 189)/'MOVE', -11,   1/
1283      DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW', -10,   3/
1284      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',  -8,   5/
1285      DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW',  -6,   5/
1286      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',  -5,   4/
1287      DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW',  -4,   2/
1288      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',  -4,  -1/
1289      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',  -6,  -6/
1290      DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE',  -5,   4/
1291      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',  -5,   0/
1292      DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW',  -6,  -4/
1293      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',  -6,  -8/
1294      DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE',  -5,   2/
1295      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',  -7,  -3/
1296      DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW',  -7,  -6/
1297      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',  -6,  -8/
1298      DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW',  -4,  -9/
1299      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',  -2,  -9/
1300      DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW',   0,  -8/
1301      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',   2,  -6/
1302      DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW',   4,  -3/
1303      DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE',   6,   5/
1304      DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW',   4,  -3/
1305      DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW',   4,  -6/
1306      DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW',   5,  -8/
1307      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',   6,  -9/
1308      DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW',   8,  -9/
1309      DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW',  10,  -7/
1310      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',  11,  -5/
1311      DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE',   7,   5/
1312      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW',   5,  -3/
1313      DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW',   5,  -8/
1314      DATA IOPERA( 221),IX( 221),IY( 221)/'MOVE',   6,   5/
1315      DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW',   8,   5/
1316      DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW',   6,  -2/
1317      DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW',   5,  -6/
1318C
1319      DATA IXMIND(  21)/ -12/
1320      DATA IXMAXD(  21)/  12/
1321      DATA IXDELD(  21)/  24/
1322      DATA ISTARD(  21)/ 189/
1323      DATA NUMCOO(  21)/  36/
1324C
1325C     DEFINE CHARACTER   3172--LOWER CASE V
1326C
1327      DATA IOPERA( 225),IX( 225),IY( 225)/'MOVE',  -9,   1/
1328      DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW',  -8,   3/
1329      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',  -6,   5/
1330      DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW',  -4,   5/
1331      DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW',  -3,   4/
1332      DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW',  -2,   2/
1333      DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW',  -2,  -1/
1334      DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW',  -4,  -6/
1335      DATA IOPERA( 233),IX( 233),IY( 233)/'MOVE',  -3,   4/
1336      DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW',  -3,   0/
1337      DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW',  -4,  -4/
1338      DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW',  -4,  -8/
1339      DATA IOPERA( 237),IX( 237),IY( 237)/'MOVE',  -3,   2/
1340      DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW',  -5,  -3/
1341      DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW',  -5,  -6/
1342      DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW',  -4,  -8/
1343      DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW',  -2,  -9/
1344      DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW',   0,  -9/
1345      DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW',   2,  -8/
1346      DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW',   4,  -6/
1347      DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW',   6,  -3/
1348      DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW',   7,   1/
1349      DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW',   7,   5/
1350      DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW',   6,   5/
1351      DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW',   6,   4/
1352      DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW',   7,   2/
1353C
1354      DATA IXMIND(  22)/ -10/
1355      DATA IXMAXD(  22)/  10/
1356      DATA IXDELD(  22)/  20/
1357      DATA ISTARD(  22)/ 225/
1358      DATA NUMCOO(  22)/  26/
1359C
1360C     DEFINE CHARACTER   3173--LOWER CASE W
1361C
1362      DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE', -14,   1/
1363      DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW', -13,   3/
1364      DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW', -11,   5/
1365      DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW',  -9,   5/
1366      DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW',  -8,   4/
1367      DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW',  -7,   2/
1368      DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW',  -7,  -1/
1369      DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW',  -9,  -6/
1370      DATA IOPERA( 259),IX( 259),IY( 259)/'MOVE',  -8,   4/
1371      DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW',  -8,   0/
1372      DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW',  -9,  -4/
1373      DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW',  -9,  -8/
1374      DATA IOPERA( 263),IX( 263),IY( 263)/'MOVE',  -8,   2/
1375      DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW', -10,  -3/
1376      DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW', -10,  -6/
1377      DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW',  -9,  -8/
1378      DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW',  -7,  -9/
1379      DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW',  -5,  -9/
1380      DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW',  -3,  -8/
1381      DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW',  -1,  -6/
1382      DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW',   0,  -3/
1383      DATA IOPERA( 272),IX( 272),IY( 272)/'MOVE',   2,   5/
1384      DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW',   0,  -3/
1385      DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW',   0,  -6/
1386      DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW',   1,  -8/
1387      DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW',   3,  -9/
1388      DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW',   5,  -9/
1389      DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW',   7,  -8/
1390      DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW',   9,  -6/
1391      DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW',  11,  -3/
1392      DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW',  12,   1/
1393      DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW',  12,   5/
1394      DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW',  11,   5/
1395      DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW',  11,   4/
1396      DATA IOPERA( 285),IX( 285),IY( 285)/'DRAW',  12,   2/
1397      DATA IOPERA( 286),IX( 286),IY( 286)/'MOVE',   3,   5/
1398      DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW',   1,  -3/
1399      DATA IOPERA( 288),IX( 288),IY( 288)/'DRAW',   1,  -8/
1400      DATA IOPERA( 289),IX( 289),IY( 289)/'MOVE',   2,   5/
1401      DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW',   4,   5/
1402      DATA IOPERA( 291),IX( 291),IY( 291)/'DRAW',   2,  -2/
1403      DATA IOPERA( 292),IX( 292),IY( 292)/'DRAW',   1,  -6/
1404C
1405      DATA IXMIND(  23)/ -15/
1406      DATA IXMAXD(  23)/  15/
1407      DATA IXDELD(  23)/  30/
1408      DATA ISTARD(  23)/ 251/
1409      DATA NUMCOO(  23)/  42/
1410C
1411C-----START POINT-----------------------------------------------------
1412C
1413      IFOUND='YES'
1414      IERROR='NO'
1415C
1416      NUMCO=1
1417      ISTART=1
1418      ISTOP=1
1419      NC=1
1420C
1421C               ******************************************
1422C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
1423C               **  HERSHEY CHARACTER SET CASE          **
1424C               ******************************************
1425C
1426C
1427      IF(IBUGD2.EQ.'OFF')GOTO90
1428      WRITE(ICOUT,999)
1429  999 FORMAT(1X)
1430      CALL DPWRST('XXX','BUG ')
1431      WRITE(ICOUT,51)
1432   51 FORMAT('***** AT THE BEGINNING OF DRTIL3--')
1433      CALL DPWRST('XXX','BUG ')
1434      WRITE(ICOUT,52)ICHARN
1435   52 FORMAT('ICHARN = ',I8)
1436      CALL DPWRST('XXX','BUG ')
1437      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
1438   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
1439      CALL DPWRST('XXX','BUG ')
1440   90 CONTINUE
1441C
1442C               **************************************
1443C               **  STEP 2--                        **
1444C               **  EXTRACT THE COORDINATES         **
1445C               **  FOR THIS PARTICULAR CHARACTER.  **
1446C               **************************************
1447C
1448      ISTART=ISTARD(ICHARN)
1449      NC=NUMCOO(ICHARN)
1450      ISTOP=ISTART+NC-1
1451      J=0
1452      DO1100I=ISTART,ISTOP
1453      J=J+1
1454      IOP(J)=IOPERA(I)
1455      X(J)=IX(I)
1456      Y(J)=IY(I)
1457 1100 CONTINUE
1458      NUMCO=J
1459      IXMINS=IXMIND(ICHARN)
1460      IXMAXS=IXMAXD(ICHARN)
1461      IXDELS=IXDELD(ICHARN)
1462C
1463      GOTO9000
1464C
1465C               *****************
1466C               **  STEP 90--  **
1467C               **  EXIT       **
1468C               *****************
1469C
1470 9000 CONTINUE
1471      IF(IBUGD2.EQ.'OFF')GOTO9090
1472      WRITE(ICOUT,999)
1473      CALL DPWRST('XXX','BUG ')
1474      WRITE(ICOUT,9011)
1475 9011 FORMAT('***** AT THE END       OF DRTIL3--')
1476      CALL DPWRST('XXX','BUG ')
1477      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
1478 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
1479      CALL DPWRST('XXX','BUG ')
1480      WRITE(ICOUT,9013)ICHARN
1481 9013 FORMAT('ICHARN = ',I8)
1482      CALL DPWRST('XXX','BUG ')
1483      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
1484 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
1485      CALL DPWRST('XXX','BUG ')
1486      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
1487      DO9015I=1,NUMCO
1488      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
1489 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
1490      CALL DPWRST('XXX','BUG ')
1491 9015 CONTINUE
1492 9019 CONTINUE
1493      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
1494 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
1495      CALL DPWRST('XXX','BUG ')
1496 9090 CONTINUE
1497C
1498      RETURN
1499      END
1500      SUBROUTINE DRTIL4(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
1501     1IBUGD2,IFOUND,IERROR)
1502C
1503C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
1504C              FOR ROMAN TRIPLEX ITALIC LOWER CASE (PART 4).
1505C     WRITTEN BY--JAMES J. FILLIBEN
1506C                 STATISTICAL ENGINEERING DIVISION
1507C                 CENTER FOR APPLIED MATHEMATICS
1508C                 NATIONAL BUREAU OF STANDARDS
1509C                 WASHINGTON, D. C. 20234
1510C                 PHONE--301-921-3651
1511C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
1512C           OF THE NATIONAL BUREAU OF STANDARDS.
1513C     LANGUAGE--ANSI FORTRAN (1977)
1514C     VERSION NUMBER--87/4
1515C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
1516C     UPDATED         --MAY       1982.
1517C     UPDATED         --MARCH     1987.
1518C
1519C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
1520C
1521      CHARACTER*4 IOP
1522      CHARACTER*4 IBUGD2
1523      CHARACTER*4 IFOUND
1524      CHARACTER*4 IERROR
1525C
1526      CHARACTER*4 IOPERA
1527C
1528C---------------------------------------------------------------------
1529C
1530      DIMENSION IOP(*)
1531      DIMENSION X(*)
1532      DIMENSION Y(*)
1533C
1534      DIMENSION IOPERA(300)
1535      DIMENSION IX(300)
1536      DIMENSION IY(300)
1537C
1538      DIMENSION IXMIND(30)
1539      DIMENSION IXMAXD(30)
1540      DIMENSION IXDELD(30)
1541      DIMENSION ISTARD(30)
1542      DIMENSION NUMCOO(30)
1543C
1544C-----COMMON----------------------------------------------------------
1545C
1546      INCLUDE 'DPCOP2.INC'
1547C
1548C-----DATA STATEMENTS-------------------------------------------------
1549C
1550C     DEFINE CHARACTER   3174--LOWER CASE X
1551C
1552      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',  -8,   1/
1553      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',  -6,   4/
1554      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',  -4,   5/
1555      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',  -2,   5/
1556      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',   0,   4/
1557      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',   1,   2/
1558      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',   1,   0/
1559      DATA IOPERA(   8),IX(   8),IY(   8)/'MOVE',  -2,   5/
1560      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',  -1,   4/
1561      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',  -1,   0/
1562      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',  -2,  -4/
1563      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',  -3,  -6/
1564      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',  -5,  -8/
1565      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',  -7,  -9/
1566      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',  -9,  -9/
1567      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW', -10,  -8/
1568      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW', -10,  -6/
1569      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',  -8,  -6/
1570      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',  -8,  -8/
1571      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',  -9,  -8/
1572      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',  -9,  -7/
1573      DATA IOPERA(  22),IX(  22),IY(  22)/'MOVE',   0,   3/
1574      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',   0,   0/
1575      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',  -1,  -4/
1576      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',  -1,  -7/
1577      DATA IOPERA(  26),IX(  26),IY(  26)/'MOVE',   8,   3/
1578      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',   8,   4/
1579      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',   7,   4/
1580      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',   7,   2/
1581      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',   9,   2/
1582      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',   9,   4/
1583      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',   8,   5/
1584      DATA IOPERA(  33),IX(  33),IY(  33)/'DRAW',   6,   5/
1585      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',   4,   4/
1586      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',   2,   2/
1587      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',   1,   0/
1588      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',   0,  -4/
1589      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',   0,  -8/
1590      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',   1,  -9/
1591      DATA IOPERA(  40),IX(  40),IY(  40)/'MOVE',  -2,  -4/
1592      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',  -2,  -6/
1593      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',  -1,  -8/
1594      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   1,  -9/
1595      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',   3,  -9/
1596      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',   5,  -8/
1597      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',   7,  -5/
1598C
1599      DATA IXMIND(  24)/ -11/
1600      DATA IXMAXD(  24)/  11/
1601      DATA IXDELD(  24)/  22/
1602      DATA ISTARD(  24)/   1/
1603      DATA NUMCOO(  24)/  46/
1604C
1605C     DEFINE CHARACTER   3175--LOWER CASE Y
1606C
1607      DATA IOPERA(  47),IX(  47),IY(  47)/'MOVE', -10,   1/
1608      DATA IOPERA(  48),IX(  48),IY(  48)/'DRAW',  -9,   3/
1609      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',  -7,   5/
1610      DATA IOPERA(  50),IX(  50),IY(  50)/'DRAW',  -5,   5/
1611      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',  -4,   4/
1612      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',  -3,   2/
1613      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',  -3,  -1/
1614      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',  -5,  -6/
1615      DATA IOPERA(  55),IX(  55),IY(  55)/'MOVE',  -4,   4/
1616      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',  -4,   0/
1617      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',  -5,  -4/
1618      DATA IOPERA(  58),IX(  58),IY(  58)/'DRAW',  -5,  -8/
1619      DATA IOPERA(  59),IX(  59),IY(  59)/'MOVE',  -4,   2/
1620      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW',  -6,  -3/
1621      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',  -6,  -6/
1622      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',  -5,  -8/
1623      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',  -3,  -9/
1624      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',  -1,  -9/
1625      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',   1,  -8/
1626      DATA IOPERA(  66),IX(  66),IY(  66)/'DRAW',   3,  -6/
1627      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',   5,  -2/
1628      DATA IOPERA(  68),IX(  68),IY(  68)/'MOVE',   7,   5/
1629      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',   3,  -9/
1630      DATA IOPERA(  70),IX(  70),IY(  70)/'DRAW',   2, -12/
1631      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',   0, -15/
1632      DATA IOPERA(  72),IX(  72),IY(  72)/'DRAW',  -2, -16/
1633      DATA IOPERA(  73),IX(  73),IY(  73)/'MOVE',   8,   5/
1634      DATA IOPERA(  74),IX(  74),IY(  74)/'DRAW',   4,  -9/
1635      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',   2, -13/
1636      DATA IOPERA(  76),IX(  76),IY(  76)/'MOVE',   7,   5/
1637      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',   9,   5/
1638      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',   5,  -9/
1639      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',   3, -13/
1640      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',   1, -15/
1641      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',  -2, -16/
1642      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',  -5, -16/
1643      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',  -7, -15/
1644      DATA IOPERA(  84),IX(  84),IY(  84)/'DRAW',  -8, -14/
1645      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',  -8, -12/
1646      DATA IOPERA(  86),IX(  86),IY(  86)/'DRAW',  -6, -12/
1647      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',  -6, -14/
1648      DATA IOPERA(  88),IX(  88),IY(  88)/'DRAW',  -7, -14/
1649      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',  -7, -13/
1650C
1651      DATA IXMIND(  25)/ -11/
1652      DATA IXMAXD(  25)/  11/
1653      DATA IXDELD(  25)/  22/
1654      DATA ISTARD(  25)/  47/
1655      DATA NUMCOO(  25)/  43/
1656C
1657C     DEFINE CHARACTER   3176--LOWER CASE Z
1658C
1659      DATA IOPERA(  90),IX(  90),IY(  90)/'MOVE',   7,   5/
1660      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',   6,   3/
1661      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',   4,   1/
1662      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',  -4,  -5/
1663      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',  -6,  -7/
1664      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',  -7,  -9/
1665      DATA IOPERA(  96),IX(  96),IY(  96)/'MOVE',   6,   3/
1666      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW',  -3,   3/
1667      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',  -5,   2/
1668      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',  -6,   0/
1669      DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE',   4,   3/
1670      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',   0,   4/
1671      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',  -3,   4/
1672      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',  -4,   3/
1673      DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE',   4,   3/
1674      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',   0,   5/
1675      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',  -3,   5/
1676      DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW',  -5,   3/
1677      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',  -6,   0/
1678      DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE',  -6,  -7/
1679      DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW',   3,  -7/
1680      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',   5,  -6/
1681      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',   6,  -4/
1682      DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE',  -4,  -7/
1683      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',   0,  -8/
1684      DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW',   3,  -8/
1685      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',   4,  -7/
1686      DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE',  -4,  -7/
1687      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',   0,  -9/
1688      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',   3,  -9/
1689      DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW',   5,  -7/
1690      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW',   6,  -4/
1691C
1692      DATA IXMIND(  26)/ -10/
1693      DATA IXMAXD(  26)/  10/
1694      DATA IXDELD(  26)/  20/
1695      DATA ISTARD(  26)/  90/
1696      DATA NUMCOO(  26)/  32/
1697C
1698C-----START POINT-----------------------------------------------------
1699C
1700      IFOUND='YES'
1701      IERROR='NO'
1702C
1703      NUMCO=1
1704      ISTART=1
1705      ISTOP=1
1706      NC=1
1707C
1708C               ******************************************
1709C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
1710C               **  HERSHEY CHARACTER SET CASE          **
1711C               ******************************************
1712C
1713C
1714      IF(IBUGD2.EQ.'OFF')GOTO90
1715      WRITE(ICOUT,999)
1716  999 FORMAT(1X)
1717      CALL DPWRST('XXX','BUG ')
1718      WRITE(ICOUT,51)
1719   51 FORMAT('***** AT THE BEGINNING OF DRTIL4--')
1720      CALL DPWRST('XXX','BUG ')
1721      WRITE(ICOUT,52)ICHARN
1722   52 FORMAT('ICHARN = ',I8)
1723      CALL DPWRST('XXX','BUG ')
1724      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
1725   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
1726      CALL DPWRST('XXX','BUG ')
1727   90 CONTINUE
1728C
1729C               **************************************
1730C               **  STEP 2--                        **
1731C               **  EXTRACT THE COORDINATES         **
1732C               **  FOR THIS PARTICULAR CHARACTER.  **
1733C               **************************************
1734C
1735      ISTART=ISTARD(ICHARN)
1736      NC=NUMCOO(ICHARN)
1737      ISTOP=ISTART+NC-1
1738      J=0
1739      DO1100I=ISTART,ISTOP
1740      J=J+1
1741      IOP(J)=IOPERA(I)
1742      X(J)=IX(I)
1743      Y(J)=IY(I)
1744 1100 CONTINUE
1745      NUMCO=J
1746      IXMINS=IXMIND(ICHARN)
1747      IXMAXS=IXMAXD(ICHARN)
1748      IXDELS=IXDELD(ICHARN)
1749C
1750      GOTO9000
1751C
1752C               *****************
1753C               **  STEP 90--  **
1754C               **  EXIT       **
1755C               *****************
1756C
1757 9000 CONTINUE
1758      IF(IBUGD2.EQ.'OFF')GOTO9090
1759      WRITE(ICOUT,999)
1760      CALL DPWRST('XXX','BUG ')
1761      WRITE(ICOUT,9011)
1762 9011 FORMAT('***** AT THE END       OF DRTIL4--')
1763      CALL DPWRST('XXX','BUG ')
1764      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
1765 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
1766      CALL DPWRST('XXX','BUG ')
1767      WRITE(ICOUT,9013)ICHARN
1768 9013 FORMAT('ICHARN = ',I8)
1769      CALL DPWRST('XXX','BUG ')
1770      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
1771 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
1772      CALL DPWRST('XXX','BUG ')
1773      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
1774      DO9015I=1,NUMCO
1775      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
1776 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
1777      CALL DPWRST('XXX','BUG ')
1778 9015 CONTINUE
1779 9019 CONTINUE
1780      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
1781 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
1782      CALL DPWRST('XXX','BUG ')
1783 9090 CONTINUE
1784C
1785      RETURN
1786      END
1787      SUBROUTINE DRTIN1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
1788     1IBUGD2,IFOUND,IERROR)
1789C
1790C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
1791C              FOR ROMAN TRIPLEX ITALIC NUMERIC (PART 1).
1792C     WRITTEN BY--JAMES J. FILLIBEN
1793C                 STATISTICAL ENGINEERING DIVISION
1794C                 CENTER FOR APPLIED MATHEMATICS
1795C                 NATIONAL BUREAU OF STANDARDS
1796C                 WASHINGTON, D. C. 20234
1797C                 PHONE--301-921-3651
1798C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
1799C           OF THE NATIONAL BUREAU OF STANDARDS.
1800C     LANGUAGE--ANSI FORTRAN (1977)
1801C     VERSION NUMBER--87/4
1802C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
1803C     UPDATED         --MAY       1982.
1804C     UPDATED         --MARCH     1987.
1805C
1806C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
1807C
1808      CHARACTER*4 IOP
1809      CHARACTER*4 IBUGD2
1810      CHARACTER*4 IFOUND
1811      CHARACTER*4 IERROR
1812C
1813      CHARACTER*4 IOPERA
1814C
1815C---------------------------------------------------------------------
1816C
1817      DIMENSION IOP(*)
1818      DIMENSION X(*)
1819      DIMENSION Y(*)
1820C
1821      DIMENSION IOPERA(300)
1822      DIMENSION IX(300)
1823      DIMENSION IY(300)
1824C
1825      DIMENSION IXMIND(30)
1826      DIMENSION IXMAXD(30)
1827      DIMENSION IXDELD(30)
1828      DIMENSION ISTARD(30)
1829      DIMENSION NUMCOO(30)
1830C
1831C-----COMMON----------------------------------------------------------
1832C
1833      INCLUDE 'DPCOP2.INC'
1834C
1835C-----DATA STATEMENTS-------------------------------------------------
1836C
1837C     DEFINE CHARACTER   3250--0
1838C
1839      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',   2,  12/
1840      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',  -1,  11/
1841      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',  -3,   9/
1842      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',  -5,   6/
1843      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',  -6,   3/
1844      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',  -7,  -1/
1845      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',  -7,  -4/
1846      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',  -6,  -7/
1847      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',  -5,  -8/
1848      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',  -3,  -9/
1849      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',  -1,  -9/
1850      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',   2,  -8/
1851      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',   4,  -6/
1852      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',   6,  -3/
1853      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',   7,   0/
1854      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',   8,   4/
1855      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW',   8,   7/
1856      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',   7,  10/
1857      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',   6,  11/
1858      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',   4,  12/
1859      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',   2,  12/
1860      DATA IOPERA(  22),IX(  22),IY(  22)/'MOVE',  -1,  10/
1861      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',  -3,   8/
1862      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',  -4,   6/
1863      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',  -5,   3/
1864      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',  -6,  -1/
1865      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',  -6,  -5/
1866      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',  -5,  -7/
1867      DATA IOPERA(  29),IX(  29),IY(  29)/'MOVE',   2,  -7/
1868      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',   4,  -5/
1869      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',   5,  -3/
1870      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',   6,   0/
1871      DATA IOPERA(  33),IX(  33),IY(  33)/'DRAW',   7,   4/
1872      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',   7,   8/
1873      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',   6,  10/
1874      DATA IOPERA(  36),IX(  36),IY(  36)/'MOVE',   2,  12/
1875      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',   0,  11/
1876      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',  -2,   8/
1877      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',  -3,   6/
1878      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',  -4,   3/
1879      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',  -5,  -1/
1880      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',  -5,  -6/
1881      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',  -4,  -8/
1882      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',  -3,  -9/
1883      DATA IOPERA(  45),IX(  45),IY(  45)/'MOVE',  -1,  -9/
1884      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',   1,  -8/
1885      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',   3,  -5/
1886      DATA IOPERA(  48),IX(  48),IY(  48)/'DRAW',   4,  -3/
1887      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',   5,   0/
1888      DATA IOPERA(  50),IX(  50),IY(  50)/'DRAW',   6,   4/
1889      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',   6,   9/
1890      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',   5,  11/
1891      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',   4,  12/
1892C
1893      DATA IXMIND(   1)/ -10/
1894      DATA IXMAXD(   1)/  11/
1895      DATA IXDELD(   1)/  21/
1896      DATA ISTARD(   1)/   1/
1897      DATA NUMCOO(   1)/  53/
1898C
1899C     DEFINE CHARACTER   3251--1
1900C
1901      DATA IOPERA(  54),IX(  54),IY(  54)/'MOVE',   2,   8/
1902      DATA IOPERA(  55),IX(  55),IY(  55)/'DRAW',  -3,  -9/
1903      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',  -1,  -9/
1904      DATA IOPERA(  57),IX(  57),IY(  57)/'MOVE',   5,  12/
1905      DATA IOPERA(  58),IX(  58),IY(  58)/'DRAW',   3,   8/
1906      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',  -2,  -9/
1907      DATA IOPERA(  60),IX(  60),IY(  60)/'MOVE',   5,  12/
1908      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',  -1,  -9/
1909      DATA IOPERA(  62),IX(  62),IY(  62)/'MOVE',   5,  12/
1910      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',   2,   9/
1911      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',  -1,   7/
1912      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',  -3,   6/
1913      DATA IOPERA(  66),IX(  66),IY(  66)/'MOVE',   2,   8/
1914      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',   0,   7/
1915      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',  -3,   6/
1916C
1917      DATA IXMIND(   2)/ -10/
1918      DATA IXMAXD(   2)/  11/
1919      DATA IXDELD(   2)/  21/
1920      DATA ISTARD(   2)/  54/
1921      DATA NUMCOO(   2)/  15/
1922C
1923C     DEFINE CHARACTER   3252--2
1924C
1925      DATA IOPERA(  69),IX(  69),IY(  69)/'MOVE',  -3,   7/
1926      DATA IOPERA(  70),IX(  70),IY(  70)/'DRAW',  -3,   8/
1927      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',  -2,   8/
1928      DATA IOPERA(  72),IX(  72),IY(  72)/'DRAW',  -2,   6/
1929      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',  -4,   6/
1930      DATA IOPERA(  74),IX(  74),IY(  74)/'DRAW',  -4,   8/
1931      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',  -3,  10/
1932      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',  -2,  11/
1933      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',   1,  12/
1934      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',   4,  12/
1935      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',   7,  11/
1936      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',   8,   9/
1937      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',   8,   7/
1938      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',   7,   5/
1939      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',   5,   3/
1940      DATA IOPERA(  84),IX(  84),IY(  84)/'DRAW',  -5,  -3/
1941      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',  -7,  -5/
1942      DATA IOPERA(  86),IX(  86),IY(  86)/'DRAW',  -9,  -9/
1943      DATA IOPERA(  87),IX(  87),IY(  87)/'MOVE',   6,  11/
1944      DATA IOPERA(  88),IX(  88),IY(  88)/'DRAW',   7,   9/
1945      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',   7,   7/
1946      DATA IOPERA(  90),IX(  90),IY(  90)/'DRAW',   6,   5/
1947      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',   4,   3/
1948      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',   1,   1/
1949      DATA IOPERA(  93),IX(  93),IY(  93)/'MOVE',   4,  12/
1950      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',   5,  11/
1951      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',   6,   9/
1952      DATA IOPERA(  96),IX(  96),IY(  96)/'DRAW',   6,   7/
1953      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW',   5,   5/
1954      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',   3,   3/
1955      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',  -5,  -3/
1956      DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE',  -8,  -7/
1957      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',  -7,  -6/
1958      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',  -5,  -6/
1959      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',   0,  -7/
1960      DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW',   5,  -7/
1961      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',   6,  -6/
1962      DATA IOPERA( 106),IX( 106),IY( 106)/'MOVE',  -5,  -6/
1963      DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW',   0,  -8/
1964      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',   5,  -8/
1965      DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE',  -5,  -6/
1966      DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW',   0,  -9/
1967      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',   3,  -9/
1968      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',   5,  -8/
1969      DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW',   6,  -6/
1970      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',   6,  -5/
1971C
1972      DATA IXMIND(   3)/ -10/
1973      DATA IXMAXD(   3)/  11/
1974      DATA IXDELD(   3)/  21/
1975      DATA ISTARD(   3)/  69/
1976      DATA NUMCOO(   3)/  46/
1977C
1978C     DEFINE CHARACTER   3253--3
1979C
1980      DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE',  -3,   7/
1981      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',  -3,   8/
1982      DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW',  -2,   8/
1983      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',  -2,   6/
1984      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',  -4,   6/
1985      DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW',  -4,   8/
1986      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW',  -3,  10/
1987      DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW',  -2,  11/
1988      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',   1,  12/
1989      DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW',   4,  12/
1990      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',   7,  11/
1991      DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW',   8,   9/
1992      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',   8,   7/
1993      DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW',   7,   5/
1994      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',   6,   4/
1995      DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW',   4,   3/
1996      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',   1,   2/
1997      DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE',   6,  11/
1998      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',   7,   9/
1999      DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW',   7,   7/
2000      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',   6,   5/
2001      DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW',   5,   4/
2002      DATA IOPERA( 137),IX( 137),IY( 137)/'MOVE',   4,  12/
2003      DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW',   5,  11/
2004      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',   6,   9/
2005      DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW',   6,   7/
2006      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',   5,   5/
2007      DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW',   3,   3/
2008      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',   1,   2/
2009      DATA IOPERA( 144),IX( 144),IY( 144)/'MOVE',  -1,   2/
2010      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',   1,   2/
2011      DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW',   4,   1/
2012      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',   5,   0/
2013      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',   6,  -2/
2014      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',   6,  -5/
2015      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',   5,  -7/
2016      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',   3,  -8/
2017      DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW',   0,  -9/
2018      DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW',  -3,  -9/
2019      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',  -6,  -8/
2020      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',  -7,  -7/
2021      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',  -8,  -5/
2022      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',  -8,  -3/
2023      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',  -6,  -3/
2024      DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW',  -6,  -5/
2025      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',  -7,  -5/
2026      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',  -7,  -4/
2027      DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE',   4,   0/
2028      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',   5,  -2/
2029      DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW',   5,  -5/
2030      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',   4,  -7/
2031      DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE',   1,   2/
2032      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW',   3,   1/
2033      DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW',   4,  -1/
2034      DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW',   4,  -5/
2035      DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW',   3,  -7/
2036      DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW',   2,  -8/
2037      DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW',   0,  -9/
2038C
2039      DATA IXMIND(   4)/ -10/
2040      DATA IXMAXD(   4)/  11/
2041      DATA IXDELD(   4)/  21/
2042      DATA ISTARD(   4)/ 115/
2043      DATA NUMCOO(   4)/  58/
2044C
2045C     DEFINE CHARACTER   3254--4
2046C
2047      DATA IOPERA( 173),IX( 173),IY( 173)/'MOVE',   5,   8/
2048      DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW',   0,  -9/
2049      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',   2,  -9/
2050      DATA IOPERA( 176),IX( 176),IY( 176)/'MOVE',   8,  12/
2051      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW',   6,   8/
2052      DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW',   1,  -9/
2053      DATA IOPERA( 179),IX( 179),IY( 179)/'MOVE',   8,  12/
2054      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',   2,  -9/
2055      DATA IOPERA( 181),IX( 181),IY( 181)/'MOVE',   8,  12/
2056      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',  -8,  -3/
2057      DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW',   8,  -3/
2058C
2059      DATA IXMIND(   5)/ -10/
2060      DATA IXMAXD(   5)/  11/
2061      DATA IXDELD(   5)/  21/
2062      DATA ISTARD(   5)/ 173/
2063      DATA NUMCOO(   5)/  11/
2064C
2065C     DEFINE CHARACTER   3255--5
2066C
2067      DATA IOPERA( 184),IX( 184),IY( 184)/'MOVE',  -1,  12/
2068      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',  -6,   2/
2069      DATA IOPERA( 186),IX( 186),IY( 186)/'MOVE',  -1,  12/
2070      DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW',   9,  12/
2071      DATA IOPERA( 188),IX( 188),IY( 188)/'MOVE',  -1,  11/
2072      DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW',   7,  11/
2073      DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE',  -2,  10/
2074      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',   3,  10/
2075      DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW',   7,  11/
2076      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',   9,  12/
2077      DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE',  -6,   2/
2078      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',  -5,   3/
2079      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',  -2,   4/
2080      DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW',   1,   4/
2081      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',   4,   3/
2082      DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW',   5,   2/
2083      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',   6,   0/
2084      DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW',   6,  -3/
2085      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',   5,  -6/
2086      DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW',   3,  -8/
2087      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',  -1,  -9/
2088      DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW',  -4,  -9/
2089      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',  -6,  -8/
2090      DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW',  -7,  -7/
2091      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',  -8,  -5/
2092      DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW',  -8,  -3/
2093      DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW',  -6,  -3/
2094      DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW',  -6,  -5/
2095      DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW',  -7,  -5/
2096      DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW',  -7,  -4/
2097      DATA IOPERA( 214),IX( 214),IY( 214)/'MOVE',   4,   2/
2098      DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW',   5,   0/
2099      DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW',   5,  -3/
2100      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',   4,  -6/
2101      DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW',   2,  -8/
2102      DATA IOPERA( 219),IX( 219),IY( 219)/'MOVE',   1,   4/
2103      DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW',   3,   3/
2104      DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW',   4,   1/
2105      DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW',   4,  -3/
2106      DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW',   3,  -6/
2107      DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW',   1,  -8/
2108      DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW',  -1,  -9/
2109C
2110      DATA IXMIND(   6)/ -10/
2111      DATA IXMAXD(   6)/  11/
2112      DATA IXDELD(   6)/  21/
2113      DATA ISTARD(   6)/ 184/
2114      DATA NUMCOO(   6)/  42/
2115C
2116C     DEFINE CHARACTER   3256--6
2117C
2118      DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE',   7,   8/
2119      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',   7,   9/
2120      DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW',   6,   9/
2121      DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW',   6,   7/
2122      DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW',   8,   7/
2123      DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW',   8,   9/
2124      DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW',   7,  11/
2125      DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW',   5,  12/
2126      DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW',   2,  12/
2127      DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW',  -1,  11/
2128      DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW',  -3,   9/
2129      DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW',  -5,   6/
2130      DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW',  -6,   3/
2131      DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW',  -7,  -1/
2132      DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW',  -7,  -4/
2133      DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW',  -6,  -7/
2134      DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW',  -5,  -8/
2135      DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW',  -3,  -9/
2136      DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW',   0,  -9/
2137      DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW',   3,  -8/
2138      DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW',   5,  -6/
2139      DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW',   6,  -4/
2140      DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW',   6,  -1/
2141      DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW',   5,   1/
2142      DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW',   4,   2/
2143      DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW',   2,   3/
2144      DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW',  -1,   3/
2145      DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW',  -3,   2/
2146      DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW',  -4,   1/
2147      DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW',  -5,  -1/
2148      DATA IOPERA( 256),IX( 256),IY( 256)/'MOVE',  -2,   9/
2149      DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW',  -4,   6/
2150      DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW',  -5,   3/
2151      DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW',  -6,  -1/
2152      DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW',  -6,  -5/
2153      DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW',  -5,  -7/
2154      DATA IOPERA( 262),IX( 262),IY( 262)/'MOVE',   4,  -6/
2155      DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW',   5,  -4/
2156      DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW',   5,  -1/
2157      DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW',   4,   1/
2158      DATA IOPERA( 266),IX( 266),IY( 266)/'MOVE',   2,  12/
2159      DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW',   0,  11/
2160      DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW',  -2,   8/
2161      DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW',  -3,   6/
2162      DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW',  -4,   3/
2163      DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW',  -5,  -1/
2164      DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW',  -5,  -6/
2165      DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW',  -4,  -8/
2166      DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW',  -3,  -9/
2167      DATA IOPERA( 275),IX( 275),IY( 275)/'MOVE',   0,  -9/
2168      DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW',   2,  -8/
2169      DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW',   3,  -7/
2170      DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW',   4,  -4/
2171      DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW',   4,   0/
2172      DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW',   3,   2/
2173      DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW',   2,   3/
2174C
2175      DATA IXMIND(   7)/ -10/
2176      DATA IXMAXD(   7)/  11/
2177      DATA IXDELD(   7)/  21/
2178      DATA ISTARD(   7)/ 226/
2179      DATA NUMCOO(   7)/  56/
2180C
2181C-----START POINT-----------------------------------------------------
2182C
2183      IFOUND='YES'
2184      IERROR='NO'
2185C
2186      NUMCO=1
2187      ISTART=1
2188      ISTOP=1
2189      NC=1
2190C
2191C               ******************************************
2192C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
2193C               **  HERSHEY CHARACTER SET CASE          **
2194C               ******************************************
2195C
2196C
2197      IF(IBUGD2.EQ.'OFF')GOTO90
2198      WRITE(ICOUT,999)
2199  999 FORMAT(1X)
2200      CALL DPWRST('XXX','BUG ')
2201      WRITE(ICOUT,51)
2202   51 FORMAT('***** AT THE BEGINNING OF DRTIN1--')
2203      CALL DPWRST('XXX','BUG ')
2204      WRITE(ICOUT,52)ICHARN
2205   52 FORMAT('ICHARN = ',I8)
2206      CALL DPWRST('XXX','BUG ')
2207      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
2208   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
2209      CALL DPWRST('XXX','BUG ')
2210   90 CONTINUE
2211C
2212C               **************************************
2213C               **  STEP 2--                        **
2214C               **  EXTRACT THE COORDINATES         **
2215C               **  FOR THIS PARTICULAR CHARACTER.  **
2216C               **************************************
2217C
2218      ISTART=ISTARD(ICHARN)
2219      NC=NUMCOO(ICHARN)
2220      ISTOP=ISTART+NC-1
2221      J=0
2222      DO1100I=ISTART,ISTOP
2223      J=J+1
2224      IOP(J)=IOPERA(I)
2225      X(J)=IX(I)
2226      Y(J)=IY(I)
2227 1100 CONTINUE
2228      NUMCO=J
2229      IXMINS=IXMIND(ICHARN)
2230      IXMAXS=IXMAXD(ICHARN)
2231      IXDELS=IXDELD(ICHARN)
2232C
2233      GOTO9000
2234C
2235C               *****************
2236C               **  STEP 90--  **
2237C               **  EXIT       **
2238C               *****************
2239C
2240 9000 CONTINUE
2241      IF(IBUGD2.EQ.'OFF')GOTO9090
2242      WRITE(ICOUT,999)
2243      CALL DPWRST('XXX','BUG ')
2244      WRITE(ICOUT,9011)
2245 9011 FORMAT('***** AT THE END       OF DRTIN1--')
2246      CALL DPWRST('XXX','BUG ')
2247      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
2248 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
2249      CALL DPWRST('XXX','BUG ')
2250      WRITE(ICOUT,9013)ICHARN
2251 9013 FORMAT('ICHARN = ',I8)
2252      CALL DPWRST('XXX','BUG ')
2253      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
2254 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
2255      CALL DPWRST('XXX','BUG ')
2256      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
2257      DO9015I=1,NUMCO
2258      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
2259 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
2260      CALL DPWRST('XXX','BUG ')
2261 9015 CONTINUE
2262 9019 CONTINUE
2263      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
2264 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
2265      CALL DPWRST('XXX','BUG ')
2266 9090 CONTINUE
2267C
2268      RETURN
2269      END
2270      SUBROUTINE DRTIN2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
2271     1IBUGD2,IFOUND,IERROR)
2272C
2273C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
2274C              FOR ROMAN TRIPLEX ITALIC NUMERIC (PART 2).
2275C     WRITTEN BY--JAMES J. FILLIBEN
2276C                 STATISTICAL ENGINEERING DIVISION
2277C                 CENTER FOR APPLIED MATHEMATICS
2278C                 NATIONAL BUREAU OF STANDARDS
2279C                 WASHINGTON, D. C. 20234
2280C                 PHONE--301-921-3651
2281C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
2282C           OF THE NATIONAL BUREAU OF STANDARDS.
2283C     LANGUAGE--ANSI FORTRAN (1977)
2284C     VERSION NUMBER--87/4
2285C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
2286C     UPDATED         --MAY       1982.
2287C     UPDATED         --MARCH     1987.
2288C
2289C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
2290C
2291      CHARACTER*4 IOP
2292      CHARACTER*4 IBUGD2
2293      CHARACTER*4 IFOUND
2294      CHARACTER*4 IERROR
2295C
2296      CHARACTER*4 IOPERA
2297C
2298C---------------------------------------------------------------------
2299C
2300      DIMENSION IOP(*)
2301      DIMENSION X(*)
2302      DIMENSION Y(*)
2303C
2304      DIMENSION IOPERA(300)
2305      DIMENSION IX(300)
2306      DIMENSION IY(300)
2307C
2308      DIMENSION IXMIND(30)
2309      DIMENSION IXMAXD(30)
2310      DIMENSION IXDELD(30)
2311      DIMENSION ISTARD(30)
2312      DIMENSION NUMCOO(30)
2313C
2314C-----COMMON----------------------------------------------------------
2315C
2316      INCLUDE 'DPCOP2.INC'
2317C
2318C-----DATA STATEMENTS-------------------------------------------------
2319C
2320C     DEFINE CHARACTER   3257--7
2321C
2322      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',  -4,  12/
2323      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',  -6,   6/
2324      DATA IOPERA(   3),IX(   3),IY(   3)/'MOVE',   9,  12/
2325      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',   8,   9/
2326      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',   6,   6/
2327      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',   2,   1/
2328      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',   0,  -2/
2329      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',  -1,  -5/
2330      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',  -2,  -9/
2331      DATA IOPERA(  10),IX(  10),IY(  10)/'MOVE',   0,  -1/
2332      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',  -2,  -5/
2333      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',  -3,  -9/
2334      DATA IOPERA(  13),IX(  13),IY(  13)/'MOVE',   6,   6/
2335      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',   0,   0/
2336      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',  -2,  -3/
2337      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',  -3,  -5/
2338      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW',  -4,  -9/
2339      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',  -2,  -9/
2340      DATA IOPERA(  19),IX(  19),IY(  19)/'MOVE',  -5,   9/
2341      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',  -2,  12/
2342      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',   0,  12/
2343      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',   5,   9/
2344      DATA IOPERA(  23),IX(  23),IY(  23)/'MOVE',  -3,  11/
2345      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',   0,  11/
2346      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',   5,   9/
2347      DATA IOPERA(  26),IX(  26),IY(  26)/'MOVE',  -5,   9/
2348      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',  -3,  10/
2349      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',   0,  10/
2350      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',   5,   9/
2351      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',   7,   9/
2352      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',   8,  10/
2353      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',   9,  12/
2354C
2355      DATA IXMIND(   8)/ -10/
2356      DATA IXMAXD(   8)/  11/
2357      DATA IXDELD(   8)/  21/
2358      DATA ISTARD(   8)/   1/
2359      DATA NUMCOO(   8)/  32/
2360C
2361C     DEFINE CHARACTER   3258--8
2362C
2363      DATA IOPERA(  33),IX(  33),IY(  33)/'MOVE',   1,  12/
2364      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',  -2,  11/
2365      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',  -3,  10/
2366      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',  -4,   8/
2367      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',  -4,   5/
2368      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',  -3,   3/
2369      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',  -1,   2/
2370      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',   2,   2/
2371      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',   5,   3/
2372      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',   7,   4/
2373      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   8,   6/
2374      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',   8,   9/
2375      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',   7,  11/
2376      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',   5,  12/
2377      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',   1,  12/
2378      DATA IOPERA(  48),IX(  48),IY(  48)/'MOVE',   3,  12/
2379      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',  -2,  11/
2380      DATA IOPERA(  50),IX(  50),IY(  50)/'MOVE',  -2,  10/
2381      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',  -3,   8/
2382      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',  -3,   4/
2383      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',  -2,   3/
2384      DATA IOPERA(  54),IX(  54),IY(  54)/'MOVE',  -3,   3/
2385      DATA IOPERA(  55),IX(  55),IY(  55)/'DRAW',   0,   2/
2386      DATA IOPERA(  56),IX(  56),IY(  56)/'MOVE',   1,   2/
2387      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',   5,   3/
2388      DATA IOPERA(  58),IX(  58),IY(  58)/'MOVE',   6,   4/
2389      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',   7,   6/
2390      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW',   7,   9/
2391      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',   6,  11/
2392      DATA IOPERA(  62),IX(  62),IY(  62)/'MOVE',   7,  11/
2393      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',   3,  12/
2394      DATA IOPERA(  64),IX(  64),IY(  64)/'MOVE',   1,  12/
2395      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',  -1,  10/
2396      DATA IOPERA(  66),IX(  66),IY(  66)/'DRAW',  -2,   8/
2397      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',  -2,   4/
2398      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',  -1,   2/
2399      DATA IOPERA(  69),IX(  69),IY(  69)/'MOVE',   2,   2/
2400      DATA IOPERA(  70),IX(  70),IY(  70)/'DRAW',   4,   3/
2401      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',   5,   4/
2402      DATA IOPERA(  72),IX(  72),IY(  72)/'DRAW',   6,   6/
2403      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',   6,  10/
2404      DATA IOPERA(  74),IX(  74),IY(  74)/'DRAW',   5,  12/
2405      DATA IOPERA(  75),IX(  75),IY(  75)/'MOVE',  -1,   2/
2406      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',  -5,   1/
2407      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',  -7,  -1/
2408      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',  -8,  -3/
2409      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',  -8,  -6/
2410      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',  -7,  -8/
2411      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',  -4,  -9/
2412      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',   0,  -9/
2413      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',   4,  -8/
2414      DATA IOPERA(  84),IX(  84),IY(  84)/'DRAW',   5,  -7/
2415      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',   6,  -5/
2416      DATA IOPERA(  86),IX(  86),IY(  86)/'DRAW',   6,  -2/
2417      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',   5,   0/
2418      DATA IOPERA(  88),IX(  88),IY(  88)/'DRAW',   4,   1/
2419      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',   2,   2/
2420      DATA IOPERA(  90),IX(  90),IY(  90)/'MOVE',   0,   2/
2421      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',  -5,   1/
2422      DATA IOPERA(  92),IX(  92),IY(  92)/'MOVE',  -4,   1/
2423      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',  -6,  -1/
2424      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',  -7,  -3/
2425      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',  -7,  -6/
2426      DATA IOPERA(  96),IX(  96),IY(  96)/'DRAW',  -6,  -8/
2427      DATA IOPERA(  97),IX(  97),IY(  97)/'MOVE',  -7,  -8/
2428      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',  -2,  -9/
2429      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',   4,  -8/
2430      DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE',   4,  -7/
2431      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',   5,  -5/
2432      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',   5,  -2/
2433      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',   4,   0/
2434      DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE',   4,   1/
2435      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',   1,   2/
2436      DATA IOPERA( 106),IX( 106),IY( 106)/'MOVE',  -1,   2/
2437      DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW',  -3,   1/
2438      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',  -5,  -1/
2439      DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW',  -6,  -3/
2440      DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW',  -6,  -6/
2441      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',  -5,  -8/
2442      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',  -4,  -9/
2443      DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE',   0,  -9/
2444      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',   2,  -8/
2445      DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW',   3,  -7/
2446      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',   4,  -5/
2447      DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW',   4,  -1/
2448      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',   3,   1/
2449      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',   2,   2/
2450C
2451      DATA IXMIND(   9)/ -10/
2452      DATA IXMAXD(   9)/  11/
2453      DATA IXDELD(   9)/  21/
2454      DATA ISTARD(   9)/  33/
2455      DATA NUMCOO(   9)/  87/
2456C
2457C     DEFINE CHARACTER   3259--9
2458C
2459      DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE',   6,   4/
2460      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW',   5,   2/
2461      DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW',   4,   1/
2462      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',   2,   0/
2463      DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW',  -1,   0/
2464      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',  -3,   1/
2465      DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW',  -4,   2/
2466      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',  -5,   4/
2467      DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW',  -5,   7/
2468      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',  -4,   9/
2469      DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW',  -2,  11/
2470      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',   1,  12/
2471      DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW',   4,  12/
2472      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',   6,  11/
2473      DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW',   7,  10/
2474      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',   8,   7/
2475      DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW',   8,   4/
2476      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',   7,   0/
2477      DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW',   6,  -3/
2478      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',   4,  -6/
2479      DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW',   2,  -8/
2480      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',  -1,  -9/
2481      DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW',  -4,  -9/
2482      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',  -6,  -8/
2483      DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW',  -7,  -6/
2484      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',  -7,  -4/
2485      DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW',  -5,  -4/
2486      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',  -5,  -6/
2487      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',  -6,  -6/
2488      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',  -6,  -5/
2489      DATA IOPERA( 150),IX( 150),IY( 150)/'MOVE',  -3,   2/
2490      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',  -4,   4/
2491      DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW',  -4,   7/
2492      DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW',  -3,   9/
2493      DATA IOPERA( 154),IX( 154),IY( 154)/'MOVE',   6,  10/
2494      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',   7,   8/
2495      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',   7,   4/
2496      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',   6,   0/
2497      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',   5,  -3/
2498      DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW',   3,  -6/
2499      DATA IOPERA( 160),IX( 160),IY( 160)/'MOVE',  -1,   0/
2500      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',  -2,   1/
2501      DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW',  -3,   3/
2502      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',  -3,   7/
2503      DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW',  -2,  10/
2504      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',  -1,  11/
2505      DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW',   1,  12/
2506      DATA IOPERA( 167),IX( 167),IY( 167)/'MOVE',   4,  12/
2507      DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW',   5,  11/
2508      DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW',   6,   9/
2509      DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW',   6,   4/
2510      DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW',   5,   0/
2511      DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW',   4,  -3/
2512      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',   3,  -5/
2513      DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW',   1,  -8/
2514      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',  -1,  -9/
2515C
2516      DATA IXMIND(  10)/ -10/
2517      DATA IXMAXD(  10)/  11/
2518      DATA IXDELD(  10)/  21/
2519      DATA ISTARD(  10)/ 120/
2520      DATA NUMCOO(  10)/  56/
2521C
2522C-----START POINT-----------------------------------------------------
2523C
2524      IFOUND='YES'
2525      IERROR='NO'
2526C
2527      NUMCO=1
2528      ISTART=1
2529      ISTOP=1
2530      NC=1
2531C
2532C               ******************************************
2533C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
2534C               **  HERSHEY CHARACTER SET CASE          **
2535C               ******************************************
2536C
2537C
2538      IF(IBUGD2.EQ.'OFF')GOTO90
2539      WRITE(ICOUT,999)
2540  999 FORMAT(1X)
2541      CALL DPWRST('XXX','BUG ')
2542      WRITE(ICOUT,51)
2543   51 FORMAT('***** AT THE BEGINNING OF DRTIN2--')
2544      CALL DPWRST('XXX','BUG ')
2545      WRITE(ICOUT,52)ICHARN
2546   52 FORMAT('ICHARN = ',I8)
2547      CALL DPWRST('XXX','BUG ')
2548      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
2549   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
2550      CALL DPWRST('XXX','BUG ')
2551   90 CONTINUE
2552C
2553C               **************************************
2554C               **  STEP 2--                        **
2555C               **  EXTRACT THE COORDINATES         **
2556C               **  FOR THIS PARTICULAR CHARACTER.  **
2557C               **************************************
2558C
2559      ISTART=ISTARD(ICHARN)
2560      NC=NUMCOO(ICHARN)
2561      ISTOP=ISTART+NC-1
2562      J=0
2563      DO1100I=ISTART,ISTOP
2564      J=J+1
2565      IOP(J)=IOPERA(I)
2566      X(J)=IX(I)
2567      Y(J)=IY(I)
2568 1100 CONTINUE
2569      NUMCO=J
2570      IXMINS=IXMIND(ICHARN)
2571      IXMAXS=IXMAXD(ICHARN)
2572      IXDELS=IXDELD(ICHARN)
2573C
2574      GOTO9000
2575C
2576C               *****************
2577C               **  STEP 90--  **
2578C               **  EXIT       **
2579C               *****************
2580C
2581 9000 CONTINUE
2582      IF(IBUGD2.EQ.'OFF')GOTO9090
2583      WRITE(ICOUT,999)
2584      CALL DPWRST('XXX','BUG ')
2585      WRITE(ICOUT,9011)
2586 9011 FORMAT('***** AT THE END       OF DRTIN2--')
2587      CALL DPWRST('XXX','BUG ')
2588      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
2589 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
2590      CALL DPWRST('XXX','BUG ')
2591      WRITE(ICOUT,9013)ICHARN
2592 9013 FORMAT('ICHARN = ',I8)
2593      CALL DPWRST('XXX','BUG ')
2594      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
2595 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
2596      CALL DPWRST('XXX','BUG ')
2597      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
2598      DO9015I=1,NUMCO
2599      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
2600 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
2601      CALL DPWRST('XXX','BUG ')
2602 9015 CONTINUE
2603 9019 CONTINUE
2604      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
2605 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
2606      CALL DPWRST('XXX','BUG ')
2607 9090 CONTINUE
2608C
2609      RETURN
2610      END
2611      SUBROUTINE DRTIU1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
2612     1IBUGD2,IFOUND,IERROR)
2613C
2614C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
2615C              FOR ROMAN TRIPLEX ITALIC UPPER CASE (PART 1).
2616C     WRITTEN BY--JAMES J. FILLIBEN
2617C                 STATISTICAL ENGINEERING DIVISION
2618C                 CENTER FOR APPLIED MATHEMATICS
2619C                 NATIONAL BUREAU OF STANDARDS
2620C                 WASHINGTON, D. C. 20234
2621C                 PHONE--301-921-3651
2622C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
2623C           OF THE NATIONAL BUREAU OF STANDARDS.
2624C     LANGUAGE--ANSI FORTRAN (1977)
2625C     VERSION NUMBER--87/4
2626C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
2627C     UPDATED         --MAY       1982.
2628C     UPDATED         --MARCH     1987.
2629C
2630C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
2631C
2632      CHARACTER*4 IOP
2633      CHARACTER*4 IBUGD2
2634      CHARACTER*4 IFOUND
2635      CHARACTER*4 IERROR
2636C
2637      CHARACTER*4 IOPERA
2638C
2639C---------------------------------------------------------------------
2640C
2641      DIMENSION IOP(*)
2642      DIMENSION X(*)
2643      DIMENSION Y(*)
2644C
2645      DIMENSION IOPERA(300)
2646      DIMENSION IX(300)
2647      DIMENSION IY(300)
2648C
2649      DIMENSION IXMIND(30)
2650      DIMENSION IXMAXD(30)
2651      DIMENSION IXDELD(30)
2652      DIMENSION ISTARD(30)
2653      DIMENSION NUMCOO(30)
2654C
2655C-----COMMON----------------------------------------------------------
2656C
2657      INCLUDE 'DPCOP2.INC'
2658C
2659C-----DATA STATEMENTS-------------------------------------------------
2660C
2661C     DEFINE CHARACTER  3501--UPPER CASE A
2662C
2663      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',   3,  12/
2664      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',  -9,  -8/
2665      DATA IOPERA(   3),IX(   3),IY(   3)/'MOVE',   1,   8/
2666      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',   2,  -9/
2667      DATA IOPERA(   5),IX(   5),IY(   5)/'MOVE',   2,  10/
2668      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',   3,  -8/
2669      DATA IOPERA(   7),IX(   7),IY(   7)/'MOVE',   3,  12/
2670      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',   3,  10/
2671      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',   4,  -7/
2672      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',   4,  -9/
2673      DATA IOPERA(  11),IX(  11),IY(  11)/'MOVE',  -6,  -3/
2674      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',   2,  -3/
2675      DATA IOPERA(  13),IX(  13),IY(  13)/'MOVE', -12,  -9/
2676      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',  -6,  -9/
2677      DATA IOPERA(  15),IX(  15),IY(  15)/'MOVE',  -1,  -9/
2678      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',   6,  -9/
2679      DATA IOPERA(  17),IX(  17),IY(  17)/'MOVE',  -9,  -8/
2680      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW', -11,  -9/
2681      DATA IOPERA(  19),IX(  19),IY(  19)/'MOVE',  -9,  -8/
2682      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',  -7,  -9/
2683      DATA IOPERA(  21),IX(  21),IY(  21)/'MOVE',   2,  -8/
2684      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',   0,  -9/
2685      DATA IOPERA(  23),IX(  23),IY(  23)/'MOVE',   2,  -7/
2686      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',   1,  -9/
2687      DATA IOPERA(  25),IX(  25),IY(  25)/'MOVE',   4,  -7/
2688      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',   5,  -9/
2689C
2690      DATA IXMIND(   1)/ -10/
2691      DATA IXMAXD(   1)/  10/
2692      DATA IXDELD(   1)/  20/
2693      DATA ISTARD(   1)/   1/
2694      DATA NUMCOO(   1)/  26/
2695C
2696C     DEFINE CHARACTER  3502--UPPER CASE B
2697C
2698      DATA IOPERA(  27),IX(  27),IY(  27)/'MOVE',  -3,  12/
2699      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',  -9,  -9/
2700      DATA IOPERA(  29),IX(  29),IY(  29)/'MOVE',  -2,  12/
2701      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',  -8,  -9/
2702      DATA IOPERA(  31),IX(  31),IY(  31)/'MOVE',  -1,  12/
2703      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',  -7,  -9/
2704      DATA IOPERA(  33),IX(  33),IY(  33)/'MOVE',  -6,  12/
2705      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',   5,  12/
2706      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',   8,  11/
2707      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',   9,   9/
2708      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',   9,   7/
2709      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',   8,   4/
2710      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',   7,   3/
2711      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',   4,   2/
2712      DATA IOPERA(  41),IX(  41),IY(  41)/'MOVE',   7,  11/
2713      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',   8,   9/
2714      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   8,   7/
2715      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',   7,   4/
2716      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',   6,   3/
2717      DATA IOPERA(  46),IX(  46),IY(  46)/'MOVE',   5,  12/
2718      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',   6,  11/
2719      DATA IOPERA(  48),IX(  48),IY(  48)/'DRAW',   7,   9/
2720      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',   7,   7/
2721      DATA IOPERA(  50),IX(  50),IY(  50)/'DRAW',   6,   4/
2722      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',   4,   2/
2723      DATA IOPERA(  52),IX(  52),IY(  52)/'MOVE',  -4,   2/
2724      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',   4,   2/
2725      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',   6,   1/
2726      DATA IOPERA(  55),IX(  55),IY(  55)/'DRAW',   7,  -1/
2727      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',   7,  -3/
2728      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',   6,  -6/
2729      DATA IOPERA(  58),IX(  58),IY(  58)/'DRAW',   4,  -8/
2730      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',   0,  -9/
2731      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW', -12,  -9/
2732      DATA IOPERA(  61),IX(  61),IY(  61)/'MOVE',   5,   1/
2733      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',   6,  -1/
2734      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',   6,  -3/
2735      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',   5,  -6/
2736      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',   3,  -8/
2737      DATA IOPERA(  66),IX(  66),IY(  66)/'MOVE',   4,   2/
2738      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',   5,   0/
2739      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',   5,  -3/
2740      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',   4,  -6/
2741      DATA IOPERA(  70),IX(  70),IY(  70)/'DRAW',   2,  -8/
2742      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',   0,  -9/
2743      DATA IOPERA(  72),IX(  72),IY(  72)/'MOVE',  -5,  12/
2744      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',  -2,  11/
2745      DATA IOPERA(  74),IX(  74),IY(  74)/'MOVE',  -4,  12/
2746      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',  -3,  10/
2747      DATA IOPERA(  76),IX(  76),IY(  76)/'MOVE',   0,  12/
2748      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',  -2,  10/
2749      DATA IOPERA(  78),IX(  78),IY(  78)/'MOVE',   1,  12/
2750      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',  -2,  11/
2751      DATA IOPERA(  80),IX(  80),IY(  80)/'MOVE',  -8,  -8/
2752      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW', -11,  -9/
2753      DATA IOPERA(  82),IX(  82),IY(  82)/'MOVE',  -8,  -7/
2754      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW', -10,  -9/
2755      DATA IOPERA(  84),IX(  84),IY(  84)/'MOVE',  -7,  -7/
2756      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',  -6,  -9/
2757      DATA IOPERA(  86),IX(  86),IY(  86)/'MOVE',  -8,  -8/
2758      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',  -5,  -9/
2759C
2760      DATA IXMIND(   2)/ -12/
2761      DATA IXMAXD(   2)/  12/
2762      DATA IXDELD(   2)/  24/
2763      DATA ISTARD(   2)/  27/
2764      DATA NUMCOO(   2)/  61/
2765C
2766C     DEFINE CHARACTER  3503--UPPER CASE C
2767C
2768      DATA IOPERA(  88),IX(  88),IY(  88)/'MOVE',   8,  10/
2769      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',   9,  10/
2770      DATA IOPERA(  90),IX(  90),IY(  90)/'DRAW',  10,  12/
2771      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',   9,   6/
2772      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',   9,   8/
2773      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',   8,  10/
2774      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',   7,  11/
2775      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',   5,  12/
2776      DATA IOPERA(  96),IX(  96),IY(  96)/'DRAW',   2,  12/
2777      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW',  -1,  11/
2778      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',  -3,   9/
2779      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',  -5,   6/
2780      DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW',  -6,   3/
2781      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',  -7,  -1/
2782      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',  -7,  -4/
2783      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',  -6,  -7/
2784      DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW',  -5,  -8/
2785      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',  -2,  -9/
2786      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',   1,  -9/
2787      DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW',   3,  -8/
2788      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',   5,  -6/
2789      DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW',   6,  -4/
2790      DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE',  -1,  10/
2791      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',  -3,   8/
2792      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',  -4,   6/
2793      DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW',  -5,   3/
2794      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',  -6,  -1/
2795      DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW',  -6,  -5/
2796      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',  -5,  -7/
2797      DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE',   2,  12/
2798      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',   0,  11/
2799      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',  -2,   8/
2800      DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW',  -3,   6/
2801      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW',  -4,   3/
2802      DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW',  -5,  -1/
2803      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',  -5,  -6/
2804      DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW',  -4,  -8/
2805      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',  -2,  -9/
2806C
2807      DATA IXMIND(   3)/ -10/
2808      DATA IXMAXD(   3)/  11/
2809      DATA IXDELD(   3)/  21/
2810      DATA ISTARD(   3)/  88/
2811      DATA NUMCOO(   3)/  38/
2812C
2813C     DEFINE CHARACTER  3504--UPPER CASE D
2814C
2815      DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE',  -3,  12/
2816      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',  -9,  -9/
2817      DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE',  -2,  12/
2818      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',  -8,  -9/
2819      DATA IOPERA( 130),IX( 130),IY( 130)/'MOVE',  -1,  12/
2820      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',  -7,  -9/
2821      DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE',  -6,  12/
2822      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',   3,  12/
2823      DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW',   6,  11/
2824      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',   7,  10/
2825      DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW',   8,   7/
2826      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',   8,   3/
2827      DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW',   7,  -1/
2828      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',   5,  -5/
2829      DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW',   3,  -7/
2830      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',   1,  -8/
2831      DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW',  -3,  -9/
2832      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW', -12,  -9/
2833      DATA IOPERA( 144),IX( 144),IY( 144)/'MOVE',   5,  11/
2834      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',   6,  10/
2835      DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW',   7,   7/
2836      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',   7,   3/
2837      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',   6,  -1/
2838      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',   4,  -5/
2839      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',   2,  -7/
2840      DATA IOPERA( 151),IX( 151),IY( 151)/'MOVE',   3,  12/
2841      DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW',   5,  10/
2842      DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW',   6,   7/
2843      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',   6,   3/
2844      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',   5,  -1/
2845      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',   3,  -5/
2846      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',   0,  -8/
2847      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',  -3,  -9/
2848      DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE',  -5,  12/
2849      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',  -2,  11/
2850      DATA IOPERA( 161),IX( 161),IY( 161)/'MOVE',  -4,  12/
2851      DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW',  -3,  10/
2852      DATA IOPERA( 163),IX( 163),IY( 163)/'MOVE',   0,  12/
2853      DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW',  -2,  10/
2854      DATA IOPERA( 165),IX( 165),IY( 165)/'MOVE',   1,  12/
2855      DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW',  -2,  11/
2856      DATA IOPERA( 167),IX( 167),IY( 167)/'MOVE',  -8,  -8/
2857      DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW', -11,  -9/
2858      DATA IOPERA( 169),IX( 169),IY( 169)/'MOVE',  -8,  -7/
2859      DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW', -10,  -9/
2860      DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE',  -7,  -7/
2861      DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW',  -6,  -9/
2862      DATA IOPERA( 173),IX( 173),IY( 173)/'MOVE',  -8,  -8/
2863      DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW',  -5,  -9/
2864C
2865      DATA IXMIND(   4)/ -12/
2866      DATA IXMAXD(   4)/  11/
2867      DATA IXDELD(   4)/  23/
2868      DATA ISTARD(   4)/ 126/
2869      DATA NUMCOO(   4)/  49/
2870C
2871C     DEFINE CHARACTER  3505--UPPER CASE E
2872C
2873      DATA IOPERA( 175),IX( 175),IY( 175)/'MOVE',  -3,  12/
2874      DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW',  -9,  -9/
2875      DATA IOPERA( 177),IX( 177),IY( 177)/'MOVE',  -2,  12/
2876      DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW',  -8,  -9/
2877      DATA IOPERA( 179),IX( 179),IY( 179)/'MOVE',  -1,  12/
2878      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',  -7,  -9/
2879      DATA IOPERA( 181),IX( 181),IY( 181)/'MOVE',   3,   6/
2880      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',   1,  -2/
2881      DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE',  -6,  12/
2882      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',   9,  12/
2883      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',   8,   6/
2884      DATA IOPERA( 186),IX( 186),IY( 186)/'MOVE',  -4,   2/
2885      DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW',   2,   2/
2886      DATA IOPERA( 188),IX( 188),IY( 188)/'MOVE', -12,  -9/
2887      DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW',   3,  -9/
2888      DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW',   5,  -4/
2889      DATA IOPERA( 191),IX( 191),IY( 191)/'MOVE',  -5,  12/
2890      DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW',  -2,  11/
2891      DATA IOPERA( 193),IX( 193),IY( 193)/'MOVE',  -4,  12/
2892      DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW',  -3,  10/
2893      DATA IOPERA( 195),IX( 195),IY( 195)/'MOVE',   0,  12/
2894      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',  -2,  10/
2895      DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE',   1,  12/
2896      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',  -2,  11/
2897      DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE',   5,  12/
2898      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',   8,  11/
2899      DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE',   6,  12/
2900      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',   8,  10/
2901      DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE',   7,  12/
2902      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',   8,   9/
2903      DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE',   8,  12/
2904      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',   8,   6/
2905      DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE',   3,   6/
2906      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',   1,   2/
2907      DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW',   1,  -2/
2908      DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE',   2,   4/
2909      DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW',   0,   2/
2910      DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW',   1,   0/
2911      DATA IOPERA( 213),IX( 213),IY( 213)/'MOVE',   2,   3/
2912      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',  -1,   2/
2913      DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW',   1,   1/
2914      DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE',  -8,  -8/
2915      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW', -11,  -9/
2916      DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE',  -8,  -7/
2917      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW', -10,  -9/
2918      DATA IOPERA( 220),IX( 220),IY( 220)/'MOVE',  -7,  -7/
2919      DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW',  -6,  -9/
2920      DATA IOPERA( 222),IX( 222),IY( 222)/'MOVE',  -8,  -8/
2921      DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW',  -5,  -9/
2922      DATA IOPERA( 224),IX( 224),IY( 224)/'MOVE',  -2,  -9/
2923      DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW',   3,  -8/
2924      DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE',   0,  -9/
2925      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',   3,  -7/
2926      DATA IOPERA( 228),IX( 228),IY( 228)/'MOVE',   3,  -7/
2927      DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW',   5,  -4/
2928C
2929      DATA IXMIND(   5)/ -12/
2930      DATA IXMAXD(   5)/  11/
2931      DATA IXDELD(   5)/  23/
2932      DATA ISTARD(   5)/ 175/
2933      DATA NUMCOO(   5)/  55/
2934C
2935C     DEFINE CHARACTER  3506--UPPER CASE F
2936C
2937      DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE',  -3,  12/
2938      DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW',  -9,  -9/
2939      DATA IOPERA( 232),IX( 232),IY( 232)/'MOVE',  -2,  12/
2940      DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW',  -8,  -9/
2941      DATA IOPERA( 234),IX( 234),IY( 234)/'MOVE',  -1,  12/
2942      DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW',  -7,  -9/
2943      DATA IOPERA( 236),IX( 236),IY( 236)/'MOVE',   3,   6/
2944      DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW',   1,  -2/
2945      DATA IOPERA( 238),IX( 238),IY( 238)/'MOVE',  -6,  12/
2946      DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW',   9,  12/
2947      DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW',   8,   6/
2948      DATA IOPERA( 241),IX( 241),IY( 241)/'MOVE',  -4,   2/
2949      DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW',   2,   2/
2950      DATA IOPERA( 243),IX( 243),IY( 243)/'MOVE', -12,  -9/
2951      DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW',  -4,  -9/
2952      DATA IOPERA( 245),IX( 245),IY( 245)/'MOVE',  -5,  12/
2953      DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW',  -2,  11/
2954      DATA IOPERA( 247),IX( 247),IY( 247)/'MOVE',  -4,  12/
2955      DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW',  -3,  10/
2956      DATA IOPERA( 249),IX( 249),IY( 249)/'MOVE',   0,  12/
2957      DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW',  -2,  10/
2958      DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE',   1,  12/
2959      DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW',  -2,  11/
2960      DATA IOPERA( 253),IX( 253),IY( 253)/'MOVE',   5,  12/
2961      DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW',   8,  11/
2962      DATA IOPERA( 255),IX( 255),IY( 255)/'MOVE',   6,  12/
2963      DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW',   8,  10/
2964      DATA IOPERA( 257),IX( 257),IY( 257)/'MOVE',   7,  12/
2965      DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW',   8,   9/
2966      DATA IOPERA( 259),IX( 259),IY( 259)/'MOVE',   8,  12/
2967      DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW',   8,   6/
2968      DATA IOPERA( 261),IX( 261),IY( 261)/'MOVE',   3,   6/
2969      DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW',   1,   2/
2970      DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW',   1,  -2/
2971      DATA IOPERA( 264),IX( 264),IY( 264)/'MOVE',   2,   4/
2972      DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW',   0,   2/
2973      DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW',   1,   0/
2974      DATA IOPERA( 267),IX( 267),IY( 267)/'MOVE',   2,   3/
2975      DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW',  -1,   2/
2976      DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW',   1,   1/
2977      DATA IOPERA( 270),IX( 270),IY( 270)/'MOVE',  -8,  -8/
2978      DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW', -11,  -9/
2979      DATA IOPERA( 272),IX( 272),IY( 272)/'MOVE',  -8,  -7/
2980      DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW', -10,  -9/
2981      DATA IOPERA( 274),IX( 274),IY( 274)/'MOVE',  -7,  -7/
2982      DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW',  -6,  -9/
2983      DATA IOPERA( 276),IX( 276),IY( 276)/'MOVE',  -8,  -8/
2984      DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW',  -5,  -9/
2985C
2986      DATA IXMIND(   6)/ -12/
2987      DATA IXMAXD(   6)/  10/
2988      DATA IXDELD(   6)/  22/
2989      DATA ISTARD(   6)/ 230/
2990      DATA NUMCOO(   6)/  48/
2991C
2992C-----START POINT-----------------------------------------------------
2993C
2994      IFOUND='YES'
2995      IERROR='NO'
2996C
2997      NUMCO=1
2998      ISTART=1
2999      ISTOP=1
3000      NC=1
3001C
3002C               ******************************************
3003C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
3004C               **  HERSHEY CHARACTER SET CASE          **
3005C               ******************************************
3006C
3007C
3008      IF(IBUGD2.EQ.'OFF')GOTO90
3009      WRITE(ICOUT,999)
3010  999 FORMAT(1X)
3011      CALL DPWRST('XXX','BUG ')
3012      WRITE(ICOUT,51)
3013   51 FORMAT('***** AT THE BEGINNING OF DRTIU1--')
3014      CALL DPWRST('XXX','BUG ')
3015      WRITE(ICOUT,52)ICHARN
3016   52 FORMAT('ICHARN = ',I8)
3017      CALL DPWRST('XXX','BUG ')
3018      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
3019   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
3020      CALL DPWRST('XXX','BUG ')
3021   90 CONTINUE
3022C
3023C               **************************************
3024C               **  STEP 2--                        **
3025C               **  EXTRACT THE COORDINATES         **
3026C               **  FOR THIS PARTICULAR CHARACTER.  **
3027C               **************************************
3028C
3029      ISTART=ISTARD(ICHARN)
3030      NC=NUMCOO(ICHARN)
3031      ISTOP=ISTART+NC-1
3032      J=0
3033      DO1100I=ISTART,ISTOP
3034      J=J+1
3035      IOP(J)=IOPERA(I)
3036      X(J)=IX(I)
3037      Y(J)=IY(I)
3038 1100 CONTINUE
3039      NUMCO=J
3040      IXMINS=IXMIND(ICHARN)
3041      IXMAXS=IXMAXD(ICHARN)
3042      IXDELS=IXDELD(ICHARN)
3043C
3044      GOTO9000
3045C
3046C               *****************
3047C               **  STEP 90--  **
3048C               **  EXIT       **
3049C               *****************
3050C
3051 9000 CONTINUE
3052      IF(IBUGD2.EQ.'OFF')GOTO9090
3053      WRITE(ICOUT,999)
3054      CALL DPWRST('XXX','BUG ')
3055      WRITE(ICOUT,9011)
3056 9011 FORMAT('***** AT THE END       OF DRTIU1--')
3057      CALL DPWRST('XXX','BUG ')
3058      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
3059 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
3060      CALL DPWRST('XXX','BUG ')
3061      WRITE(ICOUT,9013)ICHARN
3062 9013 FORMAT('ICHARN = ',I8)
3063      CALL DPWRST('XXX','BUG ')
3064      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
3065 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
3066      CALL DPWRST('XXX','BUG ')
3067      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
3068      DO9015I=1,NUMCO
3069      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
3070 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
3071      CALL DPWRST('XXX','BUG ')
3072 9015 CONTINUE
3073 9019 CONTINUE
3074      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
3075 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
3076      CALL DPWRST('XXX','BUG ')
3077 9090 CONTINUE
3078C
3079      RETURN
3080      END
3081      SUBROUTINE DRTIU2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
3082     1IBUGD2,IFOUND,IERROR)
3083C
3084C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
3085C              FOR ROMAN TRIPLEX ITALIC UPPER CASE (PART 2).
3086C     WRITTEN BY--JAMES J. FILLIBEN
3087C                 STATISTICAL ENGINEERING DIVISION
3088C                 CENTER FOR APPLIED MATHEMATICS
3089C                 NATIONAL BUREAU OF STANDARDS
3090C                 WASHINGTON, D. C. 20234
3091C                 PHONE--301-921-3651
3092C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
3093C           OF THE NATIONAL BUREAU OF STANDARDS.
3094C     LANGUAGE--ANSI FORTRAN (1977)
3095C     VERSION NUMBER--87/4
3096C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
3097C     UPDATED         --MAY       1982.
3098C     UPDATED         --MARCH     1987.
3099C
3100C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
3101C
3102      CHARACTER*4 IOP
3103      CHARACTER*4 IBUGD2
3104      CHARACTER*4 IFOUND
3105      CHARACTER*4 IERROR
3106C
3107      CHARACTER*4 IOPERA
3108C
3109C---------------------------------------------------------------------
3110C
3111      DIMENSION IOP(*)
3112      DIMENSION X(*)
3113      DIMENSION Y(*)
3114C
3115      DIMENSION IOPERA(300)
3116      DIMENSION IX(300)
3117      DIMENSION IY(300)
3118C
3119      DIMENSION IXMIND(30)
3120      DIMENSION IXMAXD(30)
3121      DIMENSION IXDELD(30)
3122      DIMENSION ISTARD(30)
3123      DIMENSION NUMCOO(30)
3124C
3125C-----COMMON----------------------------------------------------------
3126C
3127      INCLUDE 'DPCOP2.INC'
3128C
3129C-----DATA STATEMENTS-------------------------------------------------
3130C
3131C     DEFINE CHARACTER  3507--UPPER CASE G
3132C
3133      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',   8,  10/
3134      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',   9,  10/
3135      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',  10,  12/
3136      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',   9,   6/
3137      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',   9,   8/
3138      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',   8,  10/
3139      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',   7,  11/
3140      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',   5,  12/
3141      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',   2,  12/
3142      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',  -1,  11/
3143      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',  -3,   9/
3144      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',  -5,   6/
3145      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',  -6,   3/
3146      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',  -7,  -1/
3147      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',  -7,  -4/
3148      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',  -6,  -7/
3149      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW',  -5,  -8/
3150      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',  -2,  -9/
3151      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',   0,  -9/
3152      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',   3,  -8/
3153      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',   5,  -6/
3154      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',   7,  -2/
3155      DATA IOPERA(  23),IX(  23),IY(  23)/'MOVE',  -1,  10/
3156      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',  -3,   8/
3157      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',  -4,   6/
3158      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',  -5,   3/
3159      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',  -6,  -1/
3160      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',  -6,  -5/
3161      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',  -5,  -7/
3162      DATA IOPERA(  30),IX(  30),IY(  30)/'MOVE',   4,  -6/
3163      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',   5,  -5/
3164      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',   6,  -2/
3165      DATA IOPERA(  33),IX(  33),IY(  33)/'MOVE',   2,  12/
3166      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',   0,  11/
3167      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',  -2,   8/
3168      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',  -3,   6/
3169      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',  -4,   3/
3170      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',  -5,  -1/
3171      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',  -5,  -6/
3172      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',  -4,  -8/
3173      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',  -2,  -9/
3174      DATA IOPERA(  42),IX(  42),IY(  42)/'MOVE',   0,  -9/
3175      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   2,  -8/
3176      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',   4,  -5/
3177      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',   5,  -2/
3178      DATA IOPERA(  46),IX(  46),IY(  46)/'MOVE',   2,  -2/
3179      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',  10,  -2/
3180      DATA IOPERA(  48),IX(  48),IY(  48)/'MOVE',   3,  -2/
3181      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',   5,  -3/
3182      DATA IOPERA(  50),IX(  50),IY(  50)/'MOVE',   4,  -2/
3183      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',   5,  -5/
3184      DATA IOPERA(  52),IX(  52),IY(  52)/'MOVE',   8,  -2/
3185      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',   6,  -4/
3186      DATA IOPERA(  54),IX(  54),IY(  54)/'MOVE',   9,  -2/
3187      DATA IOPERA(  55),IX(  55),IY(  55)/'DRAW',   6,  -3/
3188C
3189      DATA IXMIND(   7)/ -10/
3190      DATA IXMAXD(   7)/  12/
3191      DATA IXDELD(   7)/  22/
3192      DATA ISTARD(   7)/   1/
3193      DATA NUMCOO(   7)/  55/
3194C
3195C     DEFINE CHARACTER  3508--UPPER CASE H
3196C
3197      DATA IOPERA(  56),IX(  56),IY(  56)/'MOVE',  -4,  12/
3198      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW', -10,  -9/
3199      DATA IOPERA(  58),IX(  58),IY(  58)/'MOVE',  -3,  12/
3200      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',  -9,  -9/
3201      DATA IOPERA(  60),IX(  60),IY(  60)/'MOVE',  -2,  12/
3202      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',  -8,  -9/
3203      DATA IOPERA(  62),IX(  62),IY(  62)/'MOVE',   8,  12/
3204      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',   2,  -9/
3205      DATA IOPERA(  64),IX(  64),IY(  64)/'MOVE',   9,  12/
3206      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',   3,  -9/
3207      DATA IOPERA(  66),IX(  66),IY(  66)/'MOVE',  10,  12/
3208      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',   4,  -9/
3209      DATA IOPERA(  68),IX(  68),IY(  68)/'MOVE',  -7,  12/
3210      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',   1,  12/
3211      DATA IOPERA(  70),IX(  70),IY(  70)/'MOVE',   5,  12/
3212      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',  13,  12/
3213      DATA IOPERA(  72),IX(  72),IY(  72)/'MOVE',  -6,   2/
3214      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',   6,   2/
3215      DATA IOPERA(  74),IX(  74),IY(  74)/'MOVE', -13,  -9/
3216      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',  -5,  -9/
3217      DATA IOPERA(  76),IX(  76),IY(  76)/'MOVE',  -1,  -9/
3218      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',   7,  -9/
3219      DATA IOPERA(  78),IX(  78),IY(  78)/'MOVE',  -6,  12/
3220      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',  -3,  11/
3221      DATA IOPERA(  80),IX(  80),IY(  80)/'MOVE',  -5,  12/
3222      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',  -4,  10/
3223      DATA IOPERA(  82),IX(  82),IY(  82)/'MOVE',  -1,  12/
3224      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',  -3,  10/
3225      DATA IOPERA(  84),IX(  84),IY(  84)/'MOVE',   0,  12/
3226      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',  -3,  11/
3227      DATA IOPERA(  86),IX(  86),IY(  86)/'MOVE',   6,  12/
3228      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',   9,  11/
3229      DATA IOPERA(  88),IX(  88),IY(  88)/'MOVE',   7,  12/
3230      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',   8,  10/
3231      DATA IOPERA(  90),IX(  90),IY(  90)/'MOVE',  11,  12/
3232      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',   9,  10/
3233      DATA IOPERA(  92),IX(  92),IY(  92)/'MOVE',  12,  12/
3234      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',   9,  11/
3235      DATA IOPERA(  94),IX(  94),IY(  94)/'MOVE',  -9,  -8/
3236      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW', -12,  -9/
3237      DATA IOPERA(  96),IX(  96),IY(  96)/'MOVE',  -9,  -7/
3238      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW', -11,  -9/
3239      DATA IOPERA(  98),IX(  98),IY(  98)/'MOVE',  -8,  -7/
3240      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',  -7,  -9/
3241      DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE',  -9,  -8/
3242      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',  -6,  -9/
3243      DATA IOPERA( 102),IX( 102),IY( 102)/'MOVE',   3,  -8/
3244      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',   0,  -9/
3245      DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE',   3,  -7/
3246      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',   1,  -9/
3247      DATA IOPERA( 106),IX( 106),IY( 106)/'MOVE',   4,  -7/
3248      DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW',   5,  -9/
3249      DATA IOPERA( 108),IX( 108),IY( 108)/'MOVE',   3,  -8/
3250      DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW',   6,  -9/
3251C
3252      DATA IXMIND(   8)/ -13/
3253      DATA IXMAXD(   8)/  13/
3254      DATA IXDELD(   8)/  26/
3255      DATA ISTARD(   8)/  56/
3256      DATA NUMCOO(   8)/  54/
3257C
3258C     DEFINE CHARACTER  3509--UPPER CASE I
3259C
3260      DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE',   2,  12/
3261      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',  -4,  -9/
3262      DATA IOPERA( 112),IX( 112),IY( 112)/'MOVE',   3,  12/
3263      DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW',  -3,  -9/
3264      DATA IOPERA( 114),IX( 114),IY( 114)/'MOVE',   4,  12/
3265      DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW',  -2,  -9/
3266      DATA IOPERA( 116),IX( 116),IY( 116)/'MOVE',  -1,  12/
3267      DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW',   7,  12/
3268      DATA IOPERA( 118),IX( 118),IY( 118)/'MOVE',  -7,  -9/
3269      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',   1,  -9/
3270      DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE',   0,  12/
3271      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW',   3,  11/
3272      DATA IOPERA( 122),IX( 122),IY( 122)/'MOVE',   1,  12/
3273      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',   2,  10/
3274      DATA IOPERA( 124),IX( 124),IY( 124)/'MOVE',   5,  12/
3275      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',   3,  10/
3276      DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE',   6,  12/
3277      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',   3,  11/
3278      DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE',  -3,  -8/
3279      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',  -6,  -9/
3280      DATA IOPERA( 130),IX( 130),IY( 130)/'MOVE',  -3,  -7/
3281      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',  -5,  -9/
3282      DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE',  -2,  -7/
3283      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',  -1,  -9/
3284      DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE',  -3,  -8/
3285      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',   0,  -9/
3286C
3287      DATA IXMIND(   9)/  -7/
3288      DATA IXMAXD(   9)/   7/
3289      DATA IXDELD(   9)/  14/
3290      DATA ISTARD(   9)/ 110/
3291      DATA NUMCOO(   9)/  26/
3292C
3293C     DEFINE CHARACTER  3510--UPPER CASE J
3294C
3295      DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE',   5,  12/
3296      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',   0,  -5/
3297      DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW',  -1,  -7/
3298      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',  -3,  -9/
3299      DATA IOPERA( 140),IX( 140),IY( 140)/'MOVE',   6,  12/
3300      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',   2,  -1/
3301      DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW',   1,  -4/
3302      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',   0,  -6/
3303      DATA IOPERA( 144),IX( 144),IY( 144)/'MOVE',   7,  12/
3304      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',   3,  -1/
3305      DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW',   1,  -6/
3306      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',  -1,  -8/
3307      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',  -3,  -9/
3308      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',  -5,  -9/
3309      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',  -7,  -8/
3310      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',  -8,  -6/
3311      DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW',  -8,  -4/
3312      DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW',  -7,  -3/
3313      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',  -6,  -3/
3314      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',  -5,  -4/
3315      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',  -5,  -5/
3316      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',  -6,  -6/
3317      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',  -7,  -6/
3318      DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE',  -7,  -4/
3319      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',  -7,  -5/
3320      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',  -6,  -5/
3321      DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW',  -6,  -4/
3322      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',  -7,  -4/
3323      DATA IOPERA( 164),IX( 164),IY( 164)/'MOVE',   2,  12/
3324      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',  10,  12/
3325      DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE',   3,  12/
3326      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW',   6,  11/
3327      DATA IOPERA( 168),IX( 168),IY( 168)/'MOVE',   4,  12/
3328      DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW',   5,  10/
3329      DATA IOPERA( 170),IX( 170),IY( 170)/'MOVE',   8,  12/
3330      DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW',   6,  10/
3331      DATA IOPERA( 172),IX( 172),IY( 172)/'MOVE',   9,  12/
3332      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',   6,  11/
3333C
3334      DATA IXMIND(  10)/  -9/
3335      DATA IXMAXD(  10)/  10/
3336      DATA IXDELD(  10)/  19/
3337      DATA ISTARD(  10)/ 136/
3338      DATA NUMCOO(  10)/  38/
3339C
3340C     DEFINE CHARACTER  3511--UPPER CASE K
3341C
3342      DATA IOPERA( 174),IX( 174),IY( 174)/'MOVE',  -3,  12/
3343      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',  -9,  -9/
3344      DATA IOPERA( 176),IX( 176),IY( 176)/'MOVE',  -2,  12/
3345      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW',  -8,  -9/
3346      DATA IOPERA( 178),IX( 178),IY( 178)/'MOVE',  -1,  12/
3347      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',  -7,  -9/
3348      DATA IOPERA( 180),IX( 180),IY( 180)/'MOVE',  10,  11/
3349      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',  -5,   0/
3350      DATA IOPERA( 182),IX( 182),IY( 182)/'MOVE',  -1,   3/
3351      DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW',   3,  -9/
3352      DATA IOPERA( 184),IX( 184),IY( 184)/'MOVE',   0,   3/
3353      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',   4,  -9/
3354      DATA IOPERA( 186),IX( 186),IY( 186)/'MOVE',   1,   4/
3355      DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW',   5,  -8/
3356      DATA IOPERA( 188),IX( 188),IY( 188)/'MOVE',  -6,  12/
3357      DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW',   2,  12/
3358      DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE',   7,  12/
3359      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',  13,  12/
3360      DATA IOPERA( 192),IX( 192),IY( 192)/'MOVE', -12,  -9/
3361      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',  -4,  -9/
3362      DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE',   0,  -9/
3363      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',   7,  -9/
3364      DATA IOPERA( 196),IX( 196),IY( 196)/'MOVE',  -5,  12/
3365      DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW',  -2,  11/
3366      DATA IOPERA( 198),IX( 198),IY( 198)/'MOVE',  -4,  12/
3367      DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW',  -3,  10/
3368      DATA IOPERA( 200),IX( 200),IY( 200)/'MOVE',   0,  12/
3369      DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW',  -2,  10/
3370      DATA IOPERA( 202),IX( 202),IY( 202)/'MOVE',   1,  12/
3371      DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW',  -2,  11/
3372      DATA IOPERA( 204),IX( 204),IY( 204)/'MOVE',   8,  12/
3373      DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW',  10,  11/
3374      DATA IOPERA( 206),IX( 206),IY( 206)/'MOVE',  12,  12/
3375      DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW',  10,  11/
3376      DATA IOPERA( 208),IX( 208),IY( 208)/'MOVE',  -8,  -8/
3377      DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW', -11,  -9/
3378      DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE',  -8,  -7/
3379      DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW', -10,  -9/
3380      DATA IOPERA( 212),IX( 212),IY( 212)/'MOVE',  -7,  -7/
3381      DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW',  -6,  -9/
3382      DATA IOPERA( 214),IX( 214),IY( 214)/'MOVE',  -8,  -8/
3383      DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW',  -5,  -9/
3384      DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE',   3,  -8/
3385      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',   1,  -9/
3386      DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE',   3,  -7/
3387      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW',   2,  -9/
3388      DATA IOPERA( 220),IX( 220),IY( 220)/'MOVE',   4,  -7/
3389      DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW',   6,  -9/
3390C
3391      DATA IXMIND(  11)/ -12/
3392      DATA IXMAXD(  11)/  11/
3393      DATA IXDELD(  11)/  23/
3394      DATA ISTARD(  11)/ 174/
3395      DATA NUMCOO(  11)/  48/
3396C
3397C     DEFINE CHARACTER  3512--UPPER CASE L
3398C
3399      DATA IOPERA( 222),IX( 222),IY( 222)/'MOVE',  -1,  12/
3400      DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW',  -7,  -9/
3401      DATA IOPERA( 224),IX( 224),IY( 224)/'MOVE',   0,  12/
3402      DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW',  -6,  -9/
3403      DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE',   1,  12/
3404      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',  -5,  -9/
3405      DATA IOPERA( 228),IX( 228),IY( 228)/'MOVE',  -4,  12/
3406      DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW',   4,  12/
3407      DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE', -10,  -9/
3408      DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW',   5,  -9/
3409      DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW',   7,  -3/
3410      DATA IOPERA( 233),IX( 233),IY( 233)/'MOVE',  -3,  12/
3411      DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW',   0,  11/
3412      DATA IOPERA( 235),IX( 235),IY( 235)/'MOVE',  -2,  12/
3413      DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW',  -1,  10/
3414      DATA IOPERA( 237),IX( 237),IY( 237)/'MOVE',   2,  12/
3415      DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW',   0,  10/
3416      DATA IOPERA( 239),IX( 239),IY( 239)/'MOVE',   3,  12/
3417      DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW',   0,  11/
3418      DATA IOPERA( 241),IX( 241),IY( 241)/'MOVE',  -6,  -8/
3419      DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW',  -9,  -9/
3420      DATA IOPERA( 243),IX( 243),IY( 243)/'MOVE',  -6,  -7/
3421      DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW',  -8,  -9/
3422      DATA IOPERA( 245),IX( 245),IY( 245)/'MOVE',  -5,  -7/
3423      DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW',  -4,  -9/
3424      DATA IOPERA( 247),IX( 247),IY( 247)/'MOVE',  -6,  -8/
3425      DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW',  -3,  -9/
3426      DATA IOPERA( 249),IX( 249),IY( 249)/'MOVE',   0,  -9/
3427      DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW',   5,  -8/
3428      DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE',   2,  -9/
3429      DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW',   6,  -6/
3430      DATA IOPERA( 253),IX( 253),IY( 253)/'MOVE',   4,  -9/
3431      DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW',   7,  -3/
3432C
3433      DATA IXMIND(  12)/ -10/
3434      DATA IXMAXD(  12)/  10/
3435      DATA IXDELD(  12)/  20/
3436      DATA ISTARD(  12)/ 222/
3437      DATA NUMCOO(  12)/  33/
3438C
3439C     DEFINE CHARACTER  3513--UPPER CASE M
3440C
3441      DATA IOPERA( 255),IX( 255),IY( 255)/'MOVE',  -5,  12/
3442      DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW', -11,  -8/
3443      DATA IOPERA( 257),IX( 257),IY( 257)/'MOVE',  -5,  11/
3444      DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW',  -4,  -7/
3445      DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW',  -4,  -9/
3446      DATA IOPERA( 260),IX( 260),IY( 260)/'MOVE',  -4,  12/
3447      DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW',  -3,  -7/
3448      DATA IOPERA( 262),IX( 262),IY( 262)/'MOVE',  -3,  12/
3449      DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW',  -2,  -6/
3450      DATA IOPERA( 264),IX( 264),IY( 264)/'MOVE',   9,  12/
3451      DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW',  -2,  -6/
3452      DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW',  -4,  -9/
3453      DATA IOPERA( 267),IX( 267),IY( 267)/'MOVE',   9,  12/
3454      DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW',   3,  -9/
3455      DATA IOPERA( 269),IX( 269),IY( 269)/'MOVE',  10,  12/
3456      DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW',   4,  -9/
3457      DATA IOPERA( 271),IX( 271),IY( 271)/'MOVE',  11,  12/
3458      DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW',   5,  -9/
3459      DATA IOPERA( 273),IX( 273),IY( 273)/'MOVE',  -8,  12/
3460      DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW',  -3,  12/
3461      DATA IOPERA( 275),IX( 275),IY( 275)/'MOVE',   9,  12/
3462      DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW',  14,  12/
3463      DATA IOPERA( 277),IX( 277),IY( 277)/'MOVE', -14,  -9/
3464      DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW',  -8,  -9/
3465      DATA IOPERA( 279),IX( 279),IY( 279)/'MOVE',   0,  -9/
3466      DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW',   8,  -9/
3467      DATA IOPERA( 281),IX( 281),IY( 281)/'MOVE',  -7,  12/
3468      DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW',  -5,  11/
3469      DATA IOPERA( 283),IX( 283),IY( 283)/'MOVE',  -6,  12/
3470      DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW',  -5,  10/
3471      DATA IOPERA( 285),IX( 285),IY( 285)/'MOVE',  12,  12/
3472      DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW',  10,  10/
3473      DATA IOPERA( 287),IX( 287),IY( 287)/'MOVE',  13,  12/
3474      DATA IOPERA( 288),IX( 288),IY( 288)/'DRAW',  10,  11/
3475      DATA IOPERA( 289),IX( 289),IY( 289)/'MOVE', -11,  -8/
3476      DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW', -13,  -9/
3477      DATA IOPERA( 291),IX( 291),IY( 291)/'MOVE', -11,  -8/
3478      DATA IOPERA( 292),IX( 292),IY( 292)/'DRAW',  -9,  -9/
3479      DATA IOPERA( 293),IX( 293),IY( 293)/'MOVE',   4,  -8/
3480      DATA IOPERA( 294),IX( 294),IY( 294)/'DRAW',   1,  -9/
3481      DATA IOPERA( 295),IX( 295),IY( 295)/'MOVE',   4,  -7/
3482      DATA IOPERA( 296),IX( 296),IY( 296)/'DRAW',   2,  -9/
3483      DATA IOPERA( 297),IX( 297),IY( 297)/'MOVE',   5,  -7/
3484      DATA IOPERA( 298),IX( 298),IY( 298)/'DRAW',   6,  -9/
3485      DATA IOPERA( 299),IX( 299),IY( 299)/'MOVE',   4,  -8/
3486      DATA IOPERA( 300),IX( 300),IY( 300)/'DRAW',   7,  -9/
3487C
3488      DATA IXMIND(  13)/ -14/
3489      DATA IXMAXD(  13)/  14/
3490      DATA IXDELD(  13)/  28/
3491      DATA ISTARD(  13)/ 255/
3492      DATA NUMCOO(  13)/  46/
3493C
3494C-----START POINT-----------------------------------------------------
3495C
3496      IFOUND='YES'
3497      IERROR='NO'
3498C
3499      NUMCO=1
3500      ISTART=1
3501      ISTOP=1
3502      NC=1
3503C
3504C               ******************************************
3505C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
3506C               **  HERSHEY CHARACTER SET CASE          **
3507C               ******************************************
3508C
3509C
3510      IF(IBUGD2.EQ.'OFF')GOTO90
3511      WRITE(ICOUT,999)
3512  999 FORMAT(1X)
3513      CALL DPWRST('XXX','BUG ')
3514      WRITE(ICOUT,51)
3515   51 FORMAT('***** AT THE BEGINNING OF DRTIU2--')
3516      CALL DPWRST('XXX','BUG ')
3517      WRITE(ICOUT,52)ICHARN
3518   52 FORMAT('ICHARN = ',I8)
3519      CALL DPWRST('XXX','BUG ')
3520      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
3521   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
3522      CALL DPWRST('XXX','BUG ')
3523   90 CONTINUE
3524C
3525C               **************************************
3526C               **  STEP 2--                        **
3527C               **  EXTRACT THE COORDINATES         **
3528C               **  FOR THIS PARTICULAR CHARACTER.  **
3529C               **************************************
3530C
3531      ISTART=ISTARD(ICHARN)
3532      NC=NUMCOO(ICHARN)
3533      ISTOP=ISTART+NC-1
3534      J=0
3535      DO1100I=ISTART,ISTOP
3536      J=J+1
3537      IOP(J)=IOPERA(I)
3538      X(J)=IX(I)
3539      Y(J)=IY(I)
3540 1100 CONTINUE
3541      NUMCO=J
3542      IXMINS=IXMIND(ICHARN)
3543      IXMAXS=IXMAXD(ICHARN)
3544      IXDELS=IXDELD(ICHARN)
3545C
3546      GOTO9000
3547C
3548C               *****************
3549C               **  STEP 90--  **
3550C               **  EXIT       **
3551C               *****************
3552C
3553 9000 CONTINUE
3554      IF(IBUGD2.EQ.'OFF')GOTO9090
3555      WRITE(ICOUT,999)
3556      CALL DPWRST('XXX','BUG ')
3557      WRITE(ICOUT,9011)
3558 9011 FORMAT('***** AT THE END       OF DRTIU2--')
3559      CALL DPWRST('XXX','BUG ')
3560      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
3561 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
3562      CALL DPWRST('XXX','BUG ')
3563      WRITE(ICOUT,9013)ICHARN
3564 9013 FORMAT('ICHARN = ',I8)
3565      CALL DPWRST('XXX','BUG ')
3566      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
3567 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
3568      CALL DPWRST('XXX','BUG ')
3569      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
3570      DO9015I=1,NUMCO
3571      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
3572 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
3573      CALL DPWRST('XXX','BUG ')
3574 9015 CONTINUE
3575 9019 CONTINUE
3576      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
3577 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
3578      CALL DPWRST('XXX','BUG ')
3579 9090 CONTINUE
3580C
3581      RETURN
3582      END
3583      SUBROUTINE DRTIU3(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
3584     1IBUGD2,IFOUND,IERROR)
3585C
3586C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
3587C              FOR ROMAN TRIPLEX ITALIC UPPER CASE (PART 3).
3588C     WRITTEN BY--JAMES J. FILLIBEN
3589C                 STATISTICAL ENGINEERING DIVISION
3590C                 CENTER FOR APPLIED MATHEMATICS
3591C                 NATIONAL BUREAU OF STANDARDS
3592C                 WASHINGTON, D. C. 20234
3593C                 PHONE--301-921-3651
3594C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
3595C           OF THE NATIONAL BUREAU OF STANDARDS.
3596C     LANGUAGE--ANSI FORTRAN (1977)
3597C     VERSION NUMBER--87/4
3598C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
3599C     UPDATED         --MAY       1982.
3600C     UPDATED         --MARCH     1987.
3601C
3602C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
3603C
3604      CHARACTER*4 IOP
3605      CHARACTER*4 IBUGD2
3606      CHARACTER*4 IFOUND
3607      CHARACTER*4 IERROR
3608C
3609      CHARACTER*4 IOPERA
3610C
3611C---------------------------------------------------------------------
3612C
3613      DIMENSION IOP(*)
3614      DIMENSION X(*)
3615      DIMENSION Y(*)
3616C
3617      DIMENSION IOPERA(300)
3618      DIMENSION IX(300)
3619      DIMENSION IY(300)
3620C
3621      DIMENSION IXMIND(30)
3622      DIMENSION IXMAXD(30)
3623      DIMENSION IXDELD(30)
3624      DIMENSION ISTARD(30)
3625      DIMENSION NUMCOO(30)
3626C
3627C-----COMMON----------------------------------------------------------
3628C
3629      INCLUDE 'DPCOP2.INC'
3630C
3631C-----DATA STATEMENTS-------------------------------------------------
3632C
3633C     DEFINE CHARACTER  3514--UPPER CASE N
3634C
3635      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',  -3,  12/
3636      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',  -9,  -8/
3637      DATA IOPERA(   3),IX(   3),IY(   3)/'MOVE',  -3,  12/
3638      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',   4,  -9/
3639      DATA IOPERA(   5),IX(   5),IY(   5)/'MOVE',  -2,  12/
3640      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',   4,  -6/
3641      DATA IOPERA(   7),IX(   7),IY(   7)/'MOVE',  -1,  12/
3642      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',   5,  -6/
3643      DATA IOPERA(   9),IX(   9),IY(   9)/'MOVE',  10,  11/
3644      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',   5,  -6/
3645      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',   4,  -9/
3646      DATA IOPERA(  12),IX(  12),IY(  12)/'MOVE',  -6,  12/
3647      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',  -1,  12/
3648      DATA IOPERA(  14),IX(  14),IY(  14)/'MOVE',   7,  12/
3649      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',  13,  12/
3650      DATA IOPERA(  16),IX(  16),IY(  16)/'MOVE', -12,  -9/
3651      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW',  -6,  -9/
3652      DATA IOPERA(  18),IX(  18),IY(  18)/'MOVE',  -5,  12/
3653      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',  -2,  11/
3654      DATA IOPERA(  20),IX(  20),IY(  20)/'MOVE',  -4,  12/
3655      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',  -2,  10/
3656      DATA IOPERA(  22),IX(  22),IY(  22)/'MOVE',   8,  12/
3657      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',  10,  11/
3658      DATA IOPERA(  24),IX(  24),IY(  24)/'MOVE',  12,  12/
3659      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',  10,  11/
3660      DATA IOPERA(  26),IX(  26),IY(  26)/'MOVE',  -9,  -8/
3661      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW', -11,  -9/
3662      DATA IOPERA(  28),IX(  28),IY(  28)/'MOVE',  -9,  -8/
3663      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',  -7,  -9/
3664C
3665      DATA IXMIND(  14)/ -12/
3666      DATA IXMAXD(  14)/  13/
3667      DATA IXDELD(  14)/  25/
3668      DATA ISTARD(  14)/   1/
3669      DATA NUMCOO(  14)/  29/
3670C
3671C     DEFINE CHARACTER  3515--UPPER CASE O
3672C
3673      DATA IOPERA(  30),IX(  30),IY(  30)/'MOVE',   1,  12/
3674      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',  -2,  11/
3675      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',  -4,   9/
3676      DATA IOPERA(  33),IX(  33),IY(  33)/'DRAW',  -6,   6/
3677      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',  -7,   3/
3678      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',  -8,  -1/
3679      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',  -8,  -4/
3680      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',  -7,  -7/
3681      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',  -6,  -8/
3682      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',  -4,  -9/
3683      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',  -1,  -9/
3684      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',   2,  -8/
3685      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',   4,  -6/
3686      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   6,  -3/
3687      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',   7,   0/
3688      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',   8,   4/
3689      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',   8,   7/
3690      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',   7,  10/
3691      DATA IOPERA(  48),IX(  48),IY(  48)/'DRAW',   6,  11/
3692      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',   4,  12/
3693      DATA IOPERA(  50),IX(  50),IY(  50)/'DRAW',   1,  12/
3694      DATA IOPERA(  51),IX(  51),IY(  51)/'MOVE',  -3,   9/
3695      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',  -5,   6/
3696      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',  -6,   3/
3697      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',  -7,  -1/
3698      DATA IOPERA(  55),IX(  55),IY(  55)/'DRAW',  -7,  -5/
3699      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',  -6,  -7/
3700      DATA IOPERA(  57),IX(  57),IY(  57)/'MOVE',   3,  -6/
3701      DATA IOPERA(  58),IX(  58),IY(  58)/'DRAW',   5,  -3/
3702      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',   6,   0/
3703      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW',   7,   4/
3704      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',   7,   8/
3705      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',   6,  10/
3706      DATA IOPERA(  63),IX(  63),IY(  63)/'MOVE',   1,  12/
3707      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',  -1,  11/
3708      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',  -3,   8/
3709      DATA IOPERA(  66),IX(  66),IY(  66)/'DRAW',  -4,   6/
3710      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',  -5,   3/
3711      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',  -6,  -1/
3712      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',  -6,  -6/
3713      DATA IOPERA(  70),IX(  70),IY(  70)/'DRAW',  -5,  -8/
3714      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',  -4,  -9/
3715      DATA IOPERA(  72),IX(  72),IY(  72)/'MOVE',  -1,  -9/
3716      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',   1,  -8/
3717      DATA IOPERA(  74),IX(  74),IY(  74)/'DRAW',   3,  -5/
3718      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',   4,  -3/
3719      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',   5,   0/
3720      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',   6,   4/
3721      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',   6,   9/
3722      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',   5,  11/
3723      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',   4,  12/
3724C
3725      DATA IXMIND(  15)/ -11/
3726      DATA IXMAXD(  15)/  11/
3727      DATA IXDELD(  15)/  22/
3728      DATA ISTARD(  15)/  30/
3729      DATA NUMCOO(  15)/  51/
3730C
3731C     DEFINE CHARACTER  3516--UPPER CASE P
3732C
3733      DATA IOPERA(  81),IX(  81),IY(  81)/'MOVE',  -3,  12/
3734      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',  -9,  -9/
3735      DATA IOPERA(  83),IX(  83),IY(  83)/'MOVE',  -2,  12/
3736      DATA IOPERA(  84),IX(  84),IY(  84)/'DRAW',  -8,  -9/
3737      DATA IOPERA(  85),IX(  85),IY(  85)/'MOVE',  -1,  12/
3738      DATA IOPERA(  86),IX(  86),IY(  86)/'DRAW',  -7,  -9/
3739      DATA IOPERA(  87),IX(  87),IY(  87)/'MOVE',  -6,  12/
3740      DATA IOPERA(  88),IX(  88),IY(  88)/'DRAW',   6,  12/
3741      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',   9,  11/
3742      DATA IOPERA(  90),IX(  90),IY(  90)/'DRAW',  10,   9/
3743      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',  10,   7/
3744      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',   9,   4/
3745      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',   7,   2/
3746      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',   3,   1/
3747      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',  -5,   1/
3748      DATA IOPERA(  96),IX(  96),IY(  96)/'MOVE',   8,  11/
3749      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW',   9,   9/
3750      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',   9,   7/
3751      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',   8,   4/
3752      DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW',   6,   2/
3753      DATA IOPERA( 101),IX( 101),IY( 101)/'MOVE',   6,  12/
3754      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',   7,  11/
3755      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',   8,   9/
3756      DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW',   8,   7/
3757      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',   7,   4/
3758      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',   5,   2/
3759      DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW',   3,   1/
3760      DATA IOPERA( 108),IX( 108),IY( 108)/'MOVE', -12,  -9/
3761      DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW',  -4,  -9/
3762      DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE',  -5,  12/
3763      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',  -2,  11/
3764      DATA IOPERA( 112),IX( 112),IY( 112)/'MOVE',  -4,  12/
3765      DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW',  -3,  10/
3766      DATA IOPERA( 114),IX( 114),IY( 114)/'MOVE',   0,  12/
3767      DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW',  -2,  10/
3768      DATA IOPERA( 116),IX( 116),IY( 116)/'MOVE',   1,  12/
3769      DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW',  -2,  11/
3770      DATA IOPERA( 118),IX( 118),IY( 118)/'MOVE',  -8,  -8/
3771      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW', -11,  -9/
3772      DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE',  -8,  -7/
3773      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW', -10,  -9/
3774      DATA IOPERA( 122),IX( 122),IY( 122)/'MOVE',  -7,  -7/
3775      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',  -6,  -9/
3776      DATA IOPERA( 124),IX( 124),IY( 124)/'MOVE',  -8,  -8/
3777      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',  -5,  -9/
3778C
3779      DATA IXMIND(  16)/ -12/
3780      DATA IXMAXD(  16)/  11/
3781      DATA IXDELD(  16)/  23/
3782      DATA ISTARD(  16)/  81/
3783      DATA NUMCOO(  16)/  45/
3784C
3785C     DEFINE CHARACTER  3517--UPPER CASE Q
3786C
3787      DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE',   1,  12/
3788      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',  -2,  11/
3789      DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW',  -4,   9/
3790      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',  -6,   6/
3791      DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW',  -7,   3/
3792      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',  -8,  -1/
3793      DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW',  -8,  -4/
3794      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',  -7,  -7/
3795      DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW',  -6,  -8/
3796      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',  -4,  -9/
3797      DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW',  -1,  -9/
3798      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',   2,  -8/
3799      DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW',   4,  -6/
3800      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',   6,  -3/
3801      DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW',   7,   0/
3802      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',   8,   4/
3803      DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW',   8,   7/
3804      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',   7,  10/
3805      DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW',   6,  11/
3806      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',   4,  12/
3807      DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW',   1,  12/
3808      DATA IOPERA( 147),IX( 147),IY( 147)/'MOVE',  -3,   9/
3809      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',  -5,   6/
3810      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',  -6,   3/
3811      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',  -7,  -1/
3812      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',  -7,  -5/
3813      DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW',  -6,  -7/
3814      DATA IOPERA( 153),IX( 153),IY( 153)/'MOVE',   3,  -6/
3815      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',   5,  -3/
3816      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',   6,   0/
3817      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',   7,   4/
3818      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',   7,   8/
3819      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',   6,  10/
3820      DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE',   1,  12/
3821      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',  -1,  11/
3822      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',  -3,   8/
3823      DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW',  -4,   6/
3824      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',  -5,   3/
3825      DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW',  -6,  -1/
3826      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',  -6,  -6/
3827      DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW',  -5,  -8/
3828      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW',  -4,  -9/
3829      DATA IOPERA( 168),IX( 168),IY( 168)/'MOVE',  -1,  -9/
3830      DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW',   1,  -8/
3831      DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW',   3,  -5/
3832      DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW',   4,  -3/
3833      DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW',   5,   0/
3834      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',   6,   4/
3835      DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW',   6,   9/
3836      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',   5,  11/
3837      DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW',   4,  12/
3838      DATA IOPERA( 177),IX( 177),IY( 177)/'MOVE',  -6,  -6/
3839      DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW',  -5,  -4/
3840      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',  -3,  -3/
3841      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',  -2,  -3/
3842      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',   0,  -4/
3843      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',   1,  -6/
3844      DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW',   2, -11/
3845      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',   3, -12/
3846      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',   4, -12/
3847      DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW',   5, -11/
3848      DATA IOPERA( 187),IX( 187),IY( 187)/'MOVE',   2, -12/
3849      DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW',   3, -13/
3850      DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW',   4, -13/
3851      DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE',   1,  -6/
3852      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',   1, -13/
3853      DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW',   2, -14/
3854      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',   4, -14/
3855      DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW',   5, -11/
3856      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',   5, -10/
3857C
3858      DATA IXMIND(  17)/ -11/
3859      DATA IXMAXD(  17)/  11/
3860      DATA IXDELD(  17)/  22/
3861      DATA ISTARD(  17)/ 126/
3862      DATA NUMCOO(  17)/  70/
3863C
3864C     DEFINE CHARACTER  3518--UPPER CASE R
3865C
3866      DATA IOPERA( 196),IX( 196),IY( 196)/'MOVE',  -3,  12/
3867      DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW',  -9,  -9/
3868      DATA IOPERA( 198),IX( 198),IY( 198)/'MOVE',  -2,  12/
3869      DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW',  -8,  -9/
3870      DATA IOPERA( 200),IX( 200),IY( 200)/'MOVE',  -1,  12/
3871      DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW',  -7,  -9/
3872      DATA IOPERA( 202),IX( 202),IY( 202)/'MOVE',  -6,  12/
3873      DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW',   5,  12/
3874      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',   8,  11/
3875      DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW',   9,   9/
3876      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',   9,   7/
3877      DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW',   8,   4/
3878      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',   7,   3/
3879      DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW',   4,   2/
3880      DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW',  -4,   2/
3881      DATA IOPERA( 211),IX( 211),IY( 211)/'MOVE',   7,  11/
3882      DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW',   8,   9/
3883      DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW',   8,   7/
3884      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',   7,   4/
3885      DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW',   6,   3/
3886      DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE',   5,  12/
3887      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',   6,  11/
3888      DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW',   7,   9/
3889      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW',   7,   7/
3890      DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW',   6,   4/
3891      DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW',   4,   2/
3892      DATA IOPERA( 222),IX( 222),IY( 222)/'MOVE',   0,   2/
3893      DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW',   2,   1/
3894      DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW',   3,   0/
3895      DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW',   5,  -6/
3896      DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW',   6,  -7/
3897      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',   7,  -7/
3898      DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW',   8,  -6/
3899      DATA IOPERA( 229),IX( 229),IY( 229)/'MOVE',   5,  -7/
3900      DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW',   6,  -8/
3901      DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW',   7,  -8/
3902      DATA IOPERA( 232),IX( 232),IY( 232)/'MOVE',   3,   0/
3903      DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW',   4,  -8/
3904      DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW',   5,  -9/
3905      DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW',   7,  -9/
3906      DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW',   8,  -6/
3907      DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW',   8,  -5/
3908      DATA IOPERA( 238),IX( 238),IY( 238)/'MOVE', -12,  -9/
3909      DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW',  -4,  -9/
3910      DATA IOPERA( 240),IX( 240),IY( 240)/'MOVE',  -5,  12/
3911      DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW',  -2,  11/
3912      DATA IOPERA( 242),IX( 242),IY( 242)/'MOVE',  -4,  12/
3913      DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW',  -3,  10/
3914      DATA IOPERA( 244),IX( 244),IY( 244)/'MOVE',   0,  12/
3915      DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW',  -2,  10/
3916      DATA IOPERA( 246),IX( 246),IY( 246)/'MOVE',   1,  12/
3917      DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW',  -2,  11/
3918      DATA IOPERA( 248),IX( 248),IY( 248)/'MOVE',  -8,  -8/
3919      DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW', -11,  -9/
3920      DATA IOPERA( 250),IX( 250),IY( 250)/'MOVE',  -8,  -7/
3921      DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW', -10,  -9/
3922      DATA IOPERA( 252),IX( 252),IY( 252)/'MOVE',  -7,  -7/
3923      DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW',  -6,  -9/
3924      DATA IOPERA( 254),IX( 254),IY( 254)/'MOVE',  -8,  -8/
3925      DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW',  -5,  -9/
3926C
3927      DATA IXMIND(  18)/ -12/
3928      DATA IXMAXD(  18)/  12/
3929      DATA IXDELD(  18)/  24/
3930      DATA ISTARD(  18)/ 196/
3931      DATA NUMCOO(  18)/  60/
3932C
3933C     DEFINE CHARACTER  3519--UPPER CASE S
3934C
3935      DATA IOPERA( 256),IX( 256),IY( 256)/'MOVE',   8,  10/
3936      DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW',   9,  10/
3937      DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW',  10,  12/
3938      DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW',   9,   6/
3939      DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW',   9,   8/
3940      DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW',   8,  10/
3941      DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW',   7,  11/
3942      DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW',   4,  12/
3943      DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW',   0,  12/
3944      DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW',  -3,  11/
3945      DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW',  -5,   9/
3946      DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW',  -5,   6/
3947      DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW',  -4,   4/
3948      DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW',  -2,   2/
3949      DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW',   4,  -1/
3950      DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW',   5,  -3/
3951      DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW',   5,  -6/
3952      DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW',   4,  -8/
3953      DATA IOPERA( 274),IX( 274),IY( 274)/'MOVE',  -4,   6/
3954      DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW',  -3,   4/
3955      DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW',   4,   0/
3956      DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW',   5,  -2/
3957      DATA IOPERA( 278),IX( 278),IY( 278)/'MOVE',  -3,  11/
3958      DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW',  -4,   9/
3959      DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW',  -4,   7/
3960      DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW',  -3,   5/
3961      DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW',   3,   2/
3962      DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW',   5,   0/
3963      DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW',   6,  -2/
3964      DATA IOPERA( 285),IX( 285),IY( 285)/'DRAW',   6,  -5/
3965      DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW',   5,  -7/
3966      DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW',   4,  -8/
3967      DATA IOPERA( 288),IX( 288),IY( 288)/'DRAW',   1,  -9/
3968      DATA IOPERA( 289),IX( 289),IY( 289)/'DRAW',  -3,  -9/
3969      DATA IOPERA( 290),IX( 290),IY( 290)/'DRAW',  -6,  -8/
3970      DATA IOPERA( 291),IX( 291),IY( 291)/'DRAW',  -7,  -7/
3971      DATA IOPERA( 292),IX( 292),IY( 292)/'DRAW',  -8,  -5/
3972      DATA IOPERA( 293),IX( 293),IY( 293)/'DRAW',  -8,  -3/
3973      DATA IOPERA( 294),IX( 294),IY( 294)/'DRAW',  -9,  -9/
3974      DATA IOPERA( 295),IX( 295),IY( 295)/'DRAW',  -8,  -7/
3975      DATA IOPERA( 296),IX( 296),IY( 296)/'DRAW',  -7,  -7/
3976C
3977      DATA IXMIND(  19)/ -11/
3978      DATA IXMAXD(  19)/  12/
3979      DATA IXDELD(  19)/  23/
3980      DATA ISTARD(  19)/ 256/
3981      DATA NUMCOO(  19)/  41/
3982C
3983C-----START POINT-----------------------------------------------------
3984C
3985      IFOUND='YES'
3986      IERROR='NO'
3987C
3988      NUMCO=1
3989      ISTART=1
3990      ISTOP=1
3991      NC=1
3992C
3993C               ******************************************
3994C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
3995C               **  HERSHEY CHARACTER SET CASE          **
3996C               ******************************************
3997C
3998C
3999      IF(IBUGD2.EQ.'OFF')GOTO90
4000      WRITE(ICOUT,999)
4001  999 FORMAT(1X)
4002      CALL DPWRST('XXX','BUG ')
4003      WRITE(ICOUT,51)
4004   51 FORMAT('***** AT THE BEGINNING OF DRTIU3--')
4005      CALL DPWRST('XXX','BUG ')
4006      WRITE(ICOUT,52)ICHARN
4007   52 FORMAT('ICHARN = ',I8)
4008      CALL DPWRST('XXX','BUG ')
4009      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
4010   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
4011      CALL DPWRST('XXX','BUG ')
4012   90 CONTINUE
4013C
4014C               **************************************
4015C               **  STEP 2--                        **
4016C               **  EXTRACT THE COORDINATES         **
4017C               **  FOR THIS PARTICULAR CHARACTER.  **
4018C               **************************************
4019C
4020      ISTART=ISTARD(ICHARN)
4021      NC=NUMCOO(ICHARN)
4022      ISTOP=ISTART+NC-1
4023      J=0
4024      DO1100I=ISTART,ISTOP
4025      J=J+1
4026      IOP(J)=IOPERA(I)
4027      X(J)=IX(I)
4028      Y(J)=IY(I)
4029 1100 CONTINUE
4030      NUMCO=J
4031      IXMINS=IXMIND(ICHARN)
4032      IXMAXS=IXMAXD(ICHARN)
4033      IXDELS=IXDELD(ICHARN)
4034C
4035      GOTO9000
4036C
4037C               *****************
4038C               **  STEP 90--  **
4039C               **  EXIT       **
4040C               *****************
4041C
4042 9000 CONTINUE
4043      IF(IBUGD2.EQ.'OFF')GOTO9090
4044      WRITE(ICOUT,999)
4045      CALL DPWRST('XXX','BUG ')
4046      WRITE(ICOUT,9011)
4047 9011 FORMAT('***** AT THE END       OF DRTIU3--')
4048      CALL DPWRST('XXX','BUG ')
4049      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
4050 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
4051      CALL DPWRST('XXX','BUG ')
4052      WRITE(ICOUT,9013)ICHARN
4053 9013 FORMAT('ICHARN = ',I8)
4054      CALL DPWRST('XXX','BUG ')
4055      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
4056 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
4057      CALL DPWRST('XXX','BUG ')
4058      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
4059      DO9015I=1,NUMCO
4060      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
4061 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
4062      CALL DPWRST('XXX','BUG ')
4063 9015 CONTINUE
4064 9019 CONTINUE
4065      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
4066 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
4067      CALL DPWRST('XXX','BUG ')
4068 9090 CONTINUE
4069C
4070      RETURN
4071      END
4072      SUBROUTINE DRTIU4(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
4073     1IBUGD2,IFOUND,IERROR)
4074C
4075C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
4076C              FOR ROMAN TRIPLEX ITALIC UPPER CASE (PART 4).
4077C     WRITTEN BY--JAMES J. FILLIBEN
4078C                 STATISTICAL ENGINEERING DIVISION
4079C                 CENTER FOR APPLIED MATHEMATICS
4080C                 NATIONAL BUREAU OF STANDARDS
4081C                 WASHINGTON, D. C. 20234
4082C                 PHONE--301-921-3651
4083C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
4084C           OF THE NATIONAL BUREAU OF STANDARDS.
4085C     LANGUAGE--ANSI FORTRAN (1977)
4086C     VERSION NUMBER--87/4
4087C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
4088C     UPDATED         --MAY       1982.
4089C     UPDATED         --MARCH     1987.
4090C
4091C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
4092C
4093      CHARACTER*4 IOP
4094      CHARACTER*4 IBUGD2
4095      CHARACTER*4 IFOUND
4096      CHARACTER*4 IERROR
4097C
4098      CHARACTER*4 IOPERA
4099C
4100C---------------------------------------------------------------------
4101C
4102      DIMENSION IOP(*)
4103      DIMENSION X(*)
4104      DIMENSION Y(*)
4105C
4106      DIMENSION IOPERA(300)
4107      DIMENSION IX(300)
4108      DIMENSION IY(300)
4109C
4110      DIMENSION IXMIND(30)
4111      DIMENSION IXMAXD(30)
4112      DIMENSION IXDELD(30)
4113      DIMENSION ISTARD(30)
4114      DIMENSION NUMCOO(30)
4115C
4116C-----COMMON----------------------------------------------------------
4117C
4118      INCLUDE 'DPCOP2.INC'
4119C
4120C-----DATA STATEMENTS-------------------------------------------------
4121C
4122C     DEFINE CHARACTER  3520--UPPER CASE T
4123C
4124      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',   2,  12/
4125      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',  -4,  -9/
4126      DATA IOPERA(   3),IX(   3),IY(   3)/'MOVE',   3,  12/
4127      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',  -3,  -9/
4128      DATA IOPERA(   5),IX(   5),IY(   5)/'MOVE',   4,  12/
4129      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',  -2,  -9/
4130      DATA IOPERA(   7),IX(   7),IY(   7)/'MOVE',  -5,  12/
4131      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',  -7,   6/
4132      DATA IOPERA(   9),IX(   9),IY(   9)/'MOVE',  11,  12/
4133      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',  10,   6/
4134      DATA IOPERA(  11),IX(  11),IY(  11)/'MOVE',  -5,  12/
4135      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',  11,  12/
4136      DATA IOPERA(  13),IX(  13),IY(  13)/'MOVE',  -7,  -9/
4137      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',   1,  -9/
4138      DATA IOPERA(  15),IX(  15),IY(  15)/'MOVE',  -4,  12/
4139      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',  -7,   6/
4140      DATA IOPERA(  17),IX(  17),IY(  17)/'MOVE',  -2,  12/
4141      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',  -6,   9/
4142      DATA IOPERA(  19),IX(  19),IY(  19)/'MOVE',   0,  12/
4143      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',  -5,  11/
4144      DATA IOPERA(  21),IX(  21),IY(  21)/'MOVE',   7,  12/
4145      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',  10,  11/
4146      DATA IOPERA(  23),IX(  23),IY(  23)/'MOVE',   8,  12/
4147      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',  10,  10/
4148      DATA IOPERA(  25),IX(  25),IY(  25)/'MOVE',   9,  12/
4149      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',  10,   9/
4150      DATA IOPERA(  27),IX(  27),IY(  27)/'MOVE',  10,  12/
4151      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',  10,   6/
4152      DATA IOPERA(  29),IX(  29),IY(  29)/'MOVE',  -3,  -8/
4153      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',  -6,  -9/
4154      DATA IOPERA(  31),IX(  31),IY(  31)/'MOVE',  -3,  -7/
4155      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',  -5,  -9/
4156      DATA IOPERA(  33),IX(  33),IY(  33)/'MOVE',  -2,  -7/
4157      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',  -1,  -9/
4158      DATA IOPERA(  35),IX(  35),IY(  35)/'MOVE',  -3,  -8/
4159      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',   0,  -9/
4160C
4161      DATA IXMIND(  20)/ -11/
4162      DATA IXMAXD(  20)/  11/
4163      DATA IXDELD(  20)/  22/
4164      DATA ISTARD(  20)/   1/
4165      DATA NUMCOO(  20)/  36/
4166C
4167C     DEFINE CHARACTER  3521--UPPER CASE U
4168C
4169      DATA IOPERA(  37),IX(  37),IY(  37)/'MOVE',  -4,  12/
4170      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',  -7,   1/
4171      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',  -8,  -3/
4172      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',  -8,  -6/
4173      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',  -7,  -8/
4174      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',  -4,  -9/
4175      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   0,  -9/
4176      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',   3,  -8/
4177      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',   5,  -6/
4178      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',   6,  -3/
4179      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',  10,  11/
4180      DATA IOPERA(  48),IX(  48),IY(  48)/'MOVE',  -3,  12/
4181      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',  -6,   1/
4182      DATA IOPERA(  50),IX(  50),IY(  50)/'DRAW',  -7,  -3/
4183      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',  -7,  -7/
4184      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',  -6,  -8/
4185      DATA IOPERA(  53),IX(  53),IY(  53)/'MOVE',  -2,  12/
4186      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',  -5,   1/
4187      DATA IOPERA(  55),IX(  55),IY(  55)/'DRAW',  -6,  -3/
4188      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',  -6,  -7/
4189      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',  -4,  -9/
4190      DATA IOPERA(  58),IX(  58),IY(  58)/'MOVE',  -7,  12/
4191      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',   1,  12/
4192      DATA IOPERA(  60),IX(  60),IY(  60)/'MOVE',   7,  12/
4193      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',  13,  12/
4194      DATA IOPERA(  62),IX(  62),IY(  62)/'MOVE',  -6,  12/
4195      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',  -3,  11/
4196      DATA IOPERA(  64),IX(  64),IY(  64)/'MOVE',  -5,  12/
4197      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',  -4,  10/
4198      DATA IOPERA(  66),IX(  66),IY(  66)/'MOVE',  -1,  12/
4199      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',  -3,  10/
4200      DATA IOPERA(  68),IX(  68),IY(  68)/'MOVE',   0,  12/
4201      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',  -3,  11/
4202      DATA IOPERA(  70),IX(  70),IY(  70)/'MOVE',   8,  12/
4203      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',  10,  11/
4204      DATA IOPERA(  72),IX(  72),IY(  72)/'MOVE',  12,  12/
4205      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',  10,  11/
4206C
4207      DATA IXMIND(  21)/ -12/
4208      DATA IXMAXD(  21)/  13/
4209      DATA IXDELD(  21)/  25/
4210      DATA ISTARD(  21)/  37/
4211      DATA NUMCOO(  21)/  37/
4212C
4213C     DEFINE CHARACTER  3522--UPPER CASE V
4214C
4215      DATA IOPERA(  74),IX(  74),IY(  74)/'MOVE',  -4,  12/
4216      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',  -4,  10/
4217      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',  -3,  -7/
4218      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',  -3,  -9/
4219      DATA IOPERA(  78),IX(  78),IY(  78)/'MOVE',  -3,  11/
4220      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',  -2,  -6/
4221      DATA IOPERA(  80),IX(  80),IY(  80)/'MOVE',  -2,  12/
4222      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',  -1,  -5/
4223      DATA IOPERA(  82),IX(  82),IY(  82)/'MOVE',   9,  11/
4224      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',  -3,  -9/
4225      DATA IOPERA(  84),IX(  84),IY(  84)/'MOVE',  -6,  12/
4226      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',   1,  12/
4227      DATA IOPERA(  86),IX(  86),IY(  86)/'MOVE',   6,  12/
4228      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',  12,  12/
4229      DATA IOPERA(  88),IX(  88),IY(  88)/'MOVE',  -5,  12/
4230      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',  -4,  10/
4231      DATA IOPERA(  90),IX(  90),IY(  90)/'MOVE',  -1,  12/
4232      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',  -2,  10/
4233      DATA IOPERA(  92),IX(  92),IY(  92)/'MOVE',   0,  12/
4234      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',  -3,  11/
4235      DATA IOPERA(  94),IX(  94),IY(  94)/'MOVE',   7,  12/
4236      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',   9,  11/
4237      DATA IOPERA(  96),IX(  96),IY(  96)/'MOVE',  11,  12/
4238      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW',   9,  11/
4239C
4240      DATA IXMIND(  22)/ -10/
4241      DATA IXMAXD(  22)/  10/
4242      DATA IXDELD(  22)/  20/
4243      DATA ISTARD(  22)/  74/
4244      DATA NUMCOO(  22)/  24/
4245C
4246C     DEFINE CHARACTER  3523--UPPER CASE W
4247C
4248      DATA IOPERA(  98),IX(  98),IY(  98)/'MOVE',  -5,  12/
4249      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',  -5,  10/
4250      DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW',  -7,  -7/
4251      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',  -7,  -9/
4252      DATA IOPERA( 102),IX( 102),IY( 102)/'MOVE',  -4,  11/
4253      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',  -6,  -6/
4254      DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE',  -3,  12/
4255      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',  -5,  -5/
4256      DATA IOPERA( 106),IX( 106),IY( 106)/'MOVE',   3,  12/
4257      DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW',  -5,  -5/
4258      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',  -7,  -9/
4259      DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE',   3,  12/
4260      DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW',   3,  10/
4261      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',   1,  -7/
4262      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',   1,  -9/
4263      DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE',   4,  11/
4264      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',   2,  -6/
4265      DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE',   5,  12/
4266      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',   3,  -5/
4267      DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE',  11,  11/
4268      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',   3,  -5/
4269      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',   1,  -9/
4270      DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE',  -8,  12/
4271      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW',   0,  12/
4272      DATA IOPERA( 122),IX( 122),IY( 122)/'MOVE',   3,  12/
4273      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',   5,  12/
4274      DATA IOPERA( 124),IX( 124),IY( 124)/'MOVE',   8,  12/
4275      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',  14,  12/
4276      DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE',  -7,  12/
4277      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',  -4,  11/
4278      DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE',  -6,  12/
4279      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',  -5,  10/
4280      DATA IOPERA( 130),IX( 130),IY( 130)/'MOVE',  -2,  12/
4281      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',  -4,   9/
4282      DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE',  -1,  12/
4283      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',  -4,  11/
4284      DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE',   9,  12/
4285      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',  11,  11/
4286      DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE',  13,  12/
4287      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',  11,  11/
4288C
4289      DATA IXMIND(  23)/ -13/
4290      DATA IXMAXD(  23)/  13/
4291      DATA IXDELD(  23)/  26/
4292      DATA ISTARD(  23)/  98/
4293      DATA NUMCOO(  23)/  40/
4294C
4295C     DEFINE CHARACTER  3524--UPPER CASE X
4296C
4297      DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE',  -4,  12/
4298      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',   2,  -9/
4299      DATA IOPERA( 140),IX( 140),IY( 140)/'MOVE',  -3,  12/
4300      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',   3,  -9/
4301      DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE',  -2,  12/
4302      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',   4,  -9/
4303      DATA IOPERA( 144),IX( 144),IY( 144)/'MOVE',   9,  11/
4304      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',  -9,  -8/
4305      DATA IOPERA( 146),IX( 146),IY( 146)/'MOVE',  -6,  12/
4306      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',   1,  12/
4307      DATA IOPERA( 148),IX( 148),IY( 148)/'MOVE',   6,  12/
4308      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',  12,  12/
4309      DATA IOPERA( 150),IX( 150),IY( 150)/'MOVE', -12,  -9/
4310      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',  -6,  -9/
4311      DATA IOPERA( 152),IX( 152),IY( 152)/'MOVE',  -1,  -9/
4312      DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW',   6,  -9/
4313      DATA IOPERA( 154),IX( 154),IY( 154)/'MOVE',  -5,  12/
4314      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',  -3,  10/
4315      DATA IOPERA( 156),IX( 156),IY( 156)/'MOVE',  -1,  12/
4316      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',  -2,  10/
4317      DATA IOPERA( 158),IX( 158),IY( 158)/'MOVE',   0,  12/
4318      DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW',  -2,  11/
4319      DATA IOPERA( 160),IX( 160),IY( 160)/'MOVE',   7,  12/
4320      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',   9,  11/
4321      DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE',  11,  12/
4322      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',   9,  11/
4323      DATA IOPERA( 164),IX( 164),IY( 164)/'MOVE',  -9,  -8/
4324      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW', -11,  -9/
4325      DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE',  -9,  -8/
4326      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW',  -7,  -9/
4327      DATA IOPERA( 168),IX( 168),IY( 168)/'MOVE',   2,  -8/
4328      DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW',   0,  -9/
4329      DATA IOPERA( 170),IX( 170),IY( 170)/'MOVE',   2,  -7/
4330      DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW',   1,  -9/
4331      DATA IOPERA( 172),IX( 172),IY( 172)/'MOVE',   3,  -7/
4332      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',   5,  -9/
4333C
4334      DATA IXMIND(  24)/ -11/
4335      DATA IXMAXD(  24)/  11/
4336      DATA IXDELD(  24)/  22/
4337      DATA ISTARD(  24)/ 138/
4338      DATA NUMCOO(  24)/  36/
4339C
4340C     DEFINE CHARACTER  3525--UPPER CASE Y
4341C
4342      DATA IOPERA( 174),IX( 174),IY( 174)/'MOVE',  -5,  12/
4343      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',  -1,   2/
4344      DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW',  -4,  -9/
4345      DATA IOPERA( 177),IX( 177),IY( 177)/'MOVE',  -4,  12/
4346      DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW',   0,   2/
4347      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',  -3,  -9/
4348      DATA IOPERA( 180),IX( 180),IY( 180)/'MOVE',  -3,  12/
4349      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',   1,   2/
4350      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',  -2,  -9/
4351      DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE',  10,  11/
4352      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',   1,   2/
4353      DATA IOPERA( 185),IX( 185),IY( 185)/'MOVE',  -7,  12/
4354      DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW',   0,  12/
4355      DATA IOPERA( 187),IX( 187),IY( 187)/'MOVE',   7,  12/
4356      DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW',  13,  12/
4357      DATA IOPERA( 189),IX( 189),IY( 189)/'MOVE',  -7,  -9/
4358      DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW',   1,  -9/
4359      DATA IOPERA( 191),IX( 191),IY( 191)/'MOVE',  -6,  12/
4360      DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW',  -4,  11/
4361      DATA IOPERA( 193),IX( 193),IY( 193)/'MOVE',  -2,  12/
4362      DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW',  -3,  10/
4363      DATA IOPERA( 195),IX( 195),IY( 195)/'MOVE',  -1,  12/
4364      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',  -4,  11/
4365      DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE',   8,  12/
4366      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',  10,  11/
4367      DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE',  12,  12/
4368      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',  10,  11/
4369      DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE',  -3,  -8/
4370      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',  -6,  -9/
4371      DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE',  -3,  -7/
4372      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',  -5,  -9/
4373      DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE',  -2,  -7/
4374      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',  -1,  -9/
4375      DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE',  -3,  -8/
4376      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',   0,  -9/
4377C
4378      DATA IXMIND(  25)/ -11/
4379      DATA IXMAXD(  25)/  11/
4380      DATA IXDELD(  25)/  22/
4381      DATA ISTARD(  25)/ 174/
4382      DATA NUMCOO(  25)/  35/
4383C
4384C     DEFINE CHARACTER  3526--UPPER CASE Z
4385C
4386      DATA IOPERA( 209),IX( 209),IY( 209)/'MOVE',   8,  12/
4387      DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW', -10,  -9/
4388      DATA IOPERA( 211),IX( 211),IY( 211)/'MOVE',   9,  12/
4389      DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW',  -9,  -9/
4390      DATA IOPERA( 213),IX( 213),IY( 213)/'MOVE',  10,  12/
4391      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',  -8,  -9/
4392      DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE',  10,  12/
4393      DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW',  -4,  12/
4394      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',  -6,   6/
4395      DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE', -10,  -9/
4396      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW',   4,  -9/
4397      DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW',   6,  -3/
4398      DATA IOPERA( 221),IX( 221),IY( 221)/'MOVE',  -3,  12/
4399      DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW',  -6,   6/
4400      DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE',  -2,  12/
4401      DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW',  -5,   9/
4402      DATA IOPERA( 225),IX( 225),IY( 225)/'MOVE',   0,  12/
4403      DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW',  -4,  11/
4404      DATA IOPERA( 227),IX( 227),IY( 227)/'MOVE',   0,  -9/
4405      DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW',   4,  -8/
4406      DATA IOPERA( 229),IX( 229),IY( 229)/'MOVE',   2,  -9/
4407      DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW',   5,  -6/
4408      DATA IOPERA( 231),IX( 231),IY( 231)/'MOVE',   3,  -9/
4409      DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW',   6,  -3/
4410C
4411      DATA IXMIND(  26)/ -11/
4412      DATA IXMAXD(  26)/  11/
4413      DATA IXDELD(  26)/  22/
4414      DATA ISTARD(  26)/ 209/
4415      DATA NUMCOO(  26)/  24/
4416C
4417C-----START POINT-----------------------------------------------------
4418C
4419      IFOUND='YES'
4420      IERROR='NO'
4421C
4422      NUMCO=1
4423      ISTART=1
4424      ISTOP=1
4425      NC=1
4426C
4427C               ******************************************
4428C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
4429C               **  HERSHEY CHARACTER SET CASE          **
4430C               ******************************************
4431C
4432C
4433      IF(IBUGD2.EQ.'OFF')GOTO90
4434      WRITE(ICOUT,999)
4435  999 FORMAT(1X)
4436      CALL DPWRST('XXX','BUG ')
4437      WRITE(ICOUT,51)
4438   51 FORMAT('***** AT THE BEGINNING OF DRTIU4--')
4439      CALL DPWRST('XXX','BUG ')
4440      WRITE(ICOUT,52)ICHARN
4441   52 FORMAT('ICHARN = ',I8)
4442      CALL DPWRST('XXX','BUG ')
4443      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
4444   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
4445      CALL DPWRST('XXX','BUG ')
4446   90 CONTINUE
4447C
4448C               **************************************
4449C               **  STEP 2--                        **
4450C               **  EXTRACT THE COORDINATES         **
4451C               **  FOR THIS PARTICULAR CHARACTER.  **
4452C               **************************************
4453C
4454      ISTART=ISTARD(ICHARN)
4455      NC=NUMCOO(ICHARN)
4456      ISTOP=ISTART+NC-1
4457      J=0
4458      DO1100I=ISTART,ISTOP
4459      J=J+1
4460      IOP(J)=IOPERA(I)
4461      X(J)=IX(I)
4462      Y(J)=IY(I)
4463 1100 CONTINUE
4464      NUMCO=J
4465      IXMINS=IXMIND(ICHARN)
4466      IXMAXS=IXMAXD(ICHARN)
4467      IXDELS=IXDELD(ICHARN)
4468C
4469      GOTO9000
4470C
4471C               *****************
4472C               **  STEP 90--  **
4473C               **  EXIT       **
4474C               *****************
4475C
4476 9000 CONTINUE
4477      IF(IBUGD2.EQ.'OFF')GOTO9090
4478      WRITE(ICOUT,999)
4479      CALL DPWRST('XXX','BUG ')
4480      WRITE(ICOUT,9011)
4481 9011 FORMAT('***** AT THE END       OF DRTIU4--')
4482      CALL DPWRST('XXX','BUG ')
4483      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
4484 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
4485      CALL DPWRST('XXX','BUG ')
4486      WRITE(ICOUT,9013)ICHARN
4487 9013 FORMAT('ICHARN = ',I8)
4488      CALL DPWRST('XXX','BUG ')
4489      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
4490 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
4491      CALL DPWRST('XXX','BUG ')
4492      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
4493      DO9015I=1,NUMCO
4494      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
4495 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
4496      CALL DPWRST('XXX','BUG ')
4497 9015 CONTINUE
4498 9019 CONTINUE
4499      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
4500 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
4501      CALL DPWRST('XXX','BUG ')
4502 9090 CONTINUE
4503C
4504      RETURN
4505      END
4506      SUBROUTINE DRTL1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
4507     1IBUGD2,IFOUND,IERROR)
4508C
4509C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
4510C              FOR ROMAN TRIPLEX LOWER CASE (PART 1).
4511C     WRITTEN BY--JAMES J. FILLIBEN
4512C                 STATISTICAL ENGINEERING DIVISION
4513C                 CENTER FOR APPLIED MATHEMATICS
4514C                 NATIONAL BUREAU OF STANDARDS
4515C                 WASHINGTON, D. C. 20234
4516C                 PHONE--301-921-3651
4517C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
4518C           OF THE NATIONAL BUREAU OF STANDARDS.
4519C     LANGUAGE--ANSI FORTRAN (1977)
4520C     VERSION NUMBER--87/4
4521C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
4522C     UPDATED         --MAY       1982.
4523C     UPDATED         --MARCH     1987.
4524C
4525C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
4526C
4527      CHARACTER*4 IOP
4528      CHARACTER*4 IBUGD2
4529      CHARACTER*4 IFOUND
4530      CHARACTER*4 IERROR
4531C
4532      CHARACTER*4 IOPERA
4533C
4534C---------------------------------------------------------------------
4535C
4536      DIMENSION IOP(*)
4537      DIMENSION X(*)
4538      DIMENSION Y(*)
4539C
4540      DIMENSION IOPERA(300)
4541      DIMENSION IX(300)
4542      DIMENSION IY(300)
4543C
4544      DIMENSION IXMIND(30)
4545      DIMENSION IXMAXD(30)
4546      DIMENSION IXDELD(30)
4547      DIMENSION ISTARD(30)
4548      DIMENSION NUMCOO(30)
4549C
4550C-----COMMON----------------------------------------------------------
4551C
4552      INCLUDE 'DPCOP2.INC'
4553C
4554C-----DATA STATEMENTS-------------------------------------------------
4555C
4556C     DEFINE CHARACTER   3101--LOWER CASE A
4557C
4558      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',  -4,   2/
4559      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',  -4,   3/
4560      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',  -3,   3/
4561      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',  -3,   1/
4562      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',  -5,   1/
4563      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',  -5,   3/
4564      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',  -4,   4/
4565      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',  -2,   5/
4566      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',   2,   5/
4567      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',   4,   4/
4568      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',   5,   3/
4569      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',   6,   1/
4570      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',   6,  -6/
4571      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',   7,  -8/
4572      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',   8,  -9/
4573      DATA IOPERA(  16),IX(  16),IY(  16)/'MOVE',   4,   3/
4574      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW',   5,   1/
4575      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',   5,  -6/
4576      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',   6,  -8/
4577      DATA IOPERA(  20),IX(  20),IY(  20)/'MOVE',   2,   5/
4578      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',   3,   4/
4579      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',   4,   2/
4580      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',   4,  -6/
4581      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',   5,  -8/
4582      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',   8,  -9/
4583      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',   9,  -9/
4584      DATA IOPERA(  27),IX(  27),IY(  27)/'MOVE',   4,   0/
4585      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',   3,  -1/
4586      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',  -2,  -2/
4587      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',  -5,  -3/
4588      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',  -6,  -5/
4589      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',  -6,  -6/
4590      DATA IOPERA(  33),IX(  33),IY(  33)/'DRAW',  -5,  -8/
4591      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',  -2,  -9/
4592      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',   1,  -9/
4593      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',   3,  -8/
4594      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',   4,  -6/
4595      DATA IOPERA(  38),IX(  38),IY(  38)/'MOVE',  -4,  -3/
4596      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',  -5,  -5/
4597      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',  -5,  -6/
4598      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',  -4,  -8/
4599      DATA IOPERA(  42),IX(  42),IY(  42)/'MOVE',   3,  -1/
4600      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',  -1,  -2/
4601      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',  -3,  -3/
4602      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',  -4,  -5/
4603      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',  -4,  -6/
4604      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',  -3,  -8/
4605      DATA IOPERA(  48),IX(  48),IY(  48)/'DRAW',  -2,  -9/
4606C
4607      DATA IXMIND(   1)/  -9/
4608      DATA IXMAXD(   1)/  11/
4609      DATA IXDELD(   1)/  20/
4610      DATA ISTARD(   1)/   1/
4611      DATA NUMCOO(   1)/  48/
4612C
4613C     DEFINE CHARACTER   3102--LOWER CASE B
4614C
4615      DATA IOPERA(  49),IX(  49),IY(  49)/'MOVE',  -6,  12/
4616      DATA IOPERA(  50),IX(  50),IY(  50)/'DRAW',  -6,  -9/
4617      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',  -5,  -8/
4618      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',  -3,  -8/
4619      DATA IOPERA(  53),IX(  53),IY(  53)/'MOVE',  -5,  11/
4620      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',  -5,  -7/
4621      DATA IOPERA(  55),IX(  55),IY(  55)/'MOVE',  -9,  12/
4622      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',  -4,  12/
4623      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',  -4,  -8/
4624      DATA IOPERA(  58),IX(  58),IY(  58)/'MOVE',  -4,   2/
4625      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',  -3,   4/
4626      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW',  -1,   5/
4627      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',   1,   5/
4628      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',   4,   4/
4629      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',   6,   2/
4630      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',   7,  -1/
4631      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',   7,  -3/
4632      DATA IOPERA(  66),IX(  66),IY(  66)/'DRAW',   6,  -6/
4633      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',   4,  -8/
4634      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',   1,  -9/
4635      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',  -1,  -9/
4636      DATA IOPERA(  70),IX(  70),IY(  70)/'DRAW',  -3,  -8/
4637      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',  -4,  -6/
4638      DATA IOPERA(  72),IX(  72),IY(  72)/'MOVE',   5,   2/
4639      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',   6,   0/
4640      DATA IOPERA(  74),IX(  74),IY(  74)/'DRAW',   6,  -4/
4641      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',   5,  -6/
4642      DATA IOPERA(  76),IX(  76),IY(  76)/'MOVE',   1,   5/
4643      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',   3,   4/
4644      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',   4,   3/
4645      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',   5,   0/
4646      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',   5,  -4/
4647      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',   4,  -7/
4648      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',   3,  -8/
4649      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',   1,  -9/
4650      DATA IOPERA(  84),IX(  84),IY(  84)/'MOVE',  -8,  12/
4651      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',  -6,  11/
4652      DATA IOPERA(  86),IX(  86),IY(  86)/'MOVE',  -7,  12/
4653      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',  -6,  10/
4654C
4655      DATA IXMIND(   2)/ -11/
4656      DATA IXMAXD(   2)/  10/
4657      DATA IXDELD(   2)/  21/
4658      DATA ISTARD(   2)/  49/
4659      DATA NUMCOO(   2)/  39/
4660C
4661C     DEFINE CHARACTER   3103--LOWER CASE C
4662C
4663      DATA IOPERA(  88),IX(  88),IY(  88)/'MOVE',   5,   1/
4664      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',   5,   2/
4665      DATA IOPERA(  90),IX(  90),IY(  90)/'DRAW',   4,   2/
4666      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',   4,   0/
4667      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',   6,   0/
4668      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',   6,   2/
4669      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',   4,   4/
4670      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',   2,   5/
4671      DATA IOPERA(  96),IX(  96),IY(  96)/'DRAW',  -1,   5/
4672      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW',  -4,   4/
4673      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',  -6,   2/
4674      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',  -7,  -1/
4675      DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW',  -7,  -3/
4676      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',  -6,  -6/
4677      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',  -4,  -8/
4678      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',  -1,  -9/
4679      DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW',   1,  -9/
4680      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',   4,  -8/
4681      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',   6,  -6/
4682      DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE',  -5,   2/
4683      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',  -6,   0/
4684      DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW',  -6,  -4/
4685      DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW',  -5,  -6/
4686      DATA IOPERA( 111),IX( 111),IY( 111)/'MOVE',  -1,   5/
4687      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',  -3,   4/
4688      DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW',  -4,   3/
4689      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',  -5,   0/
4690      DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW',  -5,  -4/
4691      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',  -4,  -7/
4692      DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW',  -3,  -8/
4693      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',  -1,  -9/
4694C
4695      DATA IXMIND(   3)/ -10/
4696      DATA IXMAXD(   3)/   9/
4697      DATA IXDELD(   3)/  19/
4698      DATA ISTARD(   3)/  88/
4699      DATA NUMCOO(   3)/  31/
4700C
4701C     DEFINE CHARACTER   3104--LOWER CASE D
4702C
4703      DATA IOPERA( 119),IX( 119),IY( 119)/'MOVE',   4,  12/
4704      DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW',   4,  -9/
4705      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW',   9,  -9/
4706      DATA IOPERA( 122),IX( 122),IY( 122)/'MOVE',   5,  11/
4707      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',   5,  -8/
4708      DATA IOPERA( 124),IX( 124),IY( 124)/'MOVE',   1,  12/
4709      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',   6,  12/
4710      DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW',   6,  -9/
4711      DATA IOPERA( 127),IX( 127),IY( 127)/'MOVE',   4,   2/
4712      DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW',   3,   4/
4713      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',   1,   5/
4714      DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW',  -1,   5/
4715      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',  -4,   4/
4716      DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW',  -6,   2/
4717      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',  -7,  -1/
4718      DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW',  -7,  -3/
4719      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',  -6,  -6/
4720      DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW',  -4,  -8/
4721      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',  -1,  -9/
4722      DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW',   1,  -9/
4723      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',   3,  -8/
4724      DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW',   4,  -6/
4725      DATA IOPERA( 141),IX( 141),IY( 141)/'MOVE',  -5,   2/
4726      DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW',  -6,   0/
4727      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',  -6,  -4/
4728      DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW',  -5,  -6/
4729      DATA IOPERA( 145),IX( 145),IY( 145)/'MOVE',  -1,   5/
4730      DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW',  -3,   4/
4731      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',  -4,   3/
4732      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',  -5,   0/
4733      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',  -5,  -4/
4734      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',  -4,  -7/
4735      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',  -3,  -8/
4736      DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW',  -1,  -9/
4737      DATA IOPERA( 153),IX( 153),IY( 153)/'MOVE',   2,  12/
4738      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',   4,  11/
4739      DATA IOPERA( 155),IX( 155),IY( 155)/'MOVE',   3,  12/
4740      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',   4,  10/
4741      DATA IOPERA( 157),IX( 157),IY( 157)/'MOVE',   6,  -7/
4742      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',   7,  -9/
4743      DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE',   6,  -8/
4744      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',   8,  -9/
4745C
4746      DATA IXMIND(   4)/ -10/
4747      DATA IXMAXD(   4)/  11/
4748      DATA IXDELD(   4)/  21/
4749      DATA ISTARD(   4)/ 119/
4750      DATA NUMCOO(   4)/  42/
4751C
4752C     DEFINE CHARACTER   3105--LOWER CASE E
4753C
4754      DATA IOPERA( 161),IX( 161),IY( 161)/'MOVE',  -5,  -1/
4755      DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW',   6,  -1/
4756      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',   6,   1/
4757      DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW',   5,   3/
4758      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',   4,   4/
4759      DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW',   1,   5/
4760      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW',  -1,   5/
4761      DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW',  -4,   4/
4762      DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW',  -6,   2/
4763      DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW',  -7,  -1/
4764      DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW',  -7,  -3/
4765      DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW',  -6,  -6/
4766      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',  -4,  -8/
4767      DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW',  -1,  -9/
4768      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',   1,  -9/
4769      DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW',   4,  -8/
4770      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW',   6,  -6/
4771      DATA IOPERA( 178),IX( 178),IY( 178)/'MOVE',   5,   0/
4772      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',   5,   1/
4773      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',   4,   3/
4774      DATA IOPERA( 181),IX( 181),IY( 181)/'MOVE',  -5,   2/
4775      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',  -6,   0/
4776      DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW',  -6,  -4/
4777      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',  -5,  -6/
4778      DATA IOPERA( 185),IX( 185),IY( 185)/'MOVE',   4,  -1/
4779      DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW',   4,   2/
4780      DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW',   3,   4/
4781      DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW',   1,   5/
4782      DATA IOPERA( 189),IX( 189),IY( 189)/'MOVE',  -1,   5/
4783      DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW',  -3,   4/
4784      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',  -4,   3/
4785      DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW',  -5,   0/
4786      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',  -5,  -4/
4787      DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW',  -4,  -7/
4788      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',  -3,  -8/
4789      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',  -1,  -9/
4790C
4791      DATA IXMIND(   5)/ -10/
4792      DATA IXMAXD(   5)/   9/
4793      DATA IXDELD(   5)/  19/
4794      DATA ISTARD(   5)/ 161/
4795      DATA NUMCOO(   5)/  36/
4796C
4797C     DEFINE CHARACTER   3106--LOWER CASE F
4798C
4799      DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE',   5,  10/
4800      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',   5,  11/
4801      DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW',   4,  11/
4802      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',   4,   9/
4803      DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW',   6,   9/
4804      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',   6,  11/
4805      DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW',   5,  12/
4806      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',   2,  12/
4807      DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW',   0,  11/
4808      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',  -1,  10/
4809      DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW',  -2,   7/
4810      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',  -2,  -9/
4811      DATA IOPERA( 209),IX( 209),IY( 209)/'MOVE',   0,  10/
4812      DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW',  -1,   7/
4813      DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW',  -1,  -8/
4814      DATA IOPERA( 212),IX( 212),IY( 212)/'MOVE',   2,  12/
4815      DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW',   1,  11/
4816      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',   0,   9/
4817      DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW',   0,  -9/
4818      DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE',  -5,   5/
4819      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',   4,   5/
4820      DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE',  -5,  -9/
4821      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW',   3,  -9/
4822      DATA IOPERA( 220),IX( 220),IY( 220)/'MOVE',  -2,  -8/
4823      DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW',  -4,  -9/
4824      DATA IOPERA( 222),IX( 222),IY( 222)/'MOVE',  -2,  -7/
4825      DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW',  -3,  -9/
4826      DATA IOPERA( 224),IX( 224),IY( 224)/'MOVE',   0,  -7/
4827      DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW',   1,  -9/
4828      DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE',   0,  -8/
4829      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',   2,  -9/
4830C
4831      DATA IXMIND(   6)/  -7/
4832      DATA IXMAXD(   6)/   7/
4833      DATA IXDELD(   6)/  14/
4834      DATA ISTARD(   6)/ 197/
4835      DATA NUMCOO(   6)/  31/
4836C
4837C-----START POINT-----------------------------------------------------
4838C
4839      IFOUND='YES'
4840      IERROR='NO'
4841C
4842      NUMCO=1
4843      ISTART=1
4844      ISTOP=1
4845      NC=1
4846C
4847C               ******************************************
4848C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
4849C               **  HERSHEY CHARACTER SET CASE          **
4850C               ******************************************
4851C
4852C
4853      IF(IBUGD2.EQ.'OFF')GOTO90
4854      WRITE(ICOUT,999)
4855  999 FORMAT(1X)
4856      CALL DPWRST('XXX','BUG ')
4857      WRITE(ICOUT,51)
4858   51 FORMAT('***** AT THE BEGINNING OF DRTL1--')
4859      CALL DPWRST('XXX','BUG ')
4860      WRITE(ICOUT,52)ICHARN
4861   52 FORMAT('ICHARN = ',I8)
4862      CALL DPWRST('XXX','BUG ')
4863      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
4864   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
4865      CALL DPWRST('XXX','BUG ')
4866   90 CONTINUE
4867C
4868C               **************************************
4869C               **  STEP 2--                        **
4870C               **  EXTRACT THE COORDINATES         **
4871C               **  FOR THIS PARTICULAR CHARACTER.  **
4872C               **************************************
4873C
4874      ISTART=ISTARD(ICHARN)
4875      NC=NUMCOO(ICHARN)
4876      ISTOP=ISTART+NC-1
4877      J=0
4878      DO1100I=ISTART,ISTOP
4879      J=J+1
4880      IOP(J)=IOPERA(I)
4881      X(J)=IX(I)
4882      Y(J)=IY(I)
4883 1100 CONTINUE
4884      NUMCO=J
4885      IXMINS=IXMIND(ICHARN)
4886      IXMAXS=IXMAXD(ICHARN)
4887      IXDELS=IXDELD(ICHARN)
4888C
4889      GOTO9000
4890C
4891C               *****************
4892C               **  STEP 90--  **
4893C               **  EXIT       **
4894C               *****************
4895C
4896 9000 CONTINUE
4897      IF(IBUGD2.EQ.'OFF')GOTO9090
4898      WRITE(ICOUT,999)
4899      CALL DPWRST('XXX','BUG ')
4900      WRITE(ICOUT,9011)
4901 9011 FORMAT('***** AT THE END       OF DRTL1--')
4902      CALL DPWRST('XXX','BUG ')
4903      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
4904 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
4905      CALL DPWRST('XXX','BUG ')
4906      WRITE(ICOUT,9013)ICHARN
4907 9013 FORMAT('ICHARN = ',I8)
4908      CALL DPWRST('XXX','BUG ')
4909      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
4910 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
4911      CALL DPWRST('XXX','BUG ')
4912      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
4913      DO9015I=1,NUMCO
4914      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
4915 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
4916      CALL DPWRST('XXX','BUG ')
4917 9015 CONTINUE
4918 9019 CONTINUE
4919      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
4920 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
4921      CALL DPWRST('XXX','BUG ')
4922 9090 CONTINUE
4923C
4924      RETURN
4925      END
4926      SUBROUTINE DRTL2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
4927     1IBUGD2,IFOUND,IERROR)
4928C
4929C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
4930C              FOR ROMAN TRIPLEX LOWER CASE (PART 2).
4931C     WRITTEN BY--JAMES J. FILLIBEN
4932C                 STATISTICAL ENGINEERING DIVISION
4933C                 CENTER FOR APPLIED MATHEMATICS
4934C                 NATIONAL BUREAU OF STANDARDS
4935C                 WASHINGTON, D. C. 20234
4936C                 PHONE--301-921-3651
4937C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
4938C           OF THE NATIONAL BUREAU OF STANDARDS.
4939C     LANGUAGE--ANSI FORTRAN (1977)
4940C     VERSION NUMBER--87/4
4941C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
4942C     UPDATED         --MAY       1982.
4943C     UPDATED         --MARCH     1987.
4944C
4945C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
4946C
4947      CHARACTER*4 IOP
4948      CHARACTER*4 IBUGD2
4949      CHARACTER*4 IFOUND
4950      CHARACTER*4 IERROR
4951C
4952      CHARACTER*4 IOPERA
4953C
4954C---------------------------------------------------------------------
4955C
4956      DIMENSION IOP(*)
4957      DIMENSION X(*)
4958      DIMENSION Y(*)
4959C
4960      DIMENSION IOPERA(300)
4961      DIMENSION IX(300)
4962      DIMENSION IY(300)
4963C
4964      DIMENSION IXMIND(30)
4965      DIMENSION IXMAXD(30)
4966      DIMENSION IXDELD(30)
4967      DIMENSION ISTARD(30)
4968      DIMENSION NUMCOO(30)
4969C
4970C-----COMMON----------------------------------------------------------
4971C
4972      INCLUDE 'DPCOP2.INC'
4973C
4974C-----DATA STATEMENTS-------------------------------------------------
4975C
4976C     DEFINE CHARACTER   3107--LOWER CASE G
4977C
4978      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',   6,   4/
4979      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',   7,   3/
4980      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',   8,   4/
4981      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',   7,   5/
4982      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',   6,   5/
4983      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',   4,   4/
4984      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',   3,   3/
4985      DATA IOPERA(   8),IX(   8),IY(   8)/'MOVE',  -1,   5/
4986      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',  -3,   4/
4987      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',  -4,   3/
4988      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',  -5,   1/
4989      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',  -5,  -1/
4990      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',  -4,  -3/
4991      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',  -3,  -4/
4992      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',  -1,  -5/
4993      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',   1,  -5/
4994      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW',   3,  -4/
4995      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',   4,  -3/
4996      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',   5,  -1/
4997      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',   5,   1/
4998      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',   4,   3/
4999      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',   3,   4/
5000      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',   1,   5/
5001      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',  -1,   5/
5002      DATA IOPERA(  25),IX(  25),IY(  25)/'MOVE',  -3,   3/
5003      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',  -4,   1/
5004      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',  -4,  -1/
5005      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',  -3,  -3/
5006      DATA IOPERA(  29),IX(  29),IY(  29)/'MOVE',   3,  -3/
5007      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',   4,  -1/
5008      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',   4,   1/
5009      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',   3,   3/
5010      DATA IOPERA(  33),IX(  33),IY(  33)/'MOVE',  -1,   5/
5011      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',  -2,   4/
5012      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',  -3,   2/
5013      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',  -3,  -2/
5014      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',  -2,  -4/
5015      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',  -1,  -5/
5016      DATA IOPERA(  39),IX(  39),IY(  39)/'MOVE',   1,  -5/
5017      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',   2,  -4/
5018      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',   3,  -2/
5019      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',   3,   2/
5020      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   2,   4/
5021      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',   1,   5/
5022      DATA IOPERA(  45),IX(  45),IY(  45)/'MOVE',  -4,  -3/
5023      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',  -5,  -4/
5024      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',  -6,  -6/
5025      DATA IOPERA(  48),IX(  48),IY(  48)/'DRAW',  -6,  -7/
5026      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',  -5,  -9/
5027      DATA IOPERA(  50),IX(  50),IY(  50)/'DRAW',  -4, -10/
5028      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',  -1, -11/
5029      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',   3, -11/
5030      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',   6, -12/
5031      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',   7, -13/
5032      DATA IOPERA(  55),IX(  55),IY(  55)/'MOVE',  -4,  -9/
5033      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',  -1, -10/
5034      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',   3, -10/
5035      DATA IOPERA(  58),IX(  58),IY(  58)/'DRAW',   6, -11/
5036      DATA IOPERA(  59),IX(  59),IY(  59)/'MOVE',  -6,  -7/
5037      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW',  -5,  -8/
5038      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',  -2,  -9/
5039      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',   3,  -9/
5040      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',   6, -10/
5041      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',   7, -12/
5042      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',   7, -13/
5043      DATA IOPERA(  66),IX(  66),IY(  66)/'DRAW',   6, -15/
5044      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',   3, -16/
5045      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',  -3, -16/
5046      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',  -6, -15/
5047      DATA IOPERA(  70),IX(  70),IY(  70)/'DRAW',  -7, -13/
5048      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',  -7, -12/
5049      DATA IOPERA(  72),IX(  72),IY(  72)/'DRAW',  -6, -10/
5050      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',  -3,  -9/
5051      DATA IOPERA(  74),IX(  74),IY(  74)/'MOVE',  -3, -16/
5052      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',  -5, -15/
5053      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',  -6, -13/
5054      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',  -6, -12/
5055      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',  -5, -10/
5056      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',  -3,  -9/
5057C
5058      DATA IXMIND(   7)/  -9/
5059      DATA IXMAXD(   7)/  10/
5060      DATA IXDELD(   7)/  19/
5061      DATA ISTARD(   7)/   1/
5062      DATA NUMCOO(   7)/  79/
5063C
5064C     DEFINE CHARACTER   3108--LOWER CASE H
5065C
5066      DATA IOPERA(  80),IX(  80),IY(  80)/'MOVE',  -6,  12/
5067      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',  -6,  -9/
5068      DATA IOPERA(  82),IX(  82),IY(  82)/'MOVE',  -5,  11/
5069      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',  -5,  -8/
5070      DATA IOPERA(  84),IX(  84),IY(  84)/'MOVE',  -9,  12/
5071      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',  -4,  12/
5072      DATA IOPERA(  86),IX(  86),IY(  86)/'DRAW',  -4,  -9/
5073      DATA IOPERA(  87),IX(  87),IY(  87)/'MOVE',  -4,   1/
5074      DATA IOPERA(  88),IX(  88),IY(  88)/'DRAW',  -3,   3/
5075      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',  -2,   4/
5076      DATA IOPERA(  90),IX(  90),IY(  90)/'DRAW',   0,   5/
5077      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',   3,   5/
5078      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',   5,   4/
5079      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',   6,   3/
5080      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',   7,   0/
5081      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',   7,  -9/
5082      DATA IOPERA(  96),IX(  96),IY(  96)/'MOVE',   5,   3/
5083      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW',   6,   0/
5084      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',   6,  -8/
5085      DATA IOPERA(  99),IX(  99),IY(  99)/'MOVE',   3,   5/
5086      DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW',   4,   4/
5087      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',   5,   1/
5088      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',   5,  -9/
5089      DATA IOPERA( 103),IX( 103),IY( 103)/'MOVE',  -9,  -9/
5090      DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW',  -1,  -9/
5091      DATA IOPERA( 105),IX( 105),IY( 105)/'MOVE',   2,  -9/
5092      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',  10,  -9/
5093      DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE',  -8,  12/
5094      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',  -6,  11/
5095      DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE',  -7,  12/
5096      DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW',  -6,  10/
5097      DATA IOPERA( 111),IX( 111),IY( 111)/'MOVE',  -6,  -8/
5098      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',  -8,  -9/
5099      DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE',  -6,  -7/
5100      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',  -7,  -9/
5101      DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE',  -4,  -7/
5102      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',  -3,  -9/
5103      DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE',  -4,  -8/
5104      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',  -2,  -9/
5105      DATA IOPERA( 119),IX( 119),IY( 119)/'MOVE',   5,  -8/
5106      DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW',   3,  -9/
5107      DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE',   5,  -7/
5108      DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW',   4,  -9/
5109      DATA IOPERA( 123),IX( 123),IY( 123)/'MOVE',   7,  -7/
5110      DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW',   8,  -9/
5111      DATA IOPERA( 125),IX( 125),IY( 125)/'MOVE',   7,  -8/
5112      DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW',   9,  -9/
5113C
5114      DATA IXMIND(   8)/ -11/
5115      DATA IXMAXD(   8)/  12/
5116      DATA IXDELD(   8)/  23/
5117      DATA ISTARD(   8)/  80/
5118      DATA NUMCOO(   8)/  47/
5119C
5120C     DEFINE CHARACTER   3109--LOWER CASE I
5121C
5122      DATA IOPERA( 127),IX( 127),IY( 127)/'MOVE',  -1,  12/
5123      DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW',  -1,  10/
5124      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',   1,  10/
5125      DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW',   1,  12/
5126      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',  -1,  12/
5127      DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE',   0,  12/
5128      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',   0,  10/
5129      DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE',  -1,  11/
5130      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',   1,  11/
5131      DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE',  -1,   5/
5132      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',  -1,  -9/
5133      DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE',   0,   4/
5134      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',   0,  -8/
5135      DATA IOPERA( 140),IX( 140),IY( 140)/'MOVE',  -4,   5/
5136      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',   1,   5/
5137      DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW',   1,  -9/
5138      DATA IOPERA( 143),IX( 143),IY( 143)/'MOVE',  -4,  -9/
5139      DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW',   4,  -9/
5140      DATA IOPERA( 145),IX( 145),IY( 145)/'MOVE',  -3,   5/
5141      DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW',  -1,   4/
5142      DATA IOPERA( 147),IX( 147),IY( 147)/'MOVE',  -2,   5/
5143      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',  -1,   3/
5144      DATA IOPERA( 149),IX( 149),IY( 149)/'MOVE',  -1,  -8/
5145      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',  -3,  -9/
5146      DATA IOPERA( 151),IX( 151),IY( 151)/'MOVE',  -1,  -7/
5147      DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW',  -2,  -9/
5148      DATA IOPERA( 153),IX( 153),IY( 153)/'MOVE',   1,  -7/
5149      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',   2,  -9/
5150      DATA IOPERA( 155),IX( 155),IY( 155)/'MOVE',   1,  -8/
5151      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',   3,  -9/
5152C
5153      DATA IXMIND(   9)/  -6/
5154      DATA IXMAXD(   9)/   6/
5155      DATA IXDELD(   9)/  12/
5156      DATA ISTARD(   9)/ 127/
5157      DATA NUMCOO(   9)/  30/
5158C
5159C     DEFINE CHARACTER   3110--LOWER CASE J
5160C
5161      DATA IOPERA( 157),IX( 157),IY( 157)/'MOVE',   0,  12/
5162      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',   0,  10/
5163      DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW',   2,  10/
5164      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',   2,  12/
5165      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',   0,  12/
5166      DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE',   1,  12/
5167      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',   1,  10/
5168      DATA IOPERA( 164),IX( 164),IY( 164)/'MOVE',   0,  11/
5169      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',   2,  11/
5170      DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE',   0,   5/
5171      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW',   0, -12/
5172      DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW',  -1, -15/
5173      DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW',  -2, -16/
5174      DATA IOPERA( 170),IX( 170),IY( 170)/'MOVE',   1,   4/
5175      DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW',   1, -11/
5176      DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW',   0, -14/
5177      DATA IOPERA( 173),IX( 173),IY( 173)/'MOVE',  -3,   5/
5178      DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW',   2,   5/
5179      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',   2, -11/
5180      DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW',   1, -14/
5181      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW',   0, -15/
5182      DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW',  -2, -16/
5183      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',  -5, -16/
5184      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',  -6, -15/
5185      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',  -6, -13/
5186      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',  -4, -13/
5187      DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW',  -4, -15/
5188      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',  -5, -15/
5189      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',  -5, -14/
5190      DATA IOPERA( 186),IX( 186),IY( 186)/'MOVE',  -2,   5/
5191      DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW',   0,   4/
5192      DATA IOPERA( 188),IX( 188),IY( 188)/'MOVE',  -1,   5/
5193      DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW',   0,   3/
5194C
5195      DATA IXMIND(  10)/  -7/
5196      DATA IXMAXD(  10)/   6/
5197      DATA IXDELD(  10)/  13/
5198      DATA ISTARD(  10)/ 157/
5199      DATA NUMCOO(  10)/  33/
5200C
5201C     DEFINE CHARACTER   3111--LOWER CASE K
5202C
5203      DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE',  -6,  12/
5204      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',  -6,  -9/
5205      DATA IOPERA( 192),IX( 192),IY( 192)/'MOVE',  -5,  11/
5206      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',  -5,  -8/
5207      DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE',  -9,  12/
5208      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',  -4,  12/
5209      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',  -4,  -9/
5210      DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE',   5,   4/
5211      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',  -4,  -5/
5212      DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE',   0,  -1/
5213      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',   7,  -9/
5214      DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE',   0,  -2/
5215      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',   6,  -9/
5216      DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE',  -1,  -2/
5217      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',   5,  -9/
5218      DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE',   2,   5/
5219      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',   9,   5/
5220      DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE',  -9,  -9/
5221      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',  -1,  -9/
5222      DATA IOPERA( 209),IX( 209),IY( 209)/'MOVE',   2,  -9/
5223      DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW',   9,  -9/
5224      DATA IOPERA( 211),IX( 211),IY( 211)/'MOVE',  -8,  12/
5225      DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW',  -6,  11/
5226      DATA IOPERA( 213),IX( 213),IY( 213)/'MOVE',  -7,  12/
5227      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',  -6,  10/
5228      DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE',   3,   5/
5229      DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW',   5,   4/
5230      DATA IOPERA( 217),IX( 217),IY( 217)/'MOVE',   8,   5/
5231      DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW',   5,   4/
5232      DATA IOPERA( 219),IX( 219),IY( 219)/'MOVE',  -6,  -8/
5233      DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW',  -8,  -9/
5234      DATA IOPERA( 221),IX( 221),IY( 221)/'MOVE',  -6,  -7/
5235      DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW',  -7,  -9/
5236      DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE',  -4,  -7/
5237      DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW',  -3,  -9/
5238      DATA IOPERA( 225),IX( 225),IY( 225)/'MOVE',  -4,  -8/
5239      DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW',  -2,  -9/
5240      DATA IOPERA( 227),IX( 227),IY( 227)/'MOVE',   5,  -7/
5241      DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW',   3,  -9/
5242      DATA IOPERA( 229),IX( 229),IY( 229)/'MOVE',   4,  -7/
5243      DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW',   8,  -9/
5244C
5245      DATA IXMIND(  11)/ -11/
5246      DATA IXMAXD(  11)/  11/
5247      DATA IXDELD(  11)/  22/
5248      DATA ISTARD(  11)/ 190/
5249      DATA NUMCOO(  11)/  41/
5250C
5251C     DEFINE CHARACTER   3112--LOWER CASE L
5252C
5253      DATA IOPERA( 231),IX( 231),IY( 231)/'MOVE',  -1,  12/
5254      DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW',  -1,  -9/
5255      DATA IOPERA( 233),IX( 233),IY( 233)/'MOVE',   0,  11/
5256      DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW',   0,  -8/
5257      DATA IOPERA( 235),IX( 235),IY( 235)/'MOVE',  -4,  12/
5258      DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW',   1,  12/
5259      DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW',   1,  -9/
5260      DATA IOPERA( 238),IX( 238),IY( 238)/'MOVE',  -4,  -9/
5261      DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW',   4,  -9/
5262      DATA IOPERA( 240),IX( 240),IY( 240)/'MOVE',  -3,  12/
5263      DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW',  -1,  11/
5264      DATA IOPERA( 242),IX( 242),IY( 242)/'MOVE',  -2,  12/
5265      DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW',  -1,  10/
5266      DATA IOPERA( 244),IX( 244),IY( 244)/'MOVE',  -1,  -8/
5267      DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW',  -3,  -9/
5268      DATA IOPERA( 246),IX( 246),IY( 246)/'MOVE',  -1,  -7/
5269      DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW',  -2,  -9/
5270      DATA IOPERA( 248),IX( 248),IY( 248)/'MOVE',   1,  -7/
5271      DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW',   2,  -9/
5272      DATA IOPERA( 250),IX( 250),IY( 250)/'MOVE',   1,  -8/
5273      DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW',   3,  -9/
5274C
5275      DATA IXMIND(  12)/  -6/
5276      DATA IXMAXD(  12)/   6/
5277      DATA IXDELD(  12)/  12/
5278      DATA ISTARD(  12)/ 231/
5279      DATA NUMCOO(  12)/  21/
5280C
5281C-----START POINT-----------------------------------------------------
5282C
5283      IFOUND='YES'
5284      IERROR='NO'
5285C
5286      NUMCO=1
5287      ISTART=1
5288      ISTOP=1
5289      NC=1
5290C
5291C               ******************************************
5292C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
5293C               **  HERSHEY CHARACTER SET CASE          **
5294C               ******************************************
5295C
5296C
5297      IF(IBUGD2.EQ.'OFF')GOTO90
5298      WRITE(ICOUT,999)
5299  999 FORMAT(1X)
5300      CALL DPWRST('XXX','BUG ')
5301      WRITE(ICOUT,51)
5302   51 FORMAT('***** AT THE BEGINNING OF DRTL2--')
5303      CALL DPWRST('XXX','BUG ')
5304      WRITE(ICOUT,52)ICHARN
5305   52 FORMAT('ICHARN = ',I8)
5306      CALL DPWRST('XXX','BUG ')
5307      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
5308   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
5309      CALL DPWRST('XXX','BUG ')
5310   90 CONTINUE
5311C
5312C               **************************************
5313C               **  STEP 2--                        **
5314C               **  EXTRACT THE COORDINATES         **
5315C               **  FOR THIS PARTICULAR CHARACTER.  **
5316C               **************************************
5317C
5318      ISTART=ISTARD(ICHARN)
5319      NC=NUMCOO(ICHARN)
5320      ISTOP=ISTART+NC-1
5321      J=0
5322      DO1100I=ISTART,ISTOP
5323      J=J+1
5324      IOP(J)=IOPERA(I)
5325      X(J)=IX(I)
5326      Y(J)=IY(I)
5327 1100 CONTINUE
5328      NUMCO=J
5329      IXMINS=IXMIND(ICHARN)
5330      IXMAXS=IXMAXD(ICHARN)
5331      IXDELS=IXDELD(ICHARN)
5332C
5333      GOTO9000
5334C
5335C               *****************
5336C               **  STEP 90--  **
5337C               **  EXIT       **
5338C               *****************
5339C
5340 9000 CONTINUE
5341      IF(IBUGD2.EQ.'OFF')GOTO9090
5342      WRITE(ICOUT,999)
5343      CALL DPWRST('XXX','BUG ')
5344      WRITE(ICOUT,9011)
5345 9011 FORMAT('***** AT THE END       OF DRTL2--')
5346      CALL DPWRST('XXX','BUG ')
5347      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
5348 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
5349      CALL DPWRST('XXX','BUG ')
5350      WRITE(ICOUT,9013)ICHARN
5351 9013 FORMAT('ICHARN = ',I8)
5352      CALL DPWRST('XXX','BUG ')
5353      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
5354 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
5355      CALL DPWRST('XXX','BUG ')
5356      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
5357      DO9015I=1,NUMCO
5358      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
5359 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
5360      CALL DPWRST('XXX','BUG ')
5361 9015 CONTINUE
5362 9019 CONTINUE
5363      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
5364 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
5365      CALL DPWRST('XXX','BUG ')
5366 9090 CONTINUE
5367C
5368      RETURN
5369      END
5370      SUBROUTINE DRTL3(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
5371     1IBUGD2,IFOUND,IERROR)
5372C
5373C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
5374C              FOR ROMAN TRIPLEX LOWER CASE (PART 3).
5375C     WRITTEN BY--JAMES J. FILLIBEN
5376C                 STATISTICAL ENGINEERING DIVISION
5377C                 CENTER FOR APPLIED MATHEMATICS
5378C                 NATIONAL BUREAU OF STANDARDS
5379C                 WASHINGTON, D. C. 20234
5380C                 PHONE--301-921-3651
5381C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
5382C           OF THE NATIONAL BUREAU OF STANDARDS.
5383C     LANGUAGE--ANSI FORTRAN (1977)
5384C     VERSION NUMBER--87/4
5385C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
5386C     UPDATED         --MAY       1982.
5387C     UPDATED         --MARCH     1987.
5388C
5389C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
5390C
5391      CHARACTER*4 IOP
5392      CHARACTER*4 IBUGD2
5393      CHARACTER*4 IFOUND
5394      CHARACTER*4 IERROR
5395C
5396      CHARACTER*4 IOPERA
5397C
5398C---------------------------------------------------------------------
5399C
5400      DIMENSION IOP(*)
5401      DIMENSION X(*)
5402      DIMENSION Y(*)
5403C
5404      DIMENSION IOPERA(300)
5405      DIMENSION IX(300)
5406      DIMENSION IY(300)
5407C
5408      DIMENSION IXMIND(30)
5409      DIMENSION IXMAXD(30)
5410      DIMENSION IXDELD(30)
5411      DIMENSION ISTARD(30)
5412      DIMENSION NUMCOO(30)
5413C
5414C-----COMMON----------------------------------------------------------
5415C
5416      INCLUDE 'DPCOP2.INC'
5417C
5418C-----DATA STATEMENTS-------------------------------------------------
5419C
5420C     DEFINE CHARACTER   3113--LOWER CASE M
5421C
5422      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE', -12,   5/
5423      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW', -12,  -9/
5424      DATA IOPERA(   3),IX(   3),IY(   3)/'MOVE', -11,   4/
5425      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW', -11,  -8/
5426      DATA IOPERA(   5),IX(   5),IY(   5)/'MOVE', -15,   5/
5427      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW', -10,   5/
5428      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW', -10,  -9/
5429      DATA IOPERA(   8),IX(   8),IY(   8)/'MOVE', -10,   1/
5430      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',  -9,   3/
5431      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',  -8,   4/
5432      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',  -6,   5/
5433      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',  -3,   5/
5434      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',  -1,   4/
5435      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',   0,   3/
5436      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',   1,   0/
5437      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',   1,  -9/
5438      DATA IOPERA(  17),IX(  17),IY(  17)/'MOVE',  -1,   3/
5439      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',   0,   0/
5440      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',   0,  -8/
5441      DATA IOPERA(  20),IX(  20),IY(  20)/'MOVE',  -3,   5/
5442      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',  -2,   4/
5443      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',  -1,   1/
5444      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',  -1,  -9/
5445      DATA IOPERA(  24),IX(  24),IY(  24)/'MOVE',   1,   1/
5446      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',   2,   3/
5447      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',   3,   4/
5448      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',   5,   5/
5449      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',   8,   5/
5450      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',  10,   4/
5451      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',  11,   3/
5452      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',  12,   0/
5453      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',  12,  -9/
5454      DATA IOPERA(  33),IX(  33),IY(  33)/'MOVE',  10,   3/
5455      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',  11,   0/
5456      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',  11,  -8/
5457      DATA IOPERA(  36),IX(  36),IY(  36)/'MOVE',   8,   5/
5458      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',   9,   4/
5459      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',  10,   1/
5460      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',  10,  -9/
5461      DATA IOPERA(  40),IX(  40),IY(  40)/'MOVE', -15,  -9/
5462      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',  -7,  -9/
5463      DATA IOPERA(  42),IX(  42),IY(  42)/'MOVE',  -4,  -9/
5464      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   4,  -9/
5465      DATA IOPERA(  44),IX(  44),IY(  44)/'MOVE',   7,  -9/
5466      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',  15,  -9/
5467      DATA IOPERA(  46),IX(  46),IY(  46)/'MOVE', -14,   5/
5468      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW', -12,   4/
5469      DATA IOPERA(  48),IX(  48),IY(  48)/'MOVE', -13,   5/
5470      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW', -12,   3/
5471      DATA IOPERA(  50),IX(  50),IY(  50)/'MOVE', -12,  -8/
5472      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW', -14,  -9/
5473      DATA IOPERA(  52),IX(  52),IY(  52)/'MOVE', -12,  -7/
5474      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW', -13,  -9/
5475      DATA IOPERA(  54),IX(  54),IY(  54)/'MOVE', -10,  -7/
5476      DATA IOPERA(  55),IX(  55),IY(  55)/'DRAW',  -9,  -9/
5477      DATA IOPERA(  56),IX(  56),IY(  56)/'MOVE', -10,  -8/
5478      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',  -8,  -9/
5479      DATA IOPERA(  58),IX(  58),IY(  58)/'MOVE',  -1,  -8/
5480      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',  -3,  -9/
5481      DATA IOPERA(  60),IX(  60),IY(  60)/'MOVE',  -1,  -7/
5482      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',  -2,  -9/
5483      DATA IOPERA(  62),IX(  62),IY(  62)/'MOVE',   1,  -7/
5484      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',   2,  -9/
5485      DATA IOPERA(  64),IX(  64),IY(  64)/'MOVE',   1,  -8/
5486      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',   3,  -9/
5487      DATA IOPERA(  66),IX(  66),IY(  66)/'MOVE',  10,  -8/
5488      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',   8,  -9/
5489      DATA IOPERA(  68),IX(  68),IY(  68)/'MOVE',  10,  -7/
5490      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',   9,  -9/
5491      DATA IOPERA(  70),IX(  70),IY(  70)/'MOVE',  12,  -7/
5492      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',  13,  -9/
5493      DATA IOPERA(  72),IX(  72),IY(  72)/'MOVE',  12,  -8/
5494      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',  14,  -9/
5495C
5496      DATA IXMIND(  13)/ -17/
5497      DATA IXMAXD(  13)/  17/
5498      DATA IXDELD(  13)/  34/
5499      DATA ISTARD(  13)/   1/
5500      DATA NUMCOO(  13)/  73/
5501C
5502C     DEFINE CHARACTER   3114--LOWER CASE N
5503C
5504      DATA IOPERA(  74),IX(  74),IY(  74)/'MOVE',  -6,   5/
5505      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',  -6,  -9/
5506      DATA IOPERA(  76),IX(  76),IY(  76)/'MOVE',  -5,   4/
5507      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',  -5,  -8/
5508      DATA IOPERA(  78),IX(  78),IY(  78)/'MOVE',  -9,   5/
5509      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',  -4,   5/
5510      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',  -4,  -9/
5511      DATA IOPERA(  81),IX(  81),IY(  81)/'MOVE',  -4,   1/
5512      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',  -3,   3/
5513      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',  -2,   4/
5514      DATA IOPERA(  84),IX(  84),IY(  84)/'DRAW',   0,   5/
5515      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',   3,   5/
5516      DATA IOPERA(  86),IX(  86),IY(  86)/'DRAW',   5,   4/
5517      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',   6,   3/
5518      DATA IOPERA(  88),IX(  88),IY(  88)/'DRAW',   7,   0/
5519      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',   7,  -9/
5520      DATA IOPERA(  90),IX(  90),IY(  90)/'MOVE',   5,   3/
5521      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',   6,   0/
5522      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',   6,  -8/
5523      DATA IOPERA(  93),IX(  93),IY(  93)/'MOVE',   3,   5/
5524      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',   4,   4/
5525      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',   5,   1/
5526      DATA IOPERA(  96),IX(  96),IY(  96)/'DRAW',   5,  -9/
5527      DATA IOPERA(  97),IX(  97),IY(  97)/'MOVE',  -9,  -9/
5528      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',  -1,  -9/
5529      DATA IOPERA(  99),IX(  99),IY(  99)/'MOVE',   2,  -9/
5530      DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW',  10,  -9/
5531      DATA IOPERA( 101),IX( 101),IY( 101)/'MOVE',  -8,   5/
5532      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',  -6,   4/
5533      DATA IOPERA( 103),IX( 103),IY( 103)/'MOVE',  -7,   5/
5534      DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW',  -6,   3/
5535      DATA IOPERA( 105),IX( 105),IY( 105)/'MOVE',  -6,  -8/
5536      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',  -8,  -9/
5537      DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE',  -6,  -7/
5538      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',  -7,  -9/
5539      DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE',  -4,  -7/
5540      DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW',  -3,  -9/
5541      DATA IOPERA( 111),IX( 111),IY( 111)/'MOVE',  -4,  -8/
5542      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',  -2,  -9/
5543      DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE',   5,  -8/
5544      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',   3,  -9/
5545      DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE',   5,  -7/
5546      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',   4,  -9/
5547      DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE',   7,  -7/
5548      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',   8,  -9/
5549      DATA IOPERA( 119),IX( 119),IY( 119)/'MOVE',   7,  -8/
5550      DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW',   9,  -9/
5551C
5552      DATA IXMIND(  14)/ -11/
5553      DATA IXMAXD(  14)/  12/
5554      DATA IXDELD(  14)/  23/
5555      DATA ISTARD(  14)/  74/
5556      DATA NUMCOO(  14)/  47/
5557C
5558C     DEFINE CHARACTER   3115--LOWER CASE O
5559C
5560      DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE',  -1,   5/
5561      DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW',  -4,   4/
5562      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',  -6,   2/
5563      DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW',  -7,  -1/
5564      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',  -7,  -3/
5565      DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW',  -6,  -6/
5566      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',  -4,  -8/
5567      DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW',  -1,  -9/
5568      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',   1,  -9/
5569      DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW',   4,  -8/
5570      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',   6,  -6/
5571      DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW',   7,  -3/
5572      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',   7,  -1/
5573      DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW',   6,   2/
5574      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',   4,   4/
5575      DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW',   1,   5/
5576      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',  -1,   5/
5577      DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE',  -5,   2/
5578      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',  -6,   0/
5579      DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW',  -6,  -4/
5580      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',  -5,  -6/
5581      DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE',   5,  -6/
5582      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',   6,  -4/
5583      DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW',   6,   0/
5584      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',   5,   2/
5585      DATA IOPERA( 146),IX( 146),IY( 146)/'MOVE',  -1,   5/
5586      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',  -3,   4/
5587      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',  -4,   3/
5588      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',  -5,   0/
5589      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',  -5,  -4/
5590      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',  -4,  -7/
5591      DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW',  -3,  -8/
5592      DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW',  -1,  -9/
5593      DATA IOPERA( 154),IX( 154),IY( 154)/'MOVE',   1,  -9/
5594      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',   3,  -8/
5595      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',   4,  -7/
5596      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',   5,  -4/
5597      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',   5,   0/
5598      DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW',   4,   3/
5599      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',   3,   4/
5600      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',   1,   5/
5601C
5602      DATA IXMIND(  15)/ -10/
5603      DATA IXMAXD(  15)/  10/
5604      DATA IXDELD(  15)/  20/
5605      DATA ISTARD(  15)/ 121/
5606      DATA NUMCOO(  15)/  41/
5607C
5608C     DEFINE CHARACTER   3116--LOWER CASE P
5609C
5610      DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE',  -6,   5/
5611      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',  -6, -16/
5612      DATA IOPERA( 164),IX( 164),IY( 164)/'MOVE',  -5,   4/
5613      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',  -5, -15/
5614      DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE',  -9,   5/
5615      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW',  -4,   5/
5616      DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW',  -4, -16/
5617      DATA IOPERA( 169),IX( 169),IY( 169)/'MOVE',  -4,   2/
5618      DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW',  -3,   4/
5619      DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW',  -1,   5/
5620      DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW',   1,   5/
5621      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',   4,   4/
5622      DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW',   6,   2/
5623      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',   7,  -1/
5624      DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW',   7,  -3/
5625      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW',   6,  -6/
5626      DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW',   4,  -8/
5627      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',   1,  -9/
5628      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',  -1,  -9/
5629      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',  -3,  -8/
5630      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',  -4,  -6/
5631      DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE',   5,   2/
5632      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',   6,   0/
5633      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',   6,  -4/
5634      DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW',   5,  -6/
5635      DATA IOPERA( 187),IX( 187),IY( 187)/'MOVE',   1,   5/
5636      DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW',   3,   4/
5637      DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW',   4,   3/
5638      DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW',   5,   0/
5639      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',   5,  -4/
5640      DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW',   4,  -7/
5641      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',   3,  -8/
5642      DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW',   1,  -9/
5643      DATA IOPERA( 195),IX( 195),IY( 195)/'MOVE',  -9, -16/
5644      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',  -1, -16/
5645      DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE',  -8,   5/
5646      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',  -6,   4/
5647      DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE',  -7,   5/
5648      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',  -6,   3/
5649      DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE',  -6, -15/
5650      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',  -8, -16/
5651      DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE',  -6, -14/
5652      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',  -7, -16/
5653      DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE',  -4, -14/
5654      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',  -3, -16/
5655      DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE',  -4, -15/
5656      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',  -2, -16/
5657C
5658      DATA IXMIND(  16)/ -11/
5659      DATA IXMAXD(  16)/  10/
5660      DATA IXDELD(  16)/  21/
5661      DATA ISTARD(  16)/ 162/
5662      DATA NUMCOO(  16)/  47/
5663C
5664C     DEFINE CHARACTER   3117--LOWER CASE Q
5665C
5666      DATA IOPERA( 209),IX( 209),IY( 209)/'MOVE',   4,   4/
5667      DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW',   4, -16/
5668      DATA IOPERA( 211),IX( 211),IY( 211)/'MOVE',   5,   3/
5669      DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW',   5, -15/
5670      DATA IOPERA( 213),IX( 213),IY( 213)/'MOVE',   3,   4/
5671      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',   5,   4/
5672      DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW',   6,   5/
5673      DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW',   6, -16/
5674      DATA IOPERA( 217),IX( 217),IY( 217)/'MOVE',   4,   2/
5675      DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW',   3,   4/
5676      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW',   1,   5/
5677      DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW',  -1,   5/
5678      DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW',  -4,   4/
5679      DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW',  -6,   2/
5680      DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW',  -7,  -1/
5681      DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW',  -7,  -3/
5682      DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW',  -6,  -6/
5683      DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW',  -4,  -8/
5684      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',  -1,  -9/
5685      DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW',   1,  -9/
5686      DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW',   3,  -8/
5687      DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW',   4,  -6/
5688      DATA IOPERA( 231),IX( 231),IY( 231)/'MOVE',  -5,   2/
5689      DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW',  -6,   0/
5690      DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW',  -6,  -4/
5691      DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW',  -5,  -6/
5692      DATA IOPERA( 235),IX( 235),IY( 235)/'MOVE',  -1,   5/
5693      DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW',  -3,   4/
5694      DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW',  -4,   3/
5695      DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW',  -5,   0/
5696      DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW',  -5,  -4/
5697      DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW',  -4,  -7/
5698      DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW',  -3,  -8/
5699      DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW',  -1,  -9/
5700      DATA IOPERA( 243),IX( 243),IY( 243)/'MOVE',   1, -16/
5701      DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW',   9, -16/
5702      DATA IOPERA( 245),IX( 245),IY( 245)/'MOVE',   4, -15/
5703      DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW',   2, -16/
5704      DATA IOPERA( 247),IX( 247),IY( 247)/'MOVE',   4, -14/
5705      DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW',   3, -16/
5706      DATA IOPERA( 249),IX( 249),IY( 249)/'MOVE',   6, -14/
5707      DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW',   7, -16/
5708      DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE',   6, -15/
5709      DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW',   8, -16/
5710C
5711      DATA IXMIND(  17)/ -10/
5712      DATA IXMAXD(  17)/  10/
5713      DATA IXDELD(  17)/  20/
5714      DATA ISTARD(  17)/ 209/
5715      DATA NUMCOO(  17)/  44/
5716C
5717C     DEFINE CHARACTER   3118--LOWER CASE R
5718C
5719      DATA IOPERA( 253),IX( 253),IY( 253)/'MOVE',  -4,   5/
5720      DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW',  -4,  -9/
5721      DATA IOPERA( 255),IX( 255),IY( 255)/'MOVE',  -3,   4/
5722      DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW',  -3,  -8/
5723      DATA IOPERA( 257),IX( 257),IY( 257)/'MOVE',  -7,   5/
5724      DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW',  -2,   5/
5725      DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW',  -2,  -9/
5726      DATA IOPERA( 260),IX( 260),IY( 260)/'MOVE',   5,   3/
5727      DATA IOPERA( 261),IX( 261),IY( 261)/'DRAW',   5,   4/
5728      DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW',   4,   4/
5729      DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW',   4,   2/
5730      DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW',   6,   2/
5731      DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW',   6,   4/
5732      DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW',   5,   5/
5733      DATA IOPERA( 267),IX( 267),IY( 267)/'DRAW',   3,   5/
5734      DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW',   1,   4/
5735      DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW',  -1,   2/
5736      DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW',  -2,  -1/
5737      DATA IOPERA( 271),IX( 271),IY( 271)/'MOVE',  -7,  -9/
5738      DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW',   1,  -9/
5739      DATA IOPERA( 273),IX( 273),IY( 273)/'MOVE',  -6,   5/
5740      DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW',  -4,   4/
5741      DATA IOPERA( 275),IX( 275),IY( 275)/'MOVE',  -5,   5/
5742      DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW',  -4,   3/
5743      DATA IOPERA( 277),IX( 277),IY( 277)/'MOVE',  -4,  -8/
5744      DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW',  -6,  -9/
5745      DATA IOPERA( 279),IX( 279),IY( 279)/'MOVE',  -4,  -7/
5746      DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW',  -5,  -9/
5747      DATA IOPERA( 281),IX( 281),IY( 281)/'MOVE',  -2,  -7/
5748      DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW',  -1,  -9/
5749      DATA IOPERA( 283),IX( 283),IY( 283)/'MOVE',  -2,  -8/
5750      DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW',   0,  -9/
5751C
5752      DATA IXMIND(  18)/  -9/
5753      DATA IXMAXD(  18)/   8/
5754      DATA IXDELD(  18)/  17/
5755      DATA ISTARD(  18)/ 253/
5756      DATA NUMCOO(  18)/  32/
5757C
5758C-----START POINT-----------------------------------------------------
5759C
5760      IFOUND='YES'
5761      IERROR='NO'
5762C
5763      NUMCO=1
5764      ISTART=1
5765      ISTOP=1
5766      NC=1
5767C
5768C               ******************************************
5769C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
5770C               **  HERSHEY CHARACTER SET CASE          **
5771C               ******************************************
5772C
5773C
5774      IF(IBUGD2.EQ.'OFF')GOTO90
5775      WRITE(ICOUT,999)
5776  999 FORMAT(1X)
5777      CALL DPWRST('XXX','BUG ')
5778      WRITE(ICOUT,51)
5779   51 FORMAT('***** AT THE BEGINNING OF DRTL3--')
5780      CALL DPWRST('XXX','BUG ')
5781      WRITE(ICOUT,52)ICHARN
5782   52 FORMAT('ICHARN = ',I8)
5783      CALL DPWRST('XXX','BUG ')
5784      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
5785   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
5786      CALL DPWRST('XXX','BUG ')
5787   90 CONTINUE
5788C
5789C               **************************************
5790C               **  STEP 2--                        **
5791C               **  EXTRACT THE COORDINATES         **
5792C               **  FOR THIS PARTICULAR CHARACTER.  **
5793C               **************************************
5794C
5795      ISTART=ISTARD(ICHARN)
5796      NC=NUMCOO(ICHARN)
5797      ISTOP=ISTART+NC-1
5798      J=0
5799      DO1100I=ISTART,ISTOP
5800      J=J+1
5801      IOP(J)=IOPERA(I)
5802      X(J)=IX(I)
5803      Y(J)=IY(I)
5804 1100 CONTINUE
5805      NUMCO=J
5806      IXMINS=IXMIND(ICHARN)
5807      IXMAXS=IXMAXD(ICHARN)
5808      IXDELS=IXDELD(ICHARN)
5809C
5810      GOTO9000
5811C
5812C               *****************
5813C               **  STEP 90--  **
5814C               **  EXIT       **
5815C               *****************
5816C
5817 9000 CONTINUE
5818      IF(IBUGD2.EQ.'OFF')GOTO9090
5819      WRITE(ICOUT,999)
5820      CALL DPWRST('XXX','BUG ')
5821      WRITE(ICOUT,9011)
5822 9011 FORMAT('***** AT THE END       OF DRTL3--')
5823      CALL DPWRST('XXX','BUG ')
5824      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
5825 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
5826      CALL DPWRST('XXX','BUG ')
5827      WRITE(ICOUT,9013)ICHARN
5828 9013 FORMAT('ICHARN = ',I8)
5829      CALL DPWRST('XXX','BUG ')
5830      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
5831 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
5832      CALL DPWRST('XXX','BUG ')
5833      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
5834      DO9015I=1,NUMCO
5835      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
5836 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
5837      CALL DPWRST('XXX','BUG ')
5838 9015 CONTINUE
5839 9019 CONTINUE
5840      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
5841 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
5842      CALL DPWRST('XXX','BUG ')
5843 9090 CONTINUE
5844C
5845      RETURN
5846      END
5847      SUBROUTINE DRTL4(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
5848     1IBUGD2,IFOUND,IERROR)
5849C
5850C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
5851C              FOR ROMAN TRIPLEX LOWER CASE (PART 4).
5852C     WRITTEN BY--JAMES J. FILLIBEN
5853C                 STATISTICAL ENGINEERING DIVISION
5854C                 CENTER FOR APPLIED MATHEMATICS
5855C                 NATIONAL BUREAU OF STANDARDS
5856C                 WASHINGTON, D. C. 20234
5857C                 PHONE--301-921-3651
5858C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
5859C           OF THE NATIONAL BUREAU OF STANDARDS.
5860C     LANGUAGE--ANSI FORTRAN (1977)
5861C     VERSION NUMBER--87/4
5862C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
5863C     UPDATED         --MAY       1982.
5864C     UPDATED         --MARCH     1987.
5865C
5866C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
5867C
5868      CHARACTER*4 IOP
5869      CHARACTER*4 IBUGD2
5870      CHARACTER*4 IFOUND
5871      CHARACTER*4 IERROR
5872C
5873      CHARACTER*4 IOPERA
5874C
5875C---------------------------------------------------------------------
5876C
5877      DIMENSION IOP(*)
5878      DIMENSION X(*)
5879      DIMENSION Y(*)
5880C
5881      DIMENSION IOPERA(300)
5882      DIMENSION IX(300)
5883      DIMENSION IY(300)
5884C
5885      DIMENSION IXMIND(30)
5886      DIMENSION IXMAXD(30)
5887      DIMENSION IXDELD(30)
5888      DIMENSION ISTARD(30)
5889      DIMENSION NUMCOO(30)
5890C
5891C-----COMMON----------------------------------------------------------
5892C
5893      INCLUDE 'DPCOP2.INC'
5894C
5895C-----DATA STATEMENTS-------------------------------------------------
5896C
5897C     DEFINE CHARACTER   3119--LOWER CASE S
5898C
5899      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',   5,   3/
5900      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',   6,   5/
5901      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',   6,   1/
5902      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',   5,   3/
5903      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',   4,   4/
5904      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',   2,   5/
5905      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',  -2,   5/
5906      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',  -4,   4/
5907      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',  -5,   3/
5908      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',  -5,   1/
5909      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',  -4,  -1/
5910      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',  -2,  -2/
5911      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',   3,  -3/
5912      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',   5,  -4/
5913      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',   6,  -7/
5914      DATA IOPERA(  16),IX(  16),IY(  16)/'MOVE',  -4,   4/
5915      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW',  -5,   1/
5916      DATA IOPERA(  18),IX(  18),IY(  18)/'MOVE',  -4,   0/
5917      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',  -2,  -1/
5918      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',   3,  -2/
5919      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',   5,  -3/
5920      DATA IOPERA(  22),IX(  22),IY(  22)/'MOVE',   6,  -4/
5921      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',   5,  -8/
5922      DATA IOPERA(  24),IX(  24),IY(  24)/'MOVE',  -5,   3/
5923      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',  -4,   1/
5924      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',  -2,   0/
5925      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',   3,  -1/
5926      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',   5,  -2/
5927      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',   6,  -4/
5928      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',   6,  -7/
5929      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',   5,  -8/
5930      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',   3,  -9/
5931      DATA IOPERA(  33),IX(  33),IY(  33)/'DRAW',  -1,  -9/
5932      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',  -3,  -8/
5933      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',  -4,  -7/
5934      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',  -5,  -5/
5935      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',  -5,  -9/
5936      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',  -4,  -7/
5937C
5938      DATA IXMIND(  19)/  -8/
5939      DATA IXMAXD(  19)/   9/
5940      DATA IXDELD(  19)/  17/
5941      DATA ISTARD(  19)/   1/
5942      DATA NUMCOO(  19)/  38/
5943C
5944C     DEFINE CHARACTER   3120--LOWER CASE T
5945C
5946      DATA IOPERA(  39),IX(  39),IY(  39)/'MOVE',  -2,  10/
5947      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',  -2,  -4/
5948      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',  -1,  -7/
5949      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',   0,  -8/
5950      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   2,  -9/
5951      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',   4,  -9/
5952      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',   6,  -8/
5953      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',   7,  -6/
5954      DATA IOPERA(  47),IX(  47),IY(  47)/'MOVE',  -1,  10/
5955      DATA IOPERA(  48),IX(  48),IY(  48)/'DRAW',  -1,  -5/
5956      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',   0,  -7/
5957      DATA IOPERA(  50),IX(  50),IY(  50)/'MOVE',  -2,  10/
5958      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',   0,  12/
5959      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',   0,  -5/
5960      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',   1,  -8/
5961      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',   2,  -9/
5962      DATA IOPERA(  55),IX(  55),IY(  55)/'MOVE',  -5,   5/
5963      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',   4,   5/
5964C
5965      DATA IXMIND(  20)/  -7/
5966      DATA IXMAXD(  20)/   8/
5967      DATA IXDELD(  20)/  15/
5968      DATA ISTARD(  20)/  39/
5969      DATA NUMCOO(  20)/  18/
5970C
5971C     DEFINE CHARACTER   3121--LOWER CASE U
5972C
5973      DATA IOPERA(  57),IX(  57),IY(  57)/'MOVE',  -6,   5/
5974      DATA IOPERA(  58),IX(  58),IY(  58)/'DRAW',  -6,  -4/
5975      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',  -5,  -7/
5976      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW',  -4,  -8/
5977      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',  -2,  -9/
5978      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',   1,  -9/
5979      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',   3,  -8/
5980      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',   4,  -7/
5981      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',   5,  -5/
5982      DATA IOPERA(  66),IX(  66),IY(  66)/'MOVE',  -5,   4/
5983      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',  -5,  -5/
5984      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',  -4,  -7/
5985      DATA IOPERA(  69),IX(  69),IY(  69)/'MOVE',  -9,   5/
5986      DATA IOPERA(  70),IX(  70),IY(  70)/'DRAW',  -4,   5/
5987      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',  -4,  -5/
5988      DATA IOPERA(  72),IX(  72),IY(  72)/'DRAW',  -3,  -8/
5989      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',  -2,  -9/
5990      DATA IOPERA(  74),IX(  74),IY(  74)/'MOVE',   5,   5/
5991      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',   5,  -9/
5992      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',  10,  -9/
5993      DATA IOPERA(  77),IX(  77),IY(  77)/'MOVE',   6,   4/
5994      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',   6,  -8/
5995      DATA IOPERA(  79),IX(  79),IY(  79)/'MOVE',   2,   5/
5996      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',   7,   5/
5997      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',   7,  -9/
5998      DATA IOPERA(  82),IX(  82),IY(  82)/'MOVE',  -8,   5/
5999      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',  -6,   4/
6000      DATA IOPERA(  84),IX(  84),IY(  84)/'MOVE',  -7,   5/
6001      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',  -6,   3/
6002      DATA IOPERA(  86),IX(  86),IY(  86)/'MOVE',   7,  -7/
6003      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',   8,  -9/
6004      DATA IOPERA(  88),IX(  88),IY(  88)/'MOVE',   7,  -8/
6005      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',   9,  -9/
6006C
6007      DATA IXMIND(  21)/ -11/
6008      DATA IXMAXD(  21)/  12/
6009      DATA IXDELD(  21)/  23/
6010      DATA ISTARD(  21)/  57/
6011      DATA NUMCOO(  21)/  33/
6012C
6013C     DEFINE CHARACTER   3122--LOWER CASE V
6014C
6015      DATA IOPERA(  90),IX(  90),IY(  90)/'MOVE',  -6,   5/
6016      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',   0,  -9/
6017      DATA IOPERA(  92),IX(  92),IY(  92)/'MOVE',  -5,   5/
6018      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',   0,  -7/
6019      DATA IOPERA(  94),IX(  94),IY(  94)/'MOVE',  -4,   5/
6020      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',   1,  -7/
6021      DATA IOPERA(  96),IX(  96),IY(  96)/'MOVE',   6,   4/
6022      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW',   1,  -7/
6023      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',   0,  -9/
6024      DATA IOPERA(  99),IX(  99),IY(  99)/'MOVE',  -8,   5/
6025      DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW',  -1,   5/
6026      DATA IOPERA( 101),IX( 101),IY( 101)/'MOVE',   2,   5/
6027      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',   8,   5/
6028      DATA IOPERA( 103),IX( 103),IY( 103)/'MOVE',  -7,   5/
6029      DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW',  -4,   3/
6030      DATA IOPERA( 105),IX( 105),IY( 105)/'MOVE',  -2,   5/
6031      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',  -4,   4/
6032      DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE',   4,   5/
6033      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',   6,   4/
6034      DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE',   7,   5/
6035      DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW',   6,   4/
6036C
6037      DATA IXMIND(  22)/  -9/
6038      DATA IXMAXD(  22)/   9/
6039      DATA IXDELD(  22)/  18/
6040      DATA ISTARD(  22)/  90/
6041      DATA NUMCOO(  22)/  21/
6042C
6043C     DEFINE CHARACTER   3123--LOWER CASE W
6044C
6045      DATA IOPERA( 111),IX( 111),IY( 111)/'MOVE',  -8,   5/
6046      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',  -4,  -9/
6047      DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE',  -7,   5/
6048      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',  -4,  -6/
6049      DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE',  -6,   5/
6050      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',  -3,  -6/
6051      DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE',   0,   5/
6052      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',  -3,  -6/
6053      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',  -4,  -9/
6054      DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE',   0,   5/
6055      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW',   4,  -9/
6056      DATA IOPERA( 122),IX( 122),IY( 122)/'MOVE',   1,   5/
6057      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',   4,  -6/
6058      DATA IOPERA( 124),IX( 124),IY( 124)/'MOVE',   0,   5/
6059      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',   2,   5/
6060      DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW',   5,  -6/
6061      DATA IOPERA( 127),IX( 127),IY( 127)/'MOVE',   8,   4/
6062      DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW',   5,  -6/
6063      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',   4,  -9/
6064      DATA IOPERA( 130),IX( 130),IY( 130)/'MOVE', -11,   5/
6065      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',  -3,   5/
6066      DATA IOPERA( 132),IX( 132),IY( 132)/'MOVE',   5,   5/
6067      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',  11,   5/
6068      DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE', -10,   5/
6069      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',  -7,   4/
6070      DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE',  -4,   5/
6071      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',  -6,   4/
6072      DATA IOPERA( 138),IX( 138),IY( 138)/'MOVE',   6,   5/
6073      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',   8,   4/
6074      DATA IOPERA( 140),IX( 140),IY( 140)/'MOVE',  10,   5/
6075      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',   8,   4/
6076C
6077      DATA IXMIND(  23)/ -12/
6078      DATA IXMAXD(  23)/  12/
6079      DATA IXDELD(  23)/  24/
6080      DATA ISTARD(  23)/ 111/
6081      DATA NUMCOO(  23)/  31/
6082C
6083C     DEFINE CHARACTER   3124--LOWER CASE X
6084C
6085      DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE',  -6,   5/
6086      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',   4,  -9/
6087      DATA IOPERA( 144),IX( 144),IY( 144)/'MOVE',  -5,   5/
6088      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',   5,  -9/
6089      DATA IOPERA( 146),IX( 146),IY( 146)/'MOVE',  -4,   5/
6090      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',   6,  -9/
6091      DATA IOPERA( 148),IX( 148),IY( 148)/'MOVE',   5,   4/
6092      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',  -5,  -8/
6093      DATA IOPERA( 150),IX( 150),IY( 150)/'MOVE',  -8,   5/
6094      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',  -1,   5/
6095      DATA IOPERA( 152),IX( 152),IY( 152)/'MOVE',   2,   5/
6096      DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW',   8,   5/
6097      DATA IOPERA( 154),IX( 154),IY( 154)/'MOVE',  -8,  -9/
6098      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',  -2,  -9/
6099      DATA IOPERA( 156),IX( 156),IY( 156)/'MOVE',   1,  -9/
6100      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',   8,  -9/
6101      DATA IOPERA( 158),IX( 158),IY( 158)/'MOVE',  -7,   5/
6102      DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW',  -5,   4/
6103      DATA IOPERA( 160),IX( 160),IY( 160)/'MOVE',  -2,   5/
6104      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',  -4,   4/
6105      DATA IOPERA( 162),IX( 162),IY( 162)/'MOVE',   3,   5/
6106      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',   5,   4/
6107      DATA IOPERA( 164),IX( 164),IY( 164)/'MOVE',   7,   5/
6108      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',   5,   4/
6109      DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE',  -5,  -8/
6110      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW',  -7,  -9/
6111      DATA IOPERA( 168),IX( 168),IY( 168)/'MOVE',  -5,  -8/
6112      DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW',  -3,  -9/
6113      DATA IOPERA( 170),IX( 170),IY( 170)/'MOVE',   4,  -8/
6114      DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW',   2,  -9/
6115      DATA IOPERA( 172),IX( 172),IY( 172)/'MOVE',   5,  -8/
6116      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',   7,  -9/
6117C
6118      DATA IXMIND(  24)/ -10/
6119      DATA IXMAXD(  24)/  10/
6120      DATA IXDELD(  24)/  20/
6121      DATA ISTARD(  24)/ 142/
6122      DATA NUMCOO(  24)/  32/
6123C
6124C     DEFINE CHARACTER   3125--LOWER CASE Y
6125C
6126      DATA IOPERA( 174),IX( 174),IY( 174)/'MOVE',  -6,   5/
6127      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',   0,  -9/
6128      DATA IOPERA( 176),IX( 176),IY( 176)/'MOVE',  -5,   5/
6129      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW',   0,  -7/
6130      DATA IOPERA( 178),IX( 178),IY( 178)/'MOVE',  -4,   5/
6131      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',   1,  -7/
6132      DATA IOPERA( 180),IX( 180),IY( 180)/'MOVE',   6,   4/
6133      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',   1,  -7/
6134      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',  -2, -13/
6135      DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW',  -4, -15/
6136      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',  -6, -16/
6137      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',  -8, -16/
6138      DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW',  -9, -15/
6139      DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW',  -9, -13/
6140      DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW',  -7, -13/
6141      DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW',  -7, -15/
6142      DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW',  -8, -15/
6143      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',  -8, -14/
6144      DATA IOPERA( 192),IX( 192),IY( 192)/'MOVE',  -8,   5/
6145      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',  -1,   5/
6146      DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE',   2,   5/
6147      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',   8,   5/
6148      DATA IOPERA( 196),IX( 196),IY( 196)/'MOVE',  -7,   5/
6149      DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW',  -4,   3/
6150      DATA IOPERA( 198),IX( 198),IY( 198)/'MOVE',  -2,   5/
6151      DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW',  -4,   4/
6152      DATA IOPERA( 200),IX( 200),IY( 200)/'MOVE',   4,   5/
6153      DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW',   6,   4/
6154      DATA IOPERA( 202),IX( 202),IY( 202)/'MOVE',   7,   5/
6155      DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW',   6,   4/
6156C
6157      DATA IXMIND(  25)/ -10/
6158      DATA IXMAXD(  25)/   9/
6159      DATA IXDELD(  25)/  19/
6160      DATA ISTARD(  25)/ 174/
6161      DATA NUMCOO(  25)/  30/
6162C
6163C     DEFINE CHARACTER   3126--LOWER CASE Z
6164C
6165      DATA IOPERA( 204),IX( 204),IY( 204)/'MOVE',   4,   5/
6166      DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW',  -6,  -9/
6167      DATA IOPERA( 206),IX( 206),IY( 206)/'MOVE',   5,   5/
6168      DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW',  -5,  -9/
6169      DATA IOPERA( 208),IX( 208),IY( 208)/'MOVE',   6,   5/
6170      DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW',  -4,  -9/
6171      DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE',   6,   5/
6172      DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW',  -6,   5/
6173      DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW',  -6,   1/
6174      DATA IOPERA( 213),IX( 213),IY( 213)/'MOVE',  -6,  -9/
6175      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',   6,  -9/
6176      DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW',   6,  -5/
6177      DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE',  -5,   5/
6178      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',  -6,   1/
6179      DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE',  -4,   5/
6180      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW',  -6,   2/
6181      DATA IOPERA( 220),IX( 220),IY( 220)/'MOVE',  -3,   5/
6182      DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW',  -6,   3/
6183      DATA IOPERA( 222),IX( 222),IY( 222)/'MOVE',  -1,   5/
6184      DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW',  -6,   4/
6185      DATA IOPERA( 224),IX( 224),IY( 224)/'MOVE',   1,  -9/
6186      DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW',   6,  -8/
6187      DATA IOPERA( 226),IX( 226),IY( 226)/'MOVE',   3,  -9/
6188      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',   6,  -7/
6189      DATA IOPERA( 228),IX( 228),IY( 228)/'MOVE',   4,  -9/
6190      DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW',   6,  -6/
6191      DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE',   5,  -9/
6192      DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW',   6,  -5/
6193C
6194      DATA IXMIND(  26)/  -9/
6195      DATA IXMAXD(  26)/   9/
6196      DATA IXDELD(  26)/  18/
6197      DATA ISTARD(  26)/ 204/
6198      DATA NUMCOO(  26)/  28/
6199C
6200C-----START POINT-----------------------------------------------------
6201C
6202      IFOUND='YES'
6203      IERROR='NO'
6204C
6205      NUMCO=1
6206      ISTART=1
6207      ISTOP=1
6208      NC=1
6209C
6210C               ******************************************
6211C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
6212C               **  HERSHEY CHARACTER SET CASE          **
6213C               ******************************************
6214C
6215C
6216      IF(IBUGD2.EQ.'OFF')GOTO90
6217      WRITE(ICOUT,999)
6218  999 FORMAT(1X)
6219      CALL DPWRST('XXX','BUG ')
6220      WRITE(ICOUT,51)
6221   51 FORMAT('***** AT THE BEGINNING OF DRTL4--')
6222      CALL DPWRST('XXX','BUG ')
6223      WRITE(ICOUT,52)ICHARN
6224   52 FORMAT('ICHARN = ',I8)
6225      CALL DPWRST('XXX','BUG ')
6226      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
6227   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
6228      CALL DPWRST('XXX','BUG ')
6229   90 CONTINUE
6230C
6231C               **************************************
6232C               **  STEP 2--                        **
6233C               **  EXTRACT THE COORDINATES         **
6234C               **  FOR THIS PARTICULAR CHARACTER.  **
6235C               **************************************
6236C
6237      ISTART=ISTARD(ICHARN)
6238      NC=NUMCOO(ICHARN)
6239      ISTOP=ISTART+NC-1
6240      J=0
6241      DO1100I=ISTART,ISTOP
6242      J=J+1
6243      IOP(J)=IOPERA(I)
6244      X(J)=IX(I)
6245      Y(J)=IY(I)
6246 1100 CONTINUE
6247      NUMCO=J
6248      IXMINS=IXMIND(ICHARN)
6249      IXMAXS=IXMAXD(ICHARN)
6250      IXDELS=IXDELD(ICHARN)
6251C
6252      GOTO9000
6253C
6254C               *****************
6255C               **  STEP 90--  **
6256C               **  EXIT       **
6257C               *****************
6258C
6259 9000 CONTINUE
6260      IF(IBUGD2.EQ.'OFF')GOTO9090
6261      WRITE(ICOUT,999)
6262      CALL DPWRST('XXX','BUG ')
6263      WRITE(ICOUT,9011)
6264 9011 FORMAT('***** AT THE END       OF DRTL4--')
6265      CALL DPWRST('XXX','BUG ')
6266      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
6267 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
6268      CALL DPWRST('XXX','BUG ')
6269      WRITE(ICOUT,9013)ICHARN
6270 9013 FORMAT('ICHARN = ',I8)
6271      CALL DPWRST('XXX','BUG ')
6272      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
6273 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
6274      CALL DPWRST('XXX','BUG ')
6275      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
6276      DO9015I=1,NUMCO
6277      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
6278 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
6279      CALL DPWRST('XXX','BUG ')
6280 9015 CONTINUE
6281 9019 CONTINUE
6282      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
6283 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
6284      CALL DPWRST('XXX','BUG ')
6285 9090 CONTINUE
6286C
6287      RETURN
6288      END
6289      SUBROUTINE DRTN1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
6290     1IBUGD2,IFOUND,IERROR)
6291C
6292C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
6293C              FOR ROMAN TRIPLEX NUMERIC (PART 1).
6294C     WRITTEN BY--JAMES J. FILLIBEN
6295C                 STATISTICAL ENGINEERING DIVISION
6296C                 CENTER FOR APPLIED MATHEMATICS
6297C                 NATIONAL BUREAU OF STANDARDS
6298C                 WASHINGTON, D. C. 20234
6299C                 PHONE--301-921-3651
6300C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
6301C           OF THE NATIONAL BUREAU OF STANDARDS.
6302C     LANGUAGE--ANSI FORTRAN (1977)
6303C     VERSION NUMBER--87/4
6304C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
6305C     UPDATED         --MAY       1982.
6306C     UPDATED         --MARCH     1987.
6307C
6308C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
6309C
6310      CHARACTER*4 IOP
6311      CHARACTER*4 IBUGD2
6312      CHARACTER*4 IFOUND
6313      CHARACTER*4 IERROR
6314C
6315      CHARACTER*4 IOPERA
6316C
6317C---------------------------------------------------------------------
6318C
6319      DIMENSION IOP(*)
6320      DIMENSION X(*)
6321      DIMENSION Y(*)
6322C
6323      DIMENSION IOPERA(300)
6324      DIMENSION IX(300)
6325      DIMENSION IY(300)
6326C
6327      DIMENSION IXMIND(30)
6328      DIMENSION IXMAXD(30)
6329      DIMENSION IXDELD(30)
6330      DIMENSION ISTARD(30)
6331      DIMENSION NUMCOO(30)
6332C
6333C-----COMMON----------------------------------------------------------
6334C
6335      INCLUDE 'DPCOP2.INC'
6336C
6337C-----DATA STATEMENTS-------------------------------------------------
6338C
6339C     DEFINE CHARACTER   3200--0
6340C
6341      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',  -1,  12/
6342      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',  -4,  11/
6343      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',  -6,   8/
6344      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',  -7,   3/
6345      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',  -7,   0/
6346      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',  -6,  -5/
6347      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',  -4,  -8/
6348      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',  -1,  -9/
6349      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',   1,  -9/
6350      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',   4,  -8/
6351      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',   6,  -5/
6352      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',   7,   0/
6353      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',   7,   3/
6354      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',   6,   8/
6355      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',   4,  11/
6356      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',   1,  12/
6357      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW',  -1,  12/
6358      DATA IOPERA(  18),IX(  18),IY(  18)/'MOVE',  -4,  10/
6359      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',  -5,   8/
6360      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',  -6,   4/
6361      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',  -6,  -1/
6362      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',  -5,  -5/
6363      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',  -4,  -7/
6364      DATA IOPERA(  24),IX(  24),IY(  24)/'MOVE',   4,  -7/
6365      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',   5,  -5/
6366      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',   6,  -1/
6367      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',   6,   4/
6368      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',   5,   8/
6369      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',   4,  10/
6370      DATA IOPERA(  30),IX(  30),IY(  30)/'MOVE',  -1,  12/
6371      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',  -3,  11/
6372      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',  -4,   9/
6373      DATA IOPERA(  33),IX(  33),IY(  33)/'DRAW',  -5,   4/
6374      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',  -5,  -1/
6375      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',  -4,  -6/
6376      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',  -3,  -8/
6377      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',  -1,  -9/
6378      DATA IOPERA(  38),IX(  38),IY(  38)/'MOVE',   1,  -9/
6379      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',   3,  -8/
6380      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',   4,  -6/
6381      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',   5,  -1/
6382      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',   5,   4/
6383      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   4,   9/
6384      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',   3,  11/
6385      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',   1,  12/
6386C
6387      DATA IXMIND(   1)/ -10/
6388      DATA IXMAXD(   1)/  10/
6389      DATA IXDELD(   1)/  20/
6390      DATA ISTARD(   1)/   1/
6391      DATA NUMCOO(   1)/  45/
6392C
6393C     DEFINE CHARACTER   3201--1
6394C
6395      DATA IOPERA(  46),IX(  46),IY(  46)/'MOVE',  -1,  10/
6396      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',  -1,  -9/
6397      DATA IOPERA(  48),IX(  48),IY(  48)/'MOVE',   0,  10/
6398      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',   0,  -8/
6399      DATA IOPERA(  50),IX(  50),IY(  50)/'MOVE',   1,  12/
6400      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',   1,  -9/
6401      DATA IOPERA(  52),IX(  52),IY(  52)/'MOVE',   1,  12/
6402      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',  -2,   9/
6403      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',  -4,   8/
6404      DATA IOPERA(  55),IX(  55),IY(  55)/'MOVE',  -5,  -9/
6405      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',   5,  -9/
6406      DATA IOPERA(  57),IX(  57),IY(  57)/'MOVE',  -1,  -8/
6407      DATA IOPERA(  58),IX(  58),IY(  58)/'DRAW',  -3,  -9/
6408      DATA IOPERA(  59),IX(  59),IY(  59)/'MOVE',  -1,  -7/
6409      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW',  -2,  -9/
6410      DATA IOPERA(  61),IX(  61),IY(  61)/'MOVE',   1,  -7/
6411      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',   2,  -9/
6412      DATA IOPERA(  63),IX(  63),IY(  63)/'MOVE',   1,  -8/
6413      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',   3,  -9/
6414C
6415      DATA IXMIND(   2)/ -10/
6416      DATA IXMAXD(   2)/  10/
6417      DATA IXDELD(   2)/  20/
6418      DATA ISTARD(   2)/  46/
6419      DATA NUMCOO(   2)/  19/
6420C
6421C     DEFINE CHARACTER   3202--2
6422C
6423      DATA IOPERA(  65),IX(  65),IY(  65)/'MOVE',  -6,   8/
6424      DATA IOPERA(  66),IX(  66),IY(  66)/'DRAW',  -6,   7/
6425      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',  -5,   7/
6426      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',  -5,   8/
6427      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',  -6,   8/
6428      DATA IOPERA(  70),IX(  70),IY(  70)/'MOVE',  -6,   9/
6429      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',  -5,   9/
6430      DATA IOPERA(  72),IX(  72),IY(  72)/'DRAW',  -4,   8/
6431      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',  -4,   7/
6432      DATA IOPERA(  74),IX(  74),IY(  74)/'DRAW',  -5,   6/
6433      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',  -6,   6/
6434      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',  -7,   7/
6435      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',  -7,   8/
6436      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',  -6,  10/
6437      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',  -5,  11/
6438      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',  -2,  12/
6439      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',   2,  12/
6440      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',   5,  11/
6441      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',   6,  10/
6442      DATA IOPERA(  84),IX(  84),IY(  84)/'DRAW',   7,   8/
6443      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',   7,   6/
6444      DATA IOPERA(  86),IX(  86),IY(  86)/'DRAW',   6,   4/
6445      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',   3,   2/
6446      DATA IOPERA(  88),IX(  88),IY(  88)/'DRAW',  -2,   0/
6447      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',  -4,  -1/
6448      DATA IOPERA(  90),IX(  90),IY(  90)/'DRAW',  -6,  -3/
6449      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',  -7,  -6/
6450      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',  -7,  -9/
6451      DATA IOPERA(  93),IX(  93),IY(  93)/'MOVE',   5,  10/
6452      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',   6,   8/
6453      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',   6,   6/
6454      DATA IOPERA(  96),IX(  96),IY(  96)/'DRAW',   5,   4/
6455      DATA IOPERA(  97),IX(  97),IY(  97)/'MOVE',   2,  12/
6456      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',   4,  11/
6457      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',   5,   8/
6458      DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW',   5,   6/
6459      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',   4,   4/
6460      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',   2,   2/
6461      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',  -2,   0/
6462      DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE',  -7,  -7/
6463      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',  -6,  -6/
6464      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',  -4,  -6/
6465      DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW',   1,  -7/
6466      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',   5,  -7/
6467      DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW',   7,  -6/
6468      DATA IOPERA( 110),IX( 110),IY( 110)/'MOVE',  -4,  -6/
6469      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',   1,  -8/
6470      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',   5,  -8/
6471      DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW',   6,  -7/
6472      DATA IOPERA( 114),IX( 114),IY( 114)/'MOVE',  -4,  -6/
6473      DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW',   1,  -9/
6474      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',   5,  -9/
6475      DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW',   6,  -8/
6476      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',   7,  -6/
6477      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',   7,  -4/
6478C
6479      DATA IXMIND(   3)/ -10/
6480      DATA IXMAXD(   3)/  10/
6481      DATA IXDELD(   3)/  20/
6482      DATA ISTARD(   3)/  65/
6483      DATA NUMCOO(   3)/  55/
6484C
6485C     DEFINE CHARACTER   3203--3
6486C
6487      DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE',  -6,   8/
6488      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW',  -6,   7/
6489      DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW',  -5,   7/
6490      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',  -5,   8/
6491      DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW',  -6,   8/
6492      DATA IOPERA( 125),IX( 125),IY( 125)/'MOVE',  -6,   9/
6493      DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW',  -5,   9/
6494      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',  -4,   8/
6495      DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW',  -4,   7/
6496      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',  -5,   6/
6497      DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW',  -6,   6/
6498      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',  -7,   7/
6499      DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW',  -7,   8/
6500      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',  -6,  10/
6501      DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW',  -5,  11/
6502      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',  -2,  12/
6503      DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW',   2,  12/
6504      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',   5,  11/
6505      DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW',   6,   9/
6506      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',   6,   6/
6507      DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW',   5,   4/
6508      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',   2,   3/
6509      DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE',   4,  11/
6510      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',   5,   9/
6511      DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW',   5,   6/
6512      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',   4,   4/
6513      DATA IOPERA( 146),IX( 146),IY( 146)/'MOVE',   1,  12/
6514      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',   3,  11/
6515      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',   4,   9/
6516      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',   4,   6/
6517      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',   3,   4/
6518      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',   1,   3/
6519      DATA IOPERA( 152),IX( 152),IY( 152)/'MOVE',  -1,   3/
6520      DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW',   2,   3/
6521      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',   4,   2/
6522      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',   6,   0/
6523      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',   7,  -2/
6524      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',   7,  -5/
6525      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',   6,  -7/
6526      DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW',   5,  -8/
6527      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',   2,  -9/
6528      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',  -2,  -9/
6529      DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW',  -5,  -8/
6530      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',  -6,  -7/
6531      DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW',  -7,  -5/
6532      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',  -7,  -4/
6533      DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW',  -6,  -3/
6534      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW',  -5,  -3/
6535      DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW',  -4,  -4/
6536      DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW',  -4,  -5/
6537      DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW',  -5,  -6/
6538      DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW',  -6,  -6/
6539      DATA IOPERA( 172),IX( 172),IY( 172)/'MOVE',   5,   0/
6540      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',   6,  -2/
6541      DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW',   6,  -5/
6542      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',   5,  -7/
6543      DATA IOPERA( 176),IX( 176),IY( 176)/'MOVE',   1,   3/
6544      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW',   3,   2/
6545      DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW',   4,   1/
6546      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',   5,  -2/
6547      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',   5,  -5/
6548      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',   4,  -8/
6549      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',   2,  -9/
6550      DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE',  -6,  -4/
6551      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',  -6,  -5/
6552      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',  -5,  -5/
6553      DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW',  -5,  -4/
6554      DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW',  -6,  -4/
6555C
6556      DATA IXMIND(   4)/ -10/
6557      DATA IXMAXD(   4)/  10/
6558      DATA IXDELD(   4)/  20/
6559      DATA ISTARD(   4)/ 120/
6560      DATA NUMCOO(   4)/  68/
6561C
6562C     DEFINE CHARACTER   3204--4
6563C
6564      DATA IOPERA( 188),IX( 188),IY( 188)/'MOVE',   1,   9/
6565      DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW',   1,  -9/
6566      DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE',   2,  10/
6567      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',   2,  -8/
6568      DATA IOPERA( 192),IX( 192),IY( 192)/'MOVE',   3,  12/
6569      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',   3,  -9/
6570      DATA IOPERA( 194),IX( 194),IY( 194)/'MOVE',   3,  12/
6571      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',  -8,  -3/
6572      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',   8,  -3/
6573      DATA IOPERA( 197),IX( 197),IY( 197)/'MOVE',  -2,  -9/
6574      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',   6,  -9/
6575      DATA IOPERA( 199),IX( 199),IY( 199)/'MOVE',   1,  -8/
6576      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',  -1,  -9/
6577      DATA IOPERA( 201),IX( 201),IY( 201)/'MOVE',   1,  -7/
6578      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',   0,  -9/
6579      DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE',   3,  -7/
6580      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',   4,  -9/
6581      DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE',   3,  -8/
6582      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',   5,  -9/
6583C
6584      DATA IXMIND(   5)/ -10/
6585      DATA IXMAXD(   5)/  10/
6586      DATA IXDELD(   5)/  20/
6587      DATA ISTARD(   5)/ 188/
6588      DATA NUMCOO(   5)/  19/
6589C
6590C     DEFINE CHARACTER   3205--5
6591C
6592      DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE',  -5,  12/
6593      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',  -7,   2/
6594      DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW',  -5,   4/
6595      DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW',  -2,   5/
6596      DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW',   1,   5/
6597      DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW',   4,   4/
6598      DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW',   6,   2/
6599      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',   7,  -1/
6600      DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW',   7,  -3/
6601      DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW',   6,  -6/
6602      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',   4,  -8/
6603      DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW',   1,  -9/
6604      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW',  -2,  -9/
6605      DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW',  -5,  -8/
6606      DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW',  -6,  -7/
6607      DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW',  -7,  -5/
6608      DATA IOPERA( 223),IX( 223),IY( 223)/'DRAW',  -7,  -4/
6609      DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW',  -6,  -3/
6610      DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW',  -5,  -3/
6611      DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW',  -4,  -4/
6612      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',  -4,  -5/
6613      DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW',  -5,  -6/
6614      DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW',  -6,  -6/
6615      DATA IOPERA( 230),IX( 230),IY( 230)/'MOVE',   5,   2/
6616      DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW',   6,   0/
6617      DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW',   6,  -4/
6618      DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW',   5,  -6/
6619      DATA IOPERA( 234),IX( 234),IY( 234)/'MOVE',   1,   5/
6620      DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW',   3,   4/
6621      DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW',   4,   3/
6622      DATA IOPERA( 237),IX( 237),IY( 237)/'DRAW',   5,   0/
6623      DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW',   5,  -4/
6624      DATA IOPERA( 239),IX( 239),IY( 239)/'DRAW',   4,  -7/
6625      DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW',   3,  -8/
6626      DATA IOPERA( 241),IX( 241),IY( 241)/'DRAW',   1,  -9/
6627      DATA IOPERA( 242),IX( 242),IY( 242)/'MOVE',  -6,  -4/
6628      DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW',  -6,  -5/
6629      DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW',  -5,  -5/
6630      DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW',  -5,  -4/
6631      DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW',  -6,  -4/
6632      DATA IOPERA( 247),IX( 247),IY( 247)/'MOVE',  -5,  12/
6633      DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW',   5,  12/
6634      DATA IOPERA( 249),IX( 249),IY( 249)/'MOVE',  -5,  11/
6635      DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW',   3,  11/
6636      DATA IOPERA( 251),IX( 251),IY( 251)/'MOVE',  -5,  10/
6637      DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW',  -1,  10/
6638      DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW',   3,  11/
6639      DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW',   5,  12/
6640C
6641      DATA IXMIND(   6)/ -10/
6642      DATA IXMAXD(   6)/  10/
6643      DATA IXDELD(   6)/  20/
6644      DATA ISTARD(   6)/ 207/
6645      DATA NUMCOO(   6)/  48/
6646C
6647C-----START POINT-----------------------------------------------------
6648C
6649      IFOUND='YES'
6650      IERROR='NO'
6651C
6652      NUMCO=1
6653      ISTART=1
6654      ISTOP=1
6655      NC=1
6656C
6657C               ******************************************
6658C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
6659C               **  HERSHEY CHARACTER SET CASE          **
6660C               ******************************************
6661C
6662C
6663      IF(IBUGD2.EQ.'OFF')GOTO90
6664      WRITE(ICOUT,999)
6665  999 FORMAT(1X)
6666      CALL DPWRST('XXX','BUG ')
6667      WRITE(ICOUT,51)
6668   51 FORMAT('***** AT THE BEGINNING OF DRTN1--')
6669      CALL DPWRST('XXX','BUG ')
6670      WRITE(ICOUT,52)ICHARN
6671   52 FORMAT('ICHARN = ',I8)
6672      CALL DPWRST('XXX','BUG ')
6673      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
6674   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
6675      CALL DPWRST('XXX','BUG ')
6676   90 CONTINUE
6677C
6678C               **************************************
6679C               **  STEP 2--                        **
6680C               **  EXTRACT THE COORDINATES         **
6681C               **  FOR THIS PARTICULAR CHARACTER.  **
6682C               **************************************
6683C
6684      ISTART=ISTARD(ICHARN)
6685      NC=NUMCOO(ICHARN)
6686      ISTOP=ISTART+NC-1
6687      J=0
6688      DO1100I=ISTART,ISTOP
6689      J=J+1
6690      IOP(J)=IOPERA(I)
6691      X(J)=IX(I)
6692      Y(J)=IY(I)
6693 1100 CONTINUE
6694      NUMCO=J
6695      IXMINS=IXMIND(ICHARN)
6696      IXMAXS=IXMAXD(ICHARN)
6697      IXDELS=IXDELD(ICHARN)
6698C
6699      GOTO9000
6700C
6701C               *****************
6702C               **  STEP 90--  **
6703C               **  EXIT       **
6704C               *****************
6705C
6706 9000 CONTINUE
6707      IF(IBUGD2.EQ.'OFF')GOTO9090
6708      WRITE(ICOUT,999)
6709      CALL DPWRST('XXX','BUG ')
6710      WRITE(ICOUT,9011)
6711 9011 FORMAT('***** AT THE END       OF DRTN1--')
6712      CALL DPWRST('XXX','BUG ')
6713      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
6714 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
6715      CALL DPWRST('XXX','BUG ')
6716      WRITE(ICOUT,9013)ICHARN
6717 9013 FORMAT('ICHARN = ',I8)
6718      CALL DPWRST('XXX','BUG ')
6719      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
6720 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
6721      CALL DPWRST('XXX','BUG ')
6722      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
6723      DO9015I=1,NUMCO
6724      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
6725 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
6726      CALL DPWRST('XXX','BUG ')
6727 9015 CONTINUE
6728 9019 CONTINUE
6729      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
6730 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
6731      CALL DPWRST('XXX','BUG ')
6732 9090 CONTINUE
6733C
6734      RETURN
6735      END
6736      SUBROUTINE DRTN2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
6737     1IBUGD2,IFOUND,IERROR)
6738C
6739C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
6740C              FOR ROMAN TRIPLEX NUMERIC (PART 2).
6741C     WRITTEN BY--JAMES J. FILLIBEN
6742C                 STATISTICAL ENGINEERING DIVISION
6743C                 CENTER FOR APPLIED MATHEMATICS
6744C                 NATIONAL BUREAU OF STANDARDS
6745C                 WASHINGTON, D. C. 20234
6746C                 PHONE--301-921-3651
6747C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
6748C           OF THE NATIONAL BUREAU OF STANDARDS.
6749C     LANGUAGE--ANSI FORTRAN (1977)
6750C     VERSION NUMBER--87/4
6751C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
6752C     UPDATED         --MAY       1982.
6753C     UPDATED         --MARCH     1987.
6754C
6755C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
6756C
6757      CHARACTER*4 IOP
6758      CHARACTER*4 IBUGD2
6759      CHARACTER*4 IFOUND
6760      CHARACTER*4 IERROR
6761C
6762      CHARACTER*4 IOPERA
6763C
6764C---------------------------------------------------------------------
6765C
6766      DIMENSION IOP(*)
6767      DIMENSION X(*)
6768      DIMENSION Y(*)
6769C
6770      DIMENSION IOPERA(300)
6771      DIMENSION IX(300)
6772      DIMENSION IY(300)
6773C
6774      DIMENSION IXMIND(30)
6775      DIMENSION IXMAXD(30)
6776      DIMENSION IXDELD(30)
6777      DIMENSION ISTARD(30)
6778      DIMENSION NUMCOO(30)
6779C
6780C-----COMMON----------------------------------------------------------
6781C
6782      INCLUDE 'DPCOP2.INC'
6783C
6784C-----DATA STATEMENTS-------------------------------------------------
6785C
6786C     DEFINE CHARACTER   3206--6
6787C
6788      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',   4,   9/
6789      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',   4,   8/
6790      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',   5,   8/
6791      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',   5,   9/
6792      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',   4,   9/
6793      DATA IOPERA(   6),IX(   6),IY(   6)/'MOVE',   5,  10/
6794      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',   4,  10/
6795      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',   3,   9/
6796      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',   3,   8/
6797      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',   4,   7/
6798      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',   5,   7/
6799      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',   6,   8/
6800      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',   6,   9/
6801      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',   5,  11/
6802      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',   3,  12/
6803      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',   0,  12/
6804      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW',  -3,  11/
6805      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',  -5,   9/
6806      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',  -6,   7/
6807      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',  -7,   3/
6808      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',  -7,  -3/
6809      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',  -6,  -6/
6810      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',  -4,  -8/
6811      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',  -1,  -9/
6812      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',   1,  -9/
6813      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',   4,  -8/
6814      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',   6,  -6/
6815      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',   7,  -3/
6816      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',   7,  -2/
6817      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',   6,   1/
6818      DATA IOPERA(  31),IX(  31),IY(  31)/'DRAW',   4,   3/
6819      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',   1,   4/
6820      DATA IOPERA(  33),IX(  33),IY(  33)/'DRAW',  -1,   4/
6821      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',  -3,   3/
6822      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',  -4,   2/
6823      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',  -5,   0/
6824      DATA IOPERA(  37),IX(  37),IY(  37)/'MOVE',  -4,   9/
6825      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',  -5,   7/
6826      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',  -6,   3/
6827      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',  -6,  -3/
6828      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',  -5,  -6/
6829      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',  -4,  -7/
6830      DATA IOPERA(  43),IX(  43),IY(  43)/'MOVE',   5,  -6/
6831      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',   6,  -4/
6832      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',   6,  -1/
6833      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',   5,   1/
6834      DATA IOPERA(  47),IX(  47),IY(  47)/'MOVE',   0,  12/
6835      DATA IOPERA(  48),IX(  48),IY(  48)/'DRAW',  -2,  11/
6836      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',  -3,  10/
6837      DATA IOPERA(  50),IX(  50),IY(  50)/'DRAW',  -4,   8/
6838      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',  -5,   4/
6839      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',  -5,  -3/
6840      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',  -4,  -6/
6841      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',  -3,  -8/
6842      DATA IOPERA(  55),IX(  55),IY(  55)/'DRAW',  -1,  -9/
6843      DATA IOPERA(  56),IX(  56),IY(  56)/'MOVE',   1,  -9/
6844      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',   3,  -8/
6845      DATA IOPERA(  58),IX(  58),IY(  58)/'DRAW',   4,  -7/
6846      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',   5,  -4/
6847      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW',   5,  -1/
6848      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',   4,   2/
6849      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',   3,   3/
6850      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',   1,   4/
6851C
6852      DATA IXMIND(   7)/ -10/
6853      DATA IXMAXD(   7)/  10/
6854      DATA IXDELD(   7)/  20/
6855      DATA ISTARD(   7)/   1/
6856      DATA NUMCOO(   7)/  63/
6857C
6858C     DEFINE CHARACTER   3207--7
6859C
6860      DATA IOPERA(  64),IX(  64),IY(  64)/'MOVE',  -7,  12/
6861      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',  -7,   6/
6862      DATA IOPERA(  66),IX(  66),IY(  66)/'MOVE',   7,  12/
6863      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',   7,   9/
6864      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',   6,   6/
6865      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',   2,   1/
6866      DATA IOPERA(  70),IX(  70),IY(  70)/'DRAW',   1,  -1/
6867      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',   0,  -5/
6868      DATA IOPERA(  72),IX(  72),IY(  72)/'DRAW',   0,  -9/
6869      DATA IOPERA(  73),IX(  73),IY(  73)/'MOVE',   1,   0/
6870      DATA IOPERA(  74),IX(  74),IY(  74)/'DRAW',   0,  -2/
6871      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',  -1,  -5/
6872      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',  -1,  -9/
6873      DATA IOPERA(  77),IX(  77),IY(  77)/'MOVE',   6,   6/
6874      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',   1,   1/
6875      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',  -1,  -2/
6876      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',  -2,  -5/
6877      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',  -2,  -9/
6878      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',   0,  -9/
6879      DATA IOPERA(  83),IX(  83),IY(  83)/'MOVE',  -7,   8/
6880      DATA IOPERA(  84),IX(  84),IY(  84)/'DRAW',  -6,  10/
6881      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',  -4,  12/
6882      DATA IOPERA(  86),IX(  86),IY(  86)/'DRAW',  -2,  12/
6883      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',   3,   9/
6884      DATA IOPERA(  88),IX(  88),IY(  88)/'DRAW',   5,   9/
6885      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',   6,  10/
6886      DATA IOPERA(  90),IX(  90),IY(  90)/'DRAW',   7,  12/
6887      DATA IOPERA(  91),IX(  91),IY(  91)/'MOVE',  -5,  10/
6888      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',  -4,  11/
6889      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',  -2,  11/
6890      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',   0,  10/
6891      DATA IOPERA(  95),IX(  95),IY(  95)/'MOVE',  -7,   8/
6892      DATA IOPERA(  96),IX(  96),IY(  96)/'DRAW',  -6,   9/
6893      DATA IOPERA(  97),IX(  97),IY(  97)/'DRAW',  -4,  10/
6894      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',  -2,  10/
6895      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',   3,   9/
6896C
6897      DATA IXMIND(   8)/ -10/
6898      DATA IXMAXD(   8)/  10/
6899      DATA IXDELD(   8)/  20/
6900      DATA ISTARD(   8)/  64/
6901      DATA NUMCOO(   8)/  36/
6902C
6903C     DEFINE CHARACTER   3208--8
6904C
6905      DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE',  -2,  12/
6906      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',  -5,  11/
6907      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',  -6,   9/
6908      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',  -6,   6/
6909      DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW',  -5,   4/
6910      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',  -2,   3/
6911      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',   2,   3/
6912      DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW',   5,   4/
6913      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',   6,   6/
6914      DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW',   6,   9/
6915      DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW',   5,  11/
6916      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',   2,  12/
6917      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',  -2,  12/
6918      DATA IOPERA( 113),IX( 113),IY( 113)/'MOVE',  -4,  11/
6919      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',  -5,   9/
6920      DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW',  -5,   6/
6921      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',  -4,   4/
6922      DATA IOPERA( 117),IX( 117),IY( 117)/'MOVE',   4,   4/
6923      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',   5,   6/
6924      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',   5,   9/
6925      DATA IOPERA( 120),IX( 120),IY( 120)/'DRAW',   4,  11/
6926      DATA IOPERA( 121),IX( 121),IY( 121)/'MOVE',  -2,  12/
6927      DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW',  -3,  11/
6928      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',  -4,   9/
6929      DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW',  -4,   6/
6930      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',  -3,   4/
6931      DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW',  -2,   3/
6932      DATA IOPERA( 127),IX( 127),IY( 127)/'MOVE',   2,   3/
6933      DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW',   3,   4/
6934      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',   4,   6/
6935      DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW',   4,   9/
6936      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',   3,  11/
6937      DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW',   2,  12/
6938      DATA IOPERA( 133),IX( 133),IY( 133)/'MOVE',  -2,   3/
6939      DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW',  -5,   2/
6940      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',  -6,   1/
6941      DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW',  -7,  -1/
6942      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',  -7,  -5/
6943      DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW',  -6,  -7/
6944      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',  -5,  -8/
6945      DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW',  -2,  -9/
6946      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',   2,  -9/
6947      DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW',   5,  -8/
6948      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',   6,  -7/
6949      DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW',   7,  -5/
6950      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',   7,  -1/
6951      DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW',   6,   1/
6952      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',   5,   2/
6953      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',   2,   3/
6954      DATA IOPERA( 149),IX( 149),IY( 149)/'MOVE',  -5,   1/
6955      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',  -6,  -1/
6956      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',  -6,  -5/
6957      DATA IOPERA( 152),IX( 152),IY( 152)/'DRAW',  -5,  -7/
6958      DATA IOPERA( 153),IX( 153),IY( 153)/'MOVE',   5,  -7/
6959      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',   6,  -5/
6960      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',   6,  -1/
6961      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',   5,   1/
6962      DATA IOPERA( 157),IX( 157),IY( 157)/'MOVE',  -2,   3/
6963      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',  -4,   2/
6964      DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW',  -5,  -1/
6965      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',  -5,  -5/
6966      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',  -4,  -8/
6967      DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW',  -2,  -9/
6968      DATA IOPERA( 163),IX( 163),IY( 163)/'MOVE',   2,  -9/
6969      DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW',   4,  -8/
6970      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',   5,  -5/
6971      DATA IOPERA( 166),IX( 166),IY( 166)/'DRAW',   5,  -1/
6972      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW',   4,   2/
6973      DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW',   2,   3/
6974C
6975      DATA IXMIND(   9)/ -10/
6976      DATA IXMAXD(   9)/  10/
6977      DATA IXDELD(   9)/  20/
6978      DATA ISTARD(   9)/ 100/
6979      DATA NUMCOO(   9)/  69/
6980C
6981C     DEFINE CHARACTER   3209--9
6982C
6983      DATA IOPERA( 169),IX( 169),IY( 169)/'MOVE',  -5,  -5/
6984      DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW',  -5,  -6/
6985      DATA IOPERA( 171),IX( 171),IY( 171)/'DRAW',  -4,  -6/
6986      DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW',  -4,  -5/
6987      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',  -5,  -5/
6988      DATA IOPERA( 174),IX( 174),IY( 174)/'MOVE',   5,   3/
6989      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',   4,   1/
6990      DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW',   3,   0/
6991      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW',   1,  -1/
6992      DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW',  -1,  -1/
6993      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',  -4,   0/
6994      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',  -6,   2/
6995      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',  -7,   5/
6996      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',  -7,   6/
6997      DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW',  -6,   9/
6998      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',  -4,  11/
6999      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',  -1,  12/
7000      DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW',   1,  12/
7001      DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW',   4,  11/
7002      DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW',   6,   9/
7003      DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW',   7,   6/
7004      DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW',   7,   0/
7005      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',   6,  -4/
7006      DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW',   5,  -6/
7007      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',   3,  -8/
7008      DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW',   0,  -9/
7009      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',  -3,  -9/
7010      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',  -5,  -8/
7011      DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW',  -6,  -6/
7012      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',  -6,  -5/
7013      DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW',  -5,  -4/
7014      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',  -4,  -4/
7015      DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW',  -3,  -5/
7016      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',  -3,  -6/
7017      DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW',  -4,  -7/
7018      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',  -5,  -7/
7019      DATA IOPERA( 205),IX( 205),IY( 205)/'MOVE',  -5,   2/
7020      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',  -6,   4/
7021      DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW',  -6,   7/
7022      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',  -5,   9/
7023      DATA IOPERA( 209),IX( 209),IY( 209)/'MOVE',   4,  10/
7024      DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW',   5,   9/
7025      DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW',   6,   6/
7026      DATA IOPERA( 212),IX( 212),IY( 212)/'DRAW',   6,   0/
7027      DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW',   5,  -4/
7028      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',   4,  -6/
7029      DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE',  -1,  -1/
7030      DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW',  -3,   0/
7031      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',  -4,   1/
7032      DATA IOPERA( 218),IX( 218),IY( 218)/'DRAW',  -5,   4/
7033      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW',  -5,   7/
7034      DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW',  -4,  10/
7035      DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW',  -3,  11/
7036      DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW',  -1,  12/
7037      DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE',   1,  12/
7038      DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW',   3,  11/
7039      DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW',   4,   9/
7040      DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW',   5,   6/
7041      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',   5,  -1/
7042      DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW',   4,  -5/
7043      DATA IOPERA( 229),IX( 229),IY( 229)/'DRAW',   3,  -7/
7044      DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW',   2,  -8/
7045      DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW',   0,  -9/
7046C
7047      DATA IXMIND(  10)/ -10/
7048      DATA IXMAXD(  10)/  10/
7049      DATA IXDELD(  10)/  20/
7050      DATA ISTARD(  10)/ 169/
7051      DATA NUMCOO(  10)/  63/
7052C
7053C-----START POINT-----------------------------------------------------
7054C
7055      IFOUND='YES'
7056      IERROR='NO'
7057C
7058      NUMCO=1
7059      ISTART=1
7060      ISTOP=1
7061      NC=1
7062C
7063C               ******************************************
7064C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
7065C               **  HERSHEY CHARACTER SET CASE          **
7066C               ******************************************
7067C
7068C
7069      IF(IBUGD2.EQ.'OFF')GOTO90
7070      WRITE(ICOUT,999)
7071  999 FORMAT(1X)
7072      CALL DPWRST('XXX','BUG ')
7073      WRITE(ICOUT,51)
7074   51 FORMAT('***** AT THE BEGINNING OF DRTN2--')
7075      CALL DPWRST('XXX','BUG ')
7076      WRITE(ICOUT,52)ICHARN
7077   52 FORMAT('ICHARN = ',I8)
7078      CALL DPWRST('XXX','BUG ')
7079      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
7080   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
7081      CALL DPWRST('XXX','BUG ')
7082   90 CONTINUE
7083C
7084C               **************************************
7085C               **  STEP 2--                        **
7086C               **  EXTRACT THE COORDINATES         **
7087C               **  FOR THIS PARTICULAR CHARACTER.  **
7088C               **************************************
7089C
7090      ISTART=ISTARD(ICHARN)
7091      NC=NUMCOO(ICHARN)
7092      ISTOP=ISTART+NC-1
7093      J=0
7094      DO1100I=ISTART,ISTOP
7095      J=J+1
7096      IOP(J)=IOPERA(I)
7097      X(J)=IX(I)
7098      Y(J)=IY(I)
7099 1100 CONTINUE
7100      NUMCO=J
7101      IXMINS=IXMIND(ICHARN)
7102      IXMAXS=IXMAXD(ICHARN)
7103      IXDELS=IXDELD(ICHARN)
7104C
7105      GOTO9000
7106C
7107C               *****************
7108C               **  STEP 90--  **
7109C               **  EXIT       **
7110C               *****************
7111C
7112 9000 CONTINUE
7113      IF(IBUGD2.EQ.'OFF')GOTO9090
7114      WRITE(ICOUT,999)
7115      CALL DPWRST('XXX','BUG ')
7116      WRITE(ICOUT,9011)
7117 9011 FORMAT('***** AT THE END       OF DRTN2--')
7118      CALL DPWRST('XXX','BUG ')
7119      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
7120 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
7121      CALL DPWRST('XXX','BUG ')
7122      WRITE(ICOUT,9013)ICHARN
7123 9013 FORMAT('ICHARN = ',I8)
7124      CALL DPWRST('XXX','BUG ')
7125      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
7126 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
7127      CALL DPWRST('XXX','BUG ')
7128      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
7129      DO9015I=1,NUMCO
7130      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
7131 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
7132      CALL DPWRST('XXX','BUG ')
7133 9015 CONTINUE
7134 9019 CONTINUE
7135      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
7136 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
7137      CALL DPWRST('XXX','BUG ')
7138 9090 CONTINUE
7139C
7140      RETURN
7141      END
7142      SUBROUTINE DRTS1(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
7143     1IBUGD2,IFOUND,IERROR)
7144C
7145C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
7146C              FOR ROMAN TRIPLEX SYMBOLS (PART 1).
7147C     WRITTEN BY--JAMES J. FILLIBEN
7148C                 STATISTICAL ENGINEERING DIVISION
7149C                 CENTER FOR APPLIED MATHEMATICS
7150C                 NATIONAL BUREAU OF STANDARDS
7151C                 WASHINGTON, D. C. 20234
7152C                 PHONE--301-921-3651
7153C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
7154C           OF THE NATIONAL BUREAU OF STANDARDS.
7155C     LANGUAGE--ANSI FORTRAN (1977)
7156C     VERSION NUMBER--87/4
7157C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
7158C     UPDATED         --MARCH     1982.
7159C     UPDATED         --MARCH     1987.
7160C     UPDATED         --MAY       1982.
7161C
7162C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
7163C
7164      CHARACTER*4 IOP
7165      CHARACTER*4 IBUGD2
7166      CHARACTER*4 IFOUND
7167      CHARACTER*4 IERROR
7168C
7169      CHARACTER*4 IOPERA
7170C
7171C---------------------------------------------------------------------
7172C
7173      DIMENSION IOP(*)
7174      DIMENSION X(*)
7175      DIMENSION Y(*)
7176C
7177      DIMENSION IOPERA(300)
7178      DIMENSION IX(300)
7179      DIMENSION IY(300)
7180C
7181      DIMENSION IXMIND(30)
7182      DIMENSION IXMAXD(30)
7183      DIMENSION IXDELD(30)
7184      DIMENSION ISTARD(30)
7185      DIMENSION NUMCOO(30)
7186C
7187C-----COMMON----------------------------------------------------------
7188C
7189      INCLUDE 'DPCOP2.INC'
7190C
7191C-----DATA STATEMENTS-------------------------------------------------
7192C
7193C     DEFINE CHARACTER   3210--. (PERIOD)
7194C
7195      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',   0,  -6/
7196      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',  -1,  -7/
7197      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',  -1,  -8/
7198      DATA IOPERA(   4),IX(   4),IY(   4)/'DRAW',   0,  -9/
7199      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',   1,  -9/
7200      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',   2,  -8/
7201      DATA IOPERA(   7),IX(   7),IY(   7)/'DRAW',   2,  -7/
7202      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',   1,  -6/
7203      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',   0,  -6/
7204      DATA IOPERA(  10),IX(  10),IY(  10)/'MOVE',   0,  -7/
7205      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',   0,  -8/
7206      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',   1,  -8/
7207      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',   1,  -7/
7208      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',   0,  -7/
7209C
7210      DATA IXMIND(   1)/  -5/
7211      DATA IXMAXD(   1)/   6/
7212      DATA IXDELD(   1)/  11/
7213      DATA ISTARD(   1)/   1/
7214      DATA NUMCOO(   1)/  14/
7215C
7216C     DEFINE CHARACTER   3211--, (COMMA)
7217C
7218      DATA IOPERA(  15),IX(  15),IY(  15)/'MOVE',   2,  -8/
7219      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',   1,  -9/
7220      DATA IOPERA(  17),IX(  17),IY(  17)/'DRAW',   0,  -9/
7221      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',  -1,  -8/
7222      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',  -1,  -7/
7223      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',   0,  -6/
7224      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',   1,  -6/
7225      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',   2,  -7/
7226      DATA IOPERA(  23),IX(  23),IY(  23)/'DRAW',   2, -10/
7227      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',   1, -12/
7228      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',  -1, -13/
7229      DATA IOPERA(  26),IX(  26),IY(  26)/'MOVE',   0,  -7/
7230      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',   0,  -8/
7231      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',   1,  -8/
7232      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',   1,  -7/
7233      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',   0,  -7/
7234      DATA IOPERA(  31),IX(  31),IY(  31)/'MOVE',   1,  -9/
7235      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',   2, -10/
7236      DATA IOPERA(  33),IX(  33),IY(  33)/'MOVE',   2,  -8/
7237      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',   1, -12/
7238C
7239      DATA IXMIND(   2)/  -5/
7240      DATA IXMAXD(   2)/   6/
7241      DATA IXDELD(   2)/  11/
7242      DATA ISTARD(   2)/  15/
7243      DATA NUMCOO(   2)/  20/
7244C
7245C     DEFINE CHARACTER   3212--: (COLON)
7246C
7247      DATA IOPERA(  35),IX(  35),IY(  35)/'MOVE',   0,   5/
7248      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',  -1,   4/
7249      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',  -1,   3/
7250      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',   0,   2/
7251      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',   1,   2/
7252      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',   2,   3/
7253      DATA IOPERA(  41),IX(  41),IY(  41)/'DRAW',   2,   4/
7254      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',   1,   5/
7255      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   0,   5/
7256      DATA IOPERA(  44),IX(  44),IY(  44)/'MOVE',   0,   4/
7257      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',   0,   3/
7258      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',   1,   3/
7259      DATA IOPERA(  47),IX(  47),IY(  47)/'DRAW',   1,   4/
7260      DATA IOPERA(  48),IX(  48),IY(  48)/'DRAW',   0,   4/
7261      DATA IOPERA(  49),IX(  49),IY(  49)/'MOVE',   0,  -6/
7262      DATA IOPERA(  50),IX(  50),IY(  50)/'DRAW',  -1,  -7/
7263      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',  -1,  -8/
7264      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',   0,  -9/
7265      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',   1,  -9/
7266      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',   2,  -8/
7267      DATA IOPERA(  55),IX(  55),IY(  55)/'DRAW',   2,  -7/
7268      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',   1,  -6/
7269      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',   0,  -6/
7270      DATA IOPERA(  58),IX(  58),IY(  58)/'MOVE',   0,  -7/
7271      DATA IOPERA(  59),IX(  59),IY(  59)/'DRAW',   0,  -8/
7272      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW',   1,  -8/
7273      DATA IOPERA(  61),IX(  61),IY(  61)/'DRAW',   1,  -7/
7274      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',   0,  -7/
7275C
7276      DATA IXMIND(   3)/  -5/
7277      DATA IXMAXD(   3)/   6/
7278      DATA IXDELD(   3)/  11/
7279      DATA ISTARD(   3)/  35/
7280      DATA NUMCOO(   3)/  28/
7281C
7282C     DEFINE CHARACTER   3213--; (SEMICOLON)
7283C
7284      DATA IOPERA(  63),IX(  63),IY(  63)/'MOVE',   0,   5/
7285      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',  -1,   4/
7286      DATA IOPERA(  65),IX(  65),IY(  65)/'DRAW',  -1,   3/
7287      DATA IOPERA(  66),IX(  66),IY(  66)/'DRAW',   0,   2/
7288      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',   1,   2/
7289      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',   2,   3/
7290      DATA IOPERA(  69),IX(  69),IY(  69)/'DRAW',   2,   4/
7291      DATA IOPERA(  70),IX(  70),IY(  70)/'DRAW',   1,   5/
7292      DATA IOPERA(  71),IX(  71),IY(  71)/'DRAW',   0,   5/
7293      DATA IOPERA(  72),IX(  72),IY(  72)/'MOVE',   0,   4/
7294      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',   0,   3/
7295      DATA IOPERA(  74),IX(  74),IY(  74)/'DRAW',   1,   3/
7296      DATA IOPERA(  75),IX(  75),IY(  75)/'DRAW',   1,   4/
7297      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',   0,   4/
7298      DATA IOPERA(  77),IX(  77),IY(  77)/'MOVE',   2,  -8/
7299      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',   1,  -9/
7300      DATA IOPERA(  79),IX(  79),IY(  79)/'DRAW',   0,  -9/
7301      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',  -1,  -8/
7302      DATA IOPERA(  81),IX(  81),IY(  81)/'DRAW',  -1,  -7/
7303      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',   0,  -6/
7304      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',   1,  -6/
7305      DATA IOPERA(  84),IX(  84),IY(  84)/'DRAW',   2,  -7/
7306      DATA IOPERA(  85),IX(  85),IY(  85)/'DRAW',   2, -10/
7307      DATA IOPERA(  86),IX(  86),IY(  86)/'DRAW',   1, -12/
7308      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',  -1, -13/
7309      DATA IOPERA(  88),IX(  88),IY(  88)/'MOVE',   0,  -7/
7310      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',   0,  -8/
7311      DATA IOPERA(  90),IX(  90),IY(  90)/'DRAW',   1,  -8/
7312      DATA IOPERA(  91),IX(  91),IY(  91)/'DRAW',   1,  -7/
7313      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',   0,  -7/
7314      DATA IOPERA(  93),IX(  93),IY(  93)/'MOVE',   1,  -9/
7315      DATA IOPERA(  94),IX(  94),IY(  94)/'DRAW',   2, -10/
7316      DATA IOPERA(  95),IX(  95),IY(  95)/'MOVE',   2,  -8/
7317      DATA IOPERA(  96),IX(  96),IY(  96)/'DRAW',   1, -12/
7318C
7319      DATA IXMIND(   4)/  -5/
7320      DATA IXMAXD(   4)/   6/
7321      DATA IXDELD(   4)/  11/
7322      DATA ISTARD(   4)/  63/
7323      DATA NUMCOO(   4)/  34/
7324C
7325C     DEFINE CHARACTER   3214--! (EXCLAMATION POINT)
7326C
7327      DATA IOPERA(  97),IX(  97),IY(  97)/'MOVE',   0,  12/
7328      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',  -1,  11/
7329      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',  -1,   9/
7330      DATA IOPERA( 100),IX( 100),IY( 100)/'DRAW',   0,   1/
7331      DATA IOPERA( 101),IX( 101),IY( 101)/'MOVE',   0,  12/
7332      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',   0,  -2/
7333      DATA IOPERA( 103),IX( 103),IY( 103)/'DRAW',   1,  -2/
7334      DATA IOPERA( 104),IX( 104),IY( 104)/'MOVE',   0,  12/
7335      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',   1,  12/
7336      DATA IOPERA( 106),IX( 106),IY( 106)/'DRAW',   1,  -2/
7337      DATA IOPERA( 107),IX( 107),IY( 107)/'MOVE',   1,  12/
7338      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',   2,  11/
7339      DATA IOPERA( 109),IX( 109),IY( 109)/'DRAW',   2,   9/
7340      DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW',   1,   1/
7341      DATA IOPERA( 111),IX( 111),IY( 111)/'MOVE',   0,  -6/
7342      DATA IOPERA( 112),IX( 112),IY( 112)/'DRAW',  -1,  -7/
7343      DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW',  -1,  -8/
7344      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',   0,  -9/
7345      DATA IOPERA( 115),IX( 115),IY( 115)/'DRAW',   1,  -9/
7346      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',   2,  -8/
7347      DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW',   2,  -7/
7348      DATA IOPERA( 118),IX( 118),IY( 118)/'DRAW',   1,  -6/
7349      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',   0,  -6/
7350      DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE',   0,  -7/
7351      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW',   0,  -8/
7352      DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW',   1,  -8/
7353      DATA IOPERA( 123),IX( 123),IY( 123)/'DRAW',   1,  -7/
7354      DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW',   0,  -7/
7355C
7356      DATA IXMIND(   5)/  -5/
7357      DATA IXMAXD(   5)/   6/
7358      DATA IXDELD(   5)/  11/
7359      DATA ISTARD(   5)/  97/
7360      DATA NUMCOO(   5)/  28/
7361C
7362C     DEFINE CHARACTER   3215--? (QUESTION MARK)
7363C
7364      DATA IOPERA( 125),IX( 125),IY( 125)/'MOVE',  -5,   7/
7365      DATA IOPERA( 126),IX( 126),IY( 126)/'DRAW',  -5,   8/
7366      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',  -4,   8/
7367      DATA IOPERA( 128),IX( 128),IY( 128)/'DRAW',  -4,   6/
7368      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',  -6,   6/
7369      DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW',  -6,   8/
7370      DATA IOPERA( 131),IX( 131),IY( 131)/'DRAW',  -5,  10/
7371      DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW',  -4,  11/
7372      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',  -2,  12/
7373      DATA IOPERA( 134),IX( 134),IY( 134)/'DRAW',   2,  12/
7374      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',   5,  11/
7375      DATA IOPERA( 136),IX( 136),IY( 136)/'DRAW',   6,  10/
7376      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',   7,   8/
7377      DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW',   7,   6/
7378      DATA IOPERA( 139),IX( 139),IY( 139)/'DRAW',   6,   4/
7379      DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW',   5,   3/
7380      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',   1,   1/
7381      DATA IOPERA( 142),IX( 142),IY( 142)/'MOVE',   5,  10/
7382      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',   6,   9/
7383      DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW',   6,   5/
7384      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',   5,   4/
7385      DATA IOPERA( 146),IX( 146),IY( 146)/'MOVE',   2,  12/
7386      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',   4,  11/
7387      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',   5,   9/
7388      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',   5,   5/
7389      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',   4,   3/
7390      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',   3,   2/
7391      DATA IOPERA( 152),IX( 152),IY( 152)/'MOVE',   0,   1/
7392      DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW',   0,  -2/
7393      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',   1,  -2/
7394      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',   1,   1/
7395      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',   0,   1/
7396      DATA IOPERA( 157),IX( 157),IY( 157)/'MOVE',   0,  -6/
7397      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',  -1,  -7/
7398      DATA IOPERA( 159),IX( 159),IY( 159)/'DRAW',  -1,  -8/
7399      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',   0,  -9/
7400      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',   1,  -9/
7401      DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW',   2,  -8/
7402      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',   2,  -7/
7403      DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW',   1,  -6/
7404      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',   0,  -6/
7405      DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE',   0,  -7/
7406      DATA IOPERA( 167),IX( 167),IY( 167)/'DRAW',   0,  -8/
7407      DATA IOPERA( 168),IX( 168),IY( 168)/'DRAW',   1,  -8/
7408      DATA IOPERA( 169),IX( 169),IY( 169)/'DRAW',   1,  -7/
7409      DATA IOPERA( 170),IX( 170),IY( 170)/'DRAW',   0,  -7/
7410C
7411      DATA IXMIND(   6)/  -9/
7412      DATA IXMAXD(   6)/  10/
7413      DATA IXDELD(   6)/  19/
7414      DATA ISTARD(   6)/ 125/
7415      DATA NUMCOO(   6)/  46/
7416C
7417C     DEFINE CHARACTER   3218--& (AMPERSAND)
7418C
7419      DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE',   9,   3/
7420      DATA IOPERA( 172),IX( 172),IY( 172)/'DRAW',   9,   4/
7421      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',   8,   4/
7422      DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW',   8,   2/
7423      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',  10,   2/
7424      DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW',  10,   4/
7425      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW',   9,   5/
7426      DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW',   8,   5/
7427      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',   7,   4/
7428      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',   6,   2/
7429      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',   4,  -3/
7430      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',   2,  -6/
7431      DATA IOPERA( 183),IX( 183),IY( 183)/'DRAW',   0,  -8/
7432      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',  -2,  -9/
7433      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',  -6,  -9/
7434      DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW',  -8,  -8/
7435      DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW',  -9,  -6/
7436      DATA IOPERA( 188),IX( 188),IY( 188)/'DRAW',  -9,  -3/
7437      DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW',  -8,  -1/
7438      DATA IOPERA( 190),IX( 190),IY( 190)/'DRAW',  -2,   3/
7439      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',   0,   5/
7440      DATA IOPERA( 192),IX( 192),IY( 192)/'DRAW',   1,   7/
7441      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',   1,   9/
7442      DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW',   0,  11/
7443      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',  -2,  12/
7444      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',  -4,  11/
7445      DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW',  -5,   9/
7446      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',  -5,   6/
7447      DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW',  -4,   3/
7448      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',  -2,   0/
7449      DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW',   2,  -5/
7450      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',   5,  -8/
7451      DATA IOPERA( 203),IX( 203),IY( 203)/'DRAW',   7,  -9/
7452      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',   9,  -9/
7453      DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW',  10,  -7/
7454      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',  10,  -6/
7455      DATA IOPERA( 207),IX( 207),IY( 207)/'MOVE',  -7,  -8/
7456      DATA IOPERA( 208),IX( 208),IY( 208)/'DRAW',  -8,  -6/
7457      DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW',  -8,  -3/
7458      DATA IOPERA( 210),IX( 210),IY( 210)/'DRAW',  -7,  -1/
7459      DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW',  -6,   0/
7460      DATA IOPERA( 212),IX( 212),IY( 212)/'MOVE',   0,   5/
7461      DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW',   1,   9/
7462      DATA IOPERA( 214),IX( 214),IY( 214)/'MOVE',   1,   7/
7463      DATA IOPERA( 215),IX( 215),IY( 215)/'DRAW',   0,  11/
7464      DATA IOPERA( 216),IX( 216),IY( 216)/'MOVE',  -4,  11/
7465      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',  -5,   7/
7466      DATA IOPERA( 218),IX( 218),IY( 218)/'MOVE',  -4,   4/
7467      DATA IOPERA( 219),IX( 219),IY( 219)/'DRAW',  -2,   1/
7468      DATA IOPERA( 220),IX( 220),IY( 220)/'DRAW',   2,  -4/
7469      DATA IOPERA( 221),IX( 221),IY( 221)/'DRAW',   5,  -7/
7470      DATA IOPERA( 222),IX( 222),IY( 222)/'DRAW',   7,  -8/
7471      DATA IOPERA( 223),IX( 223),IY( 223)/'MOVE',  -4,  -9/
7472      DATA IOPERA( 224),IX( 224),IY( 224)/'DRAW',  -6,  -8/
7473      DATA IOPERA( 225),IX( 225),IY( 225)/'DRAW',  -7,  -6/
7474      DATA IOPERA( 226),IX( 226),IY( 226)/'DRAW',  -7,  -3/
7475      DATA IOPERA( 227),IX( 227),IY( 227)/'DRAW',  -6,  -1/
7476      DATA IOPERA( 228),IX( 228),IY( 228)/'DRAW',  -2,   3/
7477      DATA IOPERA( 229),IX( 229),IY( 229)/'MOVE',  -5,   9/
7478      DATA IOPERA( 230),IX( 230),IY( 230)/'DRAW',  -4,   5/
7479      DATA IOPERA( 231),IX( 231),IY( 231)/'DRAW',  -1,   1/
7480      DATA IOPERA( 232),IX( 232),IY( 232)/'DRAW',   3,  -4/
7481      DATA IOPERA( 233),IX( 233),IY( 233)/'DRAW',   6,  -7/
7482      DATA IOPERA( 234),IX( 234),IY( 234)/'DRAW',   8,  -8/
7483      DATA IOPERA( 235),IX( 235),IY( 235)/'DRAW',   9,  -8/
7484      DATA IOPERA( 236),IX( 236),IY( 236)/'DRAW',  10,  -7/
7485C
7486      DATA IXMIND(   7)/ -13/
7487      DATA IXMAXD(   7)/  13/
7488      DATA IXDELD(   7)/  26/
7489      DATA ISTARD(   7)/ 171/
7490      DATA NUMCOO(   7)/  66/
7491C
7492C     DEFINE CHARACTER   3219--$ (DOLLAR SIGN)
7493C
7494      DATA IOPERA( 237),IX( 237),IY( 237)/'MOVE',  -2,  16/
7495      DATA IOPERA( 238),IX( 238),IY( 238)/'DRAW',  -2, -13/
7496      DATA IOPERA( 239),IX( 239),IY( 239)/'MOVE',   2,  16/
7497      DATA IOPERA( 240),IX( 240),IY( 240)/'DRAW',   2, -13/
7498      DATA IOPERA( 241),IX( 241),IY( 241)/'MOVE',   6,   7/
7499      DATA IOPERA( 242),IX( 242),IY( 242)/'DRAW',   6,   8/
7500      DATA IOPERA( 243),IX( 243),IY( 243)/'DRAW',   5,   8/
7501      DATA IOPERA( 244),IX( 244),IY( 244)/'DRAW',   5,   6/
7502      DATA IOPERA( 245),IX( 245),IY( 245)/'DRAW',   7,   6/
7503      DATA IOPERA( 246),IX( 246),IY( 246)/'DRAW',   7,   8/
7504      DATA IOPERA( 247),IX( 247),IY( 247)/'DRAW',   6,  10/
7505      DATA IOPERA( 248),IX( 248),IY( 248)/'DRAW',   5,  11/
7506      DATA IOPERA( 249),IX( 249),IY( 249)/'DRAW',   2,  12/
7507      DATA IOPERA( 250),IX( 250),IY( 250)/'DRAW',  -2,  12/
7508      DATA IOPERA( 251),IX( 251),IY( 251)/'DRAW',  -5,  11/
7509      DATA IOPERA( 252),IX( 252),IY( 252)/'DRAW',  -7,   9/
7510      DATA IOPERA( 253),IX( 253),IY( 253)/'DRAW',  -7,   6/
7511      DATA IOPERA( 254),IX( 254),IY( 254)/'DRAW',  -6,   4/
7512      DATA IOPERA( 255),IX( 255),IY( 255)/'DRAW',  -3,   2/
7513      DATA IOPERA( 256),IX( 256),IY( 256)/'DRAW',   3,   0/
7514      DATA IOPERA( 257),IX( 257),IY( 257)/'DRAW',   5,  -1/
7515      DATA IOPERA( 258),IX( 258),IY( 258)/'DRAW',   6,  -3/
7516      DATA IOPERA( 259),IX( 259),IY( 259)/'DRAW',   6,  -6/
7517      DATA IOPERA( 260),IX( 260),IY( 260)/'DRAW',   5,  -8/
7518      DATA IOPERA( 261),IX( 261),IY( 261)/'MOVE',  -6,   6/
7519      DATA IOPERA( 262),IX( 262),IY( 262)/'DRAW',  -5,   4/
7520      DATA IOPERA( 263),IX( 263),IY( 263)/'DRAW',  -3,   3/
7521      DATA IOPERA( 264),IX( 264),IY( 264)/'DRAW',   3,   1/
7522      DATA IOPERA( 265),IX( 265),IY( 265)/'DRAW',   5,   0/
7523      DATA IOPERA( 266),IX( 266),IY( 266)/'DRAW',   6,  -2/
7524      DATA IOPERA( 267),IX( 267),IY( 267)/'MOVE',  -5,  11/
7525      DATA IOPERA( 268),IX( 268),IY( 268)/'DRAW',  -6,   9/
7526      DATA IOPERA( 269),IX( 269),IY( 269)/'DRAW',  -6,   7/
7527      DATA IOPERA( 270),IX( 270),IY( 270)/'DRAW',  -5,   5/
7528      DATA IOPERA( 271),IX( 271),IY( 271)/'DRAW',  -3,   4/
7529      DATA IOPERA( 272),IX( 272),IY( 272)/'DRAW',   3,   2/
7530      DATA IOPERA( 273),IX( 273),IY( 273)/'DRAW',   6,   0/
7531      DATA IOPERA( 274),IX( 274),IY( 274)/'DRAW',   7,  -2/
7532      DATA IOPERA( 275),IX( 275),IY( 275)/'DRAW',   7,  -5/
7533      DATA IOPERA( 276),IX( 276),IY( 276)/'DRAW',   6,  -7/
7534      DATA IOPERA( 277),IX( 277),IY( 277)/'DRAW',   5,  -8/
7535      DATA IOPERA( 278),IX( 278),IY( 278)/'DRAW',   2,  -9/
7536      DATA IOPERA( 279),IX( 279),IY( 279)/'DRAW',  -2,  -9/
7537      DATA IOPERA( 280),IX( 280),IY( 280)/'DRAW',  -5,  -8/
7538      DATA IOPERA( 281),IX( 281),IY( 281)/'DRAW',  -6,  -7/
7539      DATA IOPERA( 282),IX( 282),IY( 282)/'DRAW',  -7,  -5/
7540      DATA IOPERA( 283),IX( 283),IY( 283)/'DRAW',  -7,  -3/
7541      DATA IOPERA( 284),IX( 284),IY( 284)/'DRAW',  -5,  -3/
7542      DATA IOPERA( 285),IX( 285),IY( 285)/'DRAW',  -5,  -5/
7543      DATA IOPERA( 286),IX( 286),IY( 286)/'DRAW',  -6,  -5/
7544      DATA IOPERA( 287),IX( 287),IY( 287)/'DRAW',  -6,  -4/
7545C
7546      DATA IXMIND(   8)/ -10/
7547      DATA IXMAXD(   8)/  10/
7548      DATA IXDELD(   8)/  20/
7549      DATA ISTARD(   8)/ 237/
7550      DATA NUMCOO(   8)/  51/
7551C
7552C-----START POINT-----------------------------------------------------
7553C
7554      IFOUND='YES'
7555      IERROR='NO'
7556C
7557      NUMCO=1
7558      ISTART=1
7559      ISTOP=1
7560      NC=1
7561C
7562C               ******************************************
7563C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
7564C               **  HERSHEY CHARACTER SET CASE          **
7565C               ******************************************
7566C
7567C
7568      IF(IBUGD2.EQ.'OFF')GOTO90
7569      WRITE(ICOUT,999)
7570  999 FORMAT(1X)
7571      CALL DPWRST('XXX','BUG ')
7572      WRITE(ICOUT,51)
7573   51 FORMAT('***** AT THE BEGINNING OF DRTS1--')
7574      CALL DPWRST('XXX','BUG ')
7575      WRITE(ICOUT,52)ICHARN
7576   52 FORMAT('ICHARN = ',I8)
7577      CALL DPWRST('XXX','BUG ')
7578      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
7579   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
7580      CALL DPWRST('XXX','BUG ')
7581   90 CONTINUE
7582C
7583C               **************************************
7584C               **  STEP 2--                        **
7585C               **  EXTRACT THE COORDINATES         **
7586C               **  FOR THIS PARTICULAR CHARACTER.  **
7587C               **************************************
7588C
7589      ISTART=ISTARD(ICHARN)
7590      NC=NUMCOO(ICHARN)
7591      ISTOP=ISTART+NC-1
7592      J=0
7593      DO1100I=ISTART,ISTOP
7594      J=J+1
7595      IOP(J)=IOPERA(I)
7596      X(J)=IX(I)
7597      Y(J)=IY(I)
7598 1100 CONTINUE
7599      NUMCO=J
7600      IXMINS=IXMIND(ICHARN)
7601      IXMAXS=IXMAXD(ICHARN)
7602      IXDELS=IXDELD(ICHARN)
7603C
7604      GOTO9000
7605C
7606C               *****************
7607C               **  STEP 90--  **
7608C               **  EXIT       **
7609C               *****************
7610C
7611 9000 CONTINUE
7612      IF(IBUGD2.EQ.'OFF')GOTO9090
7613      WRITE(ICOUT,999)
7614      CALL DPWRST('XXX','BUG ')
7615      WRITE(ICOUT,9011)
7616 9011 FORMAT('***** AT THE END       OF DRTS1--')
7617      CALL DPWRST('XXX','BUG ')
7618      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
7619 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
7620      CALL DPWRST('XXX','BUG ')
7621      WRITE(ICOUT,9013)ICHARN
7622 9013 FORMAT('ICHARN = ',I8)
7623      CALL DPWRST('XXX','BUG ')
7624      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
7625 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
7626      CALL DPWRST('XXX','BUG ')
7627      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
7628      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
7629      DO9015I=1,NUMCO
7630      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
7631 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
7632      CALL DPWRST('XXX','BUG ')
7633 9015 CONTINUE
7634 9019 CONTINUE
7635      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
7636 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
7637      CALL DPWRST('XXX','BUG ')
7638 9090 CONTINUE
7639C
7640      RETURN
7641      END
7642      SUBROUTINE DRTS2(ICHARN,IOP,X,Y,NUMCO,IXMINS,IXMAXS,IXDELS,
7643     1IBUGD2,IFOUND,IERROR)
7644C
7645C     PURPOSE--DEFINE AND SET THE HERSHEY CHARACTER SET COORDINATES
7646C              FOR ROMAN TRIPLEX SYMBOLS (PART 2).
7647C     WRITTEN BY--JAMES J. FILLIBEN
7648C                 STATISTICAL ENGINEERING DIVISION
7649C                 CENTER FOR APPLIED MATHEMATICS
7650C                 NATIONAL BUREAU OF STANDARDS
7651C                 WASHINGTON, D. C. 20234
7652C                 PHONE--301-921-3651
7653C     NOTE--DATAPLOT IS A REGISTERED TRADEMARK
7654C           OF THE NATIONAL BUREAU OF STANDARDS.
7655C     LANGUAGE--ANSI FORTRAN (1977)
7656C     VERSION NUMBER--87/4
7657C     ORIGINAL VERSION (AS A SEPARATE SUBROUTINE)--MARCH     1981.
7658C     UPDATED         --MARCH     1982.
7659C     UPDATED         --MAY       1982.
7660C     UPDATED         --MARCH     1987.
7661C     UPDATED         --MAY       1987.
7662C
7663C-----CHARACTER STATEMENTS FOR NON-COMMON VARIABLES-------------------
7664C
7665      CHARACTER*4 IOP
7666      CHARACTER*4 IBUGD2
7667      CHARACTER*4 IFOUND
7668      CHARACTER*4 IERROR
7669C
7670      CHARACTER*4 IOPERA
7671C
7672C---------------------------------------------------------------------
7673C
7674      DIMENSION IOP(*)
7675      DIMENSION X(*)
7676      DIMENSION Y(*)
7677C
7678      DIMENSION IOPERA(300)
7679      DIMENSION IX(300)
7680      DIMENSION IY(300)
7681C
7682      DIMENSION IXMIND(30)
7683      DIMENSION IXMAXD(30)
7684      DIMENSION IXDELD(30)
7685      DIMENSION ISTARD(30)
7686      DIMENSION NUMCOO(30)
7687C
7688C-----COMMON----------------------------------------------------------
7689C
7690      INCLUDE 'DPCOP2.INC'
7691C
7692C-----DATA STATEMENTS-------------------------------------------------
7693C
7694C     DEFINE CHARACTER   3220--/ (SLASH)
7695C
7696      DATA IOPERA(   1),IX(   1),IY(   1)/'MOVE',   9,  16/
7697      DATA IOPERA(   2),IX(   2),IY(   2)/'DRAW',  -9, -16/
7698      DATA IOPERA(   3),IX(   3),IY(   3)/'DRAW',  -8, -16/
7699      DATA IOPERA(   4),IX(   4),IY(   4)/'MOVE',   9,  16/
7700      DATA IOPERA(   5),IX(   5),IY(   5)/'DRAW',  10,  16/
7701      DATA IOPERA(   6),IX(   6),IY(   6)/'DRAW',  -8, -16/
7702C
7703      DATA IXMIND(   9)/ -11/
7704      DATA IXMAXD(   9)/  12/
7705      DATA IXDELD(   9)/  23/
7706      DATA ISTARD(   9)/   1/
7707      DATA NUMCOO(   9)/   6/
7708C
7709C     DEFINE CHARACTER   3221--( (LEFT PARENTHESES)
7710C
7711      DATA IOPERA(   7),IX(   7),IY(   7)/'MOVE',   3,  16/
7712      DATA IOPERA(   8),IX(   8),IY(   8)/'DRAW',   1,  14/
7713      DATA IOPERA(   9),IX(   9),IY(   9)/'DRAW',  -1,  11/
7714      DATA IOPERA(  10),IX(  10),IY(  10)/'DRAW',  -3,   7/
7715      DATA IOPERA(  11),IX(  11),IY(  11)/'DRAW',  -4,   2/
7716      DATA IOPERA(  12),IX(  12),IY(  12)/'DRAW',  -4,  -2/
7717      DATA IOPERA(  13),IX(  13),IY(  13)/'DRAW',  -3,  -7/
7718      DATA IOPERA(  14),IX(  14),IY(  14)/'DRAW',  -1, -11/
7719      DATA IOPERA(  15),IX(  15),IY(  15)/'DRAW',   1, -14/
7720      DATA IOPERA(  16),IX(  16),IY(  16)/'DRAW',   3, -16/
7721      DATA IOPERA(  17),IX(  17),IY(  17)/'MOVE',  -1,  10/
7722      DATA IOPERA(  18),IX(  18),IY(  18)/'DRAW',  -2,   7/
7723      DATA IOPERA(  19),IX(  19),IY(  19)/'DRAW',  -3,   3/
7724      DATA IOPERA(  20),IX(  20),IY(  20)/'DRAW',  -3,  -3/
7725      DATA IOPERA(  21),IX(  21),IY(  21)/'DRAW',  -2,  -7/
7726      DATA IOPERA(  22),IX(  22),IY(  22)/'DRAW',  -1, -10/
7727      DATA IOPERA(  23),IX(  23),IY(  23)/'MOVE',   1,  14/
7728      DATA IOPERA(  24),IX(  24),IY(  24)/'DRAW',   0,  12/
7729      DATA IOPERA(  25),IX(  25),IY(  25)/'DRAW',  -1,   9/
7730      DATA IOPERA(  26),IX(  26),IY(  26)/'DRAW',  -2,   3/
7731      DATA IOPERA(  27),IX(  27),IY(  27)/'DRAW',  -2,  -3/
7732      DATA IOPERA(  28),IX(  28),IY(  28)/'DRAW',  -1,  -9/
7733      DATA IOPERA(  29),IX(  29),IY(  29)/'DRAW',   0, -12/
7734      DATA IOPERA(  30),IX(  30),IY(  30)/'DRAW',   1, -14/
7735C
7736      DATA IXMIND(  10)/  -7/
7737      DATA IXMAXD(  10)/   7/
7738      DATA IXDELD(  10)/  14/
7739      DATA ISTARD(  10)/   7/
7740      DATA NUMCOO(  10)/  24/
7741C
7742C     DEFINE CHARACTER   3222--) (RIGHT PARENTHESES)
7743C
7744      DATA IOPERA(  31),IX(  31),IY(  31)/'MOVE',  -3,  16/
7745      DATA IOPERA(  32),IX(  32),IY(  32)/'DRAW',  -1,  14/
7746      DATA IOPERA(  33),IX(  33),IY(  33)/'DRAW',   1,  11/
7747      DATA IOPERA(  34),IX(  34),IY(  34)/'DRAW',   3,   7/
7748      DATA IOPERA(  35),IX(  35),IY(  35)/'DRAW',   4,   2/
7749      DATA IOPERA(  36),IX(  36),IY(  36)/'DRAW',   4,  -2/
7750      DATA IOPERA(  37),IX(  37),IY(  37)/'DRAW',   3,  -7/
7751      DATA IOPERA(  38),IX(  38),IY(  38)/'DRAW',   1, -11/
7752      DATA IOPERA(  39),IX(  39),IY(  39)/'DRAW',  -1, -14/
7753      DATA IOPERA(  40),IX(  40),IY(  40)/'DRAW',  -3, -16/
7754      DATA IOPERA(  41),IX(  41),IY(  41)/'MOVE',   1,  10/
7755      DATA IOPERA(  42),IX(  42),IY(  42)/'DRAW',   2,   7/
7756      DATA IOPERA(  43),IX(  43),IY(  43)/'DRAW',   3,   3/
7757      DATA IOPERA(  44),IX(  44),IY(  44)/'DRAW',   3,  -3/
7758      DATA IOPERA(  45),IX(  45),IY(  45)/'DRAW',   2,  -7/
7759      DATA IOPERA(  46),IX(  46),IY(  46)/'DRAW',   1, -10/
7760      DATA IOPERA(  47),IX(  47),IY(  47)/'MOVE',  -1,  14/
7761      DATA IOPERA(  48),IX(  48),IY(  48)/'DRAW',   0,  12/
7762      DATA IOPERA(  49),IX(  49),IY(  49)/'DRAW',   1,   9/
7763      DATA IOPERA(  50),IX(  50),IY(  50)/'DRAW',   2,   3/
7764      DATA IOPERA(  51),IX(  51),IY(  51)/'DRAW',   2,  -3/
7765      DATA IOPERA(  52),IX(  52),IY(  52)/'DRAW',   1,  -9/
7766      DATA IOPERA(  53),IX(  53),IY(  53)/'DRAW',   0, -12/
7767      DATA IOPERA(  54),IX(  54),IY(  54)/'DRAW',  -1, -14/
7768C
7769      DATA IXMIND(  11)/  -7/
7770      DATA IXMAXD(  11)/   7/
7771      DATA IXDELD(  11)/  14/
7772      DATA ISTARD(  11)/  31/
7773      DATA NUMCOO(  11)/  24/
7774C
7775C     DEFINE CHARACTER   3223--* (ASTERISK)
7776C
7777      DATA IOPERA(  55),IX(  55),IY(  55)/'MOVE',   0,  12/
7778      DATA IOPERA(  56),IX(  56),IY(  56)/'DRAW',  -1,  11/
7779      DATA IOPERA(  57),IX(  57),IY(  57)/'DRAW',   1,   1/
7780      DATA IOPERA(  58),IX(  58),IY(  58)/'DRAW',   0,   0/
7781      DATA IOPERA(  59),IX(  59),IY(  59)/'MOVE',   0,  12/
7782      DATA IOPERA(  60),IX(  60),IY(  60)/'DRAW',   0,   0/
7783      DATA IOPERA(  61),IX(  61),IY(  61)/'MOVE',   0,  12/
7784      DATA IOPERA(  62),IX(  62),IY(  62)/'DRAW',   1,  11/
7785      DATA IOPERA(  63),IX(  63),IY(  63)/'DRAW',  -1,   1/
7786      DATA IOPERA(  64),IX(  64),IY(  64)/'DRAW',   0,   0/
7787      DATA IOPERA(  65),IX(  65),IY(  65)/'MOVE',  -5,   9/
7788      DATA IOPERA(  66),IX(  66),IY(  66)/'DRAW',  -4,   9/
7789      DATA IOPERA(  67),IX(  67),IY(  67)/'DRAW',   4,   3/
7790      DATA IOPERA(  68),IX(  68),IY(  68)/'DRAW',   5,   3/
7791      DATA IOPERA(  69),IX(  69),IY(  69)/'MOVE',  -5,   9/
7792      DATA IOPERA(  70),IX(  70),IY(  70)/'DRAW',   5,   3/
7793      DATA IOPERA(  71),IX(  71),IY(  71)/'MOVE',  -5,   9/
7794      DATA IOPERA(  72),IX(  72),IY(  72)/'DRAW',  -5,   8/
7795      DATA IOPERA(  73),IX(  73),IY(  73)/'DRAW',   5,   4/
7796      DATA IOPERA(  74),IX(  74),IY(  74)/'DRAW',   5,   3/
7797      DATA IOPERA(  75),IX(  75),IY(  75)/'MOVE',   5,   9/
7798      DATA IOPERA(  76),IX(  76),IY(  76)/'DRAW',   4,   9/
7799      DATA IOPERA(  77),IX(  77),IY(  77)/'DRAW',  -4,   3/
7800      DATA IOPERA(  78),IX(  78),IY(  78)/'DRAW',  -5,   3/
7801      DATA IOPERA(  79),IX(  79),IY(  79)/'MOVE',   5,   9/
7802      DATA IOPERA(  80),IX(  80),IY(  80)/'DRAW',  -5,   3/
7803      DATA IOPERA(  81),IX(  81),IY(  81)/'MOVE',   5,   9/
7804      DATA IOPERA(  82),IX(  82),IY(  82)/'DRAW',   5,   8/
7805      DATA IOPERA(  83),IX(  83),IY(  83)/'DRAW',  -5,   4/
7806      DATA IOPERA(  84),IX(  84),IY(  84)/'DRAW',  -5,   3/
7807C
7808      DATA IXMIND(  12)/  -8/
7809      DATA IXMAXD(  12)/   8/
7810      DATA IXDELD(  12)/  16/
7811      DATA ISTARD(  12)/  55/
7812      DATA NUMCOO(  12)/  30/
7813C
7814C     DEFINE CHARACTER   3224--- (HYPHEN OR MINUS SIGN)
7815C
7816      DATA IOPERA(  85),IX(  85),IY(  85)/'MOVE',  -8,   1/
7817      DATA IOPERA(  86),IX(  86),IY(  86)/'DRAW',   9,   1/
7818      DATA IOPERA(  87),IX(  87),IY(  87)/'DRAW',   9,   0/
7819      DATA IOPERA(  88),IX(  88),IY(  88)/'MOVE',  -8,   1/
7820      DATA IOPERA(  89),IX(  89),IY(  89)/'DRAW',  -8,   0/
7821      DATA IOPERA(  90),IX(  90),IY(  90)/'DRAW',   9,   0/
7822C
7823      DATA IXMIND(  13)/ -12/
7824      DATA IXMAXD(  13)/  13/
7825      DATA IXDELD(  13)/  25/
7826      DATA ISTARD(  13)/  85/
7827      DATA NUMCOO(  13)/   6/
7828C
7829C     DEFINE CHARACTER   3225--+ (PLUS SIGN)
7830C
7831      DATA IOPERA(  91),IX(  91),IY(  91)/'MOVE',   0,   9/
7832      DATA IOPERA(  92),IX(  92),IY(  92)/'DRAW',   0,  -8/
7833      DATA IOPERA(  93),IX(  93),IY(  93)/'DRAW',   1,  -8/
7834      DATA IOPERA(  94),IX(  94),IY(  94)/'MOVE',   0,   9/
7835      DATA IOPERA(  95),IX(  95),IY(  95)/'DRAW',   1,   9/
7836      DATA IOPERA(  96),IX(  96),IY(  96)/'DRAW',   1,  -8/
7837      DATA IOPERA(  97),IX(  97),IY(  97)/'MOVE',  -8,   1/
7838      DATA IOPERA(  98),IX(  98),IY(  98)/'DRAW',   9,   1/
7839      DATA IOPERA(  99),IX(  99),IY(  99)/'DRAW',   9,   0/
7840      DATA IOPERA( 100),IX( 100),IY( 100)/'MOVE',  -8,   1/
7841      DATA IOPERA( 101),IX( 101),IY( 101)/'DRAW',  -8,   0/
7842      DATA IOPERA( 102),IX( 102),IY( 102)/'DRAW',   9,   0/
7843C
7844      DATA IXMIND(  14)/ -12/
7845      DATA IXMAXD(  14)/  13/
7846      DATA IXDELD(  14)/  25/
7847      DATA ISTARD(  14)/  91/
7848      DATA NUMCOO(  14)/  12/
7849C
7850C     DEFINE CHARACTER   3226--= (EQUAL SIGN)
7851C
7852      DATA IOPERA( 103),IX( 103),IY( 103)/'MOVE',  -8,   5/
7853      DATA IOPERA( 104),IX( 104),IY( 104)/'DRAW',   9,   5/
7854      DATA IOPERA( 105),IX( 105),IY( 105)/'DRAW',   9,   4/
7855      DATA IOPERA( 106),IX( 106),IY( 106)/'MOVE',  -8,   5/
7856      DATA IOPERA( 107),IX( 107),IY( 107)/'DRAW',  -8,   4/
7857      DATA IOPERA( 108),IX( 108),IY( 108)/'DRAW',   9,   4/
7858      DATA IOPERA( 109),IX( 109),IY( 109)/'MOVE',  -8,  -3/
7859      DATA IOPERA( 110),IX( 110),IY( 110)/'DRAW',   9,  -3/
7860      DATA IOPERA( 111),IX( 111),IY( 111)/'DRAW',   9,  -4/
7861      DATA IOPERA( 112),IX( 112),IY( 112)/'MOVE',  -8,  -3/
7862      DATA IOPERA( 113),IX( 113),IY( 113)/'DRAW',  -8,  -4/
7863      DATA IOPERA( 114),IX( 114),IY( 114)/'DRAW',   9,  -4/
7864C
7865      DATA IXMIND(  15)/ -12/
7866      DATA IXMAXD(  15)/  13/
7867      DATA IXDELD(  15)/  25/
7868      DATA ISTARD(  15)/ 103/
7869      DATA NUMCOO(  15)/  12/
7870C
7871C     DEFINE CHARACTER   3227--' (SINGLE QUOTE)
7872C
7873      DATA IOPERA( 115),IX( 115),IY( 115)/'MOVE',   1,  12/
7874      DATA IOPERA( 116),IX( 116),IY( 116)/'DRAW',   0,  11/
7875      DATA IOPERA( 117),IX( 117),IY( 117)/'DRAW',   0,   5/
7876      DATA IOPERA( 118),IX( 118),IY( 118)/'MOVE',   1,  11/
7877      DATA IOPERA( 119),IX( 119),IY( 119)/'DRAW',   0,   5/
7878      DATA IOPERA( 120),IX( 120),IY( 120)/'MOVE',   1,  12/
7879      DATA IOPERA( 121),IX( 121),IY( 121)/'DRAW',   2,  11/
7880      DATA IOPERA( 122),IX( 122),IY( 122)/'DRAW',   0,   5/
7881C
7882      DATA IXMIND(  16)/  -4/
7883      DATA IXMAXD(  16)/   5/
7884      DATA IXDELD(  16)/   9/
7885      DATA ISTARD(  16)/ 115/
7886      DATA NUMCOO(  16)/   8/
7887C
7888C     DEFINE CHARACTER   3228--  (DOUBLE QUOTE)
7889C
7890      DATA IOPERA( 123),IX( 123),IY( 123)/'MOVE',  -4,  12/
7891      DATA IOPERA( 124),IX( 124),IY( 124)/'DRAW',  -5,  11/
7892      DATA IOPERA( 125),IX( 125),IY( 125)/'DRAW',  -5,   5/
7893      DATA IOPERA( 126),IX( 126),IY( 126)/'MOVE',  -4,  11/
7894      DATA IOPERA( 127),IX( 127),IY( 127)/'DRAW',  -5,   5/
7895      DATA IOPERA( 128),IX( 128),IY( 128)/'MOVE',  -4,  12/
7896      DATA IOPERA( 129),IX( 129),IY( 129)/'DRAW',  -3,  11/
7897      DATA IOPERA( 130),IX( 130),IY( 130)/'DRAW',  -5,   5/
7898      DATA IOPERA( 131),IX( 131),IY( 131)/'MOVE',   5,  12/
7899      DATA IOPERA( 132),IX( 132),IY( 132)/'DRAW',   4,  11/
7900      DATA IOPERA( 133),IX( 133),IY( 133)/'DRAW',   4,   5/
7901      DATA IOPERA( 134),IX( 134),IY( 134)/'MOVE',   5,  11/
7902      DATA IOPERA( 135),IX( 135),IY( 135)/'DRAW',   4,   5/
7903      DATA IOPERA( 136),IX( 136),IY( 136)/'MOVE',   5,  12/
7904      DATA IOPERA( 137),IX( 137),IY( 137)/'DRAW',   6,  11/
7905      DATA IOPERA( 138),IX( 138),IY( 138)/'DRAW',   4,   5/
7906C
7907      DATA IXMIND(  17)/  -9/
7908      DATA IXMAXD(  17)/   9/
7909      DATA IXDELD(  17)/  18/
7910      DATA ISTARD(  17)/ 123/
7911      DATA NUMCOO(  17)/  16/
7912C
7913C     DEFINE CHARACTER   3229--  (DEGREES)
7914C
7915      DATA IOPERA( 139),IX( 139),IY( 139)/'MOVE',  -1,  12/
7916      DATA IOPERA( 140),IX( 140),IY( 140)/'DRAW',  -3,  11/
7917      DATA IOPERA( 141),IX( 141),IY( 141)/'DRAW',  -4,   9/
7918      DATA IOPERA( 142),IX( 142),IY( 142)/'DRAW',  -4,   7/
7919      DATA IOPERA( 143),IX( 143),IY( 143)/'DRAW',  -3,   5/
7920      DATA IOPERA( 144),IX( 144),IY( 144)/'DRAW',  -1,   4/
7921      DATA IOPERA( 145),IX( 145),IY( 145)/'DRAW',   1,   4/
7922      DATA IOPERA( 146),IX( 146),IY( 146)/'DRAW',   3,   5/
7923      DATA IOPERA( 147),IX( 147),IY( 147)/'DRAW',   4,   7/
7924      DATA IOPERA( 148),IX( 148),IY( 148)/'DRAW',   4,   9/
7925      DATA IOPERA( 149),IX( 149),IY( 149)/'DRAW',   3,  11/
7926      DATA IOPERA( 150),IX( 150),IY( 150)/'DRAW',   1,  12/
7927      DATA IOPERA( 151),IX( 151),IY( 151)/'DRAW',  -1,  12/
7928      DATA IOPERA( 152),IX( 152),IY( 152)/'MOVE',  -1,  12/
7929      DATA IOPERA( 153),IX( 153),IY( 153)/'DRAW',  -4,   9/
7930      DATA IOPERA( 154),IX( 154),IY( 154)/'DRAW',  -3,   5/
7931      DATA IOPERA( 155),IX( 155),IY( 155)/'DRAW',   1,   4/
7932      DATA IOPERA( 156),IX( 156),IY( 156)/'DRAW',   4,   7/
7933      DATA IOPERA( 157),IX( 157),IY( 157)/'DRAW',   3,  11/
7934      DATA IOPERA( 158),IX( 158),IY( 158)/'DRAW',  -1,  12/
7935      DATA IOPERA( 159),IX( 159),IY( 159)/'MOVE',   1,  12/
7936      DATA IOPERA( 160),IX( 160),IY( 160)/'DRAW',  -3,  11/
7937      DATA IOPERA( 161),IX( 161),IY( 161)/'DRAW',  -4,   7/
7938      DATA IOPERA( 162),IX( 162),IY( 162)/'DRAW',  -1,   4/
7939      DATA IOPERA( 163),IX( 163),IY( 163)/'DRAW',   3,   5/
7940      DATA IOPERA( 164),IX( 164),IY( 164)/'DRAW',   4,   9/
7941      DATA IOPERA( 165),IX( 165),IY( 165)/'DRAW',   1,  12/
7942C
7943      DATA IXMIND(  18)/  -7/
7944      DATA IXMAXD(  18)/   7/
7945      DATA IXDELD(  18)/  14/
7946      DATA ISTARD(  18)/ 139/
7947      DATA NUMCOO(  18)/  27/
7948C
7949C     DEFINE CHARACTER   3247--  (NO   SPACE BLANK)
7950C
7951      DATA IOPERA( 166),IX( 166),IY( 166)/'MOVE',   0, -32/
7952      DATA IOPERA( 167),IX( 167),IY( 167)/'MOVE',   0, -32/
7953C
7954      DATA IXMIND(  19)/   0/
7955      DATA IXMAXD(  19)/   0/
7956      DATA IXDELD(  19)/   0/
7957      DATA ISTARD(  19)/ 166/
7958      DATA NUMCOO(  19)/   2/
7959C
7960C     DEFINE CHARACTER   3248--  (HALF SPACE BLANK)
7961C
7962      DATA IOPERA( 168),IX( 168),IY( 168)/'MOVE',  -4, -32/
7963      DATA IOPERA( 169),IX( 169),IY( 169)/'MOVE',   4, -32/
7964C
7965      DATA IXMIND(  20)/  -5/
7966      DATA IXMAXD(  20)/   5/
7967      DATA IXDELD(  20)/  10/
7968      DATA ISTARD(  20)/ 168/
7969      DATA NUMCOO(  20)/   2/
7970C
7971C     DEFINE CHARACTER   3249--  (FULL SPACE BLANK)
7972C
7973      DATA IOPERA( 170),IX( 170),IY( 170)/'MOVE',  -8, -32/
7974      DATA IOPERA( 171),IX( 171),IY( 171)/'MOVE',   8, -32/
7975C
7976      DATA IXMIND(  21)/ -10/
7977      DATA IXMAXD(  21)/  10/
7978      DATA IXDELD(  21)/  20/
7979      DATA ISTARD(  21)/ 170/
7980      DATA NUMCOO(  21)/   2/
7981C
7982C     DEFINE CHARACTER   3216--  (LEFT  APOSTRAPHE)
7983C
7984      DATA IOPERA( 172),IX( 172),IY( 172)/'MOVE',   2,  12/
7985      DATA IOPERA( 173),IX( 173),IY( 173)/'DRAW',   0,  11/
7986      DATA IOPERA( 174),IX( 174),IY( 174)/'DRAW',  -1,   9/
7987      DATA IOPERA( 175),IX( 175),IY( 175)/'DRAW',  -1,   6/
7988      DATA IOPERA( 176),IX( 176),IY( 176)/'DRAW',   0,   5/
7989      DATA IOPERA( 177),IX( 177),IY( 177)/'DRAW',   1,   5/
7990      DATA IOPERA( 178),IX( 178),IY( 178)/'DRAW',   2,   6/
7991      DATA IOPERA( 179),IX( 179),IY( 179)/'DRAW',   2,   7/
7992      DATA IOPERA( 180),IX( 180),IY( 180)/'DRAW',   1,   8/
7993      DATA IOPERA( 181),IX( 181),IY( 181)/'DRAW',   0,   8/
7994      DATA IOPERA( 182),IX( 182),IY( 182)/'DRAW',  -1,   7/
7995      DATA IOPERA( 183),IX( 183),IY( 183)/'MOVE',   0,   7/
7996      DATA IOPERA( 184),IX( 184),IY( 184)/'DRAW',   0,   6/
7997      DATA IOPERA( 185),IX( 185),IY( 185)/'DRAW',   1,   6/
7998      DATA IOPERA( 186),IX( 186),IY( 186)/'DRAW',   1,   7/
7999      DATA IOPERA( 187),IX( 187),IY( 187)/'DRAW',   0,   7/
8000      DATA IOPERA( 188),IX( 188),IY( 188)/'MOVE',   0,  11/
8001      DATA IOPERA( 189),IX( 189),IY( 189)/'DRAW',  -1,   7/
8002      DATA IOPERA( 190),IX( 190),IY( 190)/'MOVE',  -1,   9/
8003      DATA IOPERA( 191),IX( 191),IY( 191)/'DRAW',   0,   8/
8004C
8005      DATA IXMIND(  22)/  -5/
8006      DATA IXMAXD(  22)/   6/
8007      DATA IXDELD(  22)/  11/
8008      DATA ISTARD(  22)/ 172/
8009      DATA NUMCOO(  22)/  20/
8010C
8011C     DEFINE CHARACTER   3217--  (RIGHT APOSTRAPHE)
8012C
8013      DATA IOPERA( 192),IX( 192),IY( 192)/'MOVE',   2,  10/
8014      DATA IOPERA( 193),IX( 193),IY( 193)/'DRAW',   1,   9/
8015      DATA IOPERA( 194),IX( 194),IY( 194)/'DRAW',   0,   9/
8016      DATA IOPERA( 195),IX( 195),IY( 195)/'DRAW',  -1,  10/
8017      DATA IOPERA( 196),IX( 196),IY( 196)/'DRAW',  -1,  11/
8018      DATA IOPERA( 197),IX( 197),IY( 197)/'DRAW',   0,  12/
8019      DATA IOPERA( 198),IX( 198),IY( 198)/'DRAW',   1,  12/
8020      DATA IOPERA( 199),IX( 199),IY( 199)/'DRAW',   2,  11/
8021      DATA IOPERA( 200),IX( 200),IY( 200)/'DRAW',   2,   8/
8022      DATA IOPERA( 201),IX( 201),IY( 201)/'DRAW',   1,   6/
8023      DATA IOPERA( 202),IX( 202),IY( 202)/'DRAW',  -1,   5/
8024      DATA IOPERA( 203),IX( 203),IY( 203)/'MOVE',   0,  11/
8025      DATA IOPERA( 204),IX( 204),IY( 204)/'DRAW',   0,  10/
8026      DATA IOPERA( 205),IX( 205),IY( 205)/'DRAW',   1,  10/
8027      DATA IOPERA( 206),IX( 206),IY( 206)/'DRAW',   1,  11/
8028      DATA IOPERA( 207),IX( 207),IY( 207)/'DRAW',   0,  11/
8029      DATA IOPERA( 208),IX( 208),IY( 208)/'MOVE',   1,   9/
8030      DATA IOPERA( 209),IX( 209),IY( 209)/'DRAW',   2,   8/
8031      DATA IOPERA( 210),IX( 210),IY( 210)/'MOVE',   2,  10/
8032      DATA IOPERA( 211),IX( 211),IY( 211)/'DRAW',   1,   6/
8033C
8034      DATA IXMIND(  23)/  -5/
8035      DATA IXMAXD(  23)/   6/
8036      DATA IXDELD(  23)/  11/
8037      DATA ISTARD(  23)/ 192/
8038      DATA NUMCOO(  23)/  20/
8039C
8040C     DEFINE CHARACTER    XXX--| (KEYBOARD VERTICAL BAR)
8041C
8042      DATA IOPERA( 212),IX( 212),IY( 212)/'MOVE',   0,  12/
8043      DATA IOPERA( 213),IX( 213),IY( 213)/'DRAW',   0,  -9/
8044      DATA IOPERA( 214),IX( 214),IY( 214)/'DRAW',   1,  -9/
8045      DATA IOPERA( 215),IX( 215),IY( 215)/'MOVE',   0,  12/
8046      DATA IOPERA( 216),IX( 216),IY( 216)/'DRAW',   1,  12/
8047      DATA IOPERA( 217),IX( 217),IY( 217)/'DRAW',   1,  -9/
8048C
8049      DATA IXMIND(  24)/  -4/
8050      DATA IXMAXD(  24)/   5/
8051      DATA IXDELD(  24)/   9/
8052      DATA ISTARD(  24)/ 212/
8053      DATA NUMCOO(  24)/   6/
8054C
8055C-----START POINT-----------------------------------------------------
8056C
8057      IFOUND='YES'
8058      IERROR='NO'
8059C
8060      NUMCO=1
8061      ISTART=1
8062      ISTOP=1
8063      NC=1
8064C
8065C               ******************************************
8066C               **  TREAT THE ROMAN SIMPLEX UPPER CASE  **
8067C               **  HERSHEY CHARACTER SET CASE          **
8068C               ******************************************
8069C
8070C
8071      IF(IBUGD2.EQ.'OFF')GOTO90
8072      WRITE(ICOUT,999)
8073  999 FORMAT(1X)
8074      CALL DPWRST('XXX','BUG ')
8075      WRITE(ICOUT,51)
8076   51 FORMAT('***** AT THE BEGINNING OF DRTS2--')
8077      CALL DPWRST('XXX','BUG ')
8078      WRITE(ICOUT,52)ICHARN
8079   52 FORMAT('ICHARN = ',I8)
8080      CALL DPWRST('XXX','BUG ')
8081      WRITE(ICOUT,59)IBUGD2,IFOUND,IERROR
8082   59 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
8083      CALL DPWRST('XXX','BUG ')
8084   90 CONTINUE
8085C
8086C               **************************************
8087C               **  STEP 2--                        **
8088C               **  EXTRACT THE COORDINATES         **
8089C               **  FOR THIS PARTICULAR CHARACTER.  **
8090C               **************************************
8091C
8092      ISTART=ISTARD(ICHARN)
8093      NC=NUMCOO(ICHARN)
8094      ISTOP=ISTART+NC-1
8095      J=0
8096      DO1100I=ISTART,ISTOP
8097      J=J+1
8098      IOP(J)=IOPERA(I)
8099      X(J)=IX(I)
8100      Y(J)=IY(I)
8101 1100 CONTINUE
8102      NUMCO=J
8103      IXMINS=IXMIND(ICHARN)
8104      IXMAXS=IXMAXD(ICHARN)
8105      IXDELS=IXDELD(ICHARN)
8106C
8107      GOTO9000
8108C
8109C               *****************
8110C               **  STEP 90--  **
8111C               **  EXIT       **
8112C               *****************
8113C
8114 9000 CONTINUE
8115      IF(IBUGD2.EQ.'OFF')GOTO9090
8116      WRITE(ICOUT,999)
8117      CALL DPWRST('XXX','BUG ')
8118      WRITE(ICOUT,9011)
8119 9011 FORMAT('***** AT THE END       OF DRTS2--')
8120      CALL DPWRST('XXX','BUG ')
8121      WRITE(ICOUT,9012)IBUGD2,IFOUND,IERROR
8122 9012 FORMAT('IBUGD2,IFOUND,IERROR = ',A4,2X,A4,2X,A4)
8123      CALL DPWRST('XXX','BUG ')
8124      WRITE(ICOUT,9013)ICHARN
8125 9013 FORMAT('ICHARN = ',I8)
8126      CALL DPWRST('XXX','BUG ')
8127      WRITE(ICOUT,9014)ISTART,ISTOP,NC,NUMCO
8128 9014 FORMAT('ISTART,ISTOP,NC,NUMCO = ',4I8)
8129      CALL DPWRST('XXX','BUG ')
8130      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
8131      IF(NUMCO.GE.1.AND.NUMCO.LE.1000)GOTO9019
8132      DO9015I=1,NUMCO
8133      WRITE(ICOUT,9016)I,IOP(I),X(I),Y(I)
8134 9016 FORMAT('I,IOP(I),X(I),Y(I) = ',I8,2X,A4,2F10.2)
8135      CALL DPWRST('XXX','BUG ')
8136 9015 CONTINUE
8137 9019 CONTINUE
8138      WRITE(ICOUT,9021)IXMINS,IXMAXS,IXDELS
8139 9021 FORMAT('IXMINS,IXMAXS,IXDELS = ',3I8)
8140      CALL DPWRST('XXX','BUG ')
8141 9090 CONTINUE
8142C
8143      RETURN
8144      END
8145