#dKaco.bas
za=12
K=90
Ft=0 : Poz=0
while K<>99
  Zt$ = fn time$(0)
  draw left$ (Zt$,2)+":"+mid$ (Zt$,3,2),133, 15
  put #5,asc("1")
  if (fn serial(5) >0) 
    input #5,E$
    Lg=len(E$)
    if (Lg>66)
      print #4, Lg,"=Länge"+"---"+E$    
    endif
    t%=timer
  else
    E$=""
    sec%=timer-t% 
    draw right$ (str$(sec%),1) +"-"+str$(Z1)+"  ",45,0
  endif
  if (E$<>"") 
    K$=field$(E$,3," ")  
    K=val (K$) : K$=str$ (K,2)
    ZZ=0
  else
    ZZ=ZZ+1
  endif
'--- Zeile 36 /133!
  if (fn time$(0)>"154500") 
    if ((Uin<100 and K=1 and Po=0) or (ZZ>60) or (K=2)) 
      K=99    
    endif 
  endif
  if (K<9)
    F=0  
  endif
  fx=20 : fy=4*za    
  tb=20 : th=10/2  
  tx=fx+15 : ty=fy+5  
'---  
  if (K>=10  and K<50)  
    F=F+1 
    Ft=Ft+1 
    draw    "F"+K$+"  ",fx,fy 
    draw tri tx,ty, tx+tb,ty+th, tx+tb,ty-th, 1 
    if F=1 or F=12 or F=90 or F=360
       print #4, "F"+K$+"-> "+E$ 
       DZ=DZ+1
    endif
  endif
  if (E$<>"") 
'---  
    Po$ = field$ (E$,9," ")
    Po=val(Po$)
    draw "W  "+str$ (Po,4)+"  ",0,0
    draw "S"+K$+"  ",0,fy 
    Uin$ = field$(E$,4," ")
    Uin=round(val(Uin$))
    Uin$ = "V "+str$ (Uin,3)+"  " 
    draw Uin$+"  ",0,2*za
'---
    TP$ = field$(E$,10," ")
    TP = val(TP$)
    TP$ = str$ ( TP,2) 
    draw TP$+"° ",0,5*za
'---
    Iin$=field$(E$,5," ")
    Idc = val(Iin$)
    Idc1 = Idc1+Idc
    Idc2 = Idc1/30
    draw "A "+Iin$+"   ",0,3*za
'---
    if Pomax<Po then Pomax=Po : Pomax$="Wp "+str$(Pomax,4)
    draw Pomax$,0,za
'---
    Po1=Po1+Po
    Q=Po1/360/1000 
    Q$=str$ (Q,2,2)+" kWh" 
    draw Q$,118,0
'---
    Po2=Po2+Po
    Ui2=Ui2+Uin
    Pm=Po2/30
    Ui3=Ui2/30
'---
    'alle 5min. Z1=30
    Z1=Z1+1
    if Z1=30 
     if (fn time$(0)>"080000") 
      x=x+1
      draw x-1,y1-Pmalt*PpW,x,y1-Pm*PpW 
     endif
     Pmalt=Pm
     Po2=0
     Ui2=0
     Z1=0
     Idc1=0
     d$=(fn time$(0))+";"
     d$=d$+str$(Pm,4,1)+";" 
     d$=d$+TP$+";"
     d$=d$+str$(Ui3,3,1)+";"
     d$=d$+str$(Idc2,2,2)
     if DZ > DZM
       close #4
       Kc$="D1"+dt$
       open new "memo",Kc$ as #4
       DZ=0
     endif
     print #4,d$
     DZ=DZ+1
    endif
'---
    'Plot-Momentanwert - "hüpfender Punkt"
    draw x+2,y1-Poz*PpW-5, 4,3,-7
    draw x+3,y1-Po *PpW-5, 3,3, 7
    Poz=Po
  endif
'***************************************
  fn wait(0.3)
wend