home *** CD-ROM | disk | FTP | other *** search
/ Mega Top 1 / os2_top1.zip / os2_top1 / APPS / TEKST / TEXDISK / MISC_MF.ZIP / EMTEX / MFINPUT / LIFE.MF < prev    next >
Text File  |  1990-09-18  |  225b  |  11 lines
  1. picture v;
  2. def c = currentpicture enddef;
  3. forever:
  4.   v:=c;
  5.   showit;
  6.   addto c also c shifted left + c shifted right;
  7.   addto c also c shifted up + c shifted down;
  8.   addto c also c-v;
  9.   cull c keeping (5,7);
  10. endfor
  11.