"unmatch control word" error message

[Damien]

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.