Post Reply 
"unmatch control word" error message
12-24-2013, 02:25 AM
Post: #7
RE: "unmatch control word" error message
[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
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: "unmatch control word" error message - Bob Frazee - 12-24-2013 02:25 AM



User(s) browsing this thread: 2 Guest(s)