.EQ
delim %%
gfont C
.EN
.RS
.PS
scale=1.2
line   from (7.000000, 8.225000) to (7.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.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.5,7.6) to (6.5,7.6);
line -> from (7.0,7.5) to (7.0,7.2);

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

"\s10\fC@write(r).\fP" at (1.0,7.6) ;
"\s10\fCwrite(r).\fP" at (7.0,7.6) ;

"\s10\fCwrite(r).\fP" at (7.0,7.1) ;

.PE
.EQ
delim %%
gfont C
.EN
