home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9109a.d64 / feuchte (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.