startrecord=true
label=
nodetype=7
filename=avm:rexx/stdhead.avm
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=answervoiceStart
nodetype=8
line1=parse arg servername faxscript datascript distinctivering 'CID$' acidname '$' acidnumber '$'
line2=call setclip(address() || 'FAXSCRIPT', faxscript)
line3=call setclip(address() || 'DATASCRIPT', datascript)
line4=call setclip(address() || 'CIDNAME', acidname)
line5=call setclip(address() || 'CIDNUMBER', acidnumber)
line6=
line7=
line8=
line9=
line10=
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=8
line1=introtype = getclip('AVMIntroductionType')
line2=if upper(introtype) = 'DAYOFWEEK' then
line3=  intronumber = dayofweek2num()
line4=else if upper(introtype) = 'TIMEOFDAY' then
line5=  intronumber = timeofday2num()
line6=else if upper(introtype) = 'RANDOM' then
line7=  intronumber = random(1,7, time('s'))
line8=else if introtype = "" then
line9=  intronumber = 1
line10=else intronumber = introtype
nextactiontype=2
nextactionaction=call playAVoiceErrorOK('avm:voices/intro'||intronumber)
endrecord=true
startrecord=true
label=startup
nodetype=8
line1=
line2=simple = getclip('AVMSimpleAnsweringMachine')
line3=if upper(simple) = 'YES' then call simplestartup
line4=else call multistartup
line5=
line6=
line7=
line8=
line9=
line10=
nextactiontype=2
nextactionaction=exit
endrecord=true
startrecord=true
label=answervoiceDone
nodetype=1
filename='avm:voices/Goodbye'
comment=Thanks for calling.  Bye now!
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=exit
endrecord=true
startrecord=true
label=
nodetype=7
filename=avm:rexx/simplestdtail.avm
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=7
filename=avm:rexx/startup.avm
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=7
filename=avm:rexx/simplestartup.avm
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=timeOfDay2num
nodetype=8
line1=currentHours = time('hours')
line2=if currentHours < 12 then ret = 1
line3=else if currentHours < 18 then ret = 2
line4=else ret = 3
line5=
line6=
line7=
line8=
line9=
line10=
nextactiontype=2
nextactionaction=return ret
endrecord=true
startrecord=true
label=dayOfWeek2num
nodetype=8
line1=procedure
line2=
line3=day=upper(date('Weekday'))
line4=d_.Monday=1;d_.Tuesday=2;d_.Wednesday=3
line5=d_.Thursday=4;d_.Friday=5;d_.Saturday=6
line6=d_.Sunday=7
line7=
line8=
line9=
line10=
nextactiontype=2
nextactionaction=return d_.day
endrecord=true
startrecord=true
label=playAVoiceErrorOK
nodetype=8
line1=procedure
line2=parse arg toPlay
line3=
line4=
line5=
line6=
line7=
line8=
line9=
line10=
nextactiontype=3
nextactionaction=
endrecord=true
startrecord=true
label=
nodetype=1
filename=toPlay
comment=
keyactiontype=3
keyactionaction=
faxactiontype=0
faxactionaction=stdfax
dataactiontype=0
dataactionaction=stddata
busyactiontype=0
busyactionaction=stdbusy
abortactiontype=0
abortactionaction=stdabort
erroractiontype=3
erroractionaction=
nextactiontype=2
nextactionaction=return
endrecord=true