.EQ
delim %%
gfont C
.EN
.RS
.PS
scale=1.2
line   from (7.000000, 8.225000) to (7.000000, 8.062500);
line   from (5.800000, 8.225000) to (5.800000, 8.062500);
line   from (4.600000, 8.225000) to (4.600000, 8.062500);
line   from (3.400000, 8.225000) to (3.400000, 8.062500);
line   from (2.200000, 8.225000) to (2.200000, 8.062500);
line   from (1.000000, 8.225000) to (1.000000, 8.062500);
line   from (0.800000, 8.150000) to (7.187500, 8.150000);

"\s9\fC%t sub 0 %\fP" at (1.0,7.95) ;
"\s9\fC%t sub 1 %\fP" at (2.2,7.95) ;
"\s9\fC%t sub 2 %\fP" at (3.4,7.95) ;
"\s9\fC%t sub 3 %\fP" at (4.6,7.95) ;
"\s9\fC%t sub 4 %\fP" at (5.8,7.95) ;
"\s9\fC%t sub 5 %\fP" at (7.0,7.95) ;

"\s9\fCif Flg = 0\fP" at (1.0,7.7);
"\s9\fCthen write(0)\fP" at (1.0,7.5);
"\s9\fCelse write(1)\fP" at (1.0,7.3);

"\s9\fCif Flg = 0\fP" at (2.2,7.7);
"\s9\fCthen write(0)\fP" at (2.2,7.5);
"\s9\fCelse write(1)\fP" at (2.2,7.3);

"\s9\fCif Flg = 0\fP" at (3.4,7.7);
"\s9\fCthen write(0)\fP" at (3.4,7.5);
"\s9\fCelse write(1)\fP" at (3.4,7.3);

"\s9\fCif Flg = 0\fP" at (4.6,7.7);
"\s9\fCthen write(0)\fP" at (4.6,7.5);
"\s9\fCelse write(1)\fP" at (4.6,7.3);

"\s9\fCif Flg = 0\fP" at (5.8,7.7);
"\s9\fCthen write(0)\fP" at (5.8,7.5);
"\s9\fCelse write(1)\fP" at (5.8,7.3);

"\s9\fCif Flg = 0\fP" at (7.0,7.7);
"\s9\fCthen write(0)\fP" at (7.0,7.5);
"\s9\fCelse write(1)\fP" at (7.0,7.3);

line -> from (1.0,7.2) to (1.0,6.6);
line -> from (2.2,7.2) to (2.2,6.6);
line -> from (3.4,7.2) to (3.4,6.6);
line -> from (4.6,7.2) to (4.6,6.6);
line -> from (5.8,7.2) to (5.8,6.6);
line -> from (7.0,7.2) to (7.0,6.6);

"\s9\fCwrite(0)\fP" at (1.0,6.5);
"\s9\fCwrite(1)\fP" at (2.2,6.5);
"\s9\fCwrite(0)\fP" at (3.4,6.5);
"\s9\fCwrite(1)\fP" at (4.6,6.5);
"\s9\fCwrite(0)\fP" at (5.8,6.5);
"\s9\fCwrite(1)\fP" at (7.0,6.5);

"\s9\fCFlg\fP" at (0.4,6.0) ;
"\s9\fC0\fP" at (0.98,6.0) ;
"\s9\fC1\fP" at (2.18,6.0) ;
"\s9\fC0\fP" at (3.38,6.0) ;
"\s9\fC1\fP" at (4.58,6.0) ;
"\s9\fC0\fP" at (5.78,6.0) ;
"\s9\fC1\fP" at (6.98,6.0) ;
.PE
.EQ
delim %%
gfont C
.EN
