DATE: 05/19/10 File: #TESTEML, Y35 
TIME: 5:36 PM 

1 !S #TESTEML,Y35
2 !O TESTEML,Y35
3 !L TERM$,B,E
4 !R CED 
5 !* 


15 ! 
17 ! 
19 ! PROGRAM DESCRIPTION: 
20 ! 
21 ! 
22 ! 
25 ! 
35 ! SOURCE FILE NAME : 
45 ! 


1000 ! 
2000 ! DECLARATIVES 
3000 ! 
3005 USE '^SENDDEC' 
3020 ! 
3040 ! 


15000 ! 
16000 ! USE FILES 
17000 ! 
50000 ! 
51000 ! FORMATS - VIDEO AND PRINTER 
52000 ! 
52100 DATA: FORMAT DATA$ 
52200 ! 
96000 ! 
97000 ! EXECUTABLE SECTION 
98000 ! 
98010 ! 
99100 ! 
99200 ! 


100000 1000 CLEARLOCAL 
100100 ! 
100200 PRINT (0) (CS);(ET) 
100210 ! 
100220 FILENAME$='RSJ0019.TXT' 
100230 DIRECTORY$='D43' 
100240 DISPLAY$='YES' 
100250 ! 
100260 GOSUB SENDMAIL 
100270 ! 
100280 PRINT (0) 'DONE? - ANYTHING HAPPEN?' 
100285 INPUT (0) '' 
100287 ! 
100289 RUN '*MONITOR' 
100291 ! 
100300 ! 
500000 USE '^SENDMAI' 


Page 1 

PDF created with pdfFactory trial version www.pdffactory.com