home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9202a.d64 / gassensor (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  336b  |  15 lines
  1. 14000 REM ************************************
  2. 14010 REM * GASSENSORMODUL                   *
  3. 14020 REM * UEBERGABE: ANALOGPORTNUMMER IN BS*
  4. 14030 REM ************************************
  5. 14035 NT=487:NS=6130
  6. 14036 POKE56579,PEEK(56579)OR224
  7. 14037 POKE56577,M*32
  8. 14040 FORTE=1TO1000
  9. 14050 NEXT
  10. 14060 GOSUB 5000
  11. 14070 PRINTFZ
  12. 14100 AN =INT(((FZ-NT)/NS)*10+.5)/10
  13. 14109 IFAN>=100THENAN=99.99
  14. 14110 RETURN
  15.