home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh13a.d64 / digitalvoltmetr. (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.