Category:Polyglot:PL/I and PL/M: Difference between revisions
m
→Include Files: Fix tags
m (→Include Files: Added PL/M MIN and MAX) |
m (→Include Files: Fix tags) |
||
Line 192:
DECLARE ( A, B )ADDRESS;
RETURN( A MOD B );
END MODF;
MIN: PROCEDURE( A, B ) ADDRESS;
DECLARE ( A, B ) ADDRESS;
Line 200:
DECLARE ( A, B ) ADDRESS;
IF A > B THEN RETURN( A ); ELSE RETURN( B );
END MAX;</lang>
Note the lack of comments in the PL/M "include" file - this is because the definitions will be commented out for PL/I compilers by having a "/*" starting in column 81 preceeding the definitions and /* */ follow them.
| |||