home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 6 / 006.d81 / heat stress (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  3.2 KB  |  133 lines
  1. 10 rem *** heat stress
  2. 15 rem *** copyright 1983
  3. 20 rem *** by john beltrami
  4. 25 rem *** translated for the
  5. 30 rem *** commodore 64 by
  6. 35 rem *** donna k. woody
  7. 40 printchr$(147):gosub1000
  8. 42 gosub500
  9. 43 poke781,15:poke782,12:syss:print"[149][204][207][193][196][201][206][199][160][196][193][212][193][146][144]"
  10. 44 dime(11,11)
  11. 45 gosub800:rem *** load table
  12. 50 gosub300:rem *** intro
  13. 54 :
  14. 55 rem *** main loop
  15. 56 :
  16. 60 gosub500:rem *** heading
  17. 70 poke781,8:poke782,5:syss:print"[193]ir temperature ([198]ahrenheit)"
  18. 80 v=9
  19. 85 t=65
  20. 90 fori=1to11
  21. 95 v=v+1
  22. 100 t=t+5
  23. 105 i$=str$(i)
  24. 106 l=len(i$):ifl<3theni$=" "+i$
  25. 107 t$=str$(t)
  26. 108 l=len(t$):ifl<4thent$=" "+t$
  27. 110 poke781,v:poke782,9:syss:printi$"  ---- ";t$;" degrees"
  28. 115 nexti
  29. 120 poke781,22:poke782,5:syss:input"[208]ick the closest (1 to 11)    [157][157][157][157]";y$
  30. 125 y=val(y$):ify<1ory>11thenprint:goto120
  31. 127 c=y
  32. 130 gosub500
  33. 140 poke781,8:poke782,5:syss:print"[210]elative himidity (percent)"
  34. 145 v=9:t=-10
  35. 150 fori=1to11
  36. 155 v=v+1:t=t+10
  37. 160 i$=str$(i)
  38. 162 l=len(i$):ifl<3theni$=" "+i$
  39. 165 t$=str$(t)
  40. 166 l=len(t$)
  41. 170 ifl<4thent$=" "+t$:goto166
  42. 175 poke781,v:poke782,12:syss:printi$;" ---- ";t$;" %"
  43. 180 nexti
  44. 185 poke781,22:poke782,5:syss:input"[208]ick the closest (1 to 11)    [157][157][157][157]";y$
  45. 190 y=val(y$):ify<1ory>11thenprint:goto185
  46. 195 r=y
  47. 196 t1=c*5+65
  48. 197 t2=e(r,c)
  49. 198 h1=r*10-10
  50. 200 gosub500
  51. 210 poke781,10:poke782,2:syss:print"[193]t an air temperature of "t1" degrees"
  52. 220 poke781,12:poke782,2:syss:print"and a relative humidity of "h1" %"
  53. 230 poke781,14:poke782,2:syss:print"you will feel as if it is"
  54. 240 poke781,16:poke782,2:syss:print"at least "t2" degrees!"
  55. 250 poke781,22:poke782,5:syss:print"[212]ry another (y/n)?[160]";
  56. 252 poke198,0:wait198,1:gety$
  57. 260 ify$="y"thengoto55
  58. 262 ify$="n"thengosub500:goto266
  59. 265 goto250
  60. 266 poke781,10:poke782,5:syss:print"[212]hat's all, folks!"
  61. 270 rem **********  end  *************
  62. 271 rem **********  end  *************
  63. 272 goto63000
  64. 299 :
  65. 300 rem introduction
  66. 301 :
  67. 310 gosub500
  68. 315 gosub600
  69. 320 poke781,8:poke782,1:syss
  70. 330 print"[215]ind and other factors affect"
  71. 335 poke781,10:poke782,1:syss
  72. 340 print"the impact of the actual temperature."
  73. 345 poke781,12:poke782,1:syss
  74. 350 print"[212]he 'wind-chill' factor is well known."
  75. 355 poke781,14:poke782,1:syss
  76. 360 print"[200]umidity has a similiar effect, adding"
  77. 365 poke781,16:poke782,1:syss
  78. 370 print"a source of stress at higher"
  79. 375 poke781,18:poke782,1:syss
  80. 376 print"air temperatures."
  81. 380 poke781,22:poke782,5:syss
  82. 385 print"[210]eady to find the current"
  83. 390 poke781,23:poke782,5:syss:print"heat stress factor?[160]";
  84. 395 poke198,0:wait198,1:gety$
  85. 396 ify$<>"y"thenprint:goto390
  86. 450 return
  87. 499 :
  88. 500 rem *** heading
  89. 501 :
  90. 510 printchr$(147)
  91. 520 poke781,2:poke782,10:syss:print"***************"
  92. 525 poke781,3:poke782,10:syss:print"*             *"
  93. 530 poke781,4:poke782,10:syss:print"* [200][197][193][212] [211][212][210][197][211][211] *"
  94. 540 poke781,5:poke782,10:syss:print"*             *"
  95. 545 poke781,6:poke782,10:syss:print"***************"
  96. 570 return
  97. 599 :
  98. 600 rem *** copyright
  99. 601 :
  100. 610 poke781,3:poke782,27:syss:print"[195]opyright"
  101. 615 poke781,4:poke782,27:syss:print"  1984   "
  102. 620 poke781,5:poke782,27:syss:print"[202]ohn [194]eltrami"
  103. 650 return
  104. 799 :
  105. 800 rem *** load table
  106. 801 :
  107. 810 fori=1to11
  108. 815 forj=1to11
  109. 820 reade(i,j)
  110. 825 nextj
  111. 830 nexti
  112. 840 return
  113. 900 data64,69,73,78,83,87,91,95,99,103,107
  114. 901 data65,70,75,80,85,90,95,100,105,111,116
  115. 902 data66,72,77,82,87,93,99,105,112,120,130
  116. 903 data67,73,78,84,90,96,104,113,123,135,148
  117. 904 data68,74,79,86,93,101,110,123,137,151,151
  118. 905 data69,75,81,88,96,107,120,135,150,151,151
  119. 906 data70,76,82,90,100,115,132,149,151,151,151
  120. 907 data70,77,85,93,106,124,144,149,151,151,151
  121. 908 data71,78,86,97,113,136,144,149,151,15,151
  122. 909 data71,79,88,102,122,136,144,149,151,151,151
  123. 910 data72,80,91,108,122,136,144,149,151,151,151
  124. 997 :
  125. 998 rem *** initialize colors & variables
  126. 999 :
  127. 1000 s=65520:poke783,peek(783)and254
  128. 1010 poke53280,9:poke53281,7:printchr$(144):poke53272,23:printchr$(8)
  129. 1050 return
  130. 63000 rem     link back
  131. 63010 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  132. 63020 poke198,0:poke631,13:poke632,13:poke198,2:end
  133.