Language: REXX Author: Ian Collier Note: this would be slightly shorter if it didn't start with a comment, but some environments require that. :-) /* REXX */ p="/* REXX */";r="say p;say 'p=%'p'%;r=%'r'%';say translate(r,'22'x,'25'x)" say p;say 'p="'p'";r="'r'"';say translate(r,'22'x,'25'x) Author: Ian Collier /* REXX */ p="/* REXX */";r="say p;say %p=%%%p%%%;r=%%%r%%%%;say translate(r,%22%x,%25%x)" say p;say "p="""p""";r="""r"""";say translate(r,"22"x,"25"x) Author: Franz-Josef Gasper say delstr(delstr(delstr(copies('say delstr(delstr(delstr(copies('',4),34,24),67,56),92,32)',4),34,24),67,56),92,32) Author: Mark Wooding /* */ q='''' p='say"/* */";say"q="q||q||q||q;say"p="q||p||q;say"interpret p"' interpret p Author: Richard Rauch (rkr@empire.interstate.net) Note: A cheat /* A self-reproducing REXX program */ say sourceline( 1 ) Author: Dan van Ginhoven (nfy339g@tninet.se) Note: Also a cheat /* rexx */ trace o signal on novalue do ix = 1 to sourceline() say sourceline(ix) end exit