# 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

    Source: geocities.com/greenchile505