Category:Polyglot:PL/I and PL/M: Difference between revisions
Content added Content deleted
m (→Include Files: Added PL/M MIN and MAX) |
m (→Include Files: Fix tags) |
||
| Line 192: | Line 192: | ||
DECLARE ( A, B )ADDRESS; |
DECLARE ( A, B )ADDRESS; |
||
RETURN( A MOD B ); |
RETURN( A MOD B ); |
||
END MODF; |
END MODF; |
||
MIN: PROCEDURE( A, B ) ADDRESS; |
MIN: PROCEDURE( A, B ) ADDRESS; |
||
DECLARE ( A, B ) ADDRESS; |
DECLARE ( A, B ) ADDRESS; |
||
| Line 200: | Line 200: | ||
DECLARE ( A, B ) ADDRESS; |
DECLARE ( A, B ) ADDRESS; |
||
IF A > B THEN RETURN( A ); ELSE RETURN( B ); |
IF A > B THEN RETURN( A ); ELSE RETURN( B ); |
||
END MAX; |
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. |
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. |
||