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