# Windchill.bas Wc$="Windchill calc" draw -1 p$="Windchill is about " d$=" degrees." start: form reset 0,0,0,0,Wc$,-1 go: form cbx 10,18,w,h,"",1 form cbx 10,28,w,h,"",1 form btn 10,120,40,12,"Enter",1 form fld 10,60,40,12,"",1 form fld 10,90,40,12,"",1 draw "Farenheit",25,20 draw "Celcius",25,30 draw "Enter ambient temperature",10,50 draw "degrees",55,62 draw "Enter wind speed",10,80 draw "mph/ms",55,92 x = asc(input$(1)) f=asc(s$(0))-48 c=asc(s$(1))-48 if f+c=2 then goto start if f = 1 then goto far if c = 1 then goto cel print "Please choose Farenheit or Celcius." goto go: far: T=s$(2) S=s$(3) q=sqr(S) Twc=91.4+(T-91.4)*(0.550+0.279*q-0.0203*S) Twc$=round(Twc) print p$+Twc$+d$ goto start cel: T=s$(2) S=s$(3) q=sqr(S) Twc=33+(T-33)*(0.550+0.417*q-0.0454*S) Twc$=round(Twc) print p$+Twc$+d$ goto start end