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