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