Wind Chill

Source Code

  10 PRINT ,,"TEMPERATURE (F)? ";
  20 INPUT T
  30 PRINT T
  40 PRINT ,,"WIND SPEED (M/HR)? ";
  50 INPUT S
  60 PRINT S
  70 LET WC=.0817*(3.71*S**.5+5.81-.25*S)*(T-91.4)+91.4
  80 IF S<4 THEN LET WC=T
  90 PRINT ,,"WIND CHILL = ";WC;" DEGREES."
 100 PAUSE 40000
 110 CLS 
 120 RUN 
9998 SAVE "WINDCHIL%L"
9999 RUN