source: FOIAVistA/trunk/r/MAILMAN-XM/XMM2.m@ 1540

Last change on this file since 1540 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1XMM2 ;(WASH ISC)/THM-CERMATEK INFO MATE 212A MODEM ;7/10/89 12:46 ;
2 ;;8.0;MailMan;;Jun 28, 2002
3O ;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
6DIAL ;
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
15HANG ; 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
18RESET ; RESET MODEM
19 W $C(14),"R",!,$C(14),!
20 Q
21STATUS ; 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
23EN 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
Note: See TracBrowser for help on using the repository browser.