1 /* ***********************************************************
  2    *                                                         *
  3    *                                                         *
  4    * Copyright, (C) Honeywell Information Systems Inc., 1981 *
  5    * Copyright, (C) Honeywell Information Systems Inc., 1980 *
  6    *                                                         *
  7    *                                                         *
  8    *********************************************************** */
  9 
 10 Wordspace: 3,6,9,SP;
 11 Letterspace: 1;
 12 
 13 MediaChars:
 14 010       SELF,     HT        011,      FF        014,      016       SELF,
 15 017       SELF,     STROKE    030,      030       SELF,     ESC       033,
 16 033       SELF,     PLOT      033 "3",  UNPLOT    033 "4",  "!":"~"   SELF,
 17 177       SELF,     NIL       "",
 18 277       "",                 /* blind escape */
 19 
 20 /*        The font change strings expected by hyterm_writer_ are of the form:
 21                     ooo "h" "w"
 22           where ooo is the octal representation of the wheel needed.
 23                 "h" is the character to give to the device
 24                 "w" is the decimal digit representing the width of a WSP */
 25 
 26 Pwheel    001,      HMI6      015,      W6        "6",
 27 Awheel    002,      HMI5      013,      W5        "5",
 28 Ewheel    003,      HMI4      011,      W4        "4",
 29 
 30 /* definitions to move all 8 directions */
 31                                RHLF 033 "D",      /* may NOT be used in PLOT mode */
 32  BSPRLF 010 033 012,            RLF 033 012,        SPRLF 040 033 012,
 33  BSP  010,                                         SP  040,
 34  BSPLF 010 012,                 LF  012,            SPLF 040 012,
 35                                HLF 033 "U",       /* may NOT be used in PLOT mode */
 36                     /* These are needed by Cleanup: */
 37 037       SELF,     015       SELF,     036       SELF,     011       SELF;
 38 
 39 Strokes: 6;
 40 
 41 Media:    mASC10,   mASC12,   mASC15,   mAPL10;
 42 NIL       0,        0,        0,        0;
 43 BSP      -6,       -5,       -4,       -6;
 44 010      -6,       -5,       -4,       -6;
 45 HT        0,        0,        0,        0;
 46 011       0,        0,        0,        0;
 47 FF        0,        0,        0,        0;
 48 015       0,        0,        0,        0;
 49 016       0,        =,        =,        0;
 50 017       0,        =,        =,        =;
 51 STROKE    1,        =,        =,        =;
 52 030       1,        =,        =,        =;
 53 ESC      -6,       -5,       -4,       -6;
 54 033      -6,       -5,       -4,       -6;
 55 036       0,        0,        0,        0;
 56 037       0,        0,        0,        0;
 57 SP        6,        5,        4,        6;
 58 "!":"~"   6,        5,        4,        6;
 59 177       0,        =,        =,        0;
 60 Pwheel    0,        =,        =,        0;
 61 Awheel    0,        =,        =,        0;
 62 Ewheel    0,        =,        =,        0;
 63 HMI6      0,        =,        =,        0;
 64 HMI5      0,        =,        =,        0;
 65 HMI4      0,        =,        =,        0;
 66 W6        0,        =,        =,        0;
 67 W5        0,        =,        =,        0;
 68 W4        0,        =,        =,        0;
 69 PLOT      0,        =,        =,        0;
 70 UNPLOT    0,        =,        =,        0;
 71 RLF       0,        =,        =,        0;
 72 RHLF      0,        =,        =,        0;
 73 BSPRLF   -1,        =,        =,       -1;
 74 SPRLF     1,        =,        =,        =;
 75 BSPLF    -1,        =,        =,       -1;
 76 SPLF      1,        =,        =,        1;
 77 LF        0,        =,        =,        0;
 78 
 79 View:     vASC10    mASC10;
 80 View:     vASC12    mASC12;
 81 View:     vASC15    mASC15;
 82 View:     vAPL10    mAPL10;
 83 
 84 Def: ascii;
 85 "!":"~"   SELF;     010       SELF;
 86 
 87 Def: ascii_;
 88           /* all overstrikes will have underscore last to optimize daisy     */
 89           /* wheel motion. hyterm_writer_ will separate underscored parts   */
 90           /* into three strings with all BSP together.  By placing _ last    */
 91           /* in overstrike, all _ will then be together in the third string. */
 92           /*  This prints faster.                                            */
 93 "!":"~"   SELF BSP "_";
 94 375       "Z" BSP "N";
 95 EM-       (PLOT "_" 4(RLF) UNPLOT 2("_") BSP PLOT 4(LF) UNPLOT "_")=12;
 96 EN-       (PLOT 4(RLF) "_" 4(LF) UNPLOT "_")=6;
 97 
 98 240                                     /* "printing" \040 */
 99  (PLOT BSP "[" 2(SP) "]" BSP UNPLOT SP)=6;
100 ''        /*, 6,*/ """" BSP "_";
101 ``        /*, 6,*/ """" BSP "_";
102 
103 Def: etc;
104 STROKE    030;      177       SELF;     277       "";
105 377       SP;                 /* punctuation space */
106 375       "Z" BSP "N";        /* square */
107 417       "(" "T" "M" ")";    /* trademark */
108 EN        SP;
109 EM        2(SP);
110 EM_       "_" "_";
111 EN_       "_";
112 THIN      (SP)=3;
113 DEVIT     (SP)=1;
114 
115 Def: art;
116 /* MATH SYMBOLS
117    1 - [  left square bracket      | In the plot which follows each string
118    2 - ]  right square bracket     | you will see these characters in use:
119    3 - {  left curly bracket       |    .  a position in the "character space"
120    4 - }  right curly bracket      |    o  where a "dit" will appear
121    5 - (  left paren               |    X  initial position of print head
122    6 - )  right paren              |    +  final position of print head
123    7 - |  Boolean OR
124    8 - ||  concatenate  */
125 
126 art [tp                                 /* top parts */
127  (PLOT 8(RLF) 4(SP) "." 4(BSP ".") 8(LF ".") UNPLOT SP)=6;
128 art ]tp
129  (PLOT "." 8(RLF ".") 4(BSP ".") 4(SP) 8(LF) UNPLOT SP)=6;
130 art {tp
131  (PLOT "." 6(RLF ".") 2(SPRLF ".") 2(SP ".") 2(SP) 8(LF) UNPLOT)=6;
132 art }tp
133  (PLOT "." 6(RLF ".") 2(BSPRLF ".") 2(BSP ".") 4(SP) 8(LF) UNPLOT SP)=6;
134 art lptp
135  (PLOT "." 6(RLF ".") 2(SPRLF ".") 2(SP ".") 2(SP) 8(LF) UNPLOT)=6;
136 art rptp
137  (PLOT "." 6(RLF ".") 2(BSPRLF ".") 2(BSP ".") 4(SP) 8(LF) UNPLOT SP)=6;
138 art |tp
139  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
140 art ||tp
141  (PLOT 2(BSP)  "." 8(RLF ".") 3(SP)  "." 8(LF ".") BSP UNPLOT SP)=6;
142 
143 art [ht                                 /* half-top parts */
144  (PLOT "." 4(RLF ".") 4(SP ".") 2(SPLF) 2(LF) UNPLOT)=6;
145 art ]ht
146  (PLOT "." 4(RLF ".") 4(BSP ".") 4(SPLF) UNPLOT SP)=6;
147 art {ht
148  (PLOT "." 2(RLF ".") 2(SPRLF ".") 2(SP ".") 2(SPLF) 2(LF) UNPLOT)=6;
149 art }ht
150  (PLOT "." 2(RLF ".") 2(BSPRLF ".") 2(BSP ".") 4(SPLF) UNPLOT SP)=6;
151 art lpht
152  (PLOT "." 2(RLF ".") 2(SPRLF ".") 2(SP ".") 2(SPLF) 2(LF) UNPLOT)=6;
153 art rpht
154  (PLOT "." 2(RLF ".") 2(BSPRLF ".") 2(BSP ".") 4(SPLF) UNPLOT SP)=6;
155 art |ht
156  (PLOT "." 4(RLF ".") 4(LF) UNPLOT SP)=6;
157 art ||ht
158  (PLOT 2(BSP)  "." 4(RLF ".") 3(SP)  "." 4(LF ".") BSP UNPLOT SP)=6;
159 
160 art [md                                 /* middle parts */
161  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
162 art ]md
163  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
164 art {md
165  (PLOT "." 2(RLF ".") 2(BSPRLF ".") 2(SPRLF ".") 2(RLF ".") 8(LF) UNPLOT SP)=6;
166 art }md
167  (PLOT "." 2(RLF ".") 2(SPRLF ".") 2(BSPRLF ".") 2(RLF ".") 8(LF) UNPLOT SP)=6;
168 art lpmd
169  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
170 art rpmd
171  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
172 art |md
173  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
174 art ||md
175  (PLOT 2(BSP)  "." 8(RLF ".") 3(SP)  "." 8(LF ".") 5(SP) UNPLOT)=6;
176 
177 art [hb                                 /* half-bottom parts */
178  (PLOT 4(SPLF) "." 4(BSP ".") 4(RLF ".") UNPLOT)=0;
179 art ]hb
180  (PLOT 4(BSPLF) "." 4(SP ".") 4(RLF ".") UNPLOT)=0;
181 art {hb
182  (PLOT 4(SPLF) "." 2(BSP ".") 2(BSPRLF ".") 2(RLF ".") UNPLOT)=0;
183 art }hb
184  (PLOT 4(BSPLF) "." 2(SP ".") 2(SPRLF ".") 2(RLF ".") UNPLOT)=0;
185 art lphb
186  (PLOT 4(SPLF) "." 2(BSP ".") 2(BSPRLF ".") 2(RLF ".") UNPLOT)=0;
187 art rphb
188  (PLOT 4(BSPLF) "." 2(SP ".") 2(SPRLF ".") 2(RLF ".") UNPLOT)=0;
189 art |hb
190  (PLOT 4(LF) "." 4(RLF ".") UNPLOT)=0;
191 art ||hb
192  (PLOT 2(BSPLF) 2(LF) "." 4(RLF ".") 3(SP) "." 4(LF ".") BSPRLF 3(RLF) UNPLOT)=0;
193 
194 art [bt                                 /* bottom parts */
195  (PLOT 4(SP) "." 4(BSP ".") 8(RLF ".") 8(LF) UNPLOT SP)=6;
196 art ]bt
197  (PLOT 4(BSP) "." 4(SP ".") 8(RLF ".") 8(LF) UNPLOT SP)=6;
198 art {bt
199  (PLOT 4(SP) "." 2(BSP ".") 2(BSPRLF ".") 6(RLF ".") 8(LF) UNPLOT SP)=6;
200 art }bt
201  (PLOT 4(BSP) "." 2(SP ".") 2(SPRLF ".") 6(RLF ".") 8(LF) UNPLOT SP)=6;
202 art lpbt
203  (PLOT 4(SP) "." 2(BSP ".") 2(BSPRLF ".") 6(RLF ".") 8(LF) UNPLOT SP)=6;
204 art rpbt
205  (PLOT 4(BSP) "." 2(SP ".") 2(SPRLF ".") 6(RLF ".") 8(LF) UNPLOT SP)=6;
206 art |bt
207  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
208 art ||bt
209  (PLOT 2(BSP)  "." 8(RLF ".") 3(SP)  "." 8(LF ".") 5(SP) UNPLOT)=6;
210 
211 art [fl                                 /* filler parts */
212  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
213 art ]fl
214  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
215 art {fl
216  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
217 art }fl
218  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
219 art lpfl
220  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
221 art rpfl
222  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
223 art |fl
224  (PLOT "." 8(RLF ".") 8(LF) UNPLOT SP)=6;
225 art ||fl
226  (PLOT 2(BSP)  "." 8(RLF ".") 3(SP)  "." 8(LF ".") 5(SP) UNPLOT)=6;
227 
228 art [                                   /* one-highs */
229  (PLOT 4(SPLF) "." 4(BSP ".") 12(RLF ".") 4(SP ".") 6(LF) 2(SPLF) UNPLOT)=6;
230 art ]
231  (PLOT 4(BSPLF) "." 4(SP ".") 12(RLF ".") 4(BSP ".") 8(SPLF) 2(SP) UNPLOT)=6;
232 art {
233  (PLOT 4(SPLF) "." 2(BSP ".") 2(BSPRLF ".") 2(RLF ".") 2(BSPRLF ".") 2(SPRLF ".") 2(RLF ".") 2(SPRLF ".") 2(SP ".") 4(LF) 2(SPLF) 2(LF) UNPLOT)=6;
234 art }
235  (PLOT 4(BSPLF) "." 2(SP ".") 2(SPRLF ".") 2(RLF ".") 2(SPRLF ".") 2(BSPRLF ".") 2(RLF ".") 2(BSPRLF ".") 2(BSP ".") 4(LF) 4(SPLF) 6(SP) UNPLOT)=6;
236 art (
237  (PLOT 4(SPLF) "." 2(BSP ".") 2(BSPRLF ".") 8(RLF ".") 2(SPRLF ".") 2(SP ".") 4(LF) 2(SPLF) 2(LF) UNPLOT)=6;
238 art )
239  (PLOT 4(BSPLF) "." 2(SP ".") 2(SPRLF ".") 8(RLF ".") 2(BSPRLF ".") 2(BSP ".") 4(LF) 4(SPLF) 6(SP) UNPLOT)=6;
240 art |
241  (PLOT 4(LF) "." 12(RLF ".") 4(LF) 4(SPLF) 2(SP) UNPLOT)=6;
242 art ||
243  (PLOT 2(BSPLF) 2(LF) "." 12(RLF ".") 3(SP) "." 12(LF ".") 4(SPRLF) SP UNPLOT)=6;
244 art o
245  (PLOT BSP "." 2(SP ".") SPRLF "." 4(BSP ".") RLF "." 4(SP ".") BSPRLF "." 2(BSP ".") 3(SPLF) 4(SP) UNPLOT)=6;
246 art /
247  (PLOT BSPLF 2(BSP) "." 9(SPRLF ".") 4(LF) 4(LF) UNPLOT)=6;
248 art X
249  (PLOT 2(BSP) "." 6(SPRLF ".") 6(BSP) "." 6(SPLF ".") 2(SP) UNPLOT)=6;
250 art d
251  (PLOT BSP "." 4(SPRLF ".") 4(LF) "." 4(BSPRLF ".") BSPLF LF "." 6(SP ".") 2(SPLF) UNPLOT)=6;
252 art m
253  (PLOT 2(LF) "." 8(RLF ".") SP "." 8(LF ".") 2(SPRLF) 3(SP) UNPLOT)=6;
254 
255 art |rul
256  (PLOT 6(RLF) "." 8(LF ".") 2(RLF) UNPLOT)=0;
257 art v
258  (PLOT 2(LF)  "." BSPRLF "." 2(SP ".") SPRLF "." 4(BSP ".") BSPRLF "." 6(SP ".") BSPLF 2(BSP) UNPLOT)=0;
259 art ^
260  (PLOT 3(BSPRLF) "." 6(SP ".") BSPRLF "." 4(BSP ".") SPRLF "." 2(SP ".") BSPRLF "." 6(LF) UNPLOT)=0;
261 art -str
262  (PLOT 2(LF) UNPLOT)=0;
263 art -rul
264  (PLOT 5("." SP ".") UNPLOT)=6;
265 art -stp
266  (PLOT 2(RLF) UNPLOT)=0;
267 art <-
268  (PLOT 5(LF) "." 6(RLF ".") BSPLF "." 4(LF ".") BSPRLF "." 2(RLF ".") BSPLF "." 2(SPRLF) SP UNPLOT)=0;
269           /*             ......             */
270           /*             ......             */
271           /*             ......             */
272           /*             ......             */
273           /*             ......             */
274           /*             ......             */
275           /*             ...o..             */
276           /*             X^H..oo..+            */
277           /*              ooo               */
278           /*             oooo               */
279           /*              ooo               */
280           /*               oo               */
281           /*                o               */
282 
283 
284 art ->
285  (PLOT 4(LF) BSPLF 2(BSP) "." 6(RLF ".") SPLF "." 4(LF ".") SPRLF "." 2(RLF ".") SPLF "." 2(SPRLF) 4(SP) UNPLOT)=6;
286           /*             ......             */
287           /*             ......             */
288           /*             ......             */
289           /*             ......             */
290           /*             ......             */
291           /*             ......             */
292           /*          o  ......             */
293           /*          oo X^H......+            */
294           /*          ooo                   */
295           /*          oooo                  */
296           /*          ooo                   */
297           /*          oo                    */
298           /*          o                     */
299 
300 art D^
301  (PLOT 2(LF)  "." 3(SPRLF ".") 3(SPLF ".") 2(RLF) UNPLOT)=6;
302 art D<
303  (SP PLOT 2(LF) "." 4(BSPRLF ".") 4(SPRLF ".") 6(LF) UNPLOT)=6;
304 art D>
305  (PLOT 2(LF)  "." 4(SPRLF ".") 4(BSPRLF ".") 6(LF) UNPLOT SP)=6;
306 art Dv
307  (PLOT 6(RLF) "." 3(SPLF ".") 3(SPRLF ".") 6(LF) UNPLOT)=6;
308 
309 art \rul  (PLOT 4(RLF) 2(BSPRLF) "." 8(SPLF ".") 2(RLF) UNPLOT)=6;
310           /*             ......             */
311           /*           o ......             */
312           /*            o......             */
313           /*             o.....             */
314           /*             .o....             */
315           /*             ..o...             */
316           /*             ...o..             */
317           /*             X^H....o.+            */
318           /*                  o             */
319           /*                   o            */
320 
321 
322 art /rul  (PLOT BSPLF LF "." 8(SPRLF ".") 4(LF) BSPLF LF UNPLOT)=6;
323           /*             ......             */
324           /*             ...... o           */
325           /*             ......o            */
326           /*             .....o             */
327           /*             ....o.             */
328           /*             ...o..             */
329           /*             ..o...             */
330           /*             X^H.o....+            */
331           /*             o                  */
332           /*            o                   */
333 
334 
335 art Clf
336  (PLOT 4(LF) 4(LF) 2(SPLF) 4(SP) "." 3(BSP ".") BSPRLF "." 2(BSP ".") 3(BSPRLF ".") RLF "." BSPRLF "." 2(RLF ".") 2(RLF ".") SPRLF "." RLF "." 3(SPRLF ".") 2(SP ".") SPRLF "." 3(SP ".") 4(LF) 2(LF) UNPLOT)=6;
337           /*             ......             */
338           /*             ...oooo            */
339           /*             ooo...             */
340           /*            o......             */
341           /*           o ......             */
342           /*          o  ......             */
343           /*          o  ......             */
344           /*         o   X^H......+            */
345           /*         o                      */
346           /*         o                      */
347           /*         o                      */
348           /*         o                      */
349           /*          o                     */
350           /*          o                     */
351           /*           o                    */
352           /*            o                   */
353           /*             ooo                */
354           /*                oooo            */
355 
356 
357 art Crt
358  (PLOT 4(LF) 4(LF) 2(BSPLF) 4(BSP) "." 3(SP ".") SPRLF "." 2(SP ".") 3(SPRLF ".") RLF "." SPRLF "." 2(RLF ".") 2(RLF ".") BSPRLF "." RLF "." 3(BSPRLF ".") 2(BSP ".") BSPRLF "." 3(BSP ".") 4(LF) 2(SPLF) 10(SP) UNPLOT)=6;
359           /*             ......             */
360           /*       oooo  ......             */
361           /*           ooo.....             */
362           /*             .o....             */
363           /*             ..o...             */
364           /*             ...o..             */
365           /*             ...o..             */
366           /*             X^H....o.+            */
367           /*                 o              */
368           /*                 o              */
369           /*                 o              */
370           /*                 o              */
371           /*                o               */
372           /*                o               */
373           /*               o                */
374           /*              o                 */
375           /*           ooo                  */
376           /*       oooo                     */
377 
378 art c
379  (PLOT SPRLF 2(SP) UNPLOT "c" PLOT BSP "." 2(RLF ".") 2(BSPRLF ".") BSP "." BSPRLF "." 2(BSP ".") BSPLF "." BSP "." 2(BSPLF ".") 2(LF ".") 2(SPLF ".") SP "." SPLF "." 2(SP ".") SPRLF "." SP "." SPRLF "." 5(SP) UNPLOT)=12;
380           /*             ......             */
381           /*             ..ooo.             */
382           /*             oo...oo            */
383           /*            o...... o           */
384           /*           o ......  o          */
385           /*           o ......  o          */
386           /*           o ......  o          */
387           /*            oX^H...... o    +      */
388           /*             oo   oo            */
389           /*               ooo              */
390 
391 art t                                   /* trademark */
392     (PLOT 3(SP) 5("." RLF) 3(BSP) "." 6(SP ".") 5(LF ".") 2(RLF) SPRLF "."
393     2(SPLF ".") 3(SPRLF ".") 4(LF ".") 3(SP) UNPLOT)=12;
394           /*       ...............          */
395           /*       ...............          */
396           /*       ooooooo........          */
397           /*       ...o..o.....o..          */
398           /*       ...o..oo...oo..          */
399           /*       ...o..o.o.o.o..          */
400           /*       ...o..o..o..o..          */
401           /*       +..o..o.....o..+         */
402 
403 /* daggar */ 261
404  (PLOT "|" RLF "|" 2(RLF)  "-" 3(SPLF) 3(SP) UNPLOT)=6;
405           /*             ......             */
406           /*             ......             */
407           /*             ......             */
408           /*             ......             */
409           /*             o.....             */
410           /*             ......             */
411           /*             o.....             */
412           /*             o^H......+            */
413 
414 
415 /* double daggar */ 301
416  (PLOT "|" RLF "|" 2(RLF)  "-" 4(LF)  "-" SPRLF 5(SP) UNPLOT)=6;
417           /*             ......             */
418           /*             ......             */
419           /*             ......             */
420           /*             ......             */
421           /*             o.....             */
422           /*             ......             */
423           /*             o.....             */
424           /*             o^H......+            */
425           /*             o                  */
426 
427 
428 /* del */ 304
429  (PLOT  "/" SPRLF RLF  "_" SP "_" SPLF LF  "\" 6(SP) UNPLOT)=9;
430           /*             ......             */
431           /*             ......             */
432           /*             ......             */
433           /*             ......             */
434           /*             ......             */
435           /*             .oo...             */
436           /*             ......             */
437           /*             o^H...o..   +         */
438 
439 
440 /* nabla */ 254
441  (PLOT  "\" 4(RLF) 2(SPRLF) RLF  "_" SP  "_" 4(LF) 2(SPLF) LF  "/" 5(SP) UNPLOT)=10;
442           /*             ..oo..             */
443           /*             ......             */
444           /*             ......             */
445           /*             ......             */
446           /*             ......             */
447           /*             ......             */
448           /*             ......             */
449           /*             o^H.....o    +        */
450 
451 art bxtl  (PLOT 2(LF) "." 6(SP ".") UNPLOT)=6;
452 art bxt   SP;
453 art bxtr  (PLOT 2(RLF) UNPLOT)=0;
454 
455 art bxl   (PLOT 6(RLF) "." 8(LF ".") 6(SP ".") UNPLOT)=6;
456 art bxx   (PLOT 6(RLF) "." 8(LF ".") 2(RLF) UNPLOT SP)=6;
457 art bxr   (PLOT 8(RLF) "." 8(LF ".") 2(RLF) UNPLOT)=0;
458 
459 art bxbl  (PLOT 6(RLF) "." 8(LF ".") 6(SP ".") UNPLOT)=6;
460 art bxb   (PLOT 6(RLF) "." 8(LF ".") 2(RLF) UNPLOT SP)=6;
461 art bxbr  (RLF PLOT "." 8(LF ".") 2(RLF) UNPLOT)=0;
462 
463 art lztl  (PLOT 2(LF) "." 6(SP ".") UNPLOT)=6;
464 art lztr  (PLOT 6(SP ".") 4(BSP) 2(BSPRLF) UNPLOT)=0;
465 art lzl   (PLOT BSPLF LF "." 8(SPRLF ".") 5(LF) BSPLF UNPLOT)=6;
466 art lzr   (PLOT 4(RLF) 2(BSPRLF) "." 8(SPLF ".") 2(RLF) UNPLOT)=6;
467 art lzbl  (PLOT 2(BSP) 6(BSPRLF) "." 8(SPLF ".") 6(SP ".") UNPLOT)=6;
468 art lzbr  (PLOT 6(SP ".") 8(SPRLF ".") 8(BSP) 6(BSPLF) UNPLOT)=0;
469 
470 ''        /*, 6,*/ """";
471 ``        /*, 6,*/ """";
472 
473 Def: UCbold;
474 "a" "A"; "b" "B"; "c" "C"; "d" "D"; "e" "E"; "f" "F"; "g" "G";
475 "h" "H"; "i" "I"; "j" "J"; "k" "K"; "l" "L"; "m" "M"; "n" "N";
476 "o" "O"; "p" "P"; "q" "Q"; "r" "R"; "s" "S"; "t" "T"; "u" "U";
477 "v" "V"; "w" "W"; "x" "X"; "y" "Y"; "z" "Z";
478 
479 Def: OSbold;
480 "!":"~" SELF BSP SELF BSP SELF;
481 
482 Def: OSboldital;
483 "!":"^" SELF BSP SELF BSP SELF BSP "_";
484 "_" SELF BSP SELF BSP SELF;
485 "`":"~" SELF BSP SELF BSP SELF BSP "_";
486 
487 Font: asc10 vASC10;
488 ref:      ascii;    ref:      etc;      ref:      art;
489 EN- "-";
490 EM- (PLOT 3("-" 4(SP)) UNPLOT)=12;
491 EM_ (PLOT RLF RLF 2("_" 5(SP)) LF LF UNPLOT )=12;
492 EN_ (PLOT RLF RLF "_" LF LF UNPLOT SP)=6;
493 422 """";
494 421 """";
495 
496 ''        /**/ """";
497 ``        /**/ """";
498 240                 /* "printing" \040 */
499  (PLOT BSP  "[" 2(SP)  "]" 5(SP) UNPLOT)=6;
500 
501 Font: apl vAPL10;
502 ref:      ascii;    ref:      etc;      ref:      art;
503 
504 Font: ASC10 vASC10;
505 ref: ascii;   ref: etc;   ref: art;   ref: UCbold;
506 
507 Font: ASC10OS vASC10;
508 ref:      etc;      ref:      art;      ref:      OSbold;
509 
510 Font: asc10_ vASC10;          /* pick all the artwork */
511 ref:      etc;      ref:      art;
512           /* all overstrikes will have underscore last to optimize daisy     */
513           /* wheel motion. hyterm_writer_ will separate underscored parts   */
514           /* into three strings with all BSP together.  By placing _ last    */
515           /* in overstrike, all _ will then be together in the third string. */
516           /*  This prints faster.                                            */
517 "!":"~"   /*, 6,*/ SELF BSP "_";
518 375       /*, 6,*/ "Z" BSP "N";
519 EM-
520  (PLOT 3("-" 4(SP)) UNPLOT 2(BSP) PLOT 2("_" 5(SP)) UNPLOT)=12;
521           /*             ......             */
522           /*             ......             */
523           /*             ......             */
524           /*             ......             */
525           /*             ......             */
526           /*             ......             */
527           /*             ......             */
528           /*             X^H......      +      */
529 
530 EN-       "-" BSP "_";
531 
532 240                 /* "printing" \040 */
533  (PLOT BSP  "[" 2(SP)  "]" 5(SP) UNPLOT)=6;
534           /*             ......             */
535           /*             ......             */
536           /*             ......             */
537           /*             ......             */
538           /*             ......             */
539           /*             ......             */
540           /*             ......             */
541           /*            oX^H.o....+            */
542 
543 ''        /*, 6,*/ """" BSP "_";
544 ``        /*, 6,*/ """" BSP "_";
545 
546 Font: ASC10_ vASC10;
547 ref:      etc;      ref:      art;      ref:      ascii_;
548 "a" 101 BSP "_";    "b" "B" BSP "_";    "c" "C" BSP "_";    "d" "D" BSP "_";
549 "e" "E" BSP "_";    "f" "F" BSP "_";    "g" "G" BSP "_";    "h" "H" BSP "_";
550 "i" "I" BSP "_";    "j" "J" BSP "_";    "k" "K" BSP "_";    "l" "L" BSP "_";
551 "m" "M" BSP "_";    "n" "N" BSP "_";    "o" "O" BSP "_";    "p" "P" BSP "_";
552 "q" "Q" BSP "_";    "r" "R" BSP "_";    "s" "S" BSP "_";    "t" "T" BSP "_";
553 "u" "U" BSP "_";    "v" "V" BSP "_";    "w" "W" BSP "_";    "x" "X" BSP "_";
554 "y" "Y" BSP "_";    "z" "Z" BSP "_";
555 
556 Font: ASC10_OS vASC10;
557 ref:      etc;      ref:      art;      ref:      OSboldital;
558 
559 Font: asc12 vASC12;
560 ref:      ascii;
561 ref:      etc;      ref:      art;
562 EN- "-";
563 EM- (PLOT 3("-" 3(SP)) SP UNPLOT)=10;
564 
565 240                 /* "printing" \040 */
566  (PLOT BSP  "[" 2(SP)  "]" 5(SP) UNPLOT)=6;
567 
568 Font: ASC12 vASC12;
569 ref:      etc;      ref:      art;      ref:      UCbold;
570 
571 Font: asc12_ vASC12;          /* pick all the artwork */
572 ref:      etc;      ref:      art;
573 "!":"~"    SELF BSP "_";
574 375        "Z" BSP "N";
575 EM- (PLOT 3("-" 3(SP)) SP UNPLOT 2(BSP) 2("_"))=10;
576 EN-        "-" BSP "_";
577 
578 240                 /* "printing" \040 */
579  (PLOT BSP  "[" 2(SP)  "]" 4(SP) UNPLOT)=5;
580           /*             ......             */
581           /*             ......             */
582           /*             ......             */
583           /*             ......             */
584           /*             ......             */
585           /*             ......             */
586           /*             ......             */
587           /*            oX^H.o^H...._^H.             */
588 
589 
590 ''         """" BSP "_";
591 ``         """" BSP "_";
592 
593 Font: ASC12_ vASC12;
594 ref:      etc;      ref:      art;
595 "a" "A" BSP "_";
596 "b" "B" BSP "_";
597 "c" "C" BSP "_";
598 "d" "D" BSP "_";
599 "e" "E" BSP "_";
600 "f" "F" BSP "_";
601 "g" "G" BSP "_";
602 "h" "H" BSP "_";
603 "i" "I" BSP "_";
604 "j" "J" BSP "_";
605 "k" "K" BSP "_";
606 "l" "L" BSP "_";
607 "m" "M" BSP "_";
608 "n" "N" BSP "_";
609 "o" "O" BSP "_";
610 "p" "P" BSP "_";
611 "q" "Q" BSP "_";
612 "r" "R" BSP "_";
613 "s" "S" BSP "_";
614 "t" "T" BSP "_";
615 "u" "U" BSP "_";
616 "v" "V" BSP "_";
617 "w" "W" BSP "_";
618 "x" "X" BSP "_";
619 "y" "Y" BSP "_";
620 "z" "Z" BSP "_";
621 
622 Font: asc15 vASC15;
623 ref:      ascii;
624 ref:      etc;      ref:      art;
625 
626 `` (PLOT BSP "`" 3(SP) "`" 2(SP) UNPLOT)=4;
627 '' (PLOT BSP "'" 3(SP) "'" 2(SP) UNPLOT)=4;
628 EM- (PLOT 2("-" 4(SP)) UNPLOT)=8;
629 EN- "-";
630 
631 240                 /* "printing" \040 */
632  (PLOT BSP  "[" 2(SP)  "]" 3(SP) UNPLOT)=4;
633           /*             ......             */
634           /*             ......             */
635           /*             ......             */
636           /*             ......             */
637           /*             ......             */
638           /*             ......             */
639           /*             ......             */
640           /*            oX^H.o^H..._^H..             */
641 
642 
643 
644 Font: ASC15 vASC15;
645 ref:      etc;      ref:      art;      ref:      UCbold;
646 
647 Font: asc15_ vASC15;          /* pick all the artwork */
648 ref:      etc;      ref:      art;
649 "!":"~"  SELF BSP "_";
650 ''  """" BSP "_";
651 EM_ 2("_");
652 EN_  "_";
653 375  "Z" BSP "N";
654 EM- (PLOT 2("-" 4(SP)) UNPLOT 2(BSP) 2("_"))=8;
655 EN- "-" BSP "_";
656 
657 240                 /* "printing" \040 */
658  (PLOT BSP  "[" 2(SP)  "]" 3(SP) UNPLOT)=4;
659           /*             ......             */
660           /*             ......             */
661           /*             ......             */
662           /*             ......             */
663           /*             ......             */
664           /*             ......             */
665           /*             ......             */
666           /*            oX^H.o^H..._^H..             */
667 
668 
669 ``  """" BSP "_";
670 Font: ASC15_ vASC15;
671 "a" 101 BSP "_";
672 "b" "B" BSP "_";
673 "c" "C" BSP "_";
674 "d" "D" BSP "_";
675 "e" "E" BSP "_";
676 "f" "F" BSP "_";
677 "g" "G" BSP "_";
678 "h" "H" BSP "_";
679 "i" "I" BSP "_";
680 "j" "J" BSP "_";
681 "k" "K" BSP "_";
682 "l" "L" BSP "_";
683 "m" "M" BSP "_";
684 "n" "N" BSP "_";
685 "o" "O" BSP "_";
686 "p" "P" BSP "_";
687 "q" "Q" BSP "_";
688 "r" "R" BSP "_";
689 "s" "S" BSP "_";
690 "t" "T" BSP "_";
691 "u" "U" BSP "_";
692 "v" "V" BSP "_";
693 "w" "W" BSP "_";
694 "x" "X" BSP "_";
695 "y" "Y" BSP "_";
696 "z" "Z" BSP "_";
697 
698 Font: ASC15OS vASC15;
699 wordspace: 2,4,8,SP;
700 ref:      etc;      ref:      art;      ref:      OSbold;
701 
702 Font: ASC15_OS vASC15;
703 wordspace: 2,4,8,SP;
704 ref:      etc;      ref:      art;      ref:      OSboldital;
705 
706 Font: elite vASC12;
707 Font: elite_ vASC12;
708 Font: ELITE vASC12;
709 Font: ELITE_ vASC12;
710 Font: elite15 vASC15;
711 Font: elite15_ vASC15;
712 Font: ELITE15 vASC15;
713 Font: ELITE15_ vASC15;
714 
715 
716 Size: onesize, 7.2;
717 MinLead: 1.5;
718 MinSpace: 1.2;
719 MaxPageWidth: 950.4;
720 Outproc: hyterm_writer_;
721 DefaultMargs: 48,24,24,48;
722 Cleanup: UNPLOT 033 037 015 033 036 011;
723 Comment:
724 " Type Wheel Identification
725  1 - 38101-01       PICA 10
726  2 - 38510          APL 10
727  3 - 38102-01       ELITE 12
728 DB: hyterm_writer_$display
729 ";
730 DevName: "hyterm";
731 DevClass: "diablo";
732 Interleave: on;
733 
734 Device: hyterm, HYTERM, diablo1620;     init: text 7.2;
735 viewselect: vASC10 Pwheel HMI6 W6,
736             vASC12 Ewheel HMI5 W5,
737             vASC15 Pwheel HMI4 W4,
738             vAPL10 Awheel HMI6 W6;
739 attach: "syn_ user_output";
740 
741 family:   centuryschoolbook, cs,        helvetica, h;
742   member: /medium, /m, /,     /roman, /r          asc10;
743   member: /italic, /i,        /mediumitalic, /mi  asc10_;
744   member: /bold, /b,          /boldroman, /br     ASC10OS;
745   member: /bolditalic, /bi                        ASC10_OS;
746 
747 family:   pica10;
748    member: /medium, /m, /,    /roman, /r          asc10;
749    member: /italic, /i,       /mediumitalic, /mi  asc10_;
750    member: /bold, /b,         /boldroman, /br     ASC10OS;
751    member: /bolditalic, /bi                       ASC10_OS;
752    member:    /caps           ASC10;
753    member:    /caps_          ASC10_;
754 
755 bachelor: ascii, l4font, l3exact, l4exact, text, footnote, footref    asc10;
756 bachelor: l0exact, CSR, HR, typ, small_typ, ascii9                    asc10;
757 bachelor: l0font, l3font, ASCII                                       ASC10;
758 bachelor: bold, CSBR, HBR, HBBl                                       ASC10OS;
759 bachelor: italic, l2font, l1exact, l2exact, CSI, HmI, ascii_          asc10_;
760 bachelor: l1font, ASCII_                                              ASC10_;
761 bachelor: CSBI, HBI, bolditalic                                       ASC10_OS;
762 bachelor: apl, APL                                                    apl;
763 
764 family:   pica_12;
765    member: /medium, /m, /,    /roman, /r          asc12;
766    member: /italic, /i,       /mediumitalic, /mi  asc12_;
767    member: /bold, /b,         /boldroman, /br     ASC12;
768    member: /bolditalic, /bi                       ASC12_;
769    member:    /caps           ASC12;
770    member:    /caps_          ASC12_;
771 
772 bachelor: pica12    asc12;
773 bachelor: pica12_   asc12_;
774 bachelor: PICA12    ASC12;
775 bachelor: PICA12_   ASC12_;
776 
777 Device: hyterm_draft;         init: text 7.2;
778 viewselect: vASC10 Pwheel HMI6 W6,
779             vASC12 Ewheel HMI5 W5,
780             vASC15 Pwheel HMI4 W4,
781             vAPL10 Awheel HMI6 W6;
782 attach: "syn_ user_output";
783 
784 family:   centuryschoolbook, cs,        helvetica, h;
785   member: /medium, /m, /,     /roman, /r          asc10;
786   member: /italic, /i,        /mediumitalic, /mi  asc10_;
787   member: /b ,/bold,          /boldroman, /br     ASC10OS;
788   member: /bi,/bolditalic                         ASC10_OS;
789 
790 family:   pica10, pica;
791    member: /medium, /m, /,    /roman, /r          asc10;
792    member: /italic, /i,       /mediumitalic, /mi  asc10_;
793    member: /bold, /b,         /boldroman, /br     ASC10OS;
794    member: /bolditalic, /bi                       ASC10_OS;
795    member:    /caps           ASC10;
796    member:    /caps_          ASC10_;
797 
798 bachelor: text, footnote, footref, CSR, HR, ascii, typ, small_typ, ascii9       asc10;
799 bachelor: l0exact                                                     asc10;
800 bachelor: l0font, ASCII                                               ASC10;
801 bachelor: bold, CSBR, HBR, HBBl, l4font, l3exact, l4exact             ASC10OS;
802 bachelor: italic, l2font, l1exact, l2exact, CSI, HmI, ascii_          asc10_;
803 bachelor: l1font, ASCII_                                              ASC10_;
804 bachelor: CSBI, HBI, l3font, bolditalic                               ASC10_OS;
805 bachelor: apl, APL                                                    apl;
806 
807 family:   pica_12;
808    member: /medium, /m, /,    /roman, /r          asc12;
809    member: /italic, /i,       /mediumitalic, /mi  asc12_;
810    member: /bold, /b,         /boldroman, /br     ASC12;
811    member: /bolditalic, /bi                       ASC12_;
812    member:    /caps           ASC12;
813    member:    /caps_          ASC12_;
814 
815 bachelor: pica12    asc12;
816 bachelor: pica12_   asc12_;
817 bachelor: PICA12    ASC12;
818 bachelor: PICA12_   ASC12_;
819 
820 Device: vhyt;                 init: text 7.2;
821 viewselect: vASC12 Ewheel HMI5 W5,
822             vASC15 Pwheel HMI4 W4;
823 devname: "vhyt";
824 devclass: "photocomp";
825 attach: "syn_ user_output";
826 
827 family:   centuryschoolbook, cs;
828   member: /medium, /m, /,     /roman, /r          asc15;
829   member: /italic, /i,        /mediumitalic, /mi  asc15_;
830   member: /bold, /b,          /boldroman, /br     ASC15;
831   member: /bolditalic, /bi                        ASC15_;
832 
833 bachelor: CSR, HR, text, l4font, footnote, footref, l0exact           asc15;
834 bachelor: l3font, bold, CSBR, HBR, HBBl                               ASC15OS;
835 bachelor: italic, l2font, CSI, HmI                                    asc15_;
836 bachelor: l0font, l1font, CSBI, HBI, bolditalic                       ASC15_OS;
837 
838 family:   pica;
839    member: /medium, /m, /,    /roman, /r          asc12;
840    member: /italic, /i,       /mediumitalic, /mi  asc12_;
841    member: /bold, /b,         /boldroman, /br     ASC12;
842    member: /bolditalic, /bi                       ASC12_;
843    member:    /caps           ASC12;
844    member:    /caps_          ASC12_;
845 
846 bachelor: pica12,  ascii                          asc12;
847 bachelor: pica12_, ascii_                         asc12_;
848 bachelor: PICA12,  ASCII                          ASC12;
849 bachelor: PICA12_, ASCII_                         ASC12_;
850 
851 Device: nec5525, spinwriter like hyterm;
852 devname: "nec5525";