CandleEater
Newly Enlightened
- Joined
- Nov 23, 2005
- Messages
- 30
main:
if pin3 = 1 then rite 'push to start taking readings
if pin4 = 1 then reed 'push to download
goto main
rite:
high 1 'turn on red led
for b0 = 0 to 199 'the number readings
readadc 2,b1 'anolog input (0-255)
write b0,b1 'write to memory
pause 60000 'pause 1 min
next b0
low 1 'turn off red led
goto main
reed: 'download
for b2 = 0 to 199
read b2,b3
sertxd(#b2,44,#b3,13,10)
pause 15
next b2
goto main