diff --git a/src/System/God/GodDoodle.ZC b/src/System/God/GodDoodle.ZC
new file mode 100644
index 00000000..475f4583
--- /dev/null
+++ b/src/System/God/GodDoodle.ZC
@@ -0,0 +1,192 @@
+#help_index "God;Graphics/Sprite;Sprites"
+
+U0 GodDoodleDraw(CTask *task,CDC *dc)
+{
+  GrBlot(dc,0,0,god.doodle_dc);
+  if (Blink) {
+    if (god.doodle_done) {
+      dc->color=RED;
+      GrPrint(dc,(task->pix_width-FONT_WIDTH*29)>>1,
+	    (task->pix_height-3*FONT_HEIGHT)>>1,
+	    "Press <ESC> to insert sprite.");
+      GrPrint(dc,(task->pix_width-FONT_WIDTH*39)>>1,
+	    (task->pix_height-3*FONT_HEIGHT)>>1+2*FONT_HEIGHT,
+	    "Press <SHIFT-ESC> to throw-away sprite.");
+    } else {
+      dc->color=GREEN;
+      GrPrint(dc,(task->pix_width-FONT_WIDTH*25)>>1,
+	    (task->pix_height-FONT_HEIGHT)>>1,
+	    "Press <SPACE> repeatedly.");
+    }
+  }
+}
+
+U0 GodDoodleSmooth(I64 num)
+{
+  CDC *dc=DCExt(god.doodle_dc,0,0,
+	god.doodle_dc->width-1,god.doodle_dc->height-1);
+  I64 i,x,y,x1,y1,c,histogram[16],best,best_cnt,c_old=god.doodle_dc->color;
+  for (y=0;y<god.doodle_dc->height;y++)
+    for (x=0;x<god.doodle_dc->width;x++) {
+      MemSet(histogram,0,sizeof(histogram));
+      for (y1=y-num;y1<=y+num;y1++)
+	for (x1=x-num;x1<=x+num;x1++) {
+	  c=GrPeek(dc,x1,y1);
+	  if (0<=c<=15)
+	    histogram[c]++;
+	}
+      best=BLACK;
+      best_cnt=-1;
+      for (i=0;i<16;i++)
+	if (histogram[i]>best_cnt) {
+	  best=i;
+	  best_cnt=histogram[i];
+	}
+      god.doodle_dc->color=best;
+      GrPlot(god.doodle_dc,x,y);
+    }
+  god.doodle_dc->color=c_old;
+  DCDel(dc);
+}
+
+U0 GodDoodleBitsIns(I64 num_bits,I64 n)
+{//Insert bits into God doodle bit fifo.
+  I64 i;
+  for (i=0;i<num_bits;i++) {
+    FifoU8Insert(god.doodle_fifo,n&1);
+    n>>=1;
+  }
+}
+
+U0 GodDoodleHexIns(U8 *st)
+{//Insert hex record into God doodle bit fifo.
+  U8 buf[2];
+  if (st) {
+    buf[1]=0;
+    while (*buf=*st++)
+      if (Bt(char_bmp_hex_numeric,*buf))
+	GodDoodleBitsIns(4,rev_bits_table[Str2I64(buf,16)]>>4);
+  }
+}
+
+I64 GodDoodleBits(I64 num_bits)
+{
+  U8 b;
+  I64 res=0;
+  while (num_bits) {
+    if (FifoU8Remove(god.doodle_fifo,&b)) {
+      res=res<<1+b;
+      num_bits--;
+    } else {
+      god.doodle_ch=CharGet(,FALSE);
+      if (god.doodle_ch==CH_ESC||god.doodle_ch==CH_SHIFT_ESC)
+	throw;
+      else if (god.doodle_ch=='\n') {
+	DCFill(god.doodle_dc,WHITE);
+	FifoU8Flush(god.doodle_fifo);
+      } else if ('0'<=god.doodle_ch<='9')
+	GodDoodleSmooth(god.doodle_ch-'0');
+      else
+	GodDoodleBitsIns(GOD_GOOD_BITS,KbdMouseEventTime>>GOD_BAD_BITS);
+    }
+  }
+  return res;
+}
+
+public U8 *GodDoodleSprite(U8 *hex=NULL)
+{//Make God draw sprite. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.DD"$
+  I64 i,j,w,h,x,y,ch;
+  U8 *elems;
+
+  if (god.doodle_dc) return NULL;
+  god.doodle_done=FALSE;
+  SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
+  AutoComplete;
+  WinBorder;
+  WinMax;
+
+  if (!hex)
+    PopUpOk("The $LK+PU,"Holy Spirit",A="FI:::/Adam/God/HSNotes.DD"$ can puppet you.\n\n"
+	  "Press $$GREEN$$<SPACE>$$FG$$ until it finishes.");
+
+  god.doodle_ch=0;
+  god.doodle_dc=DCNew(Fs->pix_width,Fs->pix_height);
+  DCFill(god.doodle_dc,WHITE);
+  w=god.doodle_dc->width;
+  h=god.doodle_dc->height;
+
+  Fs->draw_it=&GodDoodleDraw;
+  FifoU8Flush(god.doodle_fifo);
+  GodDoodleHexIns(hex);
+  try {
+    for (i=0;i<3;i++) {
+      god.doodle_dc->color=RED;
+      for (j=0;j<29;j++)
+	switch [GodDoodleBits(3)] {
+	  case 0:
+	    GrEllipse3(god.doodle_dc,
+		  (w-1)*GodDoodleBits(5)/15.5-w/2,
+		  (h-1)*GodDoodleBits(5)/15.5-h/2,0,
+		  (w-1)*GodDoodleBits(5)/15.5,(h-1)*GodDoodleBits(5)/15.5);
+	    break;
+	  case 1:
+	    GrCircle3(god.doodle_dc,
+		  (w-1)*GodDoodleBits(5)/15.5-w/2,
+		  (h-1)*GodDoodleBits(5)/15.5-h/2,0,
+		  (w-1)*GodDoodleBits(5)/15.5);
+	    break;
+	  case 2:
+	    GrBorder(god.doodle_dc,
+		  (w-1)*GodDoodleBits(5)/15.5-w/2,
+		  (h-1)*GodDoodleBits(5)/15.5-h/2,
+		  (w-1)*GodDoodleBits(5)/15.5,(h-1)*GodDoodleBits(5)/15.5);
+	    break;
+	  case 3...7:
+	    GrLine3(god.doodle_dc,
+		  (w-1)*GodDoodleBits(4)/15,(h-1)*GodDoodleBits(4)/15,0,
+		  (w-1)*GodDoodleBits(4)/15,(h-1)*GodDoodleBits(4)/15,0);
+	    break;
+	}
+      for (j=0;j<6;j++) {
+	x=(w-1)*GodDoodleBits(5)/31+w/64;
+	y=(h-1)*GodDoodleBits(5)/31+h/64;
+	switch [GodDoodleBits(2)] {
+	  case 0: god.doodle_dc->color=BLACK;	break;
+	  case 1: god.doodle_dc->color=DKGRAY;	break;
+	  case 2: god.doodle_dc->color=LTGRAY;	break;
+	  case 3: god.doodle_dc->color=WHITE;	break;
+	}
+	GrFloodFill3(god.doodle_dc,x,y,0);
+      }
+      GodDoodleSmooth(3);
+    }
+    god.doodle_done=TRUE;
+    if (!hex) {
+      do ch=CharGet(,FALSE);
+      while (ch!=CH_ESC && ch!=CH_SHIFT_ESC);
+    } else
+      ch=CH_ESC;
+  } catch {
+    Fs->catch_except=TRUE;
+    ch=CH_SHIFT_ESC;
+  }
+  DCFill;
+  SettingsPop;
+  if (ch==CH_ESC)
+    elems=DC2Sprite(god.doodle_dc);
+  else
+    elems=NULL;
+  DCDel(god.doodle_dc);
+  god.doodle_dc=NULL;
+  return elems;
+}
+
+#help_index "God"
+public U0 GodDoodle(U8 *hex=NULL)
+{//Make God draw sprite, insert in doc. $LK+PU,"Holy Spirit Instructions",A="FI:::/Adam/God/HSNotes.DD"$
+  U8 *elems;
+  if (elems=GodDoodleSprite(hex)) {
+    Sprite(elems);
+    Free(elems);
+  }
+}
\ No newline at end of file