.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.8,8.55);
line from (6.8,8.55) to (7.0,8.15);

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.5) to (1.0,7.25);
line -> from (4.0,7.5) to (4.0,7.25);
line -> from (7.0,7.5) to (7.0,7.25);

spline -> from (1.4,6.95)\
	then to (2.5,6.75)\
	then to (3.9,6.7);

"\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\fClength(1)\fP" at (4.0,7.75) ;
"\s10\fCA = 3\fP" at (7.0,7.75) ;

"\s10\fCA = 1\fP" at (1.0,7.1) ;
"\s10\fC@A = A+1\fP" at (1.0,6.95) ;

"\s10\fClength(1)\fP" at (4.0,7.1) ;
"\s10\fCA = 3\fP" at (7.0,7.1) ;

"\s10\fCA\fP" at (0.5,6.7) ljust;
"\s10\fC1\fP" at (1.0,6.7) ;
"\s10\fC2\fP" at (4.0,6.7) ;
"\s10\fC3\fP" at (7.0,6.7) ;
.PE
.EQ
delim %%
gfont C
.EN
