home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / util2 / windchil.lzh / WINDCHIL.BAS (.txt)
Encoding:
GW-BASIC  |  1986-09-09  |  1.8 KB  |  36 lines
  1. 100  CLS
  2. 110  A$=STRING$(80,205)
  3. 120  PRINT A$
  4. 130  PRINT TAB(25)"WIND CHILL FACTOR  7006-A.BAS "
  5. 140  COLOR 23,0,0
  6. 150  PRINT :PRINT :PRINT TAB(38)"IPCO"
  7. 160  COLOR 7,0,0
  8. 170  PRINT :PRINT :PRINT TAB(29)"INTERNATIONAL PC OWNERS"
  9. 180  PRINT :PRINT :PRINT TAB(17)"p.o. box 10426, pittsburgh, pennsylvania 15234"
  10. 190  PRINT A$
  11. 200  PRINT :PRINT :PRINT :PRINT :PRINT
  12. 210  PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
  13. 220  A$=INKEY$:IF A$="" THEN 220
  14. 230  CLS
  15. 240  CLS
  16. 250  INPUT "WHAT IS THE TEMPERATURE";T:PRINT
  17. 260  INPUT "WHAT IS THE WIND VELOCITY";V:PRINT
  18. 270  IF V<4 THEN V=4:  REM WIND VELOCITY BELOW 4 MPH AND ABOVE 45 MPH HAVE                                 VERY LITTLE EFFECT ON THE CHILL FACTOR
  19. 280  C=((10.45 + (6.68611 * SQR(V)) - (0.447041 * V))/22.034 * (T-91.4)) +91.4
  20. 290  PRINT
  21. 300  CLS
  22. 310  LOCATE 16,10:PRINT USING"AT A TEMPERATURE OF ### F AND A WIND VELOCITY                                     OF ## MPH THE WIND CHILL FACTOR IS  ###.####";T,V,C
  23. 320  LOCATE 20,30:INPUT "DO YOU WANT ANOTHER COMPUTATION (Y OR N)";D$
  24. 330  PRINT
  25. 340  IF D$="Y" THEN 250
  26. 350  PRINT "CORE TEMP";:PRINT TAB(13)"SYMTPMS";:PRINT TAB(49)"BRAIN & MUSCLE IMPAIRMENT"
  27. 360  PRINT STRING$(80,"*")
  28. 370  FOR X = 1 TO 13
  29. 380  READ A$,B$,C$
  30. 390  DATA 98 TO 96F,INTENSE UNCONTROLLABLE SHIVERING,ABILITY TO PERFORM COMPLEX TASKS,,,IS DECREASED,95 TO 91F,VIOLENT SHIVERING PERSISTS,DIFFICULTY IN SPEAKING-SLUGGISH,,,THINKING-AMNESIA,90 TO 86F,SHIVERING STOPS-REPLACED
  31. 400  DATA MUSCLE COORDINATION AFFECTED,,BY STRONG MUSCLE,PRODUCING ERRATIC OR JERRKY,,RIGIDITY- EXPOSED SKIN IS BLUE,MOVEMENTS-THINKING LESS CLEAR,,OR PUFFY,GENERAL COMPREHENSION DULLED BUT,,,VICTIM MAY APPEAR RATIONAL
  32. 410  DATA 85 TO 81F,MUSCLE RIGIDITY- LOWERED PULSE,IRRATIONAL-LOSS OF CONSCIOUSNESS,,AND RESPIRATON,STUPOR,80 TO 78F,UNCONSCIOUSNESS-ERRATIC HEARTBEAT,
  33. 420  DATA BELOW 78F,DEATH,
  34. 430  PRINT USING"\         \ \                                 \ \                              \";A$,B$,C$;
  35. 440  NEXT X
  36.