
Sub Command1_Click (index As Integer)
    If (cidade <> index) Then
        filename$ = pathname$ + info(index)
        form2.Caption = city(index)
        form2.Show
        Open filename$ For Input As #1
        form2.Text1 = Input(LOF(1), #1)
        Close
        form2.Command1.SetFocus
        cidade = index
    End If
End Sub

Sub Form_Load ()
    cidade = -1
    pathname$ = ""
    info(0) = "BAG.txt"
    city(0) = "Bag"
    info(1) = "BENTOG.txt"
    city(1) = "Bento Gonalves"
    info(2) = "bomjesu.txt"
    city(2) = "Bom Jesus"
    info(3) = "cacapav.txt"
    city(3) = "Caapava"
    info(4) = "cachosu.txt"
    city(4) = "Cachoeira do Sul"
    info(5) = "canela.txt"
    city(5) = "Canela"
    info(6) = "canoas.txt"
    city(6) = "Canoas"
    info(7) = "carazin.txt"
    city(7) = "Carazinho"
    info(8) = "caxias.txt"
    city(8) = "Caxias do Sul"
    info(9) = "cruzalt.txt"
    city(9) = "Cruz Alta"
    info(10) = "dpedrit.txt"
    city(10) = "Dom Pedrito"
    info(11) = "encanta.txt"
    city(11) = "Encantado"
    info(12) = "erechim.txt"
    city(12) = "Erechim"
    info(13) = "estrela.txt"
    city(13) = "Estrela"
    info(14) = "farroup.txt"
    city(14) = "Farroupilha"
    info(15) = "garibald.txt"
    city(15) = "Garibaldi"
    info(16) = "gramado.txt"
    city(16) = "Gramado"
    info(17) = "irai.txt"
    city(17) = "Ira"
    info(18) = "lagoave.txt"
    city(18) = "Lagoa Vermelha"
    info(19) = "lajeado.txt"
    city(19) = "Lajeado"
    info(20) = "osorio.txt"
    city(20) = "Osrio"
    info(21) = "panambi.txt"
    city(21) = "Panambi"
    info(22) = "passofu.txt"
    city(22) = "Passo Fundo"
    info(23) = "pelotas.txt"
    city(23) = "Pelotas"
    info(24) = "piratin.txt"
    city(24) = "Piratini"
    info(25) = "portoal.txt"
    city(25) = "Porto Alegre"
    info(26) = "riogran.txt"
    city(26) = "Rio Grande"
    info(27) = "riopard.txt"
    city(27) = "Rio Pardo"
    info(28) = "santacr.txt"
    city(28) = "Santa Cruz do Sul"
    info(29) = "santama.txt"
    city(29) = "Santa Maria"
    info(30) = "santang.txt"
    city(30) = "Santo ngelo"
    info(31) = "santanl.txt"
    city(31) = "Santana do Livramento"
    info(32) = "santaro.txt"
    city(32) = "Santa Rosa"
    info(33) = "santoap.txt"
    city(33) = "Santo Antnio"
    info(34) = "saoleo.txt"
    city(34) = "So Leopoldo"
    info(35) = "sborja.txt"
    city(35) = "So Borja"
    info(36) = "slouren.txt"
    city(36) = "So Loureno do Sul"
    info(37) = "sluizgo.txt"
    city(37) = "So Lus Gonzaga"
    info(38) = "soledade.txt"
    city(38) = "Soledade"
    info(39) = "taquari.txt"
    city(39) = "Taquari"
    info(40) = "tenport.txt"
    city(40) = "Tenente Portela"
    info(41) = "torres.txt"
    city(41) = "Torres"
    info(42) = "viamao.txt"
    city(42) = "Viamo"
    info(43) = "alegret.txt"
    city(43) = "Alegrete"
End Sub

Sub Form_Unload (Cancel As Integer)
    Unload form2
    End
End Sub

