Wednesday, September 17, 2014

Kitt code released.

Giving out the super secret code for doing the Kitt light show on the X86. Do not have a guitar anymore, but that was me playing the guitar.




Think this is the secret code in freebasic for lighting the leds.

dim duration as double
dim tim as double
tim = TIMER
duration = .3
out 888, 0

for y = 1 to 20
'rem up
for x = 0 to 6
out 888, 2^x
r= inp(888)
out 888, (2^(x+1) +r)
tim = TIMER
DO
LOOP UNTIL (TIMER - tim + 86400) - (INT((TIMER - tim + 86400) / 86400) * 86400) > duration
out 888, 0
next x

'rem down
for b = 1 to 7
z = 7 - b
out 888, 2^z
r= inp(888)
out 888, (2^(z+1) +r)
tim = TIMER
DO
LOOP UNTIL (TIMER - tim + 86400) - (INT((TIMER - tim + 86400) / 86400) * 86400) > duration
out 888, 0
next b
next y

'rem end of sequence
out 888,0


rnd.bas

randomize  88888888
dim duration as double
dim tim as double
tim = TIMER
duration = .1
out 888, 0
for y = 1 to 100
out 888, 2^(abs((rnd(1)*8)))
tim = Timer
DO
LOOP UNTIL (TIMER - tim + 86400) - (INT((TIMER - tim + 86400) / 86400) * 86400) > duration
out 888, 0
next y

Circuit





Note: adapter used was http://www.instructables.com/id/No-solder-parallel-port-break-out/

No comments:

Post a Comment