Script to activate BRI monitoring on a nortel Meridian1

[frda]

This is a script that activates/deactivates DCH monitoring on nortel's Meridian1 PABX.

integer BA_MON
string STRT
string STP
integer COUNTER
integer UNT0
integer UNT7
string CARD
string UNIT

proc main

set txpace 100

USRINFO:
transmit "****^M"
transmit "LD 48^M"

dialogbox 0 105 67 168 82 (2|12) "Basic Access Monitoring"
text 4 66 5 34 8 "Start Unit" center
text 5 116 5 32 8 "End Unit" center
editbox 2 16 20 32 12 CARD
editbox 6 66 20 32 12 STRT
editbox 9 116 20 32 12 STP
pushbutton 14 40 40 32 10 "ON"
pushbutton 15 100 40 32 10 "OFF"
pushbutton 16 100 60 40 14 "Ca&ncel" cancel
text 1 21 4 24 8 "CARD" center

enddialog

while 1
dlgevent 0 BA_MON
switch BA_MON
case 14
call setm
endcase
case 15
call rset
endcase
case 16
exit
endcase
endswitch
endwhile
if not nullstr CARD
else
goto usrinfo
endif
if not nullstr STRT
else
goto usrinfo
endif
if not nullstr STP
else
goto usrinfo
endif
set txpace 0
endproc

proc setm

strtonum STRT UNT0
strtonum STP UNT7

for COUNTER = UNT0 upto UNT7
itoa COUNTER UNIT
transmit "^M"
waitfor "." raw
mspause 80
transmit "SETM IMSG "
transmit CARD
transmit " "
mspause 10
transmit UNIT
mspause 10
transmit " MON 0"
mspause 80
transmit "^M"
waitfor "." raw
mspause 80
transmit "SETM OMSG "
transmit CARD
transmit " "
mspause 10
transmit UNIT
mspause 10
transmit " MON 0"
mspause 10
transmit "^M"
mspause 130
endfor
endproc

proc rset

strtonum STRT UNT0
strtonum STP UNT7

for COUNTER = UNT0 upto UNT7
itoa COUNTER UNIT
transmit "^M"
waitfor "." raw
mspause 50
transmit "RSET IMSG "
transmit CARD
transmit " "
mspause 10
transmit UNIT
mspause 50
transmit "^M"
waitfor "." raw
mspause 50
transmit "RSET OMSG "
transmit CARD
transmit " "
mspause 10
transmit UNIT
mspause 50
transmit "^M"
mspause 100
endfor
endproc