.EQ
delim %%
gfont C
.EN
.RS
.PS
scale=1.2
line   from (7.000000, 8.225000) to (7.000000, 8.062500);
line   from (5.000000, 8.225000) to (5.000000, 8.062500);
line   from (3.000000, 8.225000) to (3.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.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,8.15) to (1.2,8.55);
line from (1.2,8.55) to (2.8,8.55);
line from (2.8,8.55) to (3.0,8.15);
line from (3.0,8.15) to (3.2,8.55);
line from (3.2,8.55) to (7.0,8.55);
line -> from (1.6,7.45) to (2.4,7.45);
line dashed from (2.3,7.3) to (7.3,7.3);
line dashed from (2.3,7.0) to (3.7,7.0);
line dashed from (4.6,7.0) to (5.5,7.0);
line dashed from (6.5,7.0) to (7.3,7.0);
line -> from (3.7,7.0) to (4.6,7.0);
line -> from (5.5,7.0) to (6.5,7.0);
line -> from (3.0,6.75) to (3.0,6.49);
line -> from (5.0,6.75) to (5.0,6.49);
line -> from (7.0,6.75) to (7.0,6.49);

line -> from (1.0,7.1) to (1.0,6.6);

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

"\s10\fC*q* write(q),\fP" at (1.0,7.6) ;
"\s10\fClength(1).\fP" at (1.0,7.3) ;

"\s10\fCempty (*q*)\fP" at (3.0,7.45) ;
"\s10\fC*r* @write(r)\fP" at (3.0,7.15) ;
"\s10\fC*s* @ @write(s)\fP" at (3.0,6.85) ;

"\s10\fCwrite(q)\fP" at (1.0,6.4) ;
"\s10\fCempty(*q*)\fP" at (3.0,6.4) ;
"\s10\fCwrite(r)\fP" at (5.0,6.4) ;
"\s10\fCwrite(s)\fP" at (7.0,6.4) ;
"\s10\fCwrite(s)\fP" at (7.0,6.85) ;
"\s10\fCwrite(r)\fP" at (5.0,7.15) ;
"\s10\fC@write(s)\fP" at (5.0,6.85);
.PE
.EQ
delim %%
gfont C
.EN
