home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug026.ark / WEATHER.ASC < prev    next >
Encoding:
Text File  |  1984-04-29  |  7.8 KB  |  254 lines
  1. 100 DIM S$(10)
  2. 110 PRINT"THIS PROGRAM WILL ATTEMPT TO PREDICT TOMORROWS WEATHER IF"   
  3. 120 PRINT"GIVEN THE WEATHER STATISTICS FROM THE PAST TWO DAYS."
  4. 130 PRINT TAB(5);"SEASON"
  5. 140 INPUT S$(1)
  6. 150 GOSUB 1500 
  7. 160 GOTO 130 
  8. 170 PRINT"AFTER THE FOLLOWING QUESTION MARKS YOU WILL BE REQUIRED"   
  9. 180 PRINT"TO INPUT TWO VALUES, ONE FOR YESTERDAY'S READING AND ONE"  
  10. 190 PRINT"FOR TODAY'S READING.  SEPERATE THESE READINGS BY A COMMA." 
  11. 200 PRINT TAB(5);"TEMPERATURE"   
  12. 210 INPUT T1,T2
  13. 220 GOSUB 1570 
  14. 230 GOTO 200   
  15. 240 PRINT TAB(5);"BAROMETER"
  16. 250 INPUT B1,B2
  17. 260 GOSUB 1640 
  18. 270 GOTO 240  
  19. 280 PRINT TAB(5);"BAROMETER TENDENCY(1=RISING,2=FALLING,3=STEADY):" 
  20. 290 INPUT T3,T4
  21. 300 GOSUB 1710 
  22. 310 GOTO 280  
  23. 320 PRINT TAB(5);"RELATIVE HUMIDITY"
  24. 330 INPUT H1,H2
  25. 340 GOSUB 1780 
  26. 350 GOTO 320  
  27. 360 PRINT TAB(5);"CLOUDS(1=STRATUS,2=CUMULUS,3=CIRRUS)" 
  28. 370 INPUT C1,C2
  29. 380 GOSUB 1850 
  30. 390 GOTO 360  
  31. 400 PRINT TAB(5);"CLOUD COVER(PERCENTAGE)"  
  32. 410 INPUT C4,C5
  33. 420 GOSUB 1920 
  34. 430 GOTO 400  
  35. 440 PRINT TAB(5);"WIND DIRECTION (1=NORTH,2=SOUTH,3=EAST,4=WEST)"   
  36. 450 INPUTD1,D2 
  37. 460 GOSUB 1990 
  38. 470 GOTO 440  
  39. 480 PRINT TAB(5);"WIND SPEED"   
  40. 490 INPUT S2,S3
  41. 500 GOSUB 2060 
  42. 510 GOTO 480  
  43. 520 PRINT   
  44. 530 PRINT   
  45. 540 PRINT   
  46. 550 PRINT"------------------------------------------------------"  
  47. 560 PRINT"PRESENT SEASON IS ";S$(1)
  48. 570 PRINT   
  49. 580 PRINT "FORECAST FOR TOMORROW:"  
  50. 590 PRINT   
  51. 600 PRINT   
  52. 610 PRINT"TEMPERATURES:"
  53. 620 LET T7=((T1+T2)/2)-30  
  54. 630 LET T6=T7+10   
  55. 640 PRINT "LOWS TONIGHT BETWEEN";T7;"AND";T6;"DEGREES"  
  56. 650 LET T9=((T1+T2)/2)+5   
  57. 660 LET T8=T9-5
  58. 670 PRINT "HIGHS TOMORROW NIGHT BETWEEN";T8;"AND";T9;"DEGREES"  
  59. 680 LET T0=T7-5
  60. 690 PRINT "LOWS TOMORROW NIGHT BETWEEN ";T0;"AND";T7;"DEGREES"  
  61. 700 LET B4=(B1+B2)/2   
  62. 710 B0=INT(ABS(B1-B2))  
  63. 720 LET T9=(T3+T4)/2   
  64. 730 LET T9=INT(T9) 
  65. 740 IF T9=2 THEN 780   
  66. 750 IF T9=3 THEN 800   
  67. 760 PRINT"BAROMETER";B4;" AND RISING." 
  68. 770 GOTO 810  
  69. 780 PRINT"BAROMETER";B4;" AND FALLING."
  70. 790 GOTO 810  
  71. 800 PRINT"BAROMETER";B4;" AND STEADY." 
  72. 810 LET H3=((H1+H2)/2)+5   
  73. 820 LET H4=H3-5
  74. 830 PRINT "HUMIDITY BETWEEN ";H4;"AND ";H3;"PERCENT"
  75. 840 LET C3=(C1+C2)/2   
  76. 850 LET C3=INT(C3) 
  77. 860 LET C9=((C4+C5)/2)+5   
  78. 870 LET C8=C9-5
  79. 880 PRINT"CLOUD COVER BETWEEN";C8;"AND";C9;"PERCENT"
  80. 890 IF C3=2 THEN 940   
  81. 900 IF C3=3 THEN 970   
  82. 910 PRINT"CLOUD HEIGHT BETWEEN  500 TO  580 FEET." 
  83. 920 PRINT"MAJOR CLOUD TYPE WILL BE STRATUS."   
  84. 930 GOTO 990  
  85. 940 PRINT"CLOUD HEIGHT BETWEEN  1550 TO  1800 FEET."   
  86. 950 PRINT"MAJOR CLOUD TYPE WILL BE CUMULUS."   
  87. 960 GOTO 990  
  88. 970 PRINT"CLOUD HEIGHT BETWEEN  16500 TO 17000 FEET."  
  89. 980 PRINT"MAJOR CLOUD TYPE WILL BE CIRRUS."
  90. 990 LET D5=(D1+D2)/2   
  91. 1000 LET D5=INT(D5) 
  92. 1010 LET S5=((S2+S3)/2)+5   
  93. 1020 LET S6=S5-5
  94. 1030 IF D5=2 THEN 1080   
  95. 1040 IF D5=3 THEN 1100   
  96. 1050 IF D5=4 THEN 1120   
  97. 1060 PRINT"WIND FROM THE NORTH FROM";S6;"TO";S5;"MPH"
  98. 1070 GOTO 1130  
  99. 1080 PRINT"WIND FROM THE SOUTH FROM";S6;"TO";S5;"MPH"
  100. 1090 GOTO 1130  
  101. 1100 PRINT "WIND FORM THE EAST FROM";S6;"TO";S5;"MPH"
  102. 1110 GOTO 1130  
  103. 1120 PRINT"WIND FROM THE WEST FROM";S6;"TO";S5;"MPH" 
  104. 1130 PRINT"CHANCE OF PRECIPITATION:"
  105. 1140 LET P1=INT((((C5/2)+B2)+C2)/.5)
  106. 1150 IF P1>100 THEN 2170
  107. 1160 PRINT "TONIGHT";P1;"%"  
  108. 1170 LET P2=INT(((C9/2)+B4)+C3) 
  109. 1180 IF P2>100 THEN 2190
  110. 1190 PRINT"TOMORROW";P2;"%" 
  111. 1200 IF P3>100 THEN 2210
  112. 1210 PRINT"TOMORROW NIGHT";P3;"%"   
  113. 1220 PRINT  
  114. 1230 IF C2=2 THEN 1340  
  115. 1240 IF C2=3 THEN 1420  
  116. 1250 PRINT"FORECAST FOR TOMORROWS WEATHER:" 
  117. 1260 PRINT  
  118. 1270 PRINT"IT SHOULD BE FAIR TOMORROW." 
  119. 1280 IF S$(1)="SPRING"THEN 1320 
  120. 1290 IF S$(1)="SUMMER"THEN 1320 
  121. 1300 PRINT"IT SHOULD BE COOLER TOMORROW WITH NO PRECIPITATION LIKELY."  
  122. 1310 GOTO 1490 
  123. 1320 PRINT"IT SHOULD BE WARMER TOMORROW WITH NO PRECIPITATION LIKELY."  
  124. 1330 GOTO 1490 
  125. 1340 PRINT"FORECAST FOR TOMORROWS WEATHER." 
  126. 1350 PRINT  
  127. 1360 IF S$(1)="SUMMER"THEN 1390 
  128. 1370 PRINT"IT SHOULD BE FAIR TOMORROW." 
  129. 1380 GOTO 1280 
  130. 1390 PRINT"IF THEY ARE HEAVY CLOUDS--BE READY FOR RAIN."
  131. 1400 PRINT"IF THE CLOUDS ARE LIGHT--IT WILL BE FAIR."   
  132. 1410 GOTO 1490 
  133. 1420 IF S$(1)="FALL" THEN 1490  
  134. 1430 PRINT  
  135. 1440 IF S$(1)="SPRING"THEN 1480 
  136. 1450 IF S$(1)="SUMMER"THEN 1480 
  137. 1460 PRINT"TOMORROW,EXPECT SNOW TO FALL FOLLOWED BY HIGHER TEMPERATURES."   
  138. 1470 GOTO 1490 
  139. 1480 PRINT"TOMORROW,EXPECT RAIN TO FALL FOLLOWED BY HIGHER TEMPERATURES."   
  140. 1490 GOTO 2130 
  141. 1500 IF S$(1)="WINTER"THEN 170   
  142. 1510 IF S$(1)="FALL"THEN 170 
  143. 1520 IF S$(1)="SPRING"THEN 170   
  144. 1530 IF S$(1)="SUMMER" THEN 170  
  145. 1540 PRINT TAB(5);"LETS TRY THAT ONE AGAIN(SEASONS:WINTER,SPRING";  
  146. 1550 PRINT"FALL,SUMMER)..." 
  147. 1560 RETURN 
  148. 1570 IF T1>135 THEN 1620
  149. 1580 IF T1<-80 THEN 1620
  150. 1590 IF T2>135 THEN 1620
  151. 1600 IF T2<-80 THEN 1620
  152. 1610 GOTO 240  
  153. 1620 PRINT TAB(5);"LETS TRY THAT ONE AGAIN(NORMALS-80-135)..."  
  154. 1630 RETURN 
  155. 1640 IF B1>31.5 THEN 1690   
  156. 1650 IF B1<28.5 THEN 1690   
  157. 1660 IF B2>31.5 THEN 1690   
  158. 1670 IF B2<28.5 THEN 1690   
  159. 1680 GOTO 280  
  160. 1690 PRINT TAB(5);"LETS TRY THAT ONE AGAIN(NORMALS:28.5-31.5)..."   
  161. 1700 RETURN 
  162. 1710 IF T3<1 THEN 1760  
  163. 1720 IF T3>3 THEN 1760  
  164. 1730 IF T4<1 THEN 1760  
  165. 1740 IF T4>3 THEN 1760  
  166. 1750 GOTO 320  
  167. 1760 PRINT TAB(5);"LETS TRY THAT ONE AGAIN..."  
  168. 1770 RETURN 
  169. 1780 IF H1<0 THEN 1830  
  170. 1790 IF H1>100 THEN 1830
  171. 1800 IF H2<0 THEN 1830  
  172. 1810 IF H2>100 THEN 1830
  173. 1820 GOTO 360  
  174. 1830 PRINT TAB(5);"LETS TRY THAT ONE AGAIN(HUMIDITY:0-100)..."  
  175. 1840 RETURN 
  176. 1850 IF C1<1 THEN 1900  
  177. 1860 IF C1>3 THEN 1900  
  178. 1870 IF C2<1 THEN 1900  
  179. 1880 IF C2>3 THEN 1900  
  180. 1890 GOTO 400  
  181. 1900 PRINT TAB(5);"LETS TRY THAT ONE AGAIN..."  
  182. 1910 RETURN 
  183. 1920 IF C4<0 THEN 1970  
  184. 1930 IF C4>100 THEN 1970
  185. 1940 IF C5<0 THEN 1970  
  186. 1950 IF C5>100 THEN 1970
  187. 1960 GOTO 440  
  188. 1970 PRINT TAB(5);"LETS TRY THAT ONE AGAIN(COVER:0-100)..." 
  189. 1980 RETURN 
  190. 1990 IF D1<1 THEN 2040  
  191. 2000 IF D1>4 THEN 2040  
  192. 2010 IF D2<1 THEN 2040  
  193. 2020 IF D2>4 THEN 2040  
  194. 2030 GOTO 480  
  195. 2040 PRINT TAB(5);"LETS TRY THAT ONE AGAIN..."  
  196. 2050 RETURN 
  197. 2060 IF S2<0 THEN 2110  
  198. 2070 IF S2>75 THEN 2110 
  199. 2080 IF S3<0 THEN 2110  
  200. 2090 IF S3>75 THEN 2110 
  201. 2100 GOTO 520  
  202. 2110 PRINT TAB(5);"LETS TRY THAT ON E AGAIN(NORMAL:0-75)..."
  203. 2120 RETURN 
  204. 2130 GOSUB 2230
  205. 2140 PRINT"THE END" 
  206. 2150 PRINT"---------------------------------------------------" 
  207. 2160 STOP   
  208. 2170 LET P1=100 
  209. 2180 GOTO 1160  
  210. 2190 LET P2=100 
  211. 2200 GOTO 1190 
  212. 2210 LET P3=100 
  213. 2220 GOTO 1210 
  214. 2230 IF D2=2 THEN 2390
  215. 2240 IF D2=3 THEN 2480
  216. 2250 IF D2=1 THEN 2580
  217. 2260 IF B2=>30.2 THEN 2340
  218. 2270 IF B2=>30.1 THEN 2300
  219. 2280 PRINT"IT WILL BE CLEARING AND COLDER TOMORROW."   
  220. 2290 GOTO 2620   
  221. 2300 IF T2=3 THEN 2330
  222. 2310 PRINT"IT WILL BE FAIR TOMORROW, FOLLOWED BY WINDS AND PRECIPITATION." 
  223. 2320 GOTO 2620   
  224. 2330 PRINT"IT WILL BE FAIR TOMORROW, WITH LITTLE TEMPERATURE CHANGE."  
  225. 2340 IF T2=3 THEN 2370
  226. 2350 PRINT"IT WILL BE FAIR TOMORROW WITH SLOWLY RISING TEMPERATURES."  
  227. 2360 GOTO 2620   
  228. 2370 PRINT "IT WILL BE CONTINUED FAIR TOMORROW."   
  229. 2380 GOTO 2620   
  230. 2390 IF B2<=29.8 THEN 2450
  231. 2400 IF B2<=30! THEN 2430
  232. 2410 PRINT"IT WILL BE WINDY WITH RAIN IN 12-24 HOURS." 
  233. 2420 GOTO 2620   
  234. 2430 PRINT"IT WILL BE CLEARING AND FAIR FOR SEVERAL DAYS FOLLOWING."   
  235. 2440 GOTO 2620   
  236. 2450 PRINT"THERE WILL BE A SEVERE STORM IN 24 HOURS FOLLOWED BY "; 
  237. 2460 PRINT"CLEARING."  
  238. 2470 GOTO 2620   
  239. 2480 IF B2<=29.8 THEN 2530
  240. 2490 IF B2=> 30.1 THEN 2550   
  241. 2500 PRINT"IN WINTER, EXPECT SNOW WITH WINDS." 
  242. 2510 PRINT"IN SUMMER, EXPECT A LONG DRY SPELL."
  243. 2520 GOTO 2620   
  244. 2530 PRINT"THERE WILL BE A NORTHEAST WIND WITH HEAVY PRECIPITATION."   
  245. 2540 GOTO 2620   
  246. 2550 PRINT"IN WINTER, EXPECT SNOW IN 24 HOURS."
  247. 2560 PRINT"IN SUMMER, EXPECT A DRY SPELL." 
  248. 2570 GOTO 2620   
  249. 2580 IF B2<=30! THEN 2610
  250. 2590 PRINT"RAIN WILL CONTINUE WITH WINDS FOR 36 HOURS, THEN CLEARING." 
  251. 2600 GOTO 2620   
  252. 2610 PRINT "RAIN WILL FALL IN 12 TO 18 HOURS." 
  253. 2620 RETURN
  254.