;WPLSCRIPT jaz
PRINT "Config Error!\n"
RETURN
G: CLEAR BOSS.NUMBER1 REMOTE.PASSWORD
REXXMSG "SY,RY" REXX "OPTIONS PROMPT 'Phone #: ';PARSE PULL X;RETURN X"
SET BOSS.NUMBER1 $(RESULT2) NUMBERS 1
REXXMSG "SY,RY" REXX "OPTIONS PROMPT 'Password: ';PARSE PULL X;RETURN X"
SET REMOTE.PASSWORD $(RESULT2)
RETURN
M: SUBJUMP JAZFIG!MODEM
REXXMSG "RY" REXX "JAZ:jaz.w $(displayX) $(displayY) $(fontsize)"
Set w $(result2) pstat "@1,11,60" pevent "@2,11,12" pbaud "@3,11,12" pnum "@4,11,12" presp "@2,29,42" prmt "@3,29,42" prsys "@4,29,42" SERFLAGS 164
SETSTATUS "$(console)$(w)//NOCLOSE/NODEPTH/NOSIZE/NOBORDER/NODRAG/BACKDROP"
SETBAUD $(BAUD)
Print "JAZ mailer started\n"
ADDRESPONSE BUSY BUSY
ADDRESPONSE FIND "CONNECT "
ADDRESPONSE MAID NO#?
F: REXXMSG NY LOGPROC "PutLine jazw $(pstat) $(pstat) Initializing Modem $(pbaud) $(baud)"
MODEMCLOSE
DELAY 3
SET RC $<ABORT>
TRUEJUMP E
SUBJUMP JAZFIG!CONFIG
SETA HOST $(HOST.ADDRESS)
SET HOST.WZDOMAIN $(HOST.DOMAIN).org HOST.FREQ FALSE HOST.WZCAP 8 MINSENDPRI 0 MAXSENDPRI 127 INITLOOP 8 INITWAIT 3 OWNDEVUNIT FALSE
SET POSTINBOUND jaz!W POSTOUTBOUND jaz!X PREINBOUND jaz!Y PREOUTBOUND jaz!Z
SETMAILERFLAGS DN,PN
MODEMOPEN
TRUEJUMP D
REXXMSG NY LOGPROC "PutLine jazw $(pstat) $(pstat) Modem Init failed!"
JUMP A
D: MODEMINIT
FALSEJUMP F
SETA REMOTE ${CALLING}
MODEMCLEAR
CMPI $(REMOTE.ADDRESS) $(BOSS.ADDRESS)
FALSESUBJUMP jaz!G
SET X $(NUMBERS)
D1: SET RC $<ABORT>
TRUEJUMP E
REXXMSG "RY,SY" REXX "IF ($(X)+1)>$(NUMBERS) THEN RETURN 1;ELSE RETURN $(X)+1"
SET X $(RESULT2) REMOTE.NUMBER $(BOSS.NUMBER$(X))
D2: CMP $(REMOTE.NUMBER) ""
FALSEJUMP D3
REXXMSG NY LOGPROC "PutLine jazw $(pstat) $(pstat) No phone number"
JUMP E
D3: PRINT "\014"
REXXMSG NY LOGPROC "PutLine jazw $(pstat) $(pstat) Dialing $(pnum) $(remote.number) $(prmt) $(remote.address)"
SMARTSEND "$(DIALSTRING)$(REMOTE.NUMBER)|"
GETRESPONSE $(MODEMWAIT)
REXXMSG NY LOGPROC "PutLine jazw $(pevent) $(event) $(presp) $(lastresponse)"
CMP $(EVENT) CONNECT
TRUEJUMP C
;CMP $(EVENT) BUSY
PATTERN "$(BUSY)" "#?$(EVENT)#?"
FALSEJUMP E
SET RC $<ABORT>
TRUEJUMP E
DELAY $(calldelay)
JUMP D1
C: BEGINSESSION $(REMOTE.ADDRESS)
FINDFREQ $(REMOTE.ADDRESS)
REXXMSG NY LOGPROC "PutLine jazw $(pstat) $(pstat) Got connection with $(remote.address) $(pbaud) $(baud)"
GETOUTBOUND G6,D6
CMP $(EVENT) WAZOO
FALSEJUMP E
REXXMSG NY LOGPROC "PutLine jazw $(presp) $(namebuf) $(prmt) $(remote.address) $(prsys) $(remote.sysop) $(remote.sitename)"
REXXMSG "" REXX "JAZ:jaz.f $(OUTBOUND) $(HOST.ADDRESS) $(REMOTE.ADDRESS)"
CMP $(HOST.WZCAP) 8
FALSEJUMP E
DELAY 2
XPRSETUP xprzedzap.library TN,OR,B16,F0,E30,AN,DN,KN,SN,RN,NY,M8192,C$(BAUD)
XPRSEND ""
FALSEJUMP L
PRINT "Waiting for files\n"
SYSTEM "DELETE $(OUTBOUND)$(REMOTE.ZONE).$(REMOTE.NET).$(REMOTE.NODE).$(REMOTE.POINT).?LO"
MODEMCLEAR
XPRRECEIVE ""
L: XPRCLOSE
E: ENDSESSION ALL
REXXMSG NY LOGPROC "PutLine jazw $(pstat) $(pstat) Exiting"
A: SYSTEM "DELETE >NIL: RAM:ENV/CALLING"
DELAY 3
SETSTATUS NIL:
REXXMSG NY LOGPROC "Closelog jazwin"
REXXMSG NY LOGPROC "RemLogGroup jazw"
SET RC 1
RETURN
Z: REXXMSG NY LOGPROC "PutLine jazw $(pstat) $(pstat) Sending: $(LOCALFILE)[$(REMFILE)]"
RETURN
Y: REXXMSG NY LOGPROC "PutLine jazw $(pstat) $(pstat) Receiving: $(TEMPFILE)[$(REMFILE)]"
RETURN
X: SET T $(RC)
REXXMSG NY LOGPROC "PutLine jazw $(pstat) $(pstat) $(FILESTATUS): $(LOCALFILE)[$(REMFILE)]"
SET RC $(T)
FALSERETURN
REXXMSG NY LOGPROC "PutLine jazw $(presp) CPS:$(CPS)[$(CPSP)%] Size:$(FILESIZE)"
RETURN
W: SET T $(RC)
REXXMSG NY LOGPROC "PutLine jazw $(pstat) $(pstat) $(FILESTATUS): $(INFILE)[$(REMFILE)]"
SET RC $(T)
FALSERETURN
REXXMSG NY LOGPROC "PutLine jazw $(presp) CPS:$(CPS)[$(CPSP)%] Size:$(FILESIZE)"
RETURN
STARTUP: LOADSCRIPT JAZFIG JAZ:jaz.x
FALSERETURN
LAUNCH JAZ jaz!M 0 30000
RETURN