home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 March / 64er_Magazin_92-03_1992_Markt__Technik_de_Side_A.d64 / licht (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  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.