using namespace std;
 void _stdcall Out32(short PortAddress, short data);

     typedef short _stdcall (*inpfuncPtr)(short portaddr);
     typedef void _stdcall (*oupfuncPtr)(short portaddr, short datum);

int main(void)
{
     HINSTANCE hLib;
     inpfuncPtr inp32;
     oupfuncPtr oup32;

     short x;
     int i;

     /* Load the library */
     hLib = LoadLibrary("inpout32.dll");

     if (hLib == NULL) {
          printf("LoadLibrary Failed.\n");
          return - 1 ;
     }

     /* get the address of the function */

     inp32 = (inpfuncPtr) GetProcAddress(hLib, "Inp32");

     if (inp32 == NULL) {
          printf("GetProcAddress for Inp32 Failed.\n");
          return - 1 ;
     }


     oup32 = (oupfuncPtr) GetProcAddress(hLib, "Out32");

     if (oup32 == NULL) {
          printf("GetProcAddress for Oup32 Failed.\n");
          return - 1 ;
     }

     short var;
      (oup32)(0X37A,  4 );
 	while( 1 )
 	{
                (oup32)(0X37A,  4 );
                var=(inp32)(0x379);
                printf ("%d\n", var);
                if (var== 127 - 7 )           //all off
                {
                        (oup32)(0X37A,  4 );
                }
                if (var== 63 - 7 )           // 1  on
                {
                        (oup32)(0X37A,  4 );
                        Sleep( 1000 );
                        (oup32)(0x37A,  8 );
                        Sleep( 1000 );
                        (oup32)(0x37A,  4 );
                        Sleep( 1000 );
                }
                if (var== 255 - 7 )           // 2  on
                {
                        (oup32)(0X37A,  0 );
                        Sleep( 1000 );
                        (oup32)(0x37A,  15 );
                        Sleep( 1000 );
                }
                if (var== 95 - 7 )           // 3  on
                {
                        (oup32)(0X37A,  4 );
                        Sleep( 300 );
                        (oup32)(0x37A,  8 );
                        Sleep( 300 );
                        (oup32)(0x37A,  4 );
                        Sleep( 300 );
                }
                if (var== 111 - 7 )           // 4  on
                {
                        (oup32)(0X37A,  4 );
                        Sleep( 300 );
                        (oup32)(0x37A,  8 );
                        Sleep( 300 );
                        (oup32)(0x37A,  4 );
                        Sleep( 300 );
                        (oup32)(0X37A,  0 );
                        Sleep( 300 );
                        (oup32)(0x37A,  15 );
                        Sleep( 300 );

                }
                if (var== 119 - 7 )           // 5  on
                {
                        (oup32)(0X37A,  0 );
                        Sleep( 300 );
                        (oup32)(0x37A,  8 );
                        Sleep( 300 );
                        (oup32)(0X37A,  0 );
                        Sleep( 300 );
                        (oup32)(0x37A,  8 );
                        Sleep( 300 );
                        (oup32)(0X37A,  4 );
                        Sleep( 300 );
                        (oup32)(0x37A,  15 );
                        Sleep( 300 );
                        (oup32)(0X37A,  4 );
                        Sleep( 300 );
                        (oup32)(0x37A,  15 );
                        Sleep( 300 );
                }
                if (var== 191 - 7 )
                {
                        break;
                }
 	}
     FreeLibrary(hLib);;
     return  0 ;
}