Hier ist das Programm:
Code:
' --- Definitionen ---
define count word
define value word
define lastsec byte
define key ad[6]
define led port[1]
define sensor ad[7]
' --- Programmoperationen ---
count = 0
led = 0
lastsec = 0
open# for write
close#
#loop1
if second = 0 and second <> lastsec then gosub log
lastsec = second
pause 4200
#loop2
if key=0 then gosub dump
pause 20
if led then goto loop2 else goto loop1
#log
beep 100, 10, 0
open# for append
if filefree then print# sensor else goto filefull
close#
count = count + 1
return
#filefull
close#
led = ON
return
#dump
print
print count, " Messwerte"
open# for read
#dumpnext
if eof then return
input# value
print value; " ";
goto dumpnext
mfg
Speed
Lesezeichen