Sorry your browser is not supported!

cls
start:
print \\\"what ya wish to convert?\\\"
input a$
	IF a$=\\\"temperature\\\" 
	goto sub1
	IF a$=\\\"distance\\\" 
	goto sub2
	ENDIF

sub1:
Print \\\"Please Enter Temperature In Centigrade: \\\"; 
Input C 
F = 1.8*C+32 
Print C;\\\" degrees centigrade equals \\\"; F;\\\" degrees Fahrenheit.\\\"
input b$
print \\\"wanna convert again? (Y/N)\\\"
input c$
	if c$=\\\"Y\\\"
	goto start
	if c$=\\\"N\\\"
	end
	ENDIF

sub2:
print \\\"please enter miles\\\"
input m
k#=m*1.609344
print m;\\\"miless = \\\";k#;\\\"KM!\\\"
print \\\"wanna convert againt (Y/N)?\\\"
input t$
	IF t$=\\\"Y\\\"
	goto start
	else
	end
	endif
end

Rem Project: Dark Basic Pro Project
Rem Created: Monday, February 14, 2011

Rem ***** Main Source File *****
repeat
    gosub start
    print "wanna convert again? (Y/N)"
    keypress = 0
    repeat
        if keystate(21) = 1 then keypress = 21
        if keystate(49) = 1 then keypress = 49
    until keypress > 0
until keypress = 49
end

start:
cls
print "what ya wish to convert?"
print "Press 1 for temperature, 2 for distance"
keypress = 0
repeat
    if keystate(2) = 1 then keypress = 1
    if keystate(3) = 1 then keypress = 2
UNTIL keypress > 0
if keypress = 1 then gosub sub1
if keypress = 2 then gosub sub2
return

sub1:
cls
Print "Please Enter Temperature In Centigrade: "; 
Input C 
F = (1.8 * C) + 32 
Print C;" degrees centigrade equals "; F;" degrees Fahrenheit."
return

sub2:
cls
print "please enter miles"
input m
k# = m * 1.609344
print m;" miles = "; k# ;" KM!"
return