REM
REM CAN Datenlogger "mc5.txt" Rev 1.2 (c) Avisaro AG, 31.05.2008
REM 

inmode -3
outmode -2

dim A(28)
dim B(28)
dim c(28)

dim d(3)
dim e(3)
dim f(10)
dim g(10)

' data transmitted
let t = 0

exec "sched 50 fix"

sleep 100

BEGIN:

   setleds 34

   let n$ = date$

   let f$ = mid$(date$, 3 , 2) + mid$(date$, 6 , 2) + mid$(date$, 9 , 2) + ".txt"

   REM FIfo leer lesen
   getcan A

   REM Tasten entprellen
   if KEYS = 1 then
      goto BEGIN
   end if

   sleep 1
   open "A", 1, f$

	
   if LASTERR <> 0 then
 
      open "W", 1, f$

      if LASTERR <> 0 then

         close 1
         goto BEGIN
      end if
   end if

   setleds 51


do

   REM Neue Datei ?
   if n$ <> date$ then
      close 1
      goto BEGIN
   end if


   REM Daten von CAN lesen und auf Karte schreiben

   getcan A

   setleds 51

   if LASTERR = 0 then

      setleds 34

      let t = time + 5

      put 1, date$
      put 1, #44

      put 1, time$
      put 1, #44

      let x$ = CANCSV$

      put 1, x$

    
      REM <cr>
      put 1, #13
      put 1, #10

   else


      ' Periodisches Schließen und Öffnen
      if t < time then
         close 1

         open "A", 1, f$
 
         if LASTERR <> 0 then
            close 1
            goto FINISH
         end if

         let t = time + 5

      end if

   end if


   REM Beenden ?
   if KEYS = 1 then
      close 1
      goto FIN_KEY
   end if

loop


FIN_KEY:
   REM Warten bis Taste nicht gedrückt
   if KEYS = 1 then
      setleds 34
      goto FIN_KEY
   end if


FINISH:


  setleds 34

   REM Warten bis Karte entnommen oder Taste gedrückt
   let x = loc (0)
   if (x < 50000) or (KEYS = 1) then
      goto BEGIN
   else
      goto FINISH
   end if


goto BEGIN



REM +++