#dKaco_1g.bas
Name$ = "WR1"
Pmg = 3800 
Peh =  500 
DZM=110
'---
while inkey$=""
  while fn time$(0) > "160000" 
    tt$ = fn time$(0)
    draw "Warte auf den nächsten Tag...",2,20
    draw left$(tt$,2)+":"+mid$(tt$,3,2), 2, 40
    a = fn wait(60)
  wend
'--
su$="154500"
sa$="063000"
#include <#sonne.bas>
'--
  draw -1
  while fn time$(0) < sa$
    tt$ = fn time$(0)
    sa1$=left$(sa$,2)+":"+mid$(sa$,3,2)
    draw "Warte auf Sonnenaufgang "+sa1$,2,20
    draw left$(tt$,2)+":"+mid$(tt$,3,2), 2, 40
    a = fn wait(60)
  wend 
'*****************
  draw -1
  open "com1:",9600 as #5
  fn serctrl (8,0,1)
  dt$=fn date$(0)
  mt$=left$(fn date$(),3)  
  dt2$=right$(dt$,2)+"-"+mt$  
  Kc$="D0"+dt$
  open new "memo",Kc$ as #4
  DZ=0
  print #4,"TZeit;P [W];  T [°C];  Udc [V]; Idc [A]"
  Pomax=0: Po=0: Po1=0: Pmalt=0 : Q=0:Idc1=0
  ZZ=0 : Z1=0 : Z2=1 : x=0
'---  
  draw -1
  draw "                                                          ",0,0
  draw "                                                          ",0,8
  draw "                                1",0,143
  draw "                                1",0,151
'---  
  draw 0,11,30,11 
  draw 0,12,30,12
  draw Name$,75,0
  draw dt2$,61,139 
  draw "Ø",6,151 
'---  
  while fn serial (5)=0 
    put #5,asc ("1") 
    fn wait (2) 
    fn serial (5) 
  wend
  input #5,E$
  'Zeitachse
  x1=158
  x2=x1-3
  y1=150    
  y2=y1-1
  y3=y1-4
  y4=y1+1
  draw 1,y1,159,y1
  draw  24,y2, 24,y3
  draw  48,y2, 48,y3
  draw  72,y2, 72,y3
  draw  96,y2, 96,y3
  draw 120,y2,120,y3
  draw 144,y2,144,y3
  draw "10", 20,y4
  draw "12", 44,y4
  draw "14", 68,y4
  draw "16", 93,y4
  draw "18",116,y4
  draw "20",140,y4
  'Wattachse
  PpW=y1/Pmg 
  ehW=PpW*Peh
  draw str$(Peh),  143,y1-  ehW-12
  draw str$(2*Peh),138,y1-2*ehW-12
'---  
  draw 159,0,159,y1
  draw x1,y1-1*ehW,x2,y1-1*ehW
  draw x1,y1-2*ehW,x2,y1-2*ehW
  draw x1,y1-3*ehW,x2,y1-3*ehW
  draw x1,y1-4*ehW,x2,y1-4*ehW
  fn wait (1)
'---
'---
'---
'---
'---
'Hauptschleife ab Zeile 100 !
#include <#dKaco.bas>
'---
tee$=str$(val(left$(su$,2))+1)+"0000"
while(fn time$(0)<tee$)
    tt$ = fn time$(0)
    draw left$(tt$,2)+":"+mid$(tt$,3,2),133,15
  wend
  print #4,"Ertrag:  ",Q$," kWh","Fehler: ",Ft," Watt max:",Pomax
  close #5
  close #4
wend