home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 February / 64er_Magazin_92-02_1992_Markt__Technik_de_Side_A.d64 / gassensor (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1992-01-01  |  336 b   |  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.