import GUI

View.Set ("graphics:639;299,nobuttonbar")
var measurement1field, measurement2field : int
var amountfield :int

procedure measurement1recieved(text : string)
    GUI.SetSelection (amountfield, 0, 0)
    GUI.SetActive (amountfield)
end measurement1recieved

procedure amountrecieved(text : string)
    GUI.SetSelection (measurement2field, 0,0)
    GUI.SetActive (measurement2field)
end amountrecieved



GUI.SetBackgroundColour (gray)
var enterbutton:=GUI.CreateButton (320,200,50,"Convert",GUI.Quit)
measurement1field:= GUI.CreateTextFieldFull(320,300,50,"from",measurement1recieved,0,0)
amountfield:= GUI.CreateTextFieldFull(320,200,50,"amount",amountrecieved,0,0)
measurement2field:= GUI.CreateTextFieldFull(320,250,50,"to",measurement2recieved,font2,0,0)
loop
    exit when GUI.ProcessEvent
end loop
GUI.Dispose (enterbutton)
colourback (blue)
Text.Locate (maxrow - 1,1)
put GUI.GetText (amountfield)," ", GUI.GetText (measurement1field)