;WPLSCRIPT rap
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 RAPFIG!MODEM
REXXMSG "RY" REXX "RAP:RAP.w $(displayX) $(displayY) $(fontsize) $(console)"
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
REXXMSG NY LOGPROC "PutLog rapl $<time> Opening console $(console)$(w)"
SETSTATUS "$(console)$(w)//NOCLOSE/NODEPTH/NOSIZE/NOBORDER/NODRAG/BACKDROP"
SETBAUD $(BAUD)
Print "RAP mailer started\n"
ADDRESPONSE BUSY BUSY
ADDRESPONSE FIND "CONNECT "
ADDRESPONSE MAID NO#?
F: REXXMSG NY LOGPROC "PutLine rapw $(pstat) $(pstat) Initializing Modem $(pbaud) $(baud)"
REXXMSG NY LOGPROC "PutLog rapl $<time> Initializing Modem $(baud)"
MODEMCLOSE
DELAY 3
SET RC $<ABORT>
TRUEJUMP E
SUBJUMP RAPFIG!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 RAP!W POSTOUTBOUND RAP!X PREINBOUND RAP!Y PREOUTBOUND RAP!Z
SETMAILERFLAGS DN,PN
MODEMOPEN
TRUEJUMP D
REXXMSG NY LOGPROC "PutLine rapw $(pstat) $(pstat) Modem Init failed!"
REXXMSG NY LOGPROC "PutLog rapl $<time> Modem Init failed!"
JUMP A
D: MODEMINIT
FALSEJUMP F
SETA REMOTE ${CALLING}
MODEMCLEAR
CMPI $(REMOTE.ADDRESS) $(BOSS.ADDRESS)
FALSESUBJUMP RAP!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 rapw $(pstat) $(pstat) No phone number"
REXXMSG NY LOGPROC "PutLog rapl $<time> No phone number"
JUMP E
D3: PRINT "\014"
REXXMSG NY LOGPROC "PutLine rapw $(pstat) $(pstat) Dialing $(pnum) $(remote.number) $(prmt) $(remote.address)"
REXXMSG NY LOGPROC "PutLog rapl $<time> Dialing $(remote.number) $(remote.address)"
SMARTSEND "$(DIALSTRING)$(REMOTE.NUMBER)|"
GETRESPONSE $(MODEMWAIT)
REXXMSG NY LOGPROC "PutLine rapw $(pevent) $(event) $(presp) $(lastresponse)"
REXXMSG NY LOGPROC "PutLog rapl $<time> Event: $(event) Modem: $(lastresponse)"
CMP $(EVENT) CONNECT
TRUEJUMP C
;CMP $(EVENT) BUSY
PATTERN "$(BUSY)" "#?$(EVENT)#?"
FALSEJUMP E
SET RC $<ABORT>
TRUEJUMP E
REXXMSG NY LOGPROC "Flushlog rapl"
DELAY $(calldelay)
JUMP D1
C: BEGINSESSION $(REMOTE.ADDRESS)
FINDFREQ $(REMOTE.ADDRESS)
REXXMSG NY LOGPROC "PutLine rapw $(pstat) $(pstat) Got connection with $(remote.address) $(pbaud) $(baud)"
REXXMSG NY LOGPROC "PutLog rapl $<time> Got connection with $(remote.address) at $(baud) bps"
GETOUTBOUND G6,D6
CMP $(EVENT) WAZOO
FALSEJUMP E
REXXMSG NY LOGPROC "PutLine rapw $(presp) $(namebuf) $(prmt) $(remote.address) $(prsys) $(remote.sysop) $(remote.sitename)"
REXXMSG NY LOGPROC "PutLog rapl $<time> $(remote.address) $(remote.sysop) $(remote.sitename)"
REXXMSG "" REXX "RAP:RAP.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)
SETUPDATE "RAW:$(displayX)/$(displayY)/632/130/CONNECT $(BAUD) - $(REMOTE.DOMAIN).$(REMOTE.ZONE).$(REMOTE.NET).$(REMOTE.NODE).$(REMOTE.POINT) - $(REMOTE.SYSOP)/INACTIVE/NOCLOSE/NODEPTH/NOSIZE"
XPRSEND ""
FALSEJUMP L
PRINT "Waiting for files\n"
SYSTEM "DELETE $(OUTBOUND)$(REMOTE.ZONE).$(REMOTE.NET).$(REMOTE.NODE).$(REMOTE.POINT).?LO"
MODEMCLEAR
XPRRECEIVE ""
L: XPRCLOSE
SETUPDATE NULL
E: ENDSESSION ALL
REXXMSG NY LOGPROC "PutLine rapw $(pstat) $(pstat) Exiting"
REXXMSG NY LOGPROC "PutLog rapl $<time> Exiting"
A: SYSTEM "DELETE >NIL: RAM:ENV/CALLING"
DELAY 3
REXXMSG NY LOGPROC "Flushlog rapl"
REXXMSG NY LOGPROC "Closelog raplw"
REXXMSG NY LOGPROC "Closelog raplog"
REXXMSG NY LOGPROC "RemLogGroup rapl"
SETSTATUS NIL:
REXXMSG NY LOGPROC "Closelog rapwin"
REXXMSG NY LOGPROC "RemLogGroup rapw"
SET RC 1
RETURN
Z: REXXMSG NY LOGPROC "PutLine rapw $(pstat) $(pstat) Sending: $(LOCALFILE)[$(REMFILE)]"
REXXMSG NY LOGPROC "PutLog rapl $<time> Sending: $(LOCALFILE)[$(REMFILE)]"
RETURN
Y: REXXMSG NY LOGPROC "PutLine rapw $(pstat) $(pstat) Receiving: $(TEMPFILE)[$(REMFILE)]"
REXXMSG NY LOGPROC "PutLog rapl $<time> Receiving: $(TEMPFILE)[$(REMFILE)]"
RETURN
X: SET T $(RC)
REXXMSG NY LOGPROC "PutLine rapw $(pstat) $(pstat) $(FILESTATUS): $(LOCALFILE)[$(REMFILE)]"
REXXMSG NY LOGPROC "PutLog rapl $<time> $(FILESTATUS): $(LOCALFILE)[$(REMFILE)]"
SET RC $(T)
FALSERETURN
REXXMSG NY LOGPROC "PutLine rapw $(presp) CPS:$(CPS)[$(CPSP)%] Size:$(FILESIZE)"
REXXMSG NY LOGPROC "PutLog rapl $<time> CPS:$(CPS)[$(CPSP)%] Size:$(FILESIZE)"
RETURN
W: SET T $(RC)
REXXMSG NY LOGPROC "PutLine rapw $(pstat) $(pstat) $(FILESTATUS): $(INFILE)[$(REMFILE)]"
REXXMSG NY LOGPROC "PutLog rapl $<time> $(FILESTATUS): $(INFILE)[$(REMFILE)]"
SET RC $(T)
FALSERETURN
REXXMSG NY LOGPROC "PutLine rapw $(presp) CPS:$(CPS)[$(CPSP)%] Size:$(FILESIZE)"
REXXMSG NY LOGPROC "PutLog rapl $<time> CPS:$(CPS)[$(CPSP)%] Size:$(FILESIZE)"
RETURN
STARTUP: LOADSCRIPT RAPFIG RAP:RAP.x
FALSERETURN
LAUNCH RAP RAP!M 0 30000
RETURN