Generate lower case ASCII alphabet: Difference between revisions
Content added Content deleted
(Added PL/M) |
|||
Line 1,886: | Line 1,886: | ||
=={{header|MUMPS}}== |
=={{header|MUMPS}}== |
||
===Caché=== |
|||
{{works with|Caché ObjectScript}} |
{{works with|Caché ObjectScript}} |
||
<lang MUMPS> |
<lang MUMPS> |
||
Line 1,897: | Line 1,898: | ||
{{out}}<pre> |
{{out}}<pre> |
||
SAMPLES>DO ^LOWASCMIN |
SAMPLES>DO ^LOWASCMIN |
||
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z |
|||
</pre> |
|||
===Standard MUMPS=== |
|||
{{works with|DSM, MSM}} |
|||
<lang MUMPS> |
|||
LONG SET D="" |
|||
FOR X=97:1:122 WRITE D,$C(X) SET D="," |
|||
WRITE ! |
|||
QUIT |
|||
; |
|||
SHORT S D="" |
|||
F X=97:1:122 W D,$C(X) S D="," |
|||
W ! |
|||
Q |
|||
</lang> |
|||
{{out}}<pre> |
|||
MGR>DO LONG |
|||
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z |
|||
MGR>D SHORT |
|||
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z |
a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z |
||
</pre> |
</pre> |