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