; Get first/next Transmission Script
; XMINST (in) Pointer to domain file
; XMSITE (in) Name (.01 field) of domain pointed to by XMINST
; XMOKTYPE (in) array of script types which are acceptable
; XMB (out) XMB("SCR IEN") Pointer to script within domain
; XMB("FIRST SCRIPT") Pointer to first script tried
; XMB("SCR REC") Script zero node
; XMB("ITERATIONS") Number of cycles of scripts
; XMB("TRIES") Number of tries with one script
; XMB("IP TRIED") IP addresses tried so far
; If no transmission scripts are prioritized use old data/defaults.
; If failure, then XMB("SCR IEN")=0
; XMPRI Priority
; XMTYPE Script type
; XMDEFALT Default script settings
; XMSLIST Array of possible scripts
; XMSFIRST First possible script
; XMSNEXT Next possible script
INITSCR(XMINST,XMSITE,XMB)
;
NEXTIP(XMSITE,XMB)
;
USEDNS()
; Function returns 1 if we can use DNS; 0 if we can't.