15000 REM ************************************
15010 REM * LICHTMODUL                       *
15020 REM * UEBERGABE: ANALOGPORTNUMMER IN BS*
15030 REM ************************************
15035 NT(O)=1:NS(0)=1:NT(1)=1:NS(1)=1:NT(2)=1:NS(2)=1:NT(3)=1:NS(3)=1
15036 POKE56579,PEEK(56579)OR3
15037 POKE56577,MB
15060 GOSUB 5000
15062 IFFZ<150ANDMB<3THENMB=MB+1:GOTO15036
15063 IFFZ>1500ANDMB>0THENMB=MB-1:GOTO15036
15100 AN =INT(((FZ-NT(MB))/NS(MB))*10+.5)/10
15110 RETURN