XMC1 ;ISC-SF/GMB-Script Interpreter ;07/23/2002 10:15
Source file <XMC1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENT | ;
; Expects as input: ; XMINST Domain IEN ; XMSITE Domain name ; XMB("SCR IEN") Script IEN |
|
IN | ;To |1| from |2| beginning |3|
|
|
USESCR(XMINST,XMB) | ; Function returns 1 if we should use the existing
; script, or 0 if we should build a TCP/IP script. |
|
EN(XMINST,XMSITE,XMSCRN,XMROOT) | ;
|
|
INT(X,XMCI) | ; Interpret the script line
; X script line |
|
C | ; Call a subroutine
|
|
DI | ; Dial phone
|
|
D | ; Dial numbers sucessively (Strip all punctuation not in XMSTRIP string)
|
|
DIAL(XMNUMS) | ;
|
|
DIALTRY(XMNUM) | ;
|
|
E | ; Set error message to be displayed.
|
|
F | ; Flush buffer
|
|
H | ; Hang up phone
|
|
L | ; Look for string
|
|
M | ; Send mail
|
|
O | ; Open device, protocol, and host
|
|
FLUSH | ; Flush buffer
|
|
S | ; Send line
|
|
INDIR(XMC1) | ; GET INDIRECT REFERENCE
|
|
T | ;
|
|
W | ; Wait a number of seconds
|
|
X | ; Execute a line of code
|
|
ERTRAN(XMDIALOG,XM1,XM2,XM3) | ;
|
|
DOTRAN(XMDIALOG,XM1,XM2,XM3) | ;
|
|
TRAN | ;
|
|
RESUME | ; Resume script processing
|
Name | Line Occurrences |
---|---|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^XMB(4.6 - [#4.6] | Classic Fileman Calls |