[mor_anipin]

exten => s,1,NoOp(MOR_ANIPIN_USED: ${MOR_ANIPIN_USED}, MOR_DEVICE_ID: ${MOR_DEVICE_ID}, MOR_ANI_DST: ${MOR_ANI_DST}, MOR_ANI_DID: ${MOR_ANI_DID})
exten => s,2,Set(TIMEOUT(digit)=5)
exten => s,3,Set(TIMEOUT(response)=10)
exten => s,4,Set(LOOPCOUNT=0)
exten => s,5,Background(mor/mor_callingcard_choices)
exten => s,6,Waitexten(5)
exten => s,7,Set(LOOPCOUNT=$[${LOOPCOUNT} + 1])
exten => s,8,GotoIf($[${LOOPCOUNT} > 2]?end,1)
exten => s,9,Goto(5)

exten => i,1,Goto(s|1)
exten => t,1,Goto(s|1)

exten => 1,1,NoOp(Ask new dst)
exten => 1,2,Set(MOR_ANI_DST=)
exten => 1,3,Goto(mor|${MOR_ANI_DID}|1)

exten => 2,1,NoOp(Dial same dst)
exten => 2,2,Background(mor/mor_dialing_previous_destination)
exten => 2,3,SayDigits(${MOR_ANI_DST})
exten => 2,4,Goto(mor|${MOR_ANI_DST}|1)

exten => 3,1,NoOp(Check balance)
exten => 3,2,AGI(mor_tellbalance)
exten => 3,3,Goto(s|1)


exten => end,1,Hangup