home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 13 / 64er_Magazin_Sonderheft_13_19xx_Markt__Technik_de_Side_A.d64 / waegecodierer (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  431b  |  25 lines
  1. 10 rem **************************
  2. 20 rem *       ad-wandler       *
  3. 30 rem *  nach dem prinzip des  *
  4. 40 rem *     waegecodierers     *
  5. 50 rem **************************
  6. 55 :
  7. 60 poke56579,15
  8. 65 a=0
  9. 70 fori=3to0step-1
  10. 80 a=a+2^i
  11. 85 poke56577,a
  12. 90 if(peek(56577)and16)=16thena=a-2^i
  13. 100 next
  14. 120 :
  15. 130 rem anzeige
  16. 140 :
  17. 150 a=a/3
  18. 160 fori=0to2
  19. 170 z=int(a):a=(a-int(a))*10
  20. 180 z$(i)=right$(str$(z),1)
  21. 190 next
  22. 200 a$=z$(0)+"."+z$(1)+z$(2)+" volt"
  23. 210 print"[147]"a$
  24. 220 goto65
  25.