# Eta calc.bas

draw -1

draw "Enter distance",20,20

draw "and average speed.",20,30

draw "Distance (miles)",21,60

draw "Avg. Speed (mph)",15,80

form fld 100,59,40,12, "",1

form fld 100,79,40,12, "",1

form btn 50,110,60,14, "Compute",1

while 1

x = asc(input$(1))

b = val(s$(0))

c = val(s$(1))

h = b / c

m = h - int(h)

m2 = m * 60

mins = round(m2)

hours = int(h)

print "Estimated time of arrival is",hours;"hours and ",mins; "minutes."

wend

end

    Source: geocities.com/greenchile505