Внимание! Код!
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
Скопипастено
отсюда.
зы Комментарии тоже ниче так