Generate lower case ASCII alphabet: Difference between revisions
Generate lower case ASCII alphabet (view source)
Revision as of 12:22, 1 December 2021
, 2 years agoAdded PL/M
m (→{{header|Ring}}: simplified) |
(Added PL/M) |
||
Line 2,058:
</pre>
=={{header|PL/M}}==
<lang pli>100H: /* PRINT THE LOWERCASE LETTERS */
/* CP/M BDOS SYSTEM CALL */
BDOS: PROCEDURE( FN, ARG ); DECLARE FN BYTE, ARG ADDRESS; GOTO 5;END;
/* CONSOLE OUTPUT ROUTINES */
PR$STRING: PROCEDURE( S ); DECLARE S ADDRESS; CALL BDOS( 9, S ); END;
/* TASK */
DECLARE C BYTE, LC ( 27 )BYTE;
DO C = 0 TO 25;
LC( C ) = C + 32 + 'A';
END;
LC( LAST( LC ) ) = '$'; /* STRING TERMINATOR */
CALL PR$STRING( .LC );
EOF</lang>
{{out}}
<pre>
abcdefghijklmnopqrstuvwxyz
</pre>
=={{header|PL/SQL}}==
Line 2,080 ⟶ 2,102:
Total execution time 16 ms
</pre>
=={{header|Plain English}}==
| |||