Oh Snap, I found it. This is some old school stuff, one of the very first things I wrote for asterisk dialplan wise. I doubt this stuff would even work if plugged in, but here ya go:
[call-forwarding]
exten => s,1,Playback(${SOUNDS}please-enter-your)
exten => s,2,Playback(${SOUNDS}extension)
exten => s,3,Read(CFWDEXTEN,,4)
exten => s,4,GotoIf($["${CFWDEXTEN}" = ""]?1:5)
exten => s,5,Authenticate(/etc/asterisk/pwdlist.conf)
exten => s,6,DBGet(temp=CFWD/${CFWDEXTEN})
exten => s,7,GotoIf($["${temp}" = ""]?8:108)
exten => s,8,Playback(${SOUNDS}call-forward)
exten => s,9,Playback(${SOUNDS}enter-phone-number10)
exten => s,10,Read(CFWDNUM,,10)
exten => s,11,Goto(call-forward-validate,s,1)
exten => s,107,Goto(s,8)
exten => s,108,Goto(call-forward-cancel,s,1)
[call-forward-validate]
exten => s,1,Background(${SOUNDS}you-entered)
exten => s,2,SayDigits(${CFWDNUM})
exten => s,3,Background(${SOUNDS}if-correct-press)
exten => s,4,SayDigits(1)
exten => s,5,Background(${SOUNDS}otherwise-press)
exten => s,6,SayDigits(2)
exten => 1,1,Goto(call-forward-validated,s,1)
exten => 2,1,Goto(call-forwarding,s,8)
[call-forward-validated]
exten => s,1,DBPut(CFWD/${CFWDEXTEN}=${CFWDNUM})
exten => s,2,Playback(${SOUNDS}call-forwarding)
exten => s,3,Playback(${SOUNDS}for)
exten => s,4,Playback(${SOUNDS}extension)
exten => s,5,SayDigits(${CFWDEXTEN})
exten => s,6,Playback(${SOUNDS}has-been-set-to)
exten => s,7,SayDigits(${CFWDNUM}})
exten => s,8,Playback(${SOUNDS}goodbye)
exten => s,9,Hangup
[call-forward-cancel]
exten => s,1,Background(${SOUNDS}call-forwarding)
exten => s,2,Background(${SOUNDS}is-currently)
exten => s,3,Background(${SOUNDS}enabled)
exten => s,4,Background(${SOUNDS}press-1)
exten => s,5,Background(vm-tocancel)
exten => 1,1,Goto(call-forward-delete,s,1)
exten => #,1,Goto(call-forward-delete,s,1)
exten => t,1,Goto(s,1)
[call-forward-delete]
exten => s,1,DBDel(CFWD/${CFWDEXTEN})
exten => s,2,Playback(${SOUNDS}call-fwd-cancelled)
exten => s,3,Playback(${SOUNDS}goodbye)
exten => s,4,Hangup
[macro-stdexten]
exten => s,1,Wait(1)
exten => s,2,GotoIf($[${CALLERIDNUM:0: 8} = (protecting the innocent)]?3:4)
exten => s,3,SetCIDNum(${CALLERIDNUM:6})
exten => s,4,DBGet(cfwd=CFWD/${ARG1})
exten => s,5,Dial(Zap/g1d/1${cfwd},20,t)
exten => s,6,Voicemail(u${ARG1})
exten => s,7,Wait(1)
exten => s,8,Hangup
exten => s,9,Dial(${ARG2},20,tr)
exten => s,10,Voicemail(u${ARG1})
exten => s,11,Wait(1)
exten => s,12,Hangup
exten => s,105,Goto(s,9)
exten => s,106,Voicemail(b${ARG1})
exten => s,107,Hangup
exten => s,110,Voicemail(b${ARG1})
exten => s,111,Wait(1)
exten => s,112,Hangup
Hope that gives you a clue!
X