Four sides of square: Difference between revisions
→{{header|PL/M}}: layout
(Added PL/M) |
(→{{header|PL/M}}: layout) |
||
Line 988:
DO J = 1 TO N;
CALL PR$CHAR( ' ' );
IF I = 1 OR I = N OR J = 1 OR J = N THEN CALL PR$CHAR( '1' );
END;
CALL PR$NL;
|