| 1 | XMM2 ;(WASH ISC)/THM-CERMATEK INFO MATE 212A MODEM ;7/10/89 12:46 ;
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | O ;DON'T USE "UNLISTEN COMMAND", LEAVE COMMAND CHARACTER TO BE CONTROL-N
|
|---|
| 4 | ;THIS PROTOCOL USES ONLY DIAL, END, QUERY, AND RESET COMMANDS
|
|---|
| 5 | Q
|
|---|
| 6 | DIAL ;
|
|---|
| 7 | W $C(14),"Q",! R %:1 I %["O" S ER=0,Y="Already off-hook" Q
|
|---|
| 8 | W $C(14),"D '",XMPHONE,"'",! S ER=1 R %:30 I '$T S Y="Timeout" Q
|
|---|
| 9 | R X:30 I '$T S Y="Timeout" Q
|
|---|
| 10 | I X["A" S Y="Connected",ER=0 Q
|
|---|
| 11 | I X["B" S Y="Busy" Q
|
|---|
| 12 | I X["N" S Y="No Answer" Q
|
|---|
| 13 | I X["X" S Y="No dial tone detected" Q
|
|---|
| 14 | S Y="Info-mate modem status: '"_X_"'" Q
|
|---|
| 15 | HANG ; HANG UP MODEM
|
|---|
| 16 | W $C(14),"E",!,$C(14),! R X:15 I '$T S Y="Timeout",ER=1 Q
|
|---|
| 17 | S ER=0,Y="Successfully hung up" Q
|
|---|
| 18 | RESET ; RESET MODEM
|
|---|
| 19 | W $C(14),"R",!,$C(14),!
|
|---|
| 20 | Q
|
|---|
| 21 | STATUS ; DISPLAY INFO-MATE STATUS INFO
|
|---|
| 22 | W $C(14),"Q ",! R X:5 I '$T S Y="Timeout-modem probably not active.",ER=1 Q
|
|---|
| 23 | EN S Y="",%=$P(X,"/",1),J="OCHMLSARDUXZ"
|
|---|
| 24 | S K="Offhook,connected,1200 baud,300 baud,110 baud,Self test enabled,Analog test enabled,Remote originated loop,Digital loop,Unlisten enabled,Command echos,Remote digital loop enabled"
|
|---|
| 25 | F I=1:1 S A=$E(J,I) Q:A="" S:%[A Y=Y_$P(K,",",I)_", "
|
|---|
| 26 | S Y=Y_$P(X,"/",2)_" errors."
|
|---|
| 27 | Q
|
|---|
