Borland c: Programa para leds

Programa en borland c que sirve para accionar los leds de la forma que quieran, siempre y cuando esté conectado en una plaqueta y a la computadora.

El programa tiene muchas funcionalidades espero que los que empiezan a programar con borland c les sirva:

#include
#include
#include
void main()
{
outport (0x378,0);
outport (0x378,1);
delay (500);
outport (0x378,2);
delay (500);
outport (0x378,4);
delay (500);
outport (0x378,8);
delay (500);
outport (0x378,16);
delay (500);
outport (0x378,32);
delay (500);
outport (0x378,64);
delay (500);
outport (0x378,128);
delay (800);
outport (0x378,64);
delay (500);
outport (0x378,32);
delay (500);
outport (0x378,16);
delay (500);
outport (0x378,8);
delay (500);
outport (0x378,4);
delay (500);
outport (0x378,2);
delay (500);
outport (0x378,1);
delay (800);
outport (0x378,0);
outport (0x378,4);
delay (500);
outport (0x378,16);
delay (500);
outport (0x378,64);
delay (500);
outport (0x378,0);
outport (0x378,2);
delay (500);
outport (0x378,8);
delay (500);
outport (0x378,32);
delay (500);
outport (0x378,128);
delay (800);
outport (0x378,0);
outport (0x378,3);
delay (500);
outport (0x378,2);
delay (500);
outport (0x378,12);
delay (500);
outport (0x378,8);
delay (500);
outport (0x378,48);
delay (500);
outport (0x378,32);
delay (500);
outport (0x378,192);
delay (500);
outport (0x378,128);
outport (0x378,0);
outport (0x378,1);
delay (100);
outport (0x378,2);
delay (100);
outport (0x378,4);
delay (100);
outport (0x378,8);
delay (100);
outport (0x378,16);
delay (100);
outport (0x378,32);
delay (100);
outport (0x378,64);
delay (100);
outport (0x378,128);
delay (100);
outport (0x378,64);
delay (100);
outport (0x378,32);
delay (100);
outport (0x378,16);
delay (100);
outport (0x378,8);
delay (100);
outport (0x378,4);
delay (100);
outport (0x378,2);
delay (100);
outport (0x378,1);
delay (100);
outport (0x378,2);
delay (100);
outport (0x378,4);
delay (100);
outport (0x378,8);
delay (100);
outport (0x378,16);
delay (100);
outport (0x378,32);
delay (100);
outport (0x378,64);
delay (100);
outport (0x378,128);
delay (100);
outport (0x378,64);
delay (100);
outport (0x378,32);
delay (100);
outport (0x378,16);
delay (100);
outport (0x378,8);
delay (100);
outport (0x378,4);
delay (100);
outport (0x378,2);
delay (100);
outport (0x378,1);
delay (100);
outport (0x378,2);
delay (100);
outport (0x378,4);
delay (100);
outport (0x378,8);
delay (100);
outport (0x378,16);
delay (100);
outport (0x378,32);
delay (100);
outport (0x378,64);
delay (100);
outport (0x378,128);
delay (100);
outport (0x378,64);
delay (100);
outport (0x378,32);
delay (100);
outport (0x378,16);
delay (100);
outport (0x378,8);
delay (100);
outport (0x378,4);
delay (100);
outport (0x378,2);
delay (100);
outport (0x378,1);
delay (100);
outport (0x378,2);
delay (100);
outport (0x378,4);
delay (100);
outport (0x378,8);
delay (100);
outport (0x378,16);
delay (100);
outport (0x378,32);
delay (100);
outport (0x378,64);
delay (100);
outport (0x378,128);
outport (0x378,0);
outport (0x378,3);
delay (500);
outport (0x378,4);
delay (500);
outport (0x378,24);
delay (500);
outport (0x378,32);
delay (500);
outport (0x378,192);
delay (500);
outport (0x378,0);
outport (0x378,255);
delay (1000);
outport (0x378,129);
delay (500);
outport (0x378,66);
delay (500);
outport (0x378,36);
delay (500);
outport (0x378,24);
delay (500);
outport (0x378,36);
dalay (500);
outport (0x378,66);
delay(500);
outport (0x378,192);
delay (500);
outport (0x378,255);
delay(500);
outport (0x378,0);
outport (0x378,255);
delay (500);
outport (0x378,0);
outport (0x378,255);
delay (500);
outport (0x378,0);
outport (0x378,255);
delay (1000);
getch();
}