??? P1=0x6f;
??? if(h1==0)
? {
?? delay(1);
?? if(h1==0)
?? {
??? while(!h1);
?? writen_com(0x80+0x45+sex);
?? writen_dat('*');
?? switch(sex)
?? {
??? case 0:k1=4;break;
??? case 1:k2=4;break;
??? case 2:k3=4;break;
??? case 3:k4=4;break;
??? case 4:k5=4;break;
??? case 5:k6=4;break;
?? }
?? sex++;
? }
?}
??? if(h2==0)
? {
?? delay(1);
?? if(h2==0)
?? {
??? while(!h2);
?? writen_com(0x80+0x45+sex);
?? writen_dat('*');
?? switch(sex)
?? {
??? case 0:k1=5;break;
??? case 1:k2=5;break;
??? case 2:k3=5;break;
??? case 3:k4=5;break;
??? case 4:k5=5;break;
??? case 5:k6=5;break;
?? }
?? sex++;
? }
?}
?if(h3==0)
? {
?? delay(1);
?? if(h3==0)
?? {
??? while(!h3);
?? writen_com(0x80+0x45+sex);
?? writen_dat('*');
?? switch(sex)
?? {
??? case 0:k1=6;break;
??? case 1:k2=6;break;
??? case 2:k3=6;break;
??? case 3:k4=6;break;
??? case 4:k5=6;break;
??? case 5:k6=6;break;
?? }
?? sex++;
? }
?}
/*--------------------------------*/
??? P1=0x5f;
??? if(h1==0)
? {
?? delay(1);
?? if(h1==0)
?? {
??? while(!h1);
?? writen_com(0x80+0x45+sex);
?? writen_dat('*');
?? switch(sex)
?? {
??? case 0:k1=7;break;
??? case 1:k2=7;break;
??? case 2:k3=7;break;
??? case 3:k4=7;break;
??? case 4:k5=7;break;
??? case 5:k6=7;break;
?? }
?? sex++;
? }
?}
??? if(h2==0)
? {
?? delay(1);
?? if(h2==0)
?? {
??? while(!h2);
?? writen_com(0x80+0x45+sex);
?? writen_dat('*');
?? switch(sex)
?? {
??? case 0:k1=8;break;
??? case 1:k2=8;break;
??? case 2:k3=8;break;
??? case 3:k4=8;break;
??? case 4:k5=8;break;
??? case 5:k6=8;break;
?? }
?? sex++;
? }
?}
?if(h3==0)
? {
?? delay(1);
?? if(h3==0)
?? {
??? while(!h3);
?? writen_com(0x80+0x45+sex);
?? writen_dat('*');
?? switch(sex)
?? {
??? case 0:k1=9;break;
??? case 1:k2=9;break;
??? case 2:k3=9;break;
??? case 3:k4=9;break;
??? case 4:k5=9;break;
??? case 5:k6=9;break;
?? }
?? sex++;
? }
?}
?? /*-----------------------------------*/