Внимание! Код!

OUT &H278,255
CLS
DIM b(255)
b(254)=0
b(253)=2
b(251)=4
50
x=INP(&H37B)
OUT &H278, NOT b(x)
c=INP(&H278)
PRINT C
GOTO 50

А теперь его происхождение: http://www.youtube.com/watch?v=khYWkgbuv9s
Скопипастено отсюда.

зы Комментарии тоже ниче так