home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 24 / Commodore_Disc_24_19xx_-_de.d64 / helligkeit (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  744b  |  22 lines
  1. 10 rem helligkeit ==============c64
  2. 20 rem (p) commodore welt team   ==
  3. 30 rem ============================
  4. 40 rem (c) by schmid-fabian      ==
  5. 50 rem        heidelberg         ==
  6. 60 rem                           ==
  7. 70 rem                           ==
  8. 80 rem fotowiderstand + 200 ohm  ==
  9. 85 rem port 1 (pin 7 - pin 9)    ==
  10. 90 rem ============================
  11. 100 print"[147]";:input"uhrzeit";ti$:t0=ti
  12. 110 input"messbeginn (hhmmss)";ts$
  13. 120 input"zeitdifferenz";zd
  14. 130 n=24*60/zd:dim z$(n),w%(n):n=1
  15. 140 i=i+1:a=a+peek(54297):sp=a/i
  16. 150 if ti$<ts$ then printchr$(147)ti$,sp
  17. 160 dt=(ti-t0)/3600
  18. 170 if dt>=zd then print ti$,sp:t0=ti:z$(n)=ti$:w%(n)=sp*10:n=n+1:a=0:i=0
  19. 180 geta$:ifa$="" goto140
  20. 200 input"druckerausgabe? (j)";q$:if q$="j" then open4,4:cmd4
  21. 210 for i=1 to n:printleft$(z$(i),2)+":"+mid$(z$(i),3,2),w%(i):next:close4
  22.