Conversor de temperatura para Mega Drive

Eu tenho este código escondido em meu HD a um bocado de tempo. Hoje chegou o dia de aparecer para o mundo. Ok, admito, não é nada tão grandioso assim. Na verdade não passa de uma experiência de programação, para não enferrujar no dialeto basic para Mega Drive - O basiegaxorz. O código simplesmente converte as temperaturas fornecidas pelo usuário entre as escalas Celsius e Fahrenheit. 

Na época em que escrevi este código me preocupei apenas as equações de transformação. Usei vários comandos PRINT e INPUT como meio de armazenar variáveis e mostrar para o jogador. Confesso que esta é uma forma bastante primária e desajeitada de criar uma interface, mas na época era o que eu conseguia fazer. 

Abaixo segue o código para quem for curioso:

    'teresina, 05/04/09
    'este é apenas um conversor de temperatura para as
    'escalas Fahrenheit e Celsius. Coisa simples.
    'update, 28/08/2012
    'apenas acrescentei a variável a para facilitar
    'alterações futuras do comando sleep
   
    option title, "Temp_Converter"
   
    a=100
   
inicio:
    cls
    print "        TEMP_CONVERTER V.02"
    print ""
    print "Este programa converte a temperatura"
    print "entre as escalas Fahrenheit e Celsius."
    print "Escolha o tipo de escala a ser usada,"
    print "entre com o valor a ser convertido e"
    print "o programa retorna o valor. Simples."
    print ""
    print "Voce deseja?"
    print "1. Converter Fahrenheit para Celsius?"
    print "2. Converter Celsius para Fahrenheit?"
        input opt1
        if opt1=1 then
        goto f_to_c
        endif
        if opt1=2 then
        goto c_to_f
        endif
        if opt1 != 1 [or] opt1 !=2 then
        goto inicio
        endif
       
f_to_c:
    cls
    print ""
    print "Voce escolheu:"
    print "Converter Fahrenheit para Celsius"
    print "Entre com a temperatura em Fahrenheit"
    print "a ser convertido:"
    input f
    c=5*(f-32)/9
    print f;" graus Fahrenheit equivale a"
    print c;" graus Celsius."
    sleep a
    goto inicio
   
c_to_f:
    cls
    print ""
    print "Voce escolheu:"
    print "Converter Celsius para Fahrenheit"
    print "Entre com a temperatura em Celsius"
    print "a ser convertido:"
    input c
    f=32+(c*9)/5
    print c;" graus Celsius equivale a"
    print f;" graus Fahrenheit."
    sleep a
    goto inicio

A propósito, observando o código é possível verificar o quanto pode ser aprimorado: Substituir os comandos INPUT por outro método que não seja tão desajeitado e mais intuitivo de interagir com o usuários. Usar o joystick como meio de entrada. Talvez colocar alguns gráficos em segundo plano, etc, etc, etc. 

Daria um bom projeto de final de semana.