Posts

Showing posts with the label freebasic.

Kitt code released.

Image
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) * 864...