diff --git a/src/mockingduet.a b/src/mockingduet.a
index 4770c28..d9c2951 100644
--- a/src/mockingduet.a
+++ b/src/mockingduet.a
@@ -40,47 +40,47 @@ MockingDuet
           JSR INIT
           JSR RESET
           JSR ENACHN
-          JMP LOOP
+          JMP MBLOOP
 
 SETVOL
-NEXT      LDA SONG
+MBNEXT    LDA SONG
           CLC
           ADC #$03
           STA SONG
-          BCC LOOP
+          BCC MBLOOP
           INC SONG+1
-LOOP      LDY #$00
+MBLOOP    LDY #$00
           LDA (SONG),Y
           CMP #$01
           BEQ SETVOL
           BPL SETNOTE    ;SET DURATION
-END       JSR RESET
+MBEND     JSR RESET
           RTS
 
 MBCHECKKEY
          ldy   #0
 MBCHECK  lda   ($EE), y
          beq   MBCONTINUE
-         bpl   END
+         bpl   MBEND
          iny
          cmp   $C000
-         beq   END
+         beq   MBEND
          bne   MBCHECK    ; always branches
 MBCONTINUE
          bit   $C010
-         jmp   NEXT
+         jmp   MBNEXT
 
 SETNOTE   STA DURATION
           LDA #LEFTCHN
-SEND      STA CHN
+MBSEND    STA CHN
 MBSLOT01  STA $C401
 MBSLOT02  STA $C481
           JSR SETREG1
           INY
           LDA (SONG),Y
-          BEQ SKIP       ;IF 0 KEEP LTTSA
+          BEQ MBSKIP     ;IF 0 KEEP LTTSA
           JSR CONVFREQ
-SKIP      LDA TONE
+MBSKIP    LDA TONE
 MBSLOT03  STA $C401
 MBSLOT04  STA $C481
           JSR WRDATA1
@@ -96,7 +96,7 @@ MBSLOT08  STA $C481
           LDA #RIGHTCHN
           STA CHN
           CPY #$02
-          BNE SEND
+          BNE MBSEND
           LDX DURATION
 W1        LDY TEMPO
 W2        DEC TEMP
@@ -108,7 +108,7 @@ W2        DEC TEMP
           BIT $C000
 MBKEYBRANCH
           BMI MBCHECKKEY
-          JMP NEXT
+          JMP MBNEXT
 
 CONVFREQ  LDX OCTAVE
           INX
diff --git a/src/ui.demo.a b/src/ui.demo.a
index fe34181..841be55 100644
--- a/src/ui.demo.a
+++ b/src/ui.demo.a
@@ -20,6 +20,12 @@
 ;------------------------------------------------------------------------------
 RunDemo
          jsr   Home
+         lda   #7
+         sta   targetVTAB
+         lda   #10
+         sta   minHTAB
+         +LDADDR sThereAre
+         jsr   HeavySilkReveal
          jsr   LoadDemoPuzzles
          +LDADDR DemoCode
          +ST16 GetNextDemoByte+1
@@ -100,6 +106,8 @@ DemoOnWAIT
          jsr   GetNextDemoByte
          jmp   LongWaitForKeyWithTimeout
 
+DemoOnNEXT=AnimatePuzzleCompleted
+
 GetNextDemoByte
          ldx   $FDFD                 ; SMC
          inc   GetNextDemoByte+1
@@ -117,6 +125,7 @@ DemoDispatchLo
          !byte <DemoOnUP
          !byte <DemoOnDOWN
          !byte <DemoOnWAIT
+         !byte <DemoOnNEXT
 DemoDispatchHi
          !byte >DemoOnEXIT
          !byte >DemoOnLOAD
@@ -127,6 +136,7 @@ DemoDispatchHi
          !byte >DemoOnUP
          !byte >DemoOnDOWN
          !byte >DemoOnWAIT
+         !byte >DemoOnNEXT
 
 ; opcodes
 EXIT                      = 0
@@ -138,34 +148,110 @@ RIGHT                     = 5
 UP                        = 6
 DOWN                      = 7
 WAIT                      = 8
+NEXT                      = 9
 
 demoPuzzles
-         !raw  "AOCD,LTLE,IBUH|ABLE,ITCH,LOUD",$0A
+         !raw  "AOCD,LTUE,IBLH|ABLE,ITCH,LOUD|...HIDDEN IN THIS PUZZLE",$0A
          !raw  "["
 
 sDemo
          !byte 6
          !raw  "DEMO-0"
 
-sUpDown
-         !byte 24
-         !raw  "MOVE COLUMNS UP AND DOWN"
-sColumns
+sThereAre
          !byte 20
-         !raw  "MOVE BETWEEN COLUMNS"
+         !raw  "THERE ARE 3 WORDS..."
+sShift
+         !byte 28
+         !raw  "SHIFT COLUMNS TO SPELL WORDS"
+sUseAll
+         !byte 26
+         !raw  "USE ALL LETTERS TO ADVANCE"
 
 DemoCode
+         !byte SHOW ,<sThereAre,>sThereAre
+         !byte WAIT ,20
+         !byte HIDE
          !byte LOAD ,0,0
-         !byte SHOW ,<sUpDown,>sUpDown
-         !byte WAIT ,10
+         !byte WAIT ,30
          !byte HIDE
          !byte UP
-         !byte WAIT ,5
+         !byte WAIT ,2
          !byte UP
          !byte WAIT ,5
          !byte DOWN
+         !byte WAIT ,2
+         !byte DOWN
          !byte WAIT ,5
-         !byte SHOW ,<sColumns,>sColumns
-         !byte WAIT ,10
+         !byte SHOW ,<sShift,>sShift
+         !byte WAIT ,30
          !byte HIDE
+         !byte UP
+         !byte WAIT ,2
+         !byte RIGHT
+         !byte WAIT ,2
+         !byte RIGHT
+         !byte WAIT ,2
+         !byte UP
+         ; A C
+         ; --v-
+         ; LOUD
+         ; ----
+         ; ITLE
+         ;  B H
+         !byte WAIT ,30
+         !byte SHOW ,<sUseAll,>sUseAll
+         !byte WAIT ,30
+         !byte HIDE
+         !byte LEFT
+         !byte WAIT ,2
+         !byte LEFT
+         !byte WAIT ,2
+         !byte DOWN
+         !byte WAIT ,2
+         !byte RIGHT
+         !byte WAIT ,2
+         !byte UP
+         !byte WAIT ,2
+         !byte UP
+         !byte WAIT ,2
+         !byte RIGHT
+         !byte WAIT ,2
+         !byte UP
+         !byte WAIT ,2
+         !byte RIGHT
+         !byte WAIT ,2
+         !byte UP
+         ;  OC
+         ;  TUD
+         ; ---v
+         ; ABLE
+         ; ----
+         ; L  H
+         ; I
+         !byte WAIT ,30
+         !byte UP
+         !byte WAIT ,2
+         !byte LEFT
+         !byte DOWN
+         !byte WAIT ,2
+         !byte DOWN
+         !byte WAIT ,2
+         !byte LEFT
+         !byte WAIT ,2
+         !byte DOWN
+         !byte WAIT ,2
+         !byte LEFT
+         !byte WAIT ,2
+         !byte UP
+         !byte WAIT ,2
+         !byte UP
+         ; A  D
+         ; LO E
+         ; v---
+         ; ITCH
+         ; ----
+         ;  BU
+         ;   L
+         !byte NEXT
          !byte EXIT