REM Datenlogger Rev 1.3 (c) Avisaro AG, 23.12.2008                                                  
REM   
REM Spezielle Erweiterung                         
REM   


inmode -3         
outmode -2          

DIM A(200)          
DIM NO as integer

BEGIN:      

REM bertragung stoppen                       
put -2, #5          
put -2, #105            
put -2, #0          
put -2, #0          
put -2, #146            


INPUTLEEREN:            
  INPUT A         
  if BYTESREAD > 0 then                       
    goto INPUTLEEREN                    
  end if        



  REM rote Lampe AUS                    
  setleds 34            


   REM solange Taste nicht gedrckt -> warten                                             
BEGINA:       
   if (KEYS & 1) = 0 then                         
      goto BEGINA                 
   end if         



BEGINB:       
   REM Lampe EIN                
   setleds 115              

   REM solange Taste gedr                         
   if (KEYS & 1) = 1 then                         
      goto BEGINB                 
   end if         

   setleds 34             


   let e = 0            


  let NO = 0;
  open "R", 2, "LOGNO.DAT"
  GET 2, NO$
  close 2
  if LASTERR <> 0 then                      
     LET NO$ = "0"
     end if           

  LET NO = VAL(NO$)
  LET NO = NO + 1
  LET NO$ = str$(NO)

  KILL "LOGNO.DAT"
  if LASTERR <> 0 then                      
     end if           

  open "W", 2, "LOGNO.DAT"
  PUT 2, NO$
  close 2
  if LASTERR <> 0 then                      
     end if           
 
  
  let Name$ = "DATA" + NO$ + ".TDC"

  KILL Name$
    if LASTERR <> 0 then                      
     end if           

  open "W", 1, Name$

  if LASTERR <> 0 then                      
      goto BEGIN                
     end if           

   setleds 115              


put -2, #5          
put -2, #105            
put -2, #2          
put -2, #1          
put -2, #143            


do  

   REM Daten von RS232 lesen und auf Karte schreiben                                                    
   INPUT A          
   if BYTESREAD > 0 then                        
      setleds 34                
      put 1, A, BYTESREAD                         

   end if         

   REM Periodisches Schlieen und ffnen                                        
   close 1          
   open "AB", 1, Name$

   setleds 115              

   if LASTERR <> 0 then                       
      close 1             
      let e = 1               
      goto FINISH                 
   end if         


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


loop    


FIN_KEY:        
   setleds 34             

   REM Warten bis Taste nicht gedrckt                                      
   if (KEYS & 1) = 1 then                         
      goto FIN_KEY                  
   end if         


FINISH:       
goto BEGIN          

   setleds 34             


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


goto BEGIN          


REM +++       
