home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh23c.d64 / temp4 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  2.3 KB  |  98 lines
  1. 0 REM ********* TEMP4 *****************
  2. 1 REM VERSION TEMP 01
  3. 2 REM WRITTEN BY W.ELBE
  4. 3 REM *********************************
  5. 5 PRINT"[147]" : REM BILDSCHIRM LOESCHEN
  6. 10 REM --------------------------------
  7. 20 REM      HAUPTPROGRAMM
  8. 30 REM
  9. 35 GOSUB 30000 : REM MASCHINEN-PROG.
  10. 40 GOSUB 100 : REM A/D-WANDLER LESEN
  11. 50 GOSUB 200 : REM FUNKTIONSW. BERECHN.
  12. 60 GOSUB 300 : REM TEMPERATUR  BERECHN.
  13. 70 GOSUB 400 : REM AUSGABE BILDSCHIRM
  14. 80 GOTO 40
  15. 100 REM -------------------------------
  16. 110 REM       A/D-WANDLER LESEN
  17. 120 REM
  18. 122 AX=0:AY=0:BX=0:BY=0
  19. 125 FOR I = 1 TO 10
  20. 130 :         SYS 850
  21. 140 :         AX=AX+PEEK(828)
  22. 142 :         AY=AY+PEEK(829)
  23. 144 :         BX=BX+PEEK(830)
  24. 146 :         BY=BY+PEEK(831)
  25. 150 NEXT I
  26. 160 :         AX=INT(AX/10)
  27. 162 :         AY=INT(AY/10)
  28. 164 :         BX=INT(BX/10)
  29. 166 :         BY=INT(BY/10)
  30. 190 RETURN
  31. 200 REM -------------------------------
  32. 210 REM    FUNKTIONSWERT BERECHNEN
  33. 220 REM
  34. 230 :AX=AX/100
  35. 231 :AX=0.052*AX^2+1.263*AX-0.217
  36. 232 :AX=AX*100
  37. 233 :AX=AX*0.707
  38. 240 :  BX=BX/100
  39. 241 :  BX=0.052*BX^2+1.263*BX-0.217
  40. 242 :  BX=BX*100
  41. 243 :  BX=BX*0.707
  42. 250 :    AY=AY/100
  43. 251 :    AY=0.1751*AY^2+0.99*AY-0.06
  44. 252 :    AY=AY*100
  45. 253 :    AY=AY*0.707
  46. 260 :      BY=BY/100
  47. 261 :      BY=0.1751*BY^2+0.99*BY-0.06
  48. 262 :      BY=BY*100
  49. 263 :      BY=BY*0.707
  50. 290 RETURN
  51. 300 REM -------------------------------
  52. 310 REM     TEMPERATUR BERECHNEN
  53. 320 REM
  54. 330 T1=(3906/LOG(AX*1000/92.9E-3))-273
  55. 331 T1=INT(T1*10)/10
  56. 340 T2=(3906/LOG(AY*1000/92.9E-3))-273
  57. 341 T2=INT(T2*10)/10
  58. 350 T3=(3906/LOG(BX*1000/92.9E-3))-273
  59. 351 T3=INT(T3*10)/10
  60. 360 T4=(3906/LOG(BY*1000/92.9E-3))-273
  61. 361 T4=INT(T4*10)/10
  62. 390 RETURN
  63. 400 REM -------------------------------
  64. 410 REM      AUSGABE - BILDSCHIRM
  65. 412 REM
  66. 420 POKE 214,0 :REM ZEILE
  67. 422 POKE 211,0 :REM SPALTE
  68. 424 SYS 58640  :REM CURSOR SET
  69. 426 PRINT"                                        "
  70. 430 POKE 214,0 :REM ZEILE
  71. 432 POKE 211,3 :REM SPALTE
  72. 434 SYS 58640  :REM CURSOR SET
  73. 436 PRINT T1
  74. 440 POKE 214,0 :REM ZEILE
  75. 442 POKE 211,11:REM SPALTE
  76. 444 SYS 58640  :REM CURSOR SET
  77. 446 PRINT T2
  78. 450 POKE 214,0 :REM ZEILE
  79. 452 POKE 211,19:REM SPALTE
  80. 454 SYS 58640  :REM CURSOR SET
  81. 456 PRINT T3
  82. 460 POKE 214,0 :REM ZEILE
  83. 462 POKE 211,28:REM SPALTE
  84. 464 SYS 58640  :REM CURSOR SET
  85. 466 PRINT T4
  86. 490 RETURN
  87. 30000 REM -----------------------------
  88. 30010 REM      UPRO A/D-WANDLER LESEN
  89. 30020 REM
  90. 30030 FOR I=850 TO 904
  91. 30040 READ J
  92. 30050 POKE I,J
  93. 30060 NEXT I
  94. 30100 RETURN
  95. 32000 DATA120,169,64,32,112,3,142,60,3,140,61,3,169,128,32,112,3,142,62,3,140
  96. 32001 DATA63,3,169,255,141,2,220,88,96,141,0,220,9,192,141,2,220,160,10,162,255
  97. 32002 DATA202,208,253,136,208,248,174,25,212,172,26,212,96
  98.