home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 September / 64er_Magazin_91-09_1991_Markt__Technik_de_Side_A.d64 / feuchte (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  644b  |  23 lines
  1. 13000 rem ************************************
  2. 13010 rem * feuchtemodul                     *
  3. 13020 rem * uebergabe: analogportnummer in bs*
  4. 13030 rem ************************************
  5. 13035 nt=17803.166666:ns=65.79166666
  6. 13040 sys53000
  7. 13050 fz = (255-peek(56324))+(255-peek(56325))*256
  8. 13060 printfz
  9. 13100 an =int((nt-fz)/ns)
  10. 13109 ifan>=10000thenan=9999
  11. 13110 return
  12. 40000 rem ************************************
  13. 40010 rem * feuchtemodul                     *
  14. 40020 rem * uebergabe: analogportnummer in bs*
  15. 40030 rem ************************************
  16. 40035 nt=17803.166666:ns=65.79166666
  17. 40040 sys53000
  18. 40050 fz = (255-peek(56324))+(255-peek(56325))*256
  19. 40060 printfz
  20. 40100 an =int((nt-fz)/ns)
  21. 40109 ifan>=10000thenan=9999
  22. 40110 return
  23.