"unmatch control word" error message

[Bob Frazee]

[quote='Damien' pid='1268' dateline='1387842170']
And if you had WindChillIntroDisplay(DegF,Mph) subroutine in your code ?

Code:

WindChillIntroDisplay(DegF,Mph);
BEGIN
// more code here.. 
END;

at the end like so:

Code:

DegF,Mph,wct,wcto,ft; // local vars used
condition; // var for WindChillPgm to end

WindChillIntroDisplay();
InputPgm();
FrostBiteEqn();
WindChillEqn();
OutputPgm();

EXPORT WindChillPgm()
BEGIN
LOCAL K;

  REPEAT
    STARTVIEW(-1,1);
    WindChillIntroDisplay(DegF,Mph);

        REPEAT
          WAIT(1);
          GETKEY▶K;
        UNTIL K>−1;

        IF K==42 OR K==43 THEN
          InputPgm();
        END;

//Additional lines of program code...

UNTIL condition; // for windChillPgm to end
END;


EXPORT InputPgm()
BEGIN
 INPUT({DegF,Mph},"Input Values",{"DegF= :","Mph= :"},{"Air Temperature (-45 to 40 °F)","Wind Speed (3 to 60 Mph)"},{DegF,Mph});
 RETURN {DegF,Mph};
END;

WindChillIntroDisplay(DegF,Mph)
BEGIN
// more code here...
END;

You declare a function, you call it, but it does not exist ...

Regards,

Damien.

Damien;
WindChillIntroDisplay(DegF,Mph) is not the problem. That subroutine only takes inputs and displays the 2 passed values DegF and Mph. What I am attempting to do is code in a conventional programming style, and have a subroutine create 2 new values and then pass them back to the main program "WindChillPgm();" so I can then pass them to another subroutine that is not part of the main program. I appear to have the syntax incorrect in getting the values back to the main program, Possibly you, Han, or Michael can help with that. Thanks
rcf