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 >
Wrap
Commodore BASIC
|
2022-10-26
|
336b
|
15 lines
14000 rem ************************************
14010 rem * gassensormodul *
14020 rem * uebergabe: analogportnummer in bs*
14030 rem ************************************
14035 nt=487:ns=6130
14036 poke56579,peek(56579)or224
14037 poke56577,m*32
14040 forte=1to1000
14050 next
14060 gosub 5000
14070 printfz
14100 an =int(((fz-nt)/ns)*10+.5)/10
14109 ifan>=100thenan=99.99
14110 return