100 CLS
110 A$=STRING$(80,205)
120 PRINT A$
130 PRINT TAB(25)"WIND CHILL FACTOR  7006-A.BAS "
140 COLOR 23,0,0
150 PRINT :PRINT :PRINT TAB(38)"IPCO"
160 COLOR 7,0,0
170 PRINT :PRINT :PRINT TAB(29)"INTERNATIONAL PC OWNERS"
180 PRINT :PRINT :PRINT TAB(17)"p.o. box 10426, pittsburgh, pennsylvania 15234"
190 PRINT A$
200 PRINT :PRINT :PRINT :PRINT :PRINT
210 PRINT TAB(28)"PRESS ANY KEY TO CONTINUE"
220 A$=INKEY$:IF A$="" THEN 220
230 CLS
240 CLS
250 INPUT "WHAT IS THE TEMPERATURE";T:PRINT
260 INPUT "WHAT IS THE WIND VELOCITY";V:PRINT
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
280 C=((10.45 + (6.686112 * SQR(V)) - (.447041 * V))/22.034 * (T-91.4)) +91.4
290 PRINT
300 CLS
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
320 LOCATE 20,30:INPUT "DO YOU WANT ANOTHER COMPUTATION (Y OR N)";D$
330 PRINT
340 IF D$="Y" THEN 250
350 PRINT "CORE TEMP";:PRINT TAB(13)"SYMTPMS";:PRINT TAB(49)"BRAIN & MUSCLE IMPAIRMENT"
360 PRINT STRING$(80,"*")
370 FOR X = 1 TO 13
380 READ A$,B$,C$
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
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
410 DATA 85 TO 81F,MUSCLE RIGIDITY- LOWERED PULSE,IRRATIONAL-LOSS OF CONSCIOUSNESS,,AND RESPIRATON,STUPOR,80 TO 78F,UNCONSCIOUSNESS-ERRATIC HEARTBEAT,
420 DATA BELOW 78F,DEATH,
430 PRINT USING"\         \ \                                 \ \                              \";A$,B$,C$;
440 NEXT X
ATH,
430 PRINT USING"\         \ \                                 \ \