Language: MUMPS (now called just M) Author: Michael Turniansky S Y=$C(34),A="W ""S Y=$C(34),A=""_Y X ""F %=1:1:6 W $P(A,Y,%),Y,Y"" W Y,"" X A""" X A Author: Ray Valdez S N=$C(13)_$C(10)_$C(9) S Q=$C(34) S S= "W N_""S N=$C(13)_$C(10)_$C(9) S Q+$C(34) S S=""_Q;F I=1:1:$L( S) S C=$E(S,I) W $S(C=$C(34):Q_Q,1:C);W Q_N;F I=1:1:$ L(S) S C=$E(S,I) W $S(C=$C(59):N,1:C);Q;" W N_"S N=$C(13)_$C(10)_$C(9) S Q=$C(34) S S="_Q F I=1:1:$L(S) S C=$E(S,I) W $S(C=$C(34):Q_Q,1:C) W Q_N F I=1:1:$L(S) S C=$E(S,I) W $S(C=$C(59):N,1:C) Q Author: Greg Kreis (gkreis@PioneerDataSys.com) Note: Cheat W $T(+1) Author:Baalen van, Ton (TvBaalen@hiscom.nl) Note: Cheat quintest ;This is a quin program ; Compiled 1998-12-28 08:24AM for M/UX ;do anything write !,"Hello, this is a quine program",!! use 0 zp ;This last line reproduces any mumps program quit