Hola

Funciona solo con windows 98 o versiones anteriores
El puerto de la impresora de una pc se puede encender y apagar usando una de las siguientes lineas de QBASIC
OUT 888,0
OUT 632,0
El número '0' se altera de acuerdo a que cables se desea apagar o encender. Ninguna de esta lineas es un progama hay que hacerlas correr para que trabajen
Aunque el puerto de la impresora tiene 25 coneccionessolo 8 son salidas utilizables. Aquí mostramos 4 de ellas para controlar un simple robot.
Para cambiar de apagado (off) a encendido (on) se usa un número binario. Por ejemplo el número binario 0101 (del cual el equivalente decimal es el 5) hará que el motor vaya adelante.

Intenta las primeras líneas de QBASIC con este número
OUT 888,5
y fíjate si algo pasa. Si no ocurre nada prueba con:
OUT632,5
Usualmente el primero es el que mejor trabaja.

El robot simple que se ve arriba consiste de dos motores pegados por el centro con pegamento epóxico, un clip para evitar que se vaya de espaldas y dos bolitas de goma en aseguradas en los ejes. La razón por la que no tiene ruedas es que el puerto de la impresora sólo tiene suficiente corriente como para hacer funcionar motores de altaimpedancia ( motor de walkman o Mabuchi) en forma bastante lenta, si se coloca algún tipo de engranaje, este no girará. Usando el eje con bolitas como ruedas se logra reducción de engranajes sin engranajes. Al colocar una bolita de goma en el eje se logra mayor fricción.
Usualmente el puerto de la impresora se usa para hacer funcionar transistores  que a su vez harán funcionar a los motores, peroesto es un poco más complicado.
Asumiendo que las primeras lineas de QBASIC han funcionado las otras que se necesitarán son:
OUT 888,6
(primero motor en reversa, segundo motor adelante - '6' es el decimal del binario 0110)
OUT 888,9
(primero motor en reversa, segundo motor adelante - '9' es el decimal del binario 1001)
y finalmente
OUT 888,10
(ambos motores en reversa - '10' es el decimaldel binario 1010)
OUT 888,0 apaga ambos motores.
Números binarios arriba de 11111111 (decimal 255) se puden usar para hacer funcionar las ocho salidas.
Una forma fácil de crear un retraso de tiempo (time delay) es con el "loop" for-next , por ejemplo:
FOR n=0 TO 10000: NEXT
Creará un corto pero perceptible retraso de tiempo,  su duración precisa depende de la velocidad del procesador de lacomputadora. Para qeu retraso sea más largo se usa un número más grande:
FOR n=0 TO 70000: NEXT
Un número más pequeño nos dará un intervalo de tiempo más pequeño.
Este programa encenderá ambos motores por un momento, luego hará que uno de ellos vaya en reversa:
OUT 888,5
FOR n=0 TO 9000: NEXT
OUT 888,9

La animación de abajo muestra como se usan los números binarios para controlar lassalidas:

Otro uso es el de encender Leds, aquí se conectan dos Leds a las primeras salidas y ala tierra del puerto de la impresora por medio de un resistor de 10 ohmios. El resistor es para limitar la corriente y tal vez no sea necesario.

Si los LEDs se encienden y apagan usando el siguiente programa y la regla en la que están colocadas se hace ir de un lado al otro rapidamente, se podránotar una carita en el aire producida por los Leds.
w=10
WHILE INKEY$<>CHR$(27)
OUT 632,2
FOR n= 0 TO w:NEXT
OUT 632,1
FOR n= 0 TO 5 * w:NEXT
OUT 632,2
FOR n= 0 TO w:NEXT
OUT 632,0
FOR n= 0 TO 15 * w:NEXT
WEND
La variable w define el ancho de la imagen; el multiplicador 5 define el ancho de la boca; 15 define el espacio entre las caras. El programa antiene fuincionando el "loop" WHILE-WEND  hasta que se presiona escape (escape es 27 en código ASCII ).
Si el programa se hace más sofisticado,  se puede hacer que la cara guiñe el ojo, etc. Usando más Leds (se pueden usar más de 8) obtendremos imágenes más interesantes. Una mejor forma de hacer esto es usar un disco de Nipkov.
Usando las Entradas

Si se hace correr el siguente programa:
PRINT INP(889)
aparaecerá...