home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9203a.d64 / licht (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  403b  |  13 lines
  1. 15000 REM ************************************
  2. 15010 REM * LICHTMODUL                       *
  3. 15020 REM * UEBERGABE: ANALOGPORTNUMMER IN BS*
  4. 15030 REM ************************************
  5. 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
  6. 15036 POKE56579,PEEK(56579)OR3
  7. 15037 POKE56577,MB
  8. 15060 GOSUB 5000
  9. 15062 IFFZ<150ANDMB<3THENMB=MB+1:GOTO15036
  10. 15063 IFFZ>1500ANDMB>0THENMB=MB-1:GOTO15036
  11. 15100 AN =INT(((FZ-NT(MB))/NS(MB))*10+.5)/10
  12. 15110 RETURN
  13.