home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 November / 64er_Magazin_91-11_1991_Markt__Technik_de_Side_B.d64 / regen (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  59 lines
  1. 280 gosub60000 : rem hier kann funkuhrroutine eingebaut werden
  2. 535 gosub 60170
  3. 5000 ren
  4. 13000 rem ************************************
  5. 13010 rem * regenmodul                       *
  6. 13020 rem * uebergabe: analogportnummer in bs*
  7. 13030 rem ************************************
  8. 13040 rw=0
  9. 13050 nt=28.000:ns=0.946405
  10. 13060 poke56579,peek(56579)or224
  11. 13070 poke56577,m*32
  12. 13080 if re=1thenre=0:gosub13170
  13. 13090 forte=1to1000
  14. 13100 next
  15. 13110 gosub 5000
  16. 13120 an =int((fz-nt)/ns)
  17. 13130 ifan<0thenan=0
  18. 13140 rm=an
  19. 13150 ifan>=10000thenan=9999
  20. 13160 return
  21. 13170 rem *************************************
  22. 13180 rem * regenmesserreset                  *
  23. 13190 rem *************************************
  24. 13200 poke56579,16
  25. 13210 poke56577,peek(56577)andnot16
  26. 13220 poke56577,peek(56577)or16
  27. 13230 poke56579,0
  28. 13240 print"tagesregenmenge: "rm
  29. 13250 forix=1to2000:next
  30. 13260 return
  31. 60000 print"bitte zeit eingeben! (hh,mm)"
  32. 60010 inputh$,m$
  33. 60020 h1=val(left$(h$,1)):h2=val(right$(h$,1))
  34. 60030 ifh1=2thenhh=144:goto60060
  35. 60040 ifh1=1orh1=0thenhh=h1*16:goto60060
  36. 60050 print"bitte format beachten (hh,mm)":goto60000
  37. 60060 ifh2>=0andh2<=9thenhh=hh+h2:goto60080
  38. 60070 goto60050
  39. 60080 m1=val(left$(m$,1)):m2=val(right$(m$,1))
  40. 60090 ifm1<0orm1>9orm2<0orm2>9then60050
  41. 60100 mm=m1*16+m2
  42. 60110 poke56587,hh
  43. 60120 hl=h1*10+h2
  44. 60130 poke56586,mm
  45. 60140 poke56585,0
  46. 60150 poke56584,0:rem uhr startet
  47. 60160 return
  48. 60170 hh=peek(56587):rem uhr stoppt
  49. 60180 mm=peek(56586)
  50. 60190 zs=peek(56584):rem uhr laeuft weiter
  51. 60200 h1=int(hh/16):ifh1=9thenh1=2
  52. 60210 h=h1*10+(hhand15)
  53. 60220 ifh=24thenh=0
  54. 60230 ifhl<>rw andh=rwthenre=1:rem resetzeit erreicht
  55. 60240 hl=h
  56. 60250 mi=int(mm/16)*10+(mmand15)
  57. 60260 print"              [157][157][157][157][157][157][157][157][157][157][157][157][157][157]"h":"mi" uhr"
  58. 60270 return
  59.