DATE: 05/19/10 File: ^SENDMAI, Y35 Page 1 
TIME: 5:37 PM 


1000 ! 
2000 ! 
3000 !------------------------------------------------------------------------------4000 
SENDMAIL: 
5000 ! 
5200 ! 
6000 GATENAME$='' & TODAY$='' & CMD$='' & RESULT$='' & DATA$='' 
7000 ! 
8000 CLOSE (10) & OPEN (10) FILENAME$ 
9000 ! 


10000 GOSUB Find.Gateway 


11000 ! 


12000 IF GateName$='' THEN 


13000 GOTO Abort 


14000 ENDIF 


15000 ! 


16000 CMD$='WEOL 1' 


17000 ! 


18000 GOSUB CONTROL 


19000 ! 


20000 IF SUB(RESULT$,1,1) NE '+' THEN 


21000 GOTO QUIT 


22000 ENDIF 


23000 ! 


24000 READ (10,DATA),EXCP=UnexpectedEOF 


25000 ! 


26000 CMD$=STRIP(DATA$) 


27000 ! 


28000 GOSUB CONTROL 


29000 ! 


30000 IF SUB(RESULT$,1,1) NE '+' THEN 


31000 GOTO QUIT 


32000 ENDIF 


33000 ! 


34000 GOSUB RECV 


35000 ! 


36000 IF SUB(RESULT$,1,3) NE '220' THEN 


37000 GOTO QUIT 


38000 ENDIF 


39000 ! 


40000 READ (10,DATA),EXCP=UnexpectedEOF 


41000 ! 


42000 CMD$=STRIP(DATA$) 


43000 ! 


44000 GOSUB SEND 


45000 GOSUB RECV 


46000 ! 


47000 IF SUB(RESULT$,1,3) NE '250' THEN 


48000 GOTO ABORT 


49000 ENDIF 


50000 ! 


51000 READ (10,DATA),EXCP=UnexpectedEOF 


52000 ! 


53000 CMD$=STRIP(DATA$) 


54000 ! 


55000 GOSUB SEND 


PDF created with pdfFactory trial version www.pdffactory.com 


DATE: 05/19/10 File: ^SENDMAI, Y35 Page 2 

TIME: 5:37 PM 

56000 GOSUB RECV 
57000 ! 
58000 IF SUB(RESULT$,1,3) NE '250' THEN 
59000 GOTO ABORT 
60000 ENDIF 
61000 ! 
62000 !------------------------------------------------------------------------------63000 
DO 
64000 ! 
65000 READ (10,DATA),EXCP=UnexpectedEOF 
66000 ! 
67000 CMD$=STRIP(DATA$) 
68000 ! 
69000 IF SUB(CMD$,1,4)='RCPT' THEN 
70000 GOSUB SEND 
71000 GOSUB RECV 
72000 ! 
73000 IF SUB(RESULT$,1,3) NE '250' THEN 
74000 GOTO ABORT 
75000 ENDIF 
76000 ! 
77000 CONTINUE 
78000 ! 
79000 ENDIF 
80000 ! 
81000 IF SUB(CMD$,1,4)='DATA' THEN 
82000 GOSUB SEND 
83000 GOSUB RECV 
84000 ! 
85000 IF SUB(RESULT$,1,3) NE '354' THEN 
86000 GOTO ABORT 
87000 ENDIF 
88000 ! 
89000 BREAK 
90000 ! 
91000 ENDIF 
92000 ! 
93000 LOOP 
94000 ! 
95000 !------------------------------------------------------------------------------96000 
DO 
97000 ! 
98000 READ (10,DATA),EXCP=UnexpectedEOF 
99000 ! 


100000 CMD$=STRIP(DATA$) 

101000 ! 

102000 GOSUB SEND 

103000 ! 

104000 IF CMD$='.' THEN 

105000 GOSUB RECV 

106000 ! 

107000 IF SUB(RESULT$,1,3) NE '250' THEN 

108000 GOTO ABORT 

109000 ENDIF 

110000 ! 

111000 GOTO QUIT 

PDF created with pdfFactory trial version www.pdffactory.com 


DATE: 05/19/10 File: ^SENDMAI, Y35 Page 3 

TIME: 5:37 PM 

112000 ! 
113000 ENDIF 
114000 ! 
115000 LOOP 
116000 ! 
117000 !------------------------------------------------------------------------------118000 
UnexpectedEOF:
119000 ! 
120000 GOTO ExitRoutine 
121000 ! 
122000 !------------------------------------------------------------------------------123000 
ABORT: 
124000 ! 
125000 CMD$='RSET' 
126000 ! 
127000 GOSUB SEND 
128000 GOSUB RECV 
129000 ! 
130000 CMD$='QUIT' 
131000 ! 
132000 GOSUB SEND 
133000 GOSUB RECV 
134000 ! 
135000 !------------------------------------------------------------------------------136000 
QUIT:
137000 ! 
138000 !------------------------------------------------------------------------------139000 
ExitRoutine: 
140000 ! 
141000 ! 
142000 CLOSE (10) & CLOSE (20) 
143000 ! 
144000 RETURN 
145000 ! 
146000 !------------------------------------------------------------------------------147000 
Control: 
148000 ! 
149000 RESULT$=CONTROL(20,CMD$) 
150000 ! 
151000 RETURN 
152000 ! 
153000 !------------------------------------------------------------------------------154000 
SEND: 
155000 ! 
156000 PRINT (20) CMD$ 
157000 ! 
158000 RETURN 
159000 ! 
160000 !------------------------------------------------------------------------------161000 
RECV: 
162000 ! 
163000 INPUT (20) RESULT$ 
164000 ! 
165000 RETURN 
166000 ! 
167000 !------------------------------------------------------------------------------


PDF created with pdfFactory trial version www.pdffactory.com 


DATE: 05/19/10 File: ^SENDMAI, Y35 Page 4 

TIME: 5:37 PM 

168000 Find.Gateway:
169000 ! 
170000 FOR I=100 TO 199 
171000 GateName$='G'+SUB(STRIP(STR(I)),2,2) 
172000 ! 
173000 IF SUB(DSTAT(GateName$,EXCP=Next.Gateway),4,1)='@03@' THEN 
174000 GOTO Gateway.Found 
175000 ENDIF 
176000 ! 
177000 ! 
178000 Next.Gateway:
179000 ! 
180000 NEXT I 
181000 ! 
182000 GateName$='' 
183000 ! 
184000 RETURN 
185000 ! 
186000 ! 
187000 Gateway.Found:
188000 ! 
189000 CLOSE (20) & OPEN (20) GateName$,excp=Next.Gateway 
190000 ! 
191000 RETURN 
192000 ! 
193000 !------------------------------------------------------------------------------194000 
! 
195000 ! 


PDF created with pdfFactory trial version www.pdffactory.com