Generate lower case ASCII alphabet: Difference between revisions
Content added Content deleted
m (→{{header|Ring}}: simplified) |
(Added PL/M) |
||
Line 2,058: | Line 2,058: | ||
</pre> |
</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}}== |
=={{header|PL/SQL}}== |
||
Line 2,080: | Line 2,102: | ||
Total execution time 16 ms |
Total execution time 16 ms |
||
</pre> |
</pre> |
||
=={{header|Plain English}}== |
=={{header|Plain English}}== |