startrecord=true
label=playnumber
nodetype=14
comment=Cycle through value and play each symbol
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=8
line1=procedure
line2=parse arg number
line3=
line4=
line5=
line6=
line7=
line8=
line9=
line10=
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=8
line1=do i = 1 to length(number)
line2=  if pos(substr(number, i, 1), '0123456789') > 0 then
line3=    call playAVoice('avm:voices/number0'||substr(number, i, 1))
line4=  else if substr(number, i, 1) = '#' then
line5=    call playAVoice('avm:voices/numberpound')
line6=  else if substr(number, i, 1) = '*' then
line7=    call playAVoice('avm:voices/numberstar')
line8=end
line9=
line10=
nextactiontype=2
nextactionaction=return
endrecord=true
startrecord=true
label=playAVoice
nodetype=8
line1=procedure
line2=parse arg filename
line3=
line4=
line5=
line6=
line7=
line8=
line9=
line10=
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=1
filename=filename
comment=
keyactiontype=3
keyactionaction=
faxactiontype=0
faxactionaction=stdfax
dataactiontype=0
dataactionaction=stddata
busyactiontype=0
busyactionaction=stdbusy
abortactiontype=0
abortactionaction=stdabort
erroractiontype=0
erroractionaction=stderror
nextactiontype=2
nextactionaction=return
endrecord=true