Epson filter to type nroff Non-ASCII char's (no 1 of 4)

john at dutesta.UUCP
Wed Oct 30 19:54:20 AEST 1985


# CUT AT THE DOTTED LINE AND FEED TO /BIN/SH
# ------------------------------------------------------------------------
echo x - README
cat > README <<'!End-Of-README!'
This is a shar archive of a filter used for the Epson LQ-1500 to print
the nroff Non-ASCII Special Characters given in the manual.
The greek characters as well as the mathematical characters are implemented.
This comes with all the defined characters and the makefiles to build your
epf.c (epson filter)
At dutesta we work with it for half a year now and we are pleased with it.

For those who want to implement Italic writing via nroff on an Epson I
do have some ideas too (mail me)

--
			John Nellen, Delft Univ. of Technology
			..!{decvax,philabs}!mcvax!dutesta!john
!End-Of-README!
echo x - epf.c
cat > epf.c <<'!End-Of-epf.c!'
#include	<stdio.h>
#include	<sgtty.h>

#define		NORMAL	0
#define		GRPHCS	1

#define		NO	0
#define		YES	1
#define		TONORM	2
#define		TOGRPH	3
#define		ESC	27

#define		ctl(c)	('c'&037)

char  table[65][105] = {
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0, 48,  0,  0,120,  0,  0,252,  0,  1,255,  0,
      1,255,  0,  3,255,128,  3,255,128,  3,255,128,  3,255,128,
      7,255,192,  7,255,192,  7,255,192,  7,255,192,  7,255,192,
      7,255,192,  7,255,192,  3,255,128,  3,255,128,  3,255,128,
      3,255,128,  3,255,  0,  1,255,  0,  1,254,  0,  0,252,  0,
      0,120,  0,  0, 48,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* bullet */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
     15,255,224,  8,  0, 32,  8,  0, 32,  8,  0, 32,  8,  0, 32,
      8,  0, 32,  8,  0, 32,  8,  0, 32,  8,  0, 32,  8,  0, 32,
      8,  0, 32,  8,  0, 32,  8,  0, 32,  8,  0, 32,  8,  0, 32,
      8,  0, 32,  8,  0, 32,  8,  0, 32,  8,  0, 32,  8,  0, 32,
      8,  0, 32,  8,  0, 32,  8,  0, 32,  8,  0, 32,  8,  0, 32,
      8,  0, 32,  8,  0, 32, 15,255,224,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* square */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0, 24,  0,  0, 36,  0,  0, 66,  0,  0,
    129,  0,  0,129,  0,  0,129,  0,  0,129,  0,  0,129,  0,  0,
    129,  0,  0, 66,  0,  0, 36,  0,  0, 24,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* degree */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0, 64,  0,  0,224,  0,  0,224,  0,  0,224,  0,  0,224,  0,
     24,224,  0, 60,226,  0,120, 71,  0,127,255,254,120, 71,  0,
     60,226,  0, 24,224,  0,  0,224,  0,  0,224,  0,  0,224,  0,
      0,224,  0,  0, 64,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* dagger */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 28,  0,  0, 62,  0,
      0,127,  0, 16, 67,  4, 48,129,134, 40,129,198, 41,  0,194,
     73,  0,193, 75,  0, 97, 75,  0, 97, 71,  0,113, 67,  0,105,
     67,  0,105, 65,  0, 73, 33,128, 73, 49,128,138, 16,192,138,
     16, 65,  6,  0, 97,  6,  0,126,  0,  0, 62,  0,  0, 28,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* section */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  1,  0,  0,  7,192,  0, 31,224,
      0, 56, 96,  0, 96, 32,  0,192, 32,  1,128, 32,  3,  0, 32,
      2,  0, 32,  2,  0, 32,  2,  0, 96,  2,  0, 64,  2,  0,192,
      1,  0,128,  0,193,  0,  0, 35,  0,  0, 30,  0,  0, 14,  0,
      0, 11,  0,  0, 17,128,  0, 32,192,  0, 64, 64,  0,128, 32,
      1,  0, 32,  2,  0, 32,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* alpha */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  4,  0,  0,  8,  0,  0, 48,  0,  0, 64,
      0,  0,128,  0,  3,  0,  0,  4,128,  0, 24, 64,  0, 32, 64,
      0,200, 64,  1,  8, 64,  2,  8, 32,  2,  8, 32,  2,  8, 32,
      2,  8, 32,  2,  8, 32,  2,  8, 32,  2,  8, 32,  2, 12, 32,
      2, 18, 32,  2, 18, 32,  1, 19, 32,  1,225,192,  0,224,192,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* beta */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,128,  0,  1,128,  0,
      1,  0,  0,  3,  0,  0,  3,  0,  0,  3,  0,  0,  3,  0,  0,
      1,  0,  0,  1,  0,  0,  0,128, 32,  0, 96,224,  0, 31,128,
      0,  2,  0,  0,  4,  0,  0,  8,  0,  0, 48,  0,  0, 64,  0,
      0,128,  0,  3,  0,  0,  2,  0,  0,  2,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* gamma */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  7,  0,  0,  7,128,
      1,143,192,  3,152,192,  3,216, 64,  2, 80, 32,  2, 96, 32,
      2, 96, 32,  2, 32, 32,  2, 32, 32,  2, 32, 32,  2, 32, 32,
      2, 32, 32,  2, 32, 32,  2, 32, 32,  1, 16, 64,  0,144, 64,
      0, 24,192,  0, 15,128,  0, 15,128,  0,  7,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* delta */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 14,  0,  0, 31,128,
      0, 63,192,  0,125,192,  0,248, 96,  0,200, 96,  1,136, 32,
      1,136, 32,  1,  8, 32,  1,  8, 32,  1,  8, 32,  1,  0, 32,
      1,  0, 32,  1,  0, 32,  1,  0,  0,  1,  0,  0,  1,  0,  0,
      1,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* epsilon */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  3,  0,  0,  7,128,
      0,  7,128,  0, 12,128,  0,  8,128,  0,  8,128,  0,  8,128,
      0, 16,128,  2, 16,160,  1, 16,160,  1, 32,160,  1, 32,160,
      1, 64,160,  1, 64,160,  1,192,160,  1,128,160,  1,128,160,
      1,  0,224,  2,  0, 64,  2,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* zeta */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,128,  0,
      0,128,  0,  1,  0,  0,  1,  0,  0,  2,  0,128,  2,  7,  0,
      2, 56,  0,  1,224,  0,  0, 64,  0,  0,128,  0,  0,128,  0,
      1,  0,  0,  2,  0,  0,  2,  0,  0,  2,  0,  0,  2,  0,  0,
      2,  0,  8,  1,  0, 16,  1,  0, 96,  0,131,128,  0,124,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* eta */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,128,  0,  7,192,
      0, 14, 32,  0, 24, 32,  0, 56, 32,  0, 56, 32,  0,104, 32,
      0,104, 32,  0,200, 64,  0,200,192,  0,136,128,  1,137,128,
      1,137,  0,  3, 11,  0,  2, 10,  0,  2, 10,  0,  2, 12,  0,
      2, 12,  0,  2, 24,  0,  2, 48,  0,  1,224,  0,  0,192,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* theta */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  1,128,  0,  3,192,  0,  4, 32,
      0,  8, 32,  0, 16, 32,  0, 32, 32,  0, 64, 32,  0,128, 32,
      0,128, 64,  1,  0,128,  2,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* iota */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 32,  0,  0, 96,
      0,  1,192,  0,  3,  0,  0,  6,  0,  0, 28,  0,  0, 60,  0,
      0,104,  0,  0,200,  0,  1,136,  0,  3, 12,  0,  2, 20,  0,
      0, 54,  0,  0, 35,  0,  0, 97,128,  0, 64,192,  0,192, 64,
      1,128, 32,  3,128, 32,  3,  0,  0,  3,  0,  0,  2,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* kappa */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 32,
      0,  0, 96,  0,  0, 96,  4,  0,224,  6,  1,192,  7,  3,128,
      3,135,  0,  1,198,  0,  0,252,  0,  0,120,  0,  0, 60,  0,
      0,  6,  0,  0,  7,  0,  0,  3,128,  0,  1,192,  0,  0,224,
      0,  0, 96,  0,  0, 32,  0,  0, 32,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* lambda */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  4,  0,  0, 24,  0,  0, 32,
      0,  0,192,  0,  3,  0,  0, 12,  0,  0, 63,192,  0,192, 32,
      3,  0, 32,  0,  0, 32,  0,  0, 32,  0,  0, 32,  0,  0, 64,
      0,  0, 64,  0,  0,128,  0,  0,128,  0,  1,192,  0,  6, 32,
      0, 24, 32,  0, 96, 32,  1,128, 32,  2,  0, 64,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* mu */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 32,
      2,  0,224,  2,  3,224,  2, 15,224,  2, 63, 32,  2,252, 32,
      3,240, 32,  3,192, 64,  3,  0, 64,  0,  0, 64,  0,  0,128,
      0,  0,128,  0,  1,  0,  0,  2,  0,  0,  4,  0,  0,  8,  0,
      0, 16,  0,  0, 32,  0,  3,192,  0,  3,192,  0,  3,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* nu */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,224,
      0,  1,224,  0,  3,224,  0,102, 32,  4,252, 32, 10,216, 32,
      2,136, 36,  3,136, 36,  3,  8, 36,  2,  8, 40,  2,  8, 40,
      2,  8, 40,  2,  8, 56,  2, 24, 48,  2, 24, 32,  2,  0,  0,
      4,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* xi */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 60,  0,  0,126,  0,
      0,127,  0,  0,195,  0,  1,129,128,  1,128,128,  1,  0,192,
      2,  0,192,  2,  0,192,  2,  0,192,  2,  0,192,  2,  0,192,
      2,  0,128,  2,  1,  0,  2,  1,  0,  2,  3,  0,  3,  6,  0,
      1,158,  0,  1,252,  0,  0,248,  0,  0, 96,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* omicron */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,192,  0,  1,128,  0,
      3,  0, 32,  3,  0,224,  7,  3,224,  7, 15,224,  7,252,  0,
      7,240,  0,  7,  0,  0,  7,  0,  0,  7,  0,  0,  7,  0,  0,
      7,  0,  0,  7,  0,  0,  7, 15,224,  7,127,224,  7,240,224,
      7,128, 32,  7,  0,  0,  7,  0,  0,  6,  0,  0,  4,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* pi */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0, 12,  0, 60,252,  0,127,252,
      0,127,240,  0,195,  0,  1,129,128,  1,128,128,  1,  0,128,
      2,  0,128,  2,  0,128,  2,  0,128,  2,  0,128,  2,  0,128,
      2,  0,128,  2,  1,  0,  2,  1,  0,  2,  3,  0,  3,  6,  0,
      1,158,  0,  1,252,  0,  0,248,  0,  0, 96,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* rho */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 60,  0,  0,126,  0,
      0,127,  0,  0,195,  0,  1,129,128,  1,128,128,  1,  0,128,
      2,  0,128,  2,  0,128,  2,  0,128,  2,  0,128,  2,  0,128,
      2,  0,128,  2,  1,  0,  2,  1,  0,  2,  3,  0,  3,  6,  0,
      3,158,  0,  3,252,  0,  3,248,  0,  3,224,  0,  3,128,  0,
      3,128,  0,  3,128,  0,  3,128,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* sigma */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,128,  0,  1,  0,  0,  1,  0,  0,  3,  0,  0,
      3,  0,  0,  3,  0, 96,  3,  1,224,  3,  7,192,  3, 24,  0,
      3,224,  0,  3,  0,  0,  3,  0,  0,  3,  0,  0,  3,  0,  0,
      3,  0,  0,  3,  0,  0,  3,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* tau */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  1,  0,  0,
      3,  0,  0,  3,  0, 64,  3,224,224,  0,255,224,  0, 31, 32,
      0,  0, 32,  0,  0, 32,  0,  0, 32,  0,  0, 64,  0,  0, 64,
      0,  0,128,  0,  1,  0,  0,  2,  0,  0,  4,  0,  0,  8,  0,
      0, 16,  0,  0, 32,  0,  0, 64,  0,  3,128,  0,  3,  0,  0,
      2,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* upsilon */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 30,  0,  0, 63,132,
      0, 97,200,  0,192,112,  1,128, 32,  1,  0, 96,  2,  0,160,
      2,  1, 32,  2,  2, 32,  2,  4, 32,  2,  8, 32,  2, 16, 32,
      2, 32, 32,  2, 64, 96,  2,128, 96,  3,  0, 64,  2,  0,128,
      6,  1,128,  9,  7,  0, 17,142,  0,  0,248,  0,  0,112,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* phi */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  2,  0, 32,
      2,  0, 64,  3,  0,128,  3,  1,  0,  1,129,  0,  0,194,  0,
      0, 98,  0,  0, 52,  0,  0, 28,  0,  0, 12,  0,  0, 14,  0,
      0, 19,  0,  0, 17,  0,  0, 32,128,  0, 64,192,  0,128, 64,
      3,  0, 32,  0,  0, 32,  0,  0, 32,  0,  0, 32,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* chi */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      2,  0,  0,  2,  0,  0,  2,  0,192,  2,  7,228,  1,255, 56,
      0,248, 32,  0,  0,224,  0,  3, 32,  0, 12, 64,  0, 48, 64,
      0, 64, 64,  1,129,128,  6,  3,128,  8, 14,  0,  0, 60,  0,
      0,240,  0,  1,192,  0,  3,  0,  0,  2,  0,  0,  2,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* psi */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  7,128,  0, 24, 64,
      0, 96, 32,  0,128, 32,  1,  0, 32,  2,  0, 32,  0,  0, 32,
      0,  0, 64,  0,  0, 64,  0,  0,128,  0,  1,  0,  0, 15,128,
      0,  0, 64,  0,  0, 32,  0,  0, 32,  0,  0, 32,  0,  0, 32,
      0,  0, 32,  2,  0, 64,  1,128,128,  0, 97,  0,  0, 30,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* omega */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  8,  0, 32,  8,  0, 32, 15,255,224,
     15,255,224, 15,255,224,  8,  0, 32,  8,  0, 32,  8,  0,  0,
      8,  0,  0,  8,  0,  0,  8,  0,  0,  8,  0,  0,  8,  0,  0,
      8,  0,  0,  8,  0,  0,  8,  0,  0,  8,  0,  0,  8,  0,  0,
      8,  0,  0,  8,  0,  0,  8,  0,  0, 12,  0,  0, 14,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* Gamma */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 32,  0,  0, 96,
      0,  1,160,  0,  2, 32,  0, 12, 32,  0, 16, 32,  0, 32, 32,
      0, 64, 32,  1,128, 32,  2,  0, 32, 12,  0, 32,  6,  0, 32,
      3,  0, 32,  1,128, 32,  0,224, 32,  0,112, 32,  0, 24, 32,
      0, 14, 32,  0,  7, 32,  0,  1,160,  0,  0,224,  0,  0, 96,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* Delta */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 60,  0,  0,126,  0,
      0,199,  0,  1,131,128,  3,  1,128,  6,  0,192,  4,124, 64,
      8, 56, 32,  8, 16, 32,  8, 16, 32,  8, 16, 32,  8, 16, 32,
      8, 16, 32,  8, 56, 32,  4,124, 64,  6,  0,192,  2,  0,128,
      1,  1,128,  1,131,  0,  0,198,  0,  0,126,  0,  0, 60,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* Theta */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0, 32,  0,  0, 32,  0,  0, 96,
      0,  1,160,  0,  2,  0,  0, 12,  0,  0, 16,  0,  0, 32,  0,
      0, 64,  0,  1,128,  0,  2,  0,  0, 12,  0,  0, 14,  0,  0,
      7,  0,  0,  3,128,  0,  1,224,  0,  0,240,  0,  0,120,  0,
      0, 30,  0,  0, 15,  0,  0,  7,160,  0,  1,224,  0,  0,224,
      0,  0, 96,  0,  0, 32,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* Lambda */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 32,  0,  8,192,
      1, 49,192, 14,112,192,  6, 48,192,  6, 48,192,  6, 48,192,
      6, 48,192,  6, 48,192,  6, 48,192,  6, 48,192,  6, 48,192,
      6, 48,192,  6, 48,192,  6, 48,192,  6, 48,192,  6, 48,192,
      6, 48,192,  6, 48,224,  6, 56,192,  7, 49,  0, 14, 64,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* Xi */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  8,  0, 32,  8,  0, 32,
     15,255,224, 15,255,224, 15,255,224,  8,  0, 32,  8,  0, 32,
      8,  0,  0,  8,  0,  0,  8,  0,  0,  8,  0,  0,  8,  0,  0,
      8,  0,  0,  8,  0,  0,  8,  0,  0,  8,  0, 32,  8,  0, 32,
     15,255,224, 15,255,224, 15,255,224,  8,  0, 32,  8,  0, 32,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* Pi */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  8,  0, 32, 12,  0, 96,
     14,  0,224, 13,  1, 96, 12,130, 96, 12, 68, 96, 12, 40, 96,
     12, 16, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96,
     12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96,
     12,  0, 96, 12,  0, 96, 12,  0, 96,  4,  0,224,  2,  1,224,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* Sigma */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  7,  0,  0, 15,  0,  0,
     12,  0,  0, 12,  0,  0, 12,  0,  0, 14,  0,  0,  7,  0,  0,
      3,128, 32,  3,192, 32,  1,255,224,  0,255,224,  1,255,224,
      3,  0, 32,  2,  0, 32,  4,  0,  0,  4,  0,  0,  8,  0,  0,
      8,  0,  0,  8,  0,  0,  8,  0,  0,  8,  0,  0,  6,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* Upsilon */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0, 28,  0,  0, 62,  0,  0,127,  0,
      0,247,128,  0,193,128,  1,128,192,  1,  0, 64,  1,  0, 64,
     18,  0, 36, 18,  0, 36, 31,255,252, 31,255,252, 31,255,252,
     18,  0, 36, 18,  0, 36, 17,  0, 64,  1,  0, 64,  1,128,192,
      0,193,128,  0,247,128,  0,127,  0,  0, 62,  0,  0, 28,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* Phi */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,192,  0,  1,128,  0,
      3,  0,  0,  3,  0,  0,  1,255,  0,  0,255,128,  0,  0,192,
      8,  0, 72,  8,  0,104, 15,255,248, 15,255,248, 15,255,248,
      8,  0,104,  8,  0, 72,  0,  0,192,  0,255,128,  1,255,  0,
      3,  0,  0,  3,  0,  0,  1,128,  0,  0,192,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* Psi */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0, 64,  0, 56, 96,  0,252, 32,
      1,254, 32,  3,198, 32,  3,  3, 32,  7,  1,160,  4,  1,160,
     12,  0,224, 12,  0,  0, 12,  0,  0,  8,  0,  0, 12,  0,  0,
     12,  0,  0, 12,  0,224,  4,  1,160,  7,  1,160,  3,  3, 32,
      3,198, 32,  1,254, 32,  0,252, 32,  0, 56, 96,  0,  0, 64,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* Omega */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,192,  0,  0,192,  0,
      1,192,  0,  1,128,  0,  3,224,  0,  0,248,  0,  0,127,128,
      0, 31,224,  0,  7,224,  0,  1,224,  0,  0,192,  0,  1,128,
      0,  3,  0,  0,  6,  0,  0, 28,  0,  0, 56,  0,  0,224,  0,
      1,192,  0,  7,  0,  0, 14,  0,  0, 24,  0,  0,112,  0,  0,
     96,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* square root (no. 41)*/
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,224,  0,  1,240,  0,
      3,120,  0,  2, 28,  0,  2, 12, 64,  2,  6, 32,  2,  7, 32,
      2,  3,224,  3,  1,192,  1,128,192,  0,192,  0,  0,224,  0,
      0, 96,  0,  0, 32,  0,  0, 32,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* terminal sigma */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  8,  0, 65,  8,  0, 65,
      8,  0,195, 12,  0,130,  4,  1,134,  4,  1,132,  4,  1,  4,
      6,  3, 12,  2,  2,  8,  2,  2,  8,  2,  6, 24,  3,  4, 16,
      1, 12, 48,  1,  8, 48,  1,  8, 32,  1,152, 96,  0,144, 64,
      0,144, 64,  0,240,192,  0, 96,192,  0, 97,128,  0, 65,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* >= */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 33,  0,  0, 49,128,
      0,113,128,  0, 88,192,  0,200, 64,  0,200, 64,  0,136, 64,
      0,140, 96,  0,132, 32,  1,134, 48,  1,  2, 16,  1,  2, 16,
      3,  3, 24,  2,  1,  8,  2,  1,140,  6,  0,132,  4,  0,132,
      4,  0,198,  4,  0, 66, 12,  0, 66,  8,  0, 99,  8,  0, 33,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* <= */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      6, 24, 96,  6, 24, 96,  6, 24, 96,  6, 24, 96,  6, 24, 96,
      6, 24, 96,  6, 24, 96,  6, 24, 96,  6, 24, 96,  6, 24, 96,
      6, 24, 96,  6, 24, 96,  6, 24, 96,  6, 24, 96,  6, 24, 96,
      6, 24, 96,  6, 24, 96,  6, 24, 96,  6, 24, 96,  6, 24, 96,
      6, 24, 96,  6, 24, 96,  6, 24, 96,  6, 24, 96,  6, 24, 96,
      6, 24, 96,  6, 24, 96,  6, 24, 96,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* ident == */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0, 35,  0,  0, 99,  0,  0, 67,  0,  0,195,  0,  0,131,  0,
      1,131,  0,  1,  3,  0,  3,  3,  0,  2,  3,  0,  2,  3,  0,
      3,  3,  0,  1,  3,  0,  1,131,  0,  0,131,  0,  0,195,  0,
      0, 67,  0,  0, 99,  0,  0, 35,  0,  0, 51,  0,  0, 19,  0,
      0, 19,  0,  0, 19,  0,  0, 51,  0,  0, 99,  0,  0, 67,  0,
      0,195,  0,  0,131,  0,  1,131,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* approx = */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  4,  0,  0, 12,  0,  0,  8,  0,  0, 24,  0,  0, 16,  0,
      0, 48,  0,  0, 32,  0,  0, 96,  0,  0, 64,  0,  0, 64,  0,
      0, 96,  0,  0, 32,  0,  0, 48,  0,  0, 16,  0,  0, 24,  0,
      0,  8,  0,  0, 12,  0,  0,  4,  0,  0,  6,  0,  0,  2,  0,
      0,  2,  0,  0,  2,  0,  0,  6,  0,  0, 12,  0,  0,  8,  0,
      0, 24,  0,  0, 16,  0,  0, 48,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* approximates */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0, 97,128,  0, 97,129,  0, 97,131,  0, 97,134,  0, 97,140,
      0, 97,152,  0, 97,176,  0, 97,224,  0, 97,192,  0, 97,128,
      0, 99,128,  0,103,128,  0,109,128,  0,121,128,  0,113,128,
      0, 97,128,  0,225,128,  1,225,128,  3, 97,128,  6, 97,128,
     12, 97,128, 24, 97,128,208, 97,128, 64, 97,128,  0, 97,128,
      0, 97,128,  0, 97,128,  0, 97,128,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* not equal */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,
      0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,
      0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,
      0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,
      0, 56,  0,  0, 56,  0,  0, 56,  0,  1,255,  0,  0,254,  0,
      0,124,  0,  0, 56,  0,  0, 16,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* right arrow */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0, 16,  0,  0, 56,  0,  0,124,  0,  0,254,  0,  1,255,  0,
      0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,
      0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,
      0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,
      0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,  0, 56,  0,
      0, 56,  0,  0, 56,  0,  0, 56,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* left arrow */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  8,  0,  0,
     24,  0,  0, 56,  0,  0,127,255,255,255,255,255,127,255,255,
     56,  0,  0, 24,  0,  0,  8,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* up arrow */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 16,
      0,  0, 24,  0,  0, 28,255,255,254,255,255,255,255,255,254,
      0,  0, 28,  0,  0, 24,  0,  0, 16,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* down arrow  (no. 52 )*/
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0, 48,  0,  0, 48,  0,  0, 48,  0,  0, 48,  0,  0, 48,  0,
      0, 48,  0,  0, 48,  0,  0, 48,  0,  0, 48,  0,  0, 48,  0,
      3, 51,  0,  3, 51,  0,  3, 51,  0,  3, 51,  0,  3, 51,  0,
      3, 51,  0,  3, 51,  0,  0, 48,  0,  0, 48,  0,  0, 48,  0,
      0, 48,  0,  0, 48,  0,  0, 48,  0,  0, 48,  0,  0, 48,  0,
      0, 48,  0,  0, 48,  0,  0, 48,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* divide */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,255,248,  0,255,254,  0,
      0,  7,  0,  0,  3,128,  0,  0,128,  0,  0,192,  0,  0, 64,
      0,  0, 96,  0,  0, 96,  0,  0, 96,  0,  0, 96,  0,  0, 96,
      0,  0, 96,  0,  0, 96,  0,  0,192,  0,  0,128,  0,  1,128,
      0,  1,  0,  0,  3,  0,  0,  6,  0,255,252,  0,255,248,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* cup */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,255,252,  7,255,252,
     14,  0,  0, 24,  0,  0, 48,  0,  0, 48,  0,  0, 32,  0,  0,
     96,  0,  0, 96,  0,  0, 96,  0,  0, 96,  0,  0, 96,  0,  0,
     96,  0,  0, 96,  0,  0, 32,  0,  0, 48,  0,  0, 48,  0,  0,
     16,  0,  0, 28,  0,  0, 15,  0,  0,  3,255,252,  0,255,252,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* cap */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,124,  0,  0,255,  0,  1,131,128,  3,  1,192,  2,  0,192,
      6,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96,
     12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96,
     12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96,
     12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96,
     12,  0, 96, 12,  0, 96, 12,  0, 96,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* subset of */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
     12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96,
     12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96,
     12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96,
     12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96, 12,  0, 96,
     12,  0, 96,  4,  0,192,  6,  0,192,  3,  1,128,  1,131,  0,
      1,231,  0,  0,126,  0,  0, 56,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* superset of  (No 57) */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      1,240, 48,  3,252, 48,  6, 14, 48, 12,  7, 48,  8,  3, 48,
     24,  1,176, 48,  1,176, 48,  1,176, 48,  1,176, 48,  1,176,
     48,  1,176, 48,  1,176, 48,  1,176, 48,  1,176, 48,  1,176,
     48,  1,176, 48,  1,176, 48,  1,176, 48,  1,176, 48,  1,176,
     48,  1,176, 48,  1,176, 48,  1,176, 48,  1,176, 48,  1,176,
     48,  1,176, 48,  1,176, 48,  1,176,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* improper subset */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
     48,  1,152, 48,  1,152, 48,  1,152, 48,  1,152, 48,  1,152,
     48,  1,152, 48,  1,152, 48,  1,152, 48,  1,152, 48,  1,152,
     48,  1,152, 48,  1,152, 48,  1,152, 48,  1,152, 48,  1,152,
     48,  1,152, 48,  1,152, 48,  1,152, 48,  1,152, 48,  1,152,
     48,  1,152, 16,  3, 24, 24,  3, 24, 12,  6, 24,  6, 12, 24,
      7,156, 24,  1,248, 24,  0,224, 24,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* improper superset */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0, 30,  0,  0, 63,  0,  0,127,128,  0,225,192,  0,192,224,
      0,128,224,  0,128, 96,  0,128, 96,  0,192,192,  0,224,192,
      0,115,128,  0, 63,  0,  0, 15,  0,  0, 31,  0,  0, 51,  0,
      0, 97,192,  0,192,192,  0,128, 96,  0,128, 96,  0,128, 96,
      0,128, 96,  0,192, 96,  0,192,224,  0,113,192,  0, 63,128,
      0, 31,  0,  0, 14,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* infinity */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 28,  0,  0,127,  0,
      0,255,128,  9,227,192, 25,128,192, 59,  0, 96,107,  0, 96,
     99,  0, 96, 99,  0, 96, 99,  0, 96, 99,  0, 96, 99,  0, 96,
     99,  0, 96, 49,  0, 64, 17,192,192, 24,227,192,  8,255,128,
     12, 63,  0,  6, 28,  0,  3,248,  0,  1,240,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* partial derivative */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  8,  0,  0, 12,  0,  0,
     14,  0,  0, 15,128,  0, 15,224,  0, 14,112,  0, 14, 24,  0,
     14, 14,  0, 14,  7,128, 14,  1,192, 14,  0, 96, 14,  1,224,
     14,  3,192, 14,  7,128, 14, 30,  0, 14, 60,  0, 14,120,  0,
     14,224,  0, 15,192,  0, 15,128,  0, 15,  0,  0, 12,  0,  0,
      8,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* gradient */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,112,  0,  0,112,  0,  0,112,  0,  0,112,  0,  0,112,  0,
      0,112,  0,  0,112,  0,  0,112,  0,  0,112,  0,  0,112,  0,
      0,112,  0,  0,112,  0,  0,112,  0,  0,112,  0,  0,112,  0,
      0,127,  0,  0,127,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* not */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0, 14,  0,  0, 31,  0,  0, 63,  0,  0, 31,  0,  0, 14,
      0,  0,  6,  7,255,254, 15,255,252, 31,255,248, 63,255,240,
     96,  0,  0,112,  0,  0,248,  0,  0,248,  0,  0,112,  0,  0,
     32,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* integral sign */
    },
    {
     27,'p',  1, 27,'&',  0,'A','A',  4, 28,  5,
      0,  0,  0,  0,  0,  0,  0,120,  0,  0,252,  0,  1,254,  0,
      1,254,  0,  3,255,  0,  3, 51,  0,  6, 49,128,  6, 49,128,
     12, 48,192, 12, 48,192, 24, 48, 96, 24, 48, 96, 24, 48, 96,
     24, 48, 96, 24, 48, 96, 24, 48, 96, 24, 48, 96, 24, 48, 96,
     24, 48, 96, 24, 48, 96, 24, 48, 96, 24, 48, 96, 24, 48, 96,
      0,  0,  0,  0,  0,  0,  0,  0,  0,
     27,'%',  1,'A', 27,'%',  0, 27,'p',  0	/* member of */
    },
    };

main () {
   int   j,
	up,
         cnt;
   char  c,
         curchar;
   struct sgttyb  ttyb;
   struct tchars  ttyt;
   up=0;

   gtty (1, &ttyb);
   ttyb.sg_flags &= ~( ECHO |  NL1 | XTABS | EVENP ); /* turn this bits off */
   ttyb.sg_flags |= TANDEM | CBREAK ;  /* turn this bits on */
   stty (1, &ttyb);
   ioctl (1, TIOCGETC, &ttyt);
   ttyt.t_startc = ctl (Q);
   ttyt.t_stopc = ctl (S);
   ioctl (1, TIOCSETC, &ttyt);
   ioctl (1, TIOCEXCL, (struct sgttyb *) 0);
   curchar = getchar ();
   while (curchar != EOF) {
      if (curchar == ESC) {
	 c = getchar();
	 cnt = (c - 'A');		 	/* if char is 'A' then = zero */
	 switch (cnt) {
	    case 0:
	       break;				/* first char. is an A */
	    case 1:
	       cnt = 26;			/* first char is a B, so add 26 to cnt */
	       break;
	    case 2:
	       cnt = 52;			/* first char is a C, so add 52 to cnt */
	       break;
	    default:
	       putchar (ESC);
	       putchar (c);
	       goto noabc;			/* no A, B, or C so put ESC back on line */
	}
	 cnt += (getchar () - 'A');
	 switch (cnt) {
	    case 0: 
	       putchar (ESC);
	       putchar ('x');			 /* NLQ */
	       putchar (1);
	       putchar (ESC);
	       putchar ('M');			 /* ELITE this is the right mode */ 
						 /* for 12 char. per inch */
	       curchar = 0; 
	       break;
	    case 1: 
	       putchar (ESC);
	       putchar ('x');			 /* DRAFT */
	       putchar (0);
	       curchar = 0;
	       break;
	    case 2: 
               if (up == 0){
	         putchar (ESC);
	         putchar ('S');			 /* SUPERSCRIPT */
	         putchar (0);
                 up = 1;
               }
               else if (up == -1){               /* must be -1 */
			putchar(ESC);
			putchar('T');		 /* if again on middle line: cancel SUB/SUP */
                        up = 0;
		}
	       curchar = 0;
	       break;
	    case 3: 
               if (up == 0){
	         putchar (ESC);
	         putchar ('S');			 /* SUBSCRIPT */
	         putchar (1);
                 up = -1;
               }
               else if (up == 1){                            /* must be 1 */
			putchar(ESC);
			putchar('T');		 /* if again on middle line: cancel SUB/SUP */
                        up = 0;
		}
               else if (up == -1){
                  putchar(ESC); putchar('T');
                  putchar('\n'); 
                  up = 0;
               } 
	       curchar = 0;
	       break;
	    case 4:
               if (up==-1){
                 putchar(ESC);
                 putchar('T');
                 putchar(ESC);
                 putchar('S');
                 putchar(0);
                 up = 1;
               }
	       curchar = 0;
	       break;
	    case 5: 
	       putchar (ESC);
	       putchar ('E');			 /* EMPHASIZED ON */
	       curchar = 0;
	       break;
	    case 6: 
	       putchar (ESC);
	       putchar ('F');			 /* EMPHASIZED OFF */
	       curchar = 0;
	       break;
	    default: 
	       for (j = 0; j < 105; j++) {
		  c = table[cnt-7][j];
		  putchar (c);
	       }
	       curchar = 0;
	       break;
	 }
	}
	 else {
	 putchar (curchar);
noabc:
	 curchar = getchar ();
      }
   }
   putchar (ESC);
   putchar ('P');				 /* ELITE-SIZE off */
   putchar (ESC);
   putchar ('x');				 /* DRAFT off */
   putchar (0);
   putchar (ESC);
   putchar ('T');				 /* SUP/SUB off */
}
!End-Of-epf.c!
echo x - makefile
cat > makefile <<'!End-Of-makefile!'
# mkmake  $Revision: 1.8 $ $Date: 85/02/08 13:26:48 $
.SUFFIXES:	.c .L .o .y .l
.c.L:	;	lint $? > $@
DST=/usr/lib

OBJECTS=epf.o 

CFLAGS=-O
LDFLAGS=

CSOURCES=epf.c 

LFILES=epf.L 

epf:	${OBJECTS}
	@cc ${CFLAGS} ${OBJECTS} -o epf ${LDFLAGS}
	@touch LASTMAKE

epf.o:	epf.c 
	@cc ${CFLAGS} -c epf.c

lint:	${LFILES}

install: epf
	@strip epf
	@mv epf ${DST}/epf
	@chmod 755 ${DST}/epf

clean:
	rm -f ${OBJECTS}
!End-Of-makefile!



More information about the Comp.sources.unix mailing list