home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 March / 64er_Magazin_93-03_1993_Markt__Technik_de_Side_B.d64 / pulsmesser (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  68 lines
  1. 10 rem ** 64'er magazin 3/93 hardware
  2. 20 rem ** von nikolaus heusler
  3. 30 rem ** zwengauerweg 18, 8000 muenchen 71
  4. 40 rem -- pulsmesser           12.92   --
  5. 50 rem -- sensor (high-aktiv) an pb0 anschliessen
  6. 60 ifpeek(49400)<>3thenload"puls.code",8,1
  7. 70 sys65409
  8. 80 poke53280,6:poke53281,6
  9. 90 dima(11)
  10. 100 print"[147][211][211] puls-messer [211][211] nikolaus heusler/64'er";
  11. 110 print"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
  12. 120 [153]" a - dauermessung
  13. 130 print" b - eine einzelmessung   (10 sec)
  14. 140 [153]" c - zehn einzelmessungen (100 sec)
  15. 145 print"     mit grafischer auswertung
  16. 150 [153]" d - programmende
  17. 160 print"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
  18. 170 [153]"      my pleasure is your decision
  19. 174 print"gebrauchsanweisung:
  20. 175 [153]"1. sensor anlegen":[153]"2. bitte waehlen
  21. 180 poke198,.:wait198,1:geta$:ifa$<"a"ora$>"d"then180
  22. 190 ifa$="d"thensys64738
  23. 200 print"[147][211][211] puls-messer [211][211] nikolaus heusler/64'er";
  24. 210 print"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
  25. 220 [153]"     m e s s u n g    e r f o l g t
  26. 230 print"aktueller wert: tja...    pulse/minute
  27. 232 [153]"messung nr.   :
  28. 234 print"typ           : ";
  29. 236 ifa$="a"thenprint"dauermessung
  30. 238 [139]a$[178]"b"[167][153]"eine einzelmessung
  31. 240 ifa$="c"thenprint"zehn einzelmessungen
  32. 250 me[178]me[170]1:[153]""me
  33. 260 [158]49152:[143] messung aktivieren, 10 sekunden messen
  34. 270 e[178][194](2)[170][194](3)[172]256:[143] messwert pro minute
  35. 280 [139]a$[178]"c"[167]a(me)[178]e
  36. 290 [153]"";
  37. 300 [139]e[179]30[176]e[177]250[167][153]" fehler!wait   ":[137]320
  38. 310 [153]e"cmd      "
  39. 320 [139]a$[178]"a"[176](a$[178]"c"[175]me[179]10)[167]250
  40. 330 [139]a$[178]"c"[167]400
  41. 340 [153]"      programm-neustart mit taste!
  42. 350 poke198,.:wait198,1:run
  43. 400 print"[147][211][211] puls-messer [211][211] nikolaus heusler/64'er";
  44. 410 print"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
  45. 420 [153]" pulse     (NULL)usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr(NULL)
  46. 422 print" [192][192][192][192][192]     [180]                          [170]
  47. 424 [153]"  min      sgn                          +
  48. 426 fori=0to16
  49. 428 print"           [180]                          [170]
  50. 430 [130]
  51. 432 [153]"           (NULL)andandandandandandandandandandandandandandandandandandandandandandandandandandsqr";
  52. 434 [129]i[178]250[164]30[169][171]44
  53. 436 [153]""[163]8[170](i[177]99))i:[130]
  54. 438 [153]"1  2  3  4  5  6  7  8  9 10
  55. 450 fori=1to10:forj=0to1step.1
  56. 460 poke211,8+(i+j)*3
  57. 470 z=a(i)*(1-j)+a(i+1)*j
  58. 480 ifz<30orz>250then500
  59. 490 poke214,(220-(z-30))/11+3:sys58732:print"[211]
  60. 500 [139]i[179]10[167][130]j,i
  61. 510 [151]198,.:[146]198,1:[138]
  62. 600 [143] ** ----------------------------
  63. 602 [143] ** ein ausdruck des bildschirms
  64. 610 [143] ** ist beispielsweise mit 'uni-
  65. 612 [143] ** print'  moeglich (beim  pro-
  66. 614 [143] ** grammautor erhaeltlich)
  67. 616 [143] ** ----------------------------
  68.