home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 13 / 64er_Magazin_Sonderheft_13_19xx_Markt__Technik_de_Side_A.d64 / digitalvoltmetr. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  688b  |  37 lines
  1. 10 rem **************************
  2. 20 rem *  a/d-wandler nach dem  *
  3. 30 rem *     zaehlverfahren     *
  4. 40 rem **************************
  5. 50 :
  6. 60 poke56579,15
  7. 64 :
  8. 65 rem ab hier wird gemessen
  9. 66 :
  10. 70 fori=0to15
  11. 80 poke56577,i
  12. 90 if(peek(56577)and16)=16thengoto150
  13. 100 next
  14. 101 :
  15. 102 rem dieser programmteil wird bei
  16. 103 rem ueberlauf des zaehlers
  17. 104 rem durchlaufen
  18. 105 :
  19. 110 a$="-.--":goto210
  20. 114 :
  21. 115 rem hier geschieht die aufbereitung
  22. 116 rem des gemessenen wertes
  23. 117 :
  24. 150 a=i/3
  25. 160 fori=0to2
  26. 170 z=int(a):a=(a-int(a))*10
  27. 180 z$(i)=right$(str$(z),1)
  28. 190 next
  29. 200 a$=z$(0)+"."+z$(1)+z$(2)+" volt"
  30. 201 :
  31. 202 rem hier wird der wert angezeigt
  32. 203 rem und zum messen eines neuen
  33. 204 rem wertes zuueckgesprungen
  34. 205 :
  35. 210 print"[147]"a$
  36. 220 goto70
  37.