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