13000 REM ************************************
13010 REM * FEUCHTEMODUL                     *
13020 REM * UEBERGABE: ANALOGPORTNUMMER IN BS*
13030 REM ************************************
13035 NT=17803.166666:NS=65.79166666
13040 SYS53000
13050 FZ = (255-PEEK(56324))+(255-PEEK(56325))*256
13060 PRINTFZ
13100 AN =INT((NT-FZ)/NS)
13109 IFAN>=10000THENAN=9999
13110 RETURN
40000 REM ************************************
40010 REM * FEUCHTEMODUL                     *
40020 REM * UEBERGABE: ANALOGPORTNUMMER IN BS*
40030 REM ************************************
40035 NT=17803.166666:NS=65.79166666
40040 SYS53000
40050 FZ = (255-PEEK(56324))+(255-PEEK(56325))*256
40060 PRINTFZ
40100 AN =INT((NT-FZ)/NS)
40109 IFAN>=10000THENAN=9999
40110 RETURN