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