main()
{

 a7382=gvarget(7382);
 a7383=gvarget(7383);
 a7384=gvarget(7384);
 a7385=gvarget(7385);

 do{

 if (gvarget(7382)!=a7382)
 {
   a7382=gvarget(7382);   
   if (a7382==0){portclr(14);}else {portset(14);};
 };
 if (gvarget(7383)!=a7383)
 {
   a7383=gvarget(7383);   
   if (a7383==0){portclr(13);}else {portset(13);};
 };
 if (gvarget(7384)!=a7384)
 {
   a7384=gvarget(7384);   
   if (a7384==0){portclr(12);}else {portset(12);};
 };
 if (gvarget(7385)!=a7385)
 {
   a7385=gvarget(7385);   
   if (a7385==0){portclr(11);}else {portset(11);};
 };

}while(1);

exit(99);
};