home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 December / 64er_Magazin_86-12_1986_Markt__Technik_de.d64 / messprogramm (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  778 b   |  16 lines
  1. 0 rem dieses programm misst, wie lange am userport pin l auf masse liegt
  2. 1 rem anwendung von blitzlicht bis zu messungen ueber 1 stunde moeglich
  3. 2 rem w.bruechle 6108 weiterstadt, f.v.stein-str.7b
  4. 10 data 120, 169, 0, 141, 3, 221, 169, 144, 141, 14, 221, 169, 209, 141, 15, 221
  5. 20 data 169, 255, 141, 5, 221, 141, 4, 221, 141, 6, 221, 141, 7, 221, 169, 145
  6. 30 data 44, 1, 221, 48, 251, 141, 14, 221, 169, 128, 44, 1, 221, 16, 251, 45, 14
  7. 40 data 221, 45, 15, 221, 173, 4, 221, 141, 143, 3, 173, 5, 221, 141, 144, 3,173
  8. 45 data 6, 221, 141, 145, 3, 173, 7, 221, 141, 146, 3, 88, 96
  9. 50 for i=0 to 78 :read a:poke832+i,a:next
  10. 60 z=2^32-6:a=911:print"[147]messbereit"
  11. 70 sys832
  12. 80 fori=0to3:z=z-(peek(a+i)*256^i):next
  13. 90 z=z/985248.4:print"[147]";z;"sek";:ifz<1thenprint" = 1/".1*int(10/z);"sek."
  14. 100 geta$:ifa$<>" "then100
  15. 110 goto 60
  16.