.EQ
delim %%
gfont C
.EN
.RS
.PS
scale=1.2
line   from (7.000000, 8.225000) to (7.000000, 8.062500);
line   from (4.000000, 8.225000) to (4.000000, 8.062500);
line   from (1.000000, 8.225000) to (1.000000, 8.062500);
line   from (0.800000, 8.150000) to (7.187500, 8.150000);
line from (1.0,8.15) to (1.2,8.55);
line from (1.2,8.55) to (3.8,8.55);
line from (3.8,8.55) to (4.0,8.15);
line from (4.0,8.15) to (4.2,8.55);
line from (4.2,8.55) to (6.7,8.55);
line from (6.7,8.55) to (6.8,8.15);
line from (6.8,8.15) to (6.9,8.55);
line from (6.9,8.55) to (7.0,8.55);

line from (1.0,8.15) to (1.1,8.65);
line from (1.1,8.65) to (7.0,8.65);
line dashed from (7.0,8.65) to (7.0,8.15);

line -> from (1.0,7.35) to (1.0,7.0);
line -> from (4.0,7.35) to (4.0,7.0);
line -> from (7.0,7.35) to (7.0,7.0);

line -> from (1.55,7.6) to (3.8,7.6);
line -> from (4.4,7.6) to (6.7,7.6);

spline -> from (1.4,6.7)\
	then to (2.5,6.2)\
	then to (3.9,6.03);
spline -> from (1.5,6.55)\
	then to (3.9,6.17)\
	then to (6.95,5.99);

"\s10\fC%t sub 0 %\fP" at (1.0,7.95) ;
"\s10\fC%t sub 1 %\fP" at (4.0,7.95) ;
"\s10\fC%t sub 2 %\fP" at (7.0,7.95) ;

"\s10\fCA = 1\fP" at (1.0,7.75) ;
"\s10\fC@A = A+1\fP" at (1.0,7.6) ;
"\s10\fC@ @A = A+2\fP" at (1.0,7.45) ;

"\s10\fCskip\fP" at (4.0,7.6) ;

"\s10\fCA = 4\fP" at (7.0,7.6) ;

"\s10\fCA = 1\fP" at (1.0,6.85) ;
"\s10\fC@A = A+1\fP" at (1.0,6.7) ;
"\s10\fC@ @A = A+2\fP" at (1.0,6.55) ;

"\s10\fCskip\fP" at (4.0,6.7) ;

"\s10\fCA = 4\fP" at (7.0,6.85) ;
"\s10\fC@A = A+1\fP" at (7.0,6.7) ;

"\s10\fCA\fP" at (0.5,6.1) ljust;
"\s10\fC1\fP" at (1.0,6.1) ;
"\s10\fC3\fP" at (7.0,5.98) ;
"\s10\fC(lost)\fP" at (7.1,5.98) ljust;
"\s10\fC2\fP" at (4.0,6.02) ;
"\s10\fC4\fP" at (7.0,6.1) ;
.PE
.EQ
delim %%
gfont C
.EN
