'
' CAN Datenlogger "mc8.txt" Rev 3 (c) Avisaro AG, 27.05.2009
' 
' Logging CAN Messages in binary format
'


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

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

' data transmitted
let t = time
let id = 0
sleep 100


BEGIN:

   setleds 34

   let n$ = date$

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

   ' FIfo leer lesen
   getcan A

   ' Tasten entprellen
   if (KEYS & 1) = 1 then
      goto BEGIN
   end if

   sleep 1
   open "AB", 1, f$

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

      if LASTERR <> 0 then

         close 1
         goto BEGIN
      end if
   end if

   setleds 51


   exec "stream 1 -7"

do

   sleep 10000

   let temp = status(1)
   if temp <> 2 then
      close 1
      goto begin
   end if

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

loop


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


FINISH:


  setleds 34

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


goto BEGIN



REM +++